# TeraTerm pro and SSH module installer
#
# (c) TOYODA Eizi, 1998, 1999.

	$TMPDIR = $ENV{"TMP"} || $ENV{"TEMP"} || "C:\\WINDOWS\\TEMP";
	chop($SRCDIR = `COMMAND /C CHDIR`);

# CONFIGURATION
	$TMPBASE = "\\ttssh";
	foreach ("$SRCDIR\\..\\unzip.exe", "$SRCDIR\\unzip.exe",
	"unzip.exe") {
		$UNZIP = $_;
		last if -x $UNZIP;
	}

	$TMPDIR =~ s/\\$//;
	$TMPDIR .= $TMPBASE;
	&mkdir($TMPDIR);
	&chdir($TMPDIR);

	&invoke("$UNZIP $SRCDIR\\ttermp23.zip");
	&invoke("setup.exe");
	&cleandir();

	&chdir("C:\\PROGRA~1\\ttermpro"); 
	&rmdir($TMPDIR);
	&invoke("$UNZIP $SRCDIR\\ttssh14.zip");

	&invoke("COPY $SRCDIR\\SSH.lnk \"C:\\Windows\\½À°Ä ÒÆ­°\\ÌßÛ¸Þ×Ñ\\Tera Term Pro\"");
	
exit 0;

sub cleandir {
	&invoke("erase *.*");
}

sub invoke {
	local($cmd) = @_;
	print $cmd, "\n";
	system $cmd;
}

sub mkdir {
	local($dir) = @_;
	mkdir $dir, 0777;
}

sub rmdir {
	local($dir) = @_;
	rmdir $dir;
}

sub chdir {
	local($dir) = @_;
	print "cd $dir\n";
	chdir $dir;
}