#! perl -w
#adjusts README for the build dates
die unless $ARGV[0];
die unless $ARGV[1];
$a=$ARGV[0];
$b=$ARGV[1];
die unless (($a eq "sun")or($a eq "sgi")or($a eq "linux"));
die unless $b =~ /200\d(\d\d\d\d\d\d)/;
open FI,"README" or die;
open FO,">README.temp" or die;
while (<FI>) {
  if (/^>> Linux/ and $a eq "linux") {
    print FO ">> Linux: build $b\n";
  }
  elsif (/^>> Sun/ and $a eq "sun") {
    print FO ">> Sun Solaris: build $b\n";
  }
  elsif (/^>> SGI/ and $a eq "sgi") {
    print FO ">> SGI Irix: build $b\n";
  }
  else {
    print FO
  }
}
close FI;
close FO;
`mv README README.old`;
`mv README.temp README`;