Originally posted by: <email address deleted>
Hallo zusammen,
wie ist es möglich in der Umgebung FritzBox 7390 / Fritz Labor FHEM Image
weitere Perlmodule zu installieren?
Genau brauche ich wwwlib-perl (LWP, HTTP-Request, HTTP-Header), um einen
Server per POST aufzurufen.
Plz help!!!
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
> wie ist es möglich in der Umgebung FritzBox 7390 / Fritz Labor FHEM Image
> weitere Perlmodule zu installieren?
Das haben wir hier in der Gruppe auch schon erwaehnt:
1. Fuer Anfaenger: An AVM eine Bittschrift schreiben
2. Fuer Fortgeschrittene: Crosscompiler installieren, perl uebersetzen, Modul installieren
3. Fuer Experten: Compiler direkt auf dem FB installieren, perl uebersetzen,
Modul installieren
> Genau brauche ich wwwlib-perl (LWP, HTTP-Request, HTTP-Header), um einen
> Server per POST aufzurufen.
Dazu braucht man doch nicht unbedingt diese Module, das kann man auch selber
Programmieren. Einfacher als Punkt 2 bzw. 3 ist das allemal.
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
Originally posted by: <email address deleted>
Hallo,
danke für die Antwort, ich werds selber programmieren und hier posten.
René
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
Originally posted by: <email address deleted>
Hier meine nicht ganz ausprogrammierte Lösung:
use Socket;
sub
PostHttpFile($$$)
{
my $host = shift;
my $name = shift;
my $event = shift;
my ($iaddr, $paddr);
$iaddr = inet_aton($host);
$paddr = sockaddr_in(80, $iaddr);
unless(socket(SOCKET, PF_INET, SOCK_STREAM, 6))
{
die "init socket: $!\n";
}
unless(connect(SOCKET, $paddr))
{
die "no connect: $!\n";
}
my $content = "\n".
"\n".
"<$name>\n".
"<$event>\n".
"\n";
my $contentlength = length($content);
my $header = "POST $value{channeluri} HTTP/1.1\r\n".
"Host: $host\r\n".
"Content-type: text/html\r\n".
"Content-length: $contentlength\r\n".
"X-NotificationClass: 3\r\n".
"Connection: keep-alive\r\n\r\n";
select SOCKET;
$| = 1;
binmode SOCKET;
print SOCKET $header;
print SOCKET $content;
shutdown SOCKET, 1;
my @data = ();
print STDOUT "RESULT:\n@data\n";
close SOCKET;
}
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com