rubys 01/02/17 12:25:22
Modified: proposal/gump nag.pl
Log:
Allow regex modifiers, misc cleanup
Revision Changes Path
1.3 +3 -4 jakarta-alexandria/proposal/gump/nag.pl
Index: nag.pl
===================================================================
RCS file: /home/cvs/jakarta-alexandria/proposal/gump/nag.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- nag.pl 2001/02/17 20:09:15 1.2
+++ nag.pl 2001/02/17 20:25:21 1.3
@@ -8,7 +8,7 @@
#
# naglist format:
#
-# project email nag regex
+# # project email nag regex
# jakarta-alexandria [EMAIL PROTECTED] /BUILD FAILED/
#
@@ -22,7 +22,7 @@
open (LIST, "$naglist");
foreach (<LIST>) {
next if /^#/;
- ($project, $mailto, $regexp) = / (\S*) \s* (\S*) \s* (\/.*\/) /x;
+ ($project, $mailto, $regexp) = / (\S*) \s* (\S*) \s* (\/.*\/[imsx]*) /x;
# if this project hasn't been read before, read it
if (!$hash{$project}) {
@@ -34,7 +34,7 @@
$_ = join('',<FILE>);
close (FILE);
- # extract the date and just the stuff in the pre tags
+ # extract just the stuff from inside the pre tag
if (m! .* <pre> \s* (.*) \s* </pre> !xs) {
$hash{$project}->{pageData} = $1;
} else {
@@ -50,7 +50,6 @@
if (eval "\$pageData =~ $regexp") {
$hash{$project}->{sentto}->{$mailto}=1;
- print "$project $mailto\n";
open ( EMAIL, "| /usr/sbin/sendmail -i -t");
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
