Enlightenment CVS committal
Author : atmosphere
Module : CVSROOT
Dir : CVSROOT
Modified Files:
ciabot.pl
Log Message:
xcomp made me do it
===================================================================
RCS file: /cvsroot/enlightenment/CVSROOT/ciabot.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -3 -r1.13 -r1.14
--- ciabot.pl 16 Jan 2004 02:19:51 -0000 1.13
+++ ciabot.pl 16 Jan 2004 03:15:45 -0000 1.14
@@ -27,7 +27,7 @@
# If it does not work, try to disable $xml_rpc in the configuration section
# below.
#
-# $Id: ciabot.pl,v 1.13 2004/01/16 02:19:51 xcomputerman Exp $
+# $Id: ciabot.pl,v 1.14 2004/01/16 03:15:45 atmosphere Exp $
use strict;
use vars qw ($project $from_email $dest_email $rpc_uri $sendmail $sync_delay
@@ -120,15 +120,19 @@
my $first = "";
my $second = "";
my $third = "";
-(my $first, my $second, my $third) = /^((\w*)\/(\w+| )*\/(.*))/;
-if ($first eq 'e17') {
- $module = $first . "/" . $second . "/" . $third;
-} elsif ($first eq "CVSROOT") {
- $module = $first;
-} elsif ($first eq "") {
- $module = 'CVSROOT';
+if((my $first, my $second, my $third) = /^((\w*)\/(\w*)\/(.*))/)
+{
+ if ($first eq "e17") {
+ $module = $third;
+ } elsif ($first eq "e16") {
+ $module = $first . ": " . $second . "/" . $third;
+ } elsif ($first eq "misc") {
+ $module = $second . "/" . $third;
+ } else {
+ $module = $dir[0];
+ }
} else {
- $module = $first . "/" . $second;
+ $module = $dir[0];
}
-------------------------------------------------------
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
