#
# Verify the contact's e-mail address
#

unless (-s "CONTACT") {
  print "Contact Person missing.\n"; 
  exit 1;
} else {
  $_ = `cat CONTACT`;
  s/\s*//g;
  unless (/.+@.+/) {
    print "\"$_\" does not appear to be an e-mail address.\n";
    exit 1;
  }
  system("echo $_ > CONTACT");
}
