#name:         aconn.irc
#author:       [rza]
#date:         7/5/05
#description:  autoonnects to your most recent server connection
#contact:      email:rizzah@gmail.com or irc:[rza]@EFnet
on connect
	{
	$s = getServerHost();
	$path = getScriptResource("aconn.irc", "aconn.lst");
	$p = "> $+ $path";
	$recent = openf($p);
	println($recent, $s);
	closef($recent);
	return;
	}
$netw = getServerNetwork();
if ($netw == "Unknown")
	{
	$path = getScriptResource("aconn.irc", "aconn.lst");
	$aserver = openf($path);
	$t = readln($aserver);
	call("/server $t");
	}
else {
	}