- Mitglied seit
- 22 Aug 2004
- Beiträge
- 2,028
- Punkte für Reaktionen
- 0
- Punkte
- 36
Is zwar nicht fein, aber nützlich kann es sein
Code:
#!/usr/bin/perl -w
# dboxmessage.pl -- Sendet eine Nachricht an die D-BoxII unter Neutrino.
# ARGV[0] - IPadresse der Box
# ARGV[1] - Port des nhttpd (zu finden unter /var/tuxbox/config/nhttpd.conf)
# ARGV[2] - Machrichtentyp popup|nmsg
# ARGV[3] - informationen über den Anrufer
use strict;
use LWP::UserAgent;
my ($url, $ua, $request, $response);
my $ip = $ARGV[0];
my $port = $ARGV[1];
my $messagetype = $ARGV[2];
my $anrufer = $ARGV[3];
$url = "http://172.17.1.150/control/message?popup=Anruf von: ".$ARGV[0];
#$url = "http://".$ip.":".$port."/control/message?".$messagetype."=Anruf von: ".$anrufer;
print $url, "\n";
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new('GET', $url);
$response = $ua->request($request);
#print $response->code ,"\n";