--- dspam.cgi.orig	2005-02-14 16:27:05.522388385 -0800
+++ dspam.cgi	2005-02-14 16:37:50.075253292 -0800
@@ -20,7 +20,7 @@
 
 use strict;
 use Time::Local;
-use vars qw { %CONFIG %DATA %FORM $MAILBOX $CURRENT_USER $USER $TMPFILE};
+use vars qw { %CONFIG %DATA %FORM $MAILBOX $CURRENT_USER $USER $TMPFILE $TIMESTAMP};
 require "ctime.pl";
 
 # Read configuration parameters common to all CGI scripts
@@ -87,6 +87,7 @@
 $USER = GetPath($CURRENT_USER);
 $MAILBOX = $USER . ".mbox";
 $TMPFILE = $USER . ".tmp";
+$TIMESTAMP = $USER . ".notify";
 
 if ($CURRENT_USER eq "") {
   &error("System Error. I was unable to determine your identity.");
@@ -1214,6 +1215,9 @@
     $f = "Empty";
   }
 
+  open(FILE, ">$TIMESTAMP");
+  close(FILE);
+
   $DATA{'TOTAL_QUARANTINED_MESSAGES'} = $f;
 }