>
> ISPLCLN will work but it isn't smart enough to just take orphaned
> "D" files.
> It is set to remove by date and will take all (based on the switches used)
>
Try the following Perl scripts. If run with no argument, they will need a
minor tweak to run on your system. I've got Cygwin installed but
they should work with Activestate Perl.
#!/usr/bin/perl
#
# Delete D*.SMD files without a cooresponding Q*.SMD file.
#
if (@ARGV == 0) {
@ARGV = glob "/cygdrive/i/imail/spool/virus/D*.SMD";
}
foreach $arg (@ARGV) {
$arg2 = $arg;
$arg2 =~ s/\/D/\/Q/;
if (! -e $arg2) {
print $arg, "\n";
unlink $arg;
}
}
#!/usr/bin/perl
#
# Delete Q*.SMD files without a cooresponding D*.SMD file.
#
if (@ARGV == 0) {
@ARGV = glob "/cygdrive/i/imail/spool/virus/Q*.SMD";
}
foreach $arg (@ARGV) {
$arg2 = $arg;
$arg2 =~ s/\/Q/\/D/;
if (! -e $arg2) {
print $arg, "\n";
unlink $arg;
}
}
To Unsubscribe: http://www.ipswitch.com/support/mailing-lists.html
List Archive: http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
Knowledge Base/FAQ: http://www.ipswitch.com/support/IMail/
