Sunny Webbox via Perl & JSON::RPC auslesen

Neu hier Angemeldet: 29.01.2008 Beiträge: 1

Versuche unter Linux per Perl und dem JSON::RPC modul ein Programm zu schreiben das die Daten von der Webbox auslesen kann. Jedoch klappt es nicht.. Kennt sich jemand mit perl aus?

Hier das Programm das ich aus dem Module-beispiel erstellt habe:

Code:

#!/usr/bin/perl

use JSON::RPC::Client;

my $client = new JSON::RPC::Client;
my $uri = 'http://<ipaddr>/rpc'; #ip ergaenzen...

my $callobj2 = {
version => '1.0',
proc => 'GetPlantOverview',
id => '1.0',
format => 'JSON',
};

# my $res = $client->call($uri, $callobj);
my $res = $client->call($uri, $callobj2);

# $client->prepare($uri, ['RPC_GET_PLANT_OVERVIEW', 'echo']);
# print $client->sum(10, 23);

if($res) {
if ($res->is_error) {
print "Error : ", $res->error_message,"\n\r";
}
else {
print $res->result;
}
}
else {
print $client->status_line,"\n\r";
}

Erhalte dann folgende Ausgabe:

alex@apollo2:~/SMA$ ./NSolar2.pl
500 Server closed connection without sending any data back