Let's pass on a particular Agent string, and give back more information about failed...

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@110 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/commands.yaml b/commands.yaml
index f21cad1..dd42173 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -959,12 +959,13 @@ RSS: |-
     use LWP::UserAgent;
     my $ua = LWP::UserAgent->new;
     $ua->timeout(5);
+    $ua->agent( "Destult" );
     my $req = HTTP::Request->new( GET => $url );
     my $res = $ua->request( $req );
     if( $res->is_success ) {
       $xml = $res->content;
     } else {
-      $kernel->post( $src, $replypath, "Failed to fetch RSS feed from $url", $dest );
+      $kernel->post( $src, $replypath, "Failed to fetch RSS feed from $url: ".$res->code.": ".$res->message, $dest );
       return;
     }
     my $rss = new XML::RSS;