#!/usr/bin/perl -w

my $announcelist=q{
abc-announce-archive@comlab.ox.ac.uk
pavel.avgustinov@magdalen.oxford.ac.uk
Oege.de.Moor@comlab.ox.ac.uk
olhotak@sable.mcgill.ca
hendren@sable.mcgill.ca
damien.sereni@magdalen.oxford.ac.uk
bruno.harbulot@cs.man.ac.uk
curt.clifton@mac.com
kviggers@ieee.org
julian.tibble@worcester.oxford.ac.uk
taoxie@cs.washington.edu
skotthe@ccs.neu.edu
rta@cs.colostate.edu
aracic@informatik.tu-darmstadt.de
ganesh@earth.li
kezgutif.cameron@sfm.cs.ualberta.ca
};

open LOG,"</srv/www/abc.comlab.ox.ac.uk/register/log"
  or die "Couldn't open log file";

my %seen=map { ($_,1) } split(/\n/,$announcelist);

while(<LOG>) {
  ($addr)=/&email=([^&]+)&/ or next;
  $addr=~s/\%40/\@/;
  print "$addr," unless $seen{$addr};
  $seen{$addr}=1;
}

print "\n";

close LOG;
