Enlightenment CVS committal
Author : atmosphere
Module : CVSROOT
Dir : CVSROOT
Modified Files:
ciabot.pl
Log Message:
I should've known better than to mess with other people's perl
===================================================================
RCS file: /cvsroot/enlightenment/CVSROOT/ciabot.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -3 -r1.16 -r1.17
--- ciabot.pl 16 Jan 2004 03:21:35 -0000 1.16
+++ ciabot.pl 16 Jan 2004 04:00:39 -0000 1.17
@@ -27,7 +27,7 @@
# If it does not work, try to disable $xml_rpc in the configuration section
# below.
#
-# $Id: ciabot.pl,v 1.16 2004/01/16 03:21:35 atmosphere Exp $
+# $Id: ciabot.pl,v 1.17 2004/01/16 04:00:39 atmosphere Exp $
use strict;
use vars qw ($project $from_email $dest_email $rpc_uri $sendmail $sync_delay
@@ -117,16 +117,13 @@
#$module = $dir[0]; $module =~ s#/.*##;
$_ = $dir[0];
-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;
+if((my $first, my $second, my $third) = /^e17\/(\w*)\/(\w*)\/(.*)/) {
+ $module = $second;
+} elsif((my $first, my $second) = /^(e16|misc)\/(\w*)\/(.*)/) {
+ if($first eq "e16") {
+ $module = $first . "/" . $second;
} else {
- $module = $dir[0];
+ $module = $second;
}
} else {
$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
