Networking

4

 

Using External Web-Hosted CGI Scripts

 

 

 

 

 

$OK_CHARS='-a-zA-Z0-9_.@&=%!'; $ = 1;

if ($ENV{'CONTENT_LENGTH'}) {

read (STDIN, $_, $ENV{'CONTENT_LENGTH'});

}

s/[^$OK_CHARS]/_/go; $input = $_;

#Make sure that the get query parameters are clean $OK_CHARS='-a-zA-Z0-9_.@&=%!';

$_ = $query=$ENV{QUERY_STRING}; s/[^$OK_CHARS]/_/go;

$query = $_;

#If she did not use https tell her that it was wrong. if (!($ENV{HTTPS} =~ /^on$/)) {

print "Content-type: text/html\n\n

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"> <html>

<head>

<title>MySMB Login Failed</title>[7.1]

<meta http-equiv=\"Cache-control\" content=\"no-cache\"> <meta http-equiv=\"Pragma\" content=\"no-cache\">

</head>

<body bgColor = '#c0d8f4'>

<h1 style=\"text-align: center;\">MySMB Login Failed</h1>[7.2] <center>

Login must use encrypted connection. </center>

</body> <!--

<?xml version=\"1.0\" encoding=\"UTF-8\"?> <WISPAccessGatewayParam

xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation=

\"http://www.acmewisp.com/WISPAccessGatewayParam.xsd\">

<AuthenticationReply>

<MessageType>120</MessageType>

<ResponseCode>102</ResponseCode>

<ReplyMessage>Login must use encrypted connection</ReplyMessage>[7.3] </AuthenticationReply>

</WISPAccessGatewayParam> -->

</html>

";

exit(0);

}

#Read form parameters which we care about @array = split('&',$input);

foreach $var ( @array )

{

Cisco ISA500 Series Integrated Security Appliances Administration Guide

187

Page 186 Page 188
Page 187
Image 187
Casio ISA550WBUN3K9 manual Networking
Page 186 Page 188
Top Page Image Contents