#!/afs/athena/contrib/perl/perl

$| = 1;		# non-buffered output

print "*** Athena ELM Make Setup 1.0 ***\n";
print "       by Danilo Almeida\n\n\n";

print "Initializing...";
$base = "/tmp/elm";
$zip = "/afs/sipb.mit.edu/project/elm/zip/elm2.4.zip";
$cfgdir = "/afs/sipb.mit.edu/project/elm/config/";
@cfgfiles = ("config.sh.`machtype` ./config.sh", 
		"GenMake .", "Fixit .", "Prep .");
foreach $cfgfile (@cfgfiles) { push(@cfgs, $cfgdir.$cfgfile); }
print "done.\n\n";

print "Creating $base...";
mkdir($base, 0777) || die "cannot create directory.\n";
chdir($base) || die "cannot goto directory.\n";
print "done.\n\n";

print "Creating $base/bin...";
mkdir($base."/bin", 0777) || die "cannot create directory.\n";
print "done.\n\n";

print "Unzipping ELM...";
`unzip $zip`;
if ($?) { die "cannot unzip ELM.\n"; } else { print "done.\n\n"; }

print "Copying configuration files...\n";
foreach $cfg (@cfgs) {
	`cp $cfg`;
	if ($?) { die "Cannot copy $cfg.\n";} else {print "copied: $cfg\n";}}
print "Done.\n\n";

do Prep;

print "*** Instructions ***\n\n";
print "If you manually edit the config.sh file, run Prep.\n";
print "If you use Configure to edit the config.sh file, run Fixit.\n\n";
print "   Have a nice day.\n\n";
print "            -- Danilo\n";