josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

forgot to remove some additional debiugging output

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@315 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2008-04-22 20:29:24 +00:00
parent bc77df2335
commit 0dcb16a8ec
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
trunk/pingback.pl
View file

@ -114,12 +114,18 @@ sub send_error
push @{$xml->{'fault'}->{'value'}->{'struct'}->{'member'}}, push @{$xml->{'fault'}->{'value'}->{'struct'}->{'member'}},
{ {
"name" => ["faultCode"], "name" => ["faultCode"],
"value" => [$faultCode] "value" =>
{
"int" => [$faultCode]
}
}; };
push @{$xml->{'fault'}->{'value'}->{'struct'}->{'member'}}, push @{$xml->{'fault'}->{'value'}->{'struct'}->{'member'}},
{ {
"name" => ["faultString"], "name" => ["faultString"],
"value" => [$faultString] "value" =>
{
"string" => [$faultString]
}
}; };
print $session->header( print $session->header(

4
trunk/video.pl
View file

@ -113,7 +113,8 @@ if($query->url_param('id'))
#TODO: expand xml entities < > & " in $pingbackurl #TODO: expand xml entities < > & " in $pingbackurl
#contruct the xml-rpc request #contruct the xml-rpc request
my $xmlpost->{"methodName"} = ["pingback.ping"]; my $xmlpost = ();
$xmlpost->{"methodName"} = ["pingback.ping"];
push @{$xmlpost->{'params'}->{'param'} }, push @{$xmlpost->{'params'}->{'param'} },
{ {
"value" => "value" =>
@ -140,7 +141,6 @@ if($query->url_param('id'))
)); ));
$ua = LWP::UserAgent->new; $ua = LWP::UserAgent->new;
$response = $ua->request($request); $response = $ua->request($request);
print $response->content;
#TODO: maybe do something on success? #TODO: maybe do something on success?
} }
} }