Wireless (for ISA550W and ISA570W only)

5

 

Using External Web-Hosted CGI Scripts

 

 

 

 

 

$uamsecret = "gemteksmb";

#Uncomment the following line if you want to use ordinary user-password

#for radius authentication. Must be used together with $uamsecret.

$userpassword=1;

# Our own path

$loginpath = $ENV{'SCRIPT_URL'};

use Digest::MD5 qw(md5 md5_hex md5_base64);

#Make sure that the form parameters are clean $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>

<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> <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> </AuthenticationReply>

Cisco ISA500 Series Integrated Security Appliances Administration Guide

238

Page 238
Image 238
Casio ISA550WBUN3K9 manual Wireless for ISA550W and ISA570W only