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;
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |