Cisco-IPPhone

 view release on metacpan or  search on metacpan

IPPhone.pm  view on Meta::CPAN

 $URL1 = "http://$SERVER/cgi-bin/nfl.cgi";
 
 # Build Execute Object with up to 3 Execute Items
 $myexecute->Execute;
 $myexecute->AddExecuteItem( { ExecuteItem => "$URL1" });
 my $xml = $myexecute->Content_Noheader;
 
 # Translate non-alpha chars into hex
 $xml = URI::Escape::uri_escape("$xml"); 
 
 my $request = new HTTP::Request POST => "$POSTURL";
 $request->authorization_basic($USER, $PASSWORD);
 $request->content("XML=$xml"); # Phone requires parameter named XML
 my $response = $ua->request($request); # Send the POST
 
 if ($response->is_success) {
   $result = $response->content;
   if ($result =~ /CiscoIPPhoneError Number="(\d+)"/) {
      $errno = $1;
      if ($errno == 4) {
          print "Authentication error\n";

examples/execute.cgi  view on Meta::CPAN

$URL1 = "http://$SERVER/cgi-bin/nfl.cgi";

# Build Execute Object with up to 3 Execute Items
$myexecute->Execute;
$myexecute->AddExecuteItem( { ExecuteItem => "$URL1" });
my $xml = $myexecute->Content_Noheader;

# Translate non-alpha chars into hex
$xml = URI::Escape::uri_escape("$xml"); 

my $request = new HTTP::Request POST => "$POSTURL";
$request->authorization_basic($USER, $PASSWORD);
$request->content("XML=$xml"); # Phone requires parameter named XML
my $response = $ua->request($request); # Send the POST

if ($response->is_success) {
  $result = $response->content;
  if ($result =~ /CiscoIPPhoneError Number="(\d+)"/) {
     $errno = $1;
     if ($errno == 4) {
         print "Authentication error\n";

examples/imagecap.cgi  view on Meta::CPAN

use Cisco::IPPhone;
use LWP;

$ua = LWP::UserAgent->new;
$mytext = new Cisco::IPPhone;

$IPPHONE = "192.168.1.100";
$USER = 'myusername';
$PASSWORD = 'mypassword';
$URL = "http://${IPPHONE}/CGI/Screenshot";
my $request = HTTP::Request->new(GET => $URL);
$request->authorization_basic($USER, $PASSWORD);
my $response = $ua->request($request);

if ($response->is_success) {
  $lines = $response->content;
} else {
  ## Handle Redirect and errors
  if ($response->is_redirect) {
     my $newrequest = HTTP::Request->new(GET => $response->header('Location'));
     $newrequest->authorization_basic($USER, $PASSWORD);
     my $newresponse = $ua->request($newrequest);
     $lines = $newresponse->content;
  } else {
     print $response->status_line;
  }
}

# Check results for errors
if ($lines =~ /CiscoIPPhoneError Number="(\d+)"/) {

examples/nfl.cgi  view on Meta::CPAN

use Cisco::IPPhone;
use LWP;

$ua = LWP::UserAgent->new;
$mytext = new Cisco::IPPhone;

my $host = "www.nfl.com";
my $url = "scores";
$completeurl = "http:\/\/$host\/$url";

my $request = HTTP::Request->new(GET => $completeurl);
my $response = $ua->request($request);

if ($response->is_success) {
 # It was successful, so parse the form

 $results = $response->content;

 @lines = split ('\n', $results);
$counter = 0;
$team = '';

examples/ticker.cgi  view on Meta::CPAN

$mytext = new Cisco::IPPhone;
$error = new Cisco::IPPhone;
$query = new CGI;

my $host = 'finance.yahoo.com';
my $url = 'q?s';
$ticker = $query->param('ticker') || "CSCO";

$completeurl = "http:\/\/$host\/$url=${ticker}&d=d";

my $request = HTTP::Request->new(GET => $completeurl);
my $response = $ua->request($request);

if ($response->is_success) {
 # It was successful, so parse the form
 $lines = $response->content;

if ($lines =~ />Last Trade<br>(.+) .+?;\s+<b>(.+?)<\/b><\/font>.*Change<br>(.+?)<\/font>.*Prev Cls<br>(.+?)<\/font>.*Volume<br><i>(.+?)<\/i>/ ) {
   $date = $1;
   $last = $2;
   $change = $3;

examples/weather.cgi  view on Meta::CPAN

$ua = LWP::UserAgent->new;
$mytext = new Cisco::IPPhone;
$error = new Cisco::IPPhone;
$query = new CGI;

my $host = "rainmaker.wunderground.com";
my $url = "/cgi-bin/findweather/getForecast";
$zip = $query->param('zip');
$completeurl = "http:\/\/$host\/$url?zip=$zip";

my $request = HTTP::Request->new(GET => $completeurl);
my $response = $ua->request($request);

if ($response->is_success) {
 # It was successful, so parse the form
 $lines = $response->content;
 $city = $1 if $lines =~ /<title>Weather Underground:(.*) Forecast?</;
if ($lines =~ /Temperature.*\n.*?(\d+).*\n.*Humidity.*\n.*?(\d+).*\n.*Dewpoint.*\n.*?(\d+).*\n.*Wind/) {
 $tempf = $1;
 $tempf .= " F";
 $humidity = $2;