+ local($just_archived_filename) = `basename "$tempfile"`;
+ while ($just_archived_filename =~ /[\r\n]$/) { chop $just_archived_filename; }
+ print REPORT "\n";
+ print REPORT $printable_date . " -- created \"" . $just_archived_filename . ".zip\"\n";
+ print REPORT $printable_date . " -- from [@deleted]\n";