Enlightenment CVS committal
Author : xcomputerman
Module : CVSROOT
Dir : CVSROOT
Modified Files:
ciabot.pl
Log Message:
- Remove temporary debugging code
- Make it detect modules in web/ properly
===================================================================
RCS file: /cvsroot/enlightenment/CVSROOT/ciabot.pl,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -3 -r1.30 -r1.31
--- ciabot.pl 16 Jan 2004 19:24:59 -0000 1.30
+++ ciabot.pl 17 Jan 2004 17:25:38 -0000 1.31
@@ -27,7 +27,7 @@
# If it does not work, try to disable $xml_rpc in the configuration section
# below.
#
-# $Id: ciabot.pl,v 1.30 2004/01/16 19:24:59 xcomputerman Exp $
+# $Id: ciabot.pl,v 1.31 2004/01/17 17:25:38 xcomputerman Exp $
use strict;
use vars qw ($project $from_email $dest_email $rpc_uri $sendmail $sync_delay
@@ -117,21 +117,16 @@
#$module = $dir[0]; $module =~ s#/.*##;
$_ = $dir[0];
-my $pcount;
if((my $first, my $second, my $third) = /^e17\/(\w*)\/(\w*)\/(.*)/) {
$module = "e17/" . $first . "/" . $second;
- $pcount = 3;
} elsif(($first, $second, $third) = /^(e16|misc)\/(\w*)\/(.*)/) {
- if($first eq "e16") {
+ if($first eq "e16" || $first eq "web") {
$module = $first . "/" . $second;
- $pcount = 2;
} else {
$module = $second;
- $pcount = 2;
}
} else {
$module = $dir[0];
- $pcount = 1;
}
@@ -145,8 +140,6 @@
$project = $ARGV[2] if $ARGV[2];
$from_email = $ARGV[3] if $ARGV[3];
$dest_email = $ARGV[4] if $ARGV[4];
-# Testing purposes
-$dest_email = "$dest_email, [EMAIL PROTECTED]";
$ignore_regexp = $ARGV[5] if $ARGV[5];
@@ -343,22 +336,4 @@
close MAIL;
die "$0: sendmail exit status " . ($? >> 8) . "\n" unless ($? == 0);
-#Testing >>>
-open (MAIL, "| $sendmail -t -oi -oem") or die "Cannot execute $sendmail : " . ($?>>8);
-print MAIL <<EOM2;
-From: $from_email
-To: [EMAIL PROTECTED]
-Content-type: text/plain
-Subject: CIA debug
-
-EOM2
-
-print MAIL "ARGV:\n", join("\n", @ARGV), "\n";
-print MAIL "dir:\n", join("\n", @dir), "\n";
-print MAIL "dirfiles:\n", join("\n", @dirfiles), "\n";
-
-close MAIL;
-die "$0: sendmail exit status " . ($? >> 8) . "\n" unless ($? == 0);
-#<<< Testing
-
# vi: set sw=2:
-------------------------------------------------------
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
