#!/usr/local/bin/perl

$mbox = "/afs/cs.unc.edu/home/stotts/INBOX";

print "cleaning out fluff mail...\n";

opendir(MBOX, "$mbox") || die "Can't open mail box directory\n" ;

@fn = readdir MBOX ;

foreach $fn (@fn) {
  open (MSG, "<$mbox/$fn") || die "Can't open mail message $fn\n" ;
  next if -d "$mbox/$fn" ;
  foreach () {
    /Gutenberg/ && do { `rm -f $mbox/$fn`; last; };
    /ht_lit/ && do { `rm -f $mbox/$fn`; last; };
    /hyperjournal/ && do { `rm -f $mbox/$fn`; last; };
    /html-wg/ && do { `rm -f $mbox/$fn`; last; };
    /PetriNet/ && do { `rm -f $mbox/$fn`; last; };
    /deptcal/ && do { `rm -f $mbox/$fn`; last; };
    /UMCP COGNITIVE SCIENCE/ && do { `rm -f $mbox/$fn`; last; };
    /Email from Reader/ && do { `rm -f $mbox/$fn`; last; };
    /CatoSource New User/ && do { `rm -f $mbox/$fn`; last; };
    /MAILER-DAEMON/ && do { `rm -f $mbox/$fn`; last; };
    /Mailer-Daemon/ && do { `rm -f $mbox/$fn`; last; };
    /press-releases\@wired.com/ && do { `rm -f $mbox/$fn`; last; };
  }
  close MSG ;
}