
#
# Verify the solver's title
#

unless (-s "TITLE") {
  print "Solver Name missing.\n"; 
  exit 1;
}

$_ = `cat TITLE`;
s/\n//;

$MAX = 50;

if (length($_) > $MAX) {
  print "Solver Name must be less than $MAX characters.\n";
  exit 1;
} 

if (/\r/ || /\t/ || /\f/) {
  print "Solver Name may not contain tab, carriage return, or form feed characters.\n"; 
  exit 1;
}
