jon         01/02/17 12:09:15

  Modified:    proposal/gump nag.pl
  Log:
  added documentation
  changed path to naglist to be a variable
  
  Revision  Changes    Path
  1.2       +9 -1      jakarta-alexandria/proposal/gump/nag.pl
  
  Index: nag.pl
  ===================================================================
  RCS file: /home/cvs/jakarta-alexandria/proposal/gump/nag.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- nag.pl    2001/02/17 19:45:44     1.1
  +++ nag.pl    2001/02/17 20:09:15     1.2
  @@ -4,14 +4,22 @@
   # Nag people and mailing lists upon particular build events,
   # typically failures.
   #
  +# @author Sam Ruby, Jon Stevens
  +#
  +# naglist format:
  +#
  +#         project                    email                   nag regex
  +#     jakarta-alexandria [EMAIL PROTECTED] /BUILD FAILED/
  +#
   
   ($sec,$min,$hour,$mday,$mon,$year) = localtime;
   $date=sprintf("%d-%2.2d-%2.2d", $year+1900, $mon+1, $mday);
   $url = "http://jakarta.apache.org/builds/gump/$date";
   $home = "/www/jakarta.apache.org/builds/gump/$date";
   $from = "Sam Ruby <rubys\@apache.org>";
  +$naglist = "/home/rubys/bin/naglist";
   
  -open (LIST, "/home/rubys/bin/naglist");
  +open (LIST, "$naglist");
   foreach (<LIST>) {
     next if /^#/;
     ($project, $mailto, $regexp) = / (\S*) \s* (\S*) \s* (\/.*\/) /x;
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to