From 0dcb16a8ec2f7dbefd6710e2aa0521c48cd0af61 Mon Sep 17 00:00:00 2001
From: josch <josch@7eef14d0-6ed0-489d-bf55-20463b2d70db>
Date: Tue, 22 Apr 2008 20:29:24 +0000
Subject: [PATCH] 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 | 10 ++++++++--
 trunk/video.pl    |  4 ++--
 2 files changed, 10 insertions(+), 4 deletions(-)

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 &lt; &gt; &amp; &quot; 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?
                         }
                     }