- $tempfile = $temp_subdir . "/temp" . "$number";
-# print "tempfile is $tempfile; file is $file.\n";
+
+#hmmm: extract this shared bit of code as new method (also in shared snarfer)
+ $date_tool = "date";
+ local($datestamp) = `$date_tool +%Y-%m-%d-%H%M`;
+ while ($datestamp =~ /[\r\n]$/) { chop $datestamp; }
+ $archive_file = $temp_subdir . "/del-$number-" . $datestamp;
+#print "archive_file is $archive_file; file is $file.\n";
+