diff --git a/trunk/pingback.pl b/trunk/pingback.pl index 533311d..0a06f3e 100644 --- a/trunk/pingback.pl +++ b/trunk/pingback.pl @@ -114,12 +114,18 @@ sub send_error push @{$xml->{'fault'}->{'value'}->{'struct'}->{'member'}}, { "name" => ["faultCode"], - "value" => [$faultCode] + "value" => + { + "int" => [$faultCode] + } }; push @{$xml->{'fault'}->{'value'}->{'struct'}->{'member'}}, { "name" => ["faultString"], - "value" => [$faultString] + "value" => + { + "string" => [$faultString] + } }; print $session->header( diff --git a/trunk/video.pl b/trunk/video.pl index 07b2bf7..f8dd687 100644 --- a/trunk/video.pl +++ b/trunk/video.pl @@ -113,7 +113,8 @@ if($query->url_param('id')) #TODO: expand xml entities < > & " in $pingbackurl #contruct the xml-rpc request - my $xmlpost->{"methodName"} = ["pingback.ping"]; + my $xmlpost = (); + $xmlpost->{"methodName"} = ["pingback.ping"]; push @{$xmlpost->{'params'}->{'param'} }, { "value" => @@ -140,7 +141,6 @@ if($query->url_param('id')) )); $ua = LWP::UserAgent->new; $response = $ua->request($request); - print $response->content; #TODO: maybe do something on success? } }