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`);

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

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