use LWP::Simple; my $requestURL = "http://..."; my $response = get($requestURL);
08/27/09 07:33:52 PM Starting memory check... ########## PROWL Start ###################### >>>>>>>>>> before request >>>>>>>>>> after request >>>>>>>>>> <html><body><h1>It works!</h1></body></html> >>>>>>>>>> end of prowl ########## PROWL End ######################
#!/usr/bin/perl -w
# noloop=start
my $Startup = 1;
# noloop=stop
if ($Startup) {
print "########## PROWL Start ######################\n";
use LWP::UserAgent;
my $userAgent = LWP::UserAgent->new;
my $requestURL = "http://ralfathome.dyndns.org/apache2-default/";
print ">>>>>>>>>> before request\n";
my $request = HTTP::Request->new(GET => $requestURL);
my $response = $userAgent->request($request);
print ">>>>>>>>>> after request\n";
print ">>>>>>>>>> " . $response->content . "\n";
print ">>>>>>>>>> end of prowl\n";
print "########## PROWL End ######################\n";
}
my $response = $userAgent->request($request);
, bin ich noch auf der Suche nach einer mh-Push-Notification auf meinen PC im Büro. Benutzt Du irgendwas dergleichen und hast eine Empfehlung? Laut Doku sollte es mit Jabber eigentlich gut funktionieren, aber das habe ich nach Tagen rumprobieren verworfen, weil es einfach nicht funktioniert hat... Und Prowl/Growl scheint sich dafür ja leider nicht zu eignen.# perl -MCPAN -e shell > install WebService-Prowl
#!/usr/bin/perl -w
use WebService::Prowl;
my $ws = WebService::Prowl->new(apikey => 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX');
$ws->verify || die $ws-error();
$ws->add(application => "Misterhouse",
event => "Abwesenheit",
description => "Abwesenheit eingeschaltet");
# noloop=start
use WebService::Prowl;
my $prowl = WebService::Prowl->new(apikey => 'YourProwlKey');
# den gibts nach Registrierung auf der Prowl-Settings Seite
# noloop=stop
my $v_prowl = new Voice_Cmd "prowl";
if (said $v_prowl) {
print_log "##### Hallo test";
$prowl->add(application => "Misterhouse",
event => "Abwesenheit",
description => "Test");
print_log "##### Hallo test";
}
# house prowl
Einen Kommentar schreiben: