E CVS: CVSROOT xcomputerman

[enlightenment-cvs]

Enlightenment CVS committal

Author  : xcomputerman
Module  : CVSROOT

Dir     : CVSROOT


Modified Files:
        ciabot.pl 


Log Message:
...back together again!

===================================================================
RCS file: /cvsroot/enlightenment/CVSROOT/ciabot.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -3 -r1.25 -r1.26
--- ciabot.pl   16 Jan 2004 08:35:24 -0000      1.25
+++ ciabot.pl   16 Jan 2004 09:10:16 -0000      1.26
@@ -27,7 +27,7 @@
 # If it does not work, try to disable $xml_rpc in the configuration section
 # below.
 #
-# $Id: ciabot.pl,v 1.25 2004/01/16 08:35:24 xcomputerman Exp $
+# $Id: ciabot.pl,v 1.26 2004/01/16 09:10:16 xcomputerman Exp $
 
 use strict;
 use vars qw ($project $from_email $dest_email $rpc_uri $sendmail $sync_delay
@@ -261,21 +261,12 @@
 
 for (my $dirnum = 0; $dirnum < @dir; $dirnum++) {
   map {
-    $_ = $dir[$dirnum] . '/' . $_;
-#    for (my $ix = 0; $ix < $pcount; $ix++) {
-      #   s#^[^/]*##; # weed out the module name
-#    }
-    if ($pcount == 3) {
-      s#^.*?/.*?/.*?/##;
-    } elsif ($pcount == 2) {
-      s#^.*?/.*?/##;
-    } else {
-      s#^.*?/##;
-    }
+    #$_ = $dir[$dirnum] . '/' . $_;
+    s#^$module?/##;
     s/&/&amp;/g;
     s/</&lt;/g;
     s/>/&gt;/g;
-    $message .= "  <file>$_</file>\n";
+    $message .= "             <file>$_</file>\n";
   } split(/ /, $dirfiles[$dirnum]);
 }
 
@@ -324,7 +315,6 @@
 }
 
 
-
 ### Send out the mail
 
 




-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn
_______________________________________________
enlightenment-cvs mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs