#!/afs/athena/contrib/perl/p -s

$where = `cat /afs/athena/user/m/k/mkgray/.foo/where`;
chop($where);

if($where eq ''){
    $mtype = `machtype`;
    chop($mtype);

    if(-e "/afs/sipb/user/mkgray/mud/teeny/teenymud.$mtype.gz"){
	`cp /afs/sipb/user/mkgray/mud/teeny/teenymud.$mtype.gz /tmp`;
	`/usr/sipb/bin/gunzip /tmp/teenymud.$mtype.gz`;
	print("Starting WanderMud.  Remember to SAVE THE DATABASE.\n");
	exec("/tmp/teenymud.$mtype", '-C', '120', '-t', '/afs/sipb/user/mkgray/mud/teeny/teeny.text');
    }
    else{
	print("Can't start the MUD on this machine\n");
    }
}
else{
    exec('telnet $where') if $telnet;
    print("The mud is running on $where\n") if $l;
}