#!/usr/bin/perl

#Get the requested application ID.
$requestedApp = $ENV{'QUERY_STRING'};

#List Application IDs & executable path for the application ID.
%apps qw(
	USA C:\Apps\USA\USA.EXE
);

#Match $requestedApp to an executable path.
foreach $appkey (keys(%apps)){
	if ($appkey eq $requestedApp){
		$requestedAppPath = $apps{$appkey};
		break;
	}
}

#Write entry to logfile.
open(DBFILE,">>/usr/local/apache/post/www/tsweb.log");
	print DBFILE "$ENV{'REMOTE_ADDR'}|$requestedApp|$requestedAppPath|\n";
close(DBFILE);

#Connect the user to the Application Server and terminate the script.
print "location: http://www.mscorp.org:3380/connect.asp?Server=www.mscorp.org&rW=640&rH=480&\n\n";
exit;