Miscellany

#!/usr/bin/perl

# Configure this line
# Enter the location of you dspam.conf file.
$dspamconf = "/opt/dspam/etc/dspam.conf";
# No need to config below here.


# Get the location of dspamhome
chomp($dspamhome = `awk '/Home / {print \$2}' $dspamconf`);
print "Home: $dspamhome\n";

chomp(@mboxes = `find $dspamhome -name *.mbox`);

foreach $mbox (@mboxes) {
        $quarantineitems .= `grep 'From QUARANTINE' $mbox | wc -l`;
        $mbox = "\t$mbox";
        $mbox .= "\n";
}
print @mboxes;
@quarantineitems = $quarantineitems;
print @quarantineitems;