--- dspam.cgi.orig	Wed Sep  5 00:29:19 2007
+++ dspam.cgi	Mon Sep 17 15:31:50 2007
@@ -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};
 use vars qw { $CURRENT_STORE };
 require "ctime.pl";

@@ -103,10 +103,15 @@
 $USER = GetPath($CURRENT_STORE);
 $MAILBOX = $USER . ".mbox";
 $TMPFILE = $USER . ".tmp";
+$TIMESTAMP = $USER . ".notify";

 if ($CURRENT_USER eq "") {
   &error("System Error. I was unable to determine your identity.");
 }
+
+open(FILE, ">$TIMESTAMP");
+close(FILE);
+

 if ($FORM{'template'} eq "" || $FORM{'template'} !~ /^([A-Z0-9]*)$/i) {
   $FORM{'template'} = "performance";