forgot to remove some additional debiugging output

git-svn-id: http://yolanda.mister-muffin.de/svn@315 7eef14d0-6ed0-489d-bf55-20463b2d70db

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(

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?
                         }
                     }