CVSROOT: ciabot.pl - use RPC-XML for delivering data

[arekm]

Author: arekm                        Date: Wed Oct 24 07:21:34 2007 GMT
Module: CVSROOT                       Tag: HEAD
---- Log message:
- use RPC-XML for delivering data

---- Files affected:
CVSROOT:
   ciabot.pl (1.10 -> 1.11) 

---- Diffs:

================================================================
Index: CVSROOT/ciabot.pl
diff -u CVSROOT/ciabot.pl:1.10 CVSROOT/ciabot.pl:1.11
--- CVSROOT/ciabot.pl:1.10	Tue Aug 23 19:12:10 2005
+++ CVSROOT/ciabot.pl	Wed Oct 24 09:21:29 2007
@@ -15,7 +15,7 @@
 #   http://pasky.or.cz/~pasky/dev/cvs/ciabot.pl.
 #
 # This version has been modified a bit, and is available on CIA's web site:
-#   http://cia.navi.cx/clients/cvs/ciabot_cvs.pl
+#   http://cia.vc/clients/cvs/ciabot_cvs.pl
 #
 # This program is designed to run from the loginfo CVS administration file. It
 # takes a log message, massaging it and mailing it to the address given below.
@@ -60,7 +60,7 @@
 $dest_email = 'cia at pld-linux.org';
 
 # If using XML-RPC, connect to this URI.
-$rpc_uri = 'http://cia.navi.cx/RPC2';
+$rpc_uri = 'http://cia.vc/RPC2';
 
 # Path to your USCD sendmail compatible binary (your mailer daemon created this
 # program somewhere).
@@ -81,7 +81,7 @@
 # while they allow outgoing mail. Also, this script will hang and eventually
 # not deliver the event at all if CIA server happens to be down, which is
 # unfortunately not an uncommon condition.
-$xml_rpc = 0;
+$xml_rpc = 1;
 
 # You can make this bot to totally ignore events concerning the objects
 # specified below. Each object is composed of <module>/<path>/<filename>,
@@ -146,7 +146,6 @@
 # $user = $ARGV[1];
 $user = $ENV{'CVS_USER'} || $ENV{'CVS_USERNAME'} || $ENV{'CVSUSER'} || getlogin || (getpwuid($<))[0] || "nobody";
 
-
 # Use the optional parameters, if supplied.
 
 $project = $ARGV[2] if $ARGV[2];
@@ -175,7 +174,7 @@
 
 $dirfiles[0] = join (' ',
   grep {
-    my $f = "$module/$dir[0]/$_";
+    my $f = "$dir[0]/$_";
     $f !~ m/$ignore_regexp/;
   } split (/\s+/, $dirfiles[0])
 ) if ($ignore_regexp);
@@ -236,8 +235,8 @@
 ### Compose the mail message
 
 
-my ($VERSION) = '2.3';
-my ($URL) = 'http://cia.navi.cx/clients/cvs/ciabot_cvs.pl';
+my ($VERSION) = '2.4';
+my ($URL) = 'http://cia.vc/clients/cvs/ciabot_cvs.pl';
 my $ts = time;
 
 $message = <<EM
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/CVSROOT/ciabot.pl?r1=1.10&r2=1.11&f=u