[DW-Changelog] dw-free: Add user-agent information to xposter and content impor...

[Dreamwidth Changelog]

        Patch by mark. 

diffs (28 lines):

diff -r 03ac3ce3a905 -r 0f75400b09e0 
cgi-bin/DW/External/XPostProtocol/LJXMLRPC.pm
--- a/cgi-bin/DW/External/XPostProtocol/LJXMLRPC.pm     Fri Oct 16 15:33:54 
2009 +0000
+++ b/cgi-bin/DW/External/XPostProtocol/LJXMLRPC.pm     Fri Oct 16 20:19:27 
2009 +0000
@@ -109,7 +109,10 @@ sub call_xmlrpc {
 sub call_xmlrpc {
     my ($self, $proxyurl, $mode, $req, $auth) = @_;
     
-    my $xmlrpc = eval { XMLRPC::Lite->proxy($proxyurl); };
+    my $xmlrpc = eval {
+        XMLRPC::Lite->proxy( $proxyurl, agent => "$LJ::SITENAME XPoster 
($LJ::ADMIN_EMAIL)" );
+    };
+
     # connection error if no proxy
     return {
         success => 0,
diff -r 03ac3ce3a905 -r 0f75400b09e0 
cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm
--- a/cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm  Fri Oct 16 15:33:54 
2009 +0000
+++ b/cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm  Fri Oct 16 20:19:27 
2009 +0000
@@ -369,7 +369,8 @@ sub call_xmlrpc {
     my ( $class, $opts, $mode, $hash, $depth ) = @_;
 
     my $xmlrpc = XMLRPC::Lite->new;
-    $xmlrpc->proxy( "http://"; . ( $opts->{server} || $opts->{hostname} ) . 
"/interface/xmlrpc" );
+    $xmlrpc->proxy( "http://"; . ( $opts->{server} || $opts->{hostname} ) . 
"/interface/xmlrpc",
+                    agent => "$LJ::SITENAME Content Importer 
($LJ::ADMIN_EMAIL)" );
 
     my $chal;
     while ( ! $chal ) {
_______________________________________________
dw-changelog mailing list
dw-changelog@lists.dwscoalition.org
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog