httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From c...@hyperreal.org
Subject cvs commit: apache-site bugdb.cgi
Date Fri, 14 Nov 1997 22:18:37 GMT
coar        97/11/14 14:18:37

  Modified:    .        bugdb.cgi
  Log:
  	Add a 30-minute Expires: response header field, and include some
  	instructions about how to get replies into the bugdb in mail
  	sent on updates.
  
  Submitted by:	Dirk-Willem van Gulik
  
  Revision  Changes    Path
  1.21      +38 -2     apache-site/bugdb.cgi
  
  Index: bugdb.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
  retrieving revision 1.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- bugdb.cgi	1997/11/13 21:56:39	1.20
  +++ bugdb.cgi	1997/11/14 22:18:36	1.21
  @@ -3,6 +3,7 @@
   # Thanks to Larry Wall, CERN, and NCSA for Perl, WWW, and Mosaic!
   
   require "/usr/local/lib/gnats/libgnats.pl";
  +use POSIX;
   
   #### Configuration begins here
   
  @@ -11,6 +12,15 @@
   $databasetitle = "$software Problem Report Database";
   $EDITOR_FILE = "$GNATS_LIB/gnats-db/gnats-adm/responsible";
   
  +# Lifetime (in seconds) of displayed info before it expires.
  +$life_time = 30 * 60;
  +$CCNOTE = <<EOT;
  +[In order for any reply to be added to the PR database, ]
  +[you need to include <apbugs\@Apache.Org> in the Cc line ]
  +[and leave the subject line UNCHANGED.  This is not done]
  +[automatically because of the potential for mail loops. ]
  +EOT
  +
   # Outside commands
   $MAILER      = "/usr/sbin/sendmail -oi -t";
   $DATEPROG    = "/bin/date";
  @@ -62,6 +72,9 @@
   #    new database value and the old subject line.
   #  11/13/1997 Ken Coar - Add another button for "closing due to no response,"
   #    and fix a mis-set Class value from one of the other buttons.
  +#  11/14/1997 Ken Coar - Add a note to mail messages about how to get
  +#    replies to go into the database.  Also add an Expires: header field
  +#    (Dirk-Willem van Gulik).
   #
   ### End Modification log
   
  @@ -222,6 +235,24 @@
   exit(0);
   
   #################### Miscellaneous functions
  +# Format a date according to RFC 822 rules.
  +sub RFC822_date
  +{
  +    local ($s) = @_;
  +    local (@fdate) = gmtime ($s);
  +    local (@MNAME) = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
  +		      "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
  +    local (@WDAY) = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
  +
  +    $fdate[5] += ($fdate[5] > 90) ? 1900 : 2000;
  +    return sprintf ("%s, %02d %s %04d %02d:%02d:%02d GMT",
  +		    $WDAY[$fdate[6]],
  +		    $fdate[3],
  +		    $MNAME[$fdate[4]],
  +		    $fdate[5], $fdate[2], $fdate[1],
  +		    $fdate[0]);
  +}
  +
   # Dumps the environment
   sub dumpenv
   {
  @@ -234,7 +265,7 @@
   }
   
   #
  -# Emits either a rredirect or the preamble to some HTML.
  +# Emits either a redirect or the preamble to some HTML.
   #
   sub emit_preamble {
       local ($redirect, $target, $oldsel) = @_;
  @@ -244,7 +275,8 @@
       if ($redirect) {
   	print "Location: $target\n\n";
       } else {
  -	print "Content-type: text/html\n\n";
  +	print "Content-type: text/html\n";
  +	print "Expires: " . &RFC822_date (time + $life_time) . "\n\n";
   	print "<HTML>\n";
       }
       $| = 0;
  @@ -377,6 +409,8 @@
   Reply-To: $fieldvalues{"emailaddr"}
   X-send-pr-version: $GNATS_VER
   
  +$CCNOTE
  +
   $prtext
   EOM
       close(MAIL);
  @@ -822,6 +856,8 @@
   "To: $mail_to
   From: $input{'Editor'}
   Subject: Re: $input{'Category'}/$pr: $oldsyn
  +
  +$CCNOTE
   
   Synopsis: $oldsyn
   
  
  
  

Mime
View raw message