--- ./dspam.cgi	2004-12-08 15:43:42.000000000 -0800
+++ ./dspam-patched.cgi	2004-12-22 17:06:15.000000000 -0800
@@ -20,7 +20,7 @@
 
 use strict;
 use Time::Local;
-use vars qw { %CONFIG %DATA %FORM $MAILBOX $USER };
+use vars qw { %CONFIG %DATA %FORM $MAILBOX $USER $TIMESTAMP };
 require "ctime.pl";
 
 # Read configuration parameters common to all CGI scripts
@@ -60,6 +60,7 @@
 
 $USER = GetPath($ENV{'REMOTE_USER'});
 $MAILBOX = $USER . ".mbox";
+$TIMESTAMP = $USER . ".notify";
 
 #
 # Parse Form Variables
@@ -1136,6 +1137,9 @@
     $f = "Empty";
   }
 
+  open(FILE, ">$TIMESTAMP");
+  close(FILE);
+
   $DATA{'TOTAL_QUARANTINED_MESSAGES'} = $f;
 }