Enlightenment CVS committal
Author : xcomputerman
Module : CVSROOT
Dir : CVSROOT
Modified Files:
ciabot.pl
Log Message:
Temporary debugging parameters
===================================================================
RCS file: /cvsroot/enlightenment/CVSROOT/ciabot.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -3 -r1.26 -r1.27
--- ciabot.pl 16 Jan 2004 09:10:16 -0000 1.26
+++ ciabot.pl 16 Jan 2004 18:31:29 -0000 1.27
@@ -27,7 +27,7 @@
# If it does not work, try to disable $xml_rpc in the configuration section
# below.
#
-# $Id: ciabot.pl,v 1.26 2004/01/16 09:10:16 xcomputerman Exp $
+# $Id: ciabot.pl,v 1.27 2004/01/16 18:31:29 xcomputerman Exp $
use strict;
use vars qw ($project $from_email $dest_email $rpc_uri $sendmail $sync_delay
@@ -145,6 +145,8 @@
$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];
@@ -341,4 +343,22 @@
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: '" . @ARGV . "'\n";
+print MAIL "dir: '" . @dir . "'\n";
+print MAIL "dirfiles: '" . @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
