sas Mon Aug 18 21:26:46 2003 EDT
Modified files:
/CVSROOT dolog.pl
Log:
merge new dolog.pl
Index: CVSROOT/dolog.pl
diff -u CVSROOT/dolog.pl:1.20 CVSROOT/dolog.pl:1.21
--- CVSROOT/dolog.pl:1.20 Thu Dec 5 17:37:16 2002
+++ CVSROOT/dolog.pl Mon Aug 18 21:26:46 2003
@@ -1,21 +1,24 @@
-#! /usr/bin/perl
+#! /tools/ns/bin/perl5
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (the "License"); you may not use this file except in
-# compliance with the License. You may obtain a copy of the License at
-# http://www.mozilla.org/NPL/
+# The contents of this file are subject to the Netscape Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/NPL/
#
-# Software distributed under the License is distributed on an "AS IS"
-# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
-# License for the specific language governing rights and limitations
-# under the License.
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
#
# The Original Code is the Bonsai CVS tool.
#
# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s):
# You need to put this in your CVSROOT directory, and check it in. (Change the
@@ -30,7 +33,7 @@
# Now, on my.bonsai.machine, add a mail alias so that mail sent to
# "bonsai-checkin-daemon" will get piped to handleCheckinMail.tcl.
# The first argument to handleCheckinMail.tcl is the directory that
-# bonsai is installed in.
+# bonsai is installed in.
use Socket;
@@ -41,7 +44,7 @@
$flag_tagcmd = 0;
$repository = '';
$repository_tag = '';
-$mailhost = 'localhost';
+$mailhost = 'rn2.php.net';
$rlogcommand = '/usr/bin/rlog';
@mailto=();
@@ -130,18 +133,11 @@
print STDERR "----------------------------------------------\n";
}
- @loginfo = ();
-
# Iterate over the body of the message collecting information.
#
while (<STDIN>) {
chop; # Drop the newline
- push(@loginfo, $_);
- }
- exit 0 if (fork() ne 0);
-
- for(@loginfo) {
if( $flag_debug){
print STDERR "$_\n";
}
@@ -158,9 +154,9 @@
s/^[ \t\n]+//; # delete leading whitespace
s/[ \t\n]+$//; # delete trailing whitespace
- if ($state == $STATE_CHANGED) { push(@changed_files, split); }
- if ($state == $STATE_ADDED) { push(@added_files, split); }
- if ($state == $STATE_REMOVED) { push(@removed_files, split); }
+ if ($state == $STATE_CHANGED && !(/^Tag:/)) { push(@changed_files, split); }
+ if ($state == $STATE_ADDED && !(/^Tag:/)) { push(@added_files, split); }
+ if ($state == $STATE_REMOVED && !(/^Tag:/)) { push(@removed_files, split); }
if ($state == $STATE_LOG) { push(@log_lines, $_); }
}
@@ -295,7 +291,7 @@
select(S); $| = 1; select(STDOUT);
get_response_code(220);
- print S "EHLO $hostname\n";
+ print S "HELO $hostname\n";
get_response_code(250);
print S "MAIL FROM: [EMAIL PROTECTED]";
get_response_code(250);
@@ -318,4 +314,3 @@
print S "QUIT\n";
close(S);
}
-
--
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php
