Cisco Systems ISA550

Wireless (for ISA550W and ISA570W only)

Using External Web-Hosted CGI Scripts

Cisco ISA500 Series Integrated Security Appliances Administration Guide 239

</WISPAccessGatewayParam>

-->

</html>

exit(0);

}

#Read form parameters which we care about

@array = split('&',$input);

foreach $var ( @array )

{

@array2 = split('=',$var);

if ($array2[0] =~ /^UserName$/) { $username = $array2[1]; }

if ($array2[0] =~ /^Password$/) { $password = $array2[1]; }

if ($array2[0] =~ /^challenge$/) { $challenge = $array2[1]; }

if ($array2[0] =~ /^button$/) { $button = $array2[1]; }

if ($array2[0] =~ /^logout$/) { $logout = $array2[1]; }

if ($array2[0] =~ /^prelogin$/) { $prelogin = $array2[1]; }

if ($array2[0] =~ /^res$/) { $res = $array2[1]; }

if ($array2[0] =~ /^uamip$/) { $uamip = $array2[1]; }

if ($array2[0] =~ /^uamport$/) { $uamport = $array2[1]; }

if ($array2[0] =~ /^userurl$/) { $userurl = $array2[1]; }

if ($array2[0] =~ /^timeleft$/) { $timeleft = $array2[1]; }

if ($array2[0] =~ /^redirurl$/) { $redirurl = $array2[1]; }

}

#Read query parameters which we care about

@array = split('&',$query);

foreach $var ( @array )

{

@array2 = split('=',$var);

if ($array2[0] =~ /^res$/) { $res = $array2[1]; }

if ($array2[0] =~ /^challenge$/) { $challenge = $array2[1]; }

if ($array2[0] =~ /^uamip$/) { $uamip = $array2[1]; }

if ($array2[0] =~ /^uamport$/) { $uamport = $array2[1]; }

if ($array2[0] =~ /^reply$/) { $reply = $array2[1]; }

if ($array2[0] =~ /^userurl$/) { $userurl = $array2[1]; }

if ($array2[0] =~ /^timeleft$/) { $timeleft = $array2[1]; }

if ($array2[0] =~ /^redirurl$/) { $redirurl = $array2[1]; }

}

$reply =~ s/\+/ /g;

$reply =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/seg;

$userurldecode = $userurl;

$userurldecode =~ s/\+/ /g;

$userurldecode =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/seg;

$redirurldecode = $redirurl;

$redirurldecode =~ s/\+/ /g;

$redirurldecode =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/seg;

$password =~ s/\+/ /g;