[llvm-commits] CVS: CVSROOT

[llvm-commits at cs.uiuc.edu]

Changes in directory CVSROOT:

commit-diffs.pl updated: 1.11 -> 1.12

---
Log message:

Clean up the commit-diffs script, turn off debugging output


---
Diffs of the changes:

Index: CVSROOT/commit-diffs.pl
diff -u CVSROOT/commit-diffs.pl:1.11 CVSROOT/commit-diffs.pl:1.12
--- CVSROOT/commit-diffs.pl:1.11	Thu Sep  5 12:23:23 2002
+++ CVSROOT/commit-diffs.pl	Thu Sep  5 20:43:50 2002
@@ -7,18 +7,13 @@
 
 $DEFAULT_ADMIN = 'brukman\@cs.uiuc.edu';
 $DEFAULT_USERNAME = 'brukman';
-$DEBUG = 1;
+$DEBUG = 0;
 $TEMPFILE = "/tmp/cvsmailtmp.$$";
 
 # A trivial script example to send mail on every CVS commit.
 # The mail sent includes change summary, log message and a unidiff
 # about the changes.
 
-# This perl script is intended to be run under Windows. Under unix,
-# you can do the same thing a bit easier by using a fork() call.
-# This script requires mailbe.pl to exist in the same directory.
-# For further documentation, please see the www page mentioned later.
-
 # The original author of this script is Jouni Heikniemi
 # <jouni at heikniemi.net> Feel free to do whatever you wish with this.
 # The home page of this script is
@@ -51,7 +46,7 @@
 # Do a small delay so that the main CVS task finishes and
 # releases locks first.
 
-sleep 5;
+sleep 3;
 
 if ($DEBUG) {
   for ($i=0; $i<8; $i++) {
@@ -84,7 +79,7 @@
 }
 
 my @loginfodata = <STDIN>;
-print "loginfo: ". join("\n--\n", @loginfodata) if $DEBUG;
+#print "loginfo: ". join("\n--\n", @loginfodata) if $DEBUG;
 
 # Pick up the committer's log message from the loginfo we received
 my @logmessage;
@@ -123,15 +118,6 @@
 
 
 # Send the mail.
-# Note: this section uses NTSendmail, but feel free to use whatever mail server you like.
-#
-#use NTsendmail;
-#$ENV{'NTsendmail'} = 'your.smtp.server';
-#$ENV{'NTsendmail_max_tries'} = 5;
-#my $mail = new NTsendmail;
-#
-#$mail->send('cvs at yourdomain.com', $target, "CVS Commits ($changedir, $user)", $msg);
-#
 # use mailx instead
 
 open TEMP, ">$TEMPFILE";