E CVS: CVSROOT xcomputerman

[enlightenment-cvs]

Enlightenment CVS committal

Author  : xcomputerman
Module  : CVSROOT

Dir     : CVSROOT


Modified Files:
        ciabot.pl 


Log Message:
And we give this yet another shot!


===================================================================
RCS file: /cvsroot/enlightenment/CVSROOT/ciabot.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -3 -r1.18 -r1.19
--- ciabot.pl   16 Jan 2004 04:04:07 -0000      1.18
+++ ciabot.pl   16 Jan 2004 07:23:38 -0000      1.19
@@ -27,7 +27,7 @@
 # If it does not work, try to disable $xml_rpc in the configuration section
 # below.
 #
-# $Id: ciabot.pl,v 1.18 2004/01/16 04:04:07 atmosphere Exp $
+# $Id: ciabot.pl,v 1.19 2004/01/16 07:23:38 xcomputerman Exp $
 
 use strict;
 use vars qw ($project $from_email $dest_email $rpc_uri $sendmail $sync_delay
@@ -117,16 +117,21 @@
 
 #$module = $dir[0]; $module =~ s#/.*##;
 $_ = $dir[0];
+my $pcount;
 if((my $first, my $second, my $third) = /^e17\/(\w*)\/(\w*)\/(.*)/) {
-    $module = $second;
+    $module = "e17/" . $first . "/" . $second;
+    $pcount = 3;
 } elsif(($first, $second, $third) = /^(e16|misc)\/(\w*)\/(.*)/) {
   if($first eq "e16") {
     $module = $first . "/" . $second;
+    $pcount = 2;
   } else {
     $module = $second;
+    $pcount = 2;
   }
 } else {
   $module = $dir[0];
+  $pcount = 1;
 }
    
 
@@ -257,7 +262,9 @@
 for (my $dirnum = 0; $dirnum < @dir; $dirnum++) {
   map {
     $_ = $dir[$dirnum] . '/' . $_;
-    s#^.*?/##; # weed out the module name
+    for (my $ix = 0; $ix < $pcount; $ix ++) {
+       s#^.*?/##; # weed out the module name
+    }
     s/&/&amp;/g;
     s/</&lt;/g;
     s/>/&gt;/g;




-------------------------------------------------------
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