The code below is some simple code I wrote that works fine except for the print "location: http://www.mscorp.org:3380/connect.asp?Server=www.mscorp.org&rW=640&rH=480&\n\n"; line. Can somebody show me how to connect the user to that location after my script has run?
#!/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.msc
+orp.org&rW=640&rH=480&\n\n";
exit;