Cloud-based Hosted Chillispot Solution

2009-05-04 18:39:02

Hi Friend,

kindly give me a sample of html code i would put here to reference the image.

Thanks

2009-04-18 18:37:15

hi fiend,

this is the hotspotlogin.cgi that i want to embed pictures.

#!/usr/bin/perl

# chilli - ChilliSpot.org. A Wireless LAN Access Point Controller
# Copyright (C) 2003, 2004 Mondru AB.
#
# The contents of this file may be used under the terms of the GNU
# General Public License Version 2, provided that the above copyright
# notice and this permission notice is included in all copies or
# substantial portions of the software.

# Redirects from ChilliSpot daemon:
#
# Redirection when not yet or already authenticated
# notyet: ChilliSpot daemon redirects to login page.
# already: ChilliSpot daemon redirects to success status page.
#
# Response to login:
# already: Attempt to login when already logged in.
# failed: Login failed
# success: Login succeded
#
# logoff: Response to a logout

# Shared secret used to encrypt challenge with. Prevents dictionary attacks.
# You should change this to your own shared secret.
$uamsecret = "yawefrekwesrfd";

# 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>KingsHouse Login Failed</title>
<meta http-equiv=\"Cache-control\" content=\"no-cache\">
<meta http-equiv=\"Pragma\" content=\"no-cache\">
</head>
<body bgColor = '#2D1600'>
<h1 style=\"text-align: center;\">KingsHouse Login Failed</h1>
<center>
Login must use encrypted connection.
</center>
</body>

</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;
$password =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/seg;

# If attempt to login
if ($button =~ /^Login$/) {
$hexchal = pack "H32", $challenge;
if (defined $uamsecret) {
$newchal = md5($hexchal, $uamsecret);
}
else {
$newchal = $hexchal;
}
$response = md5_hex("\0", $password, $newchal);
$pappassword = unpack "H32", ($password ^ $newchal);
#sleep 5;
print "Content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
<html>
<head>
<title>KingsHouse Login</title>
<meta http-equiv=\"Cache-control\" content=\"no-cache\">
<meta http-equiv=\"Pragma\" content=\"no-cache\">";
if ((defined $uamsecret) && defined($userpassword)) {
print " <meta http-equiv=\"refresh\" content=\"0;url=http://$uamip:$uamport/logon?username=$username&password=$pappassword&userurl=$userurl\">";
} else {
print " <meta http-equiv=\"refresh\" content=\"0;url=http://$uamip:$uamport/logon?username=$username&response=$response&userurl=$userurl\">";
}
print "</head>
<body bgColor = '#2D1600'>";
print "<h1 style=\"text-align: center;\">Logging into KingsHouse</h1>";
print "
<center>
Please wait connecting to KingsHouse Network......
</center>
</body>

</html>
";
exit(0);
}

# Default: It was not a form request
$result = 0;

# If login successful
if ($res =~ /^success$/) {
$result = 1;
}

# If login failed
if ($res =~ /^failed$/) {
$result = 2;
}

# If logout successful
if ($res =~ /^logoff$/) {
$result = 3;
}

# If tried to login while already logged in
if ($res =~ /^already$/) {
$result = 4;
}

# If not logged in yet
if ($res =~ /^notyet$/) {
$result = 5;
}

# If login from smart client
if ($res =~ /^smartclient$/) {
$result = 6;
}

# If requested a logging in pop up window
if ($res =~ /^popup1$/) {
$result = 11;
}

# If requested a success pop up window
if ($res =~ /^popup2$/) {
$result = 12;
}

# If requested a logout pop up window
if ($res =~ /^popup3$/) {
$result = 13;
}

# Otherwise it was not a form request
# Send out an error message
if ($result == 0) {
print "Content-type: text/html\n\n
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
<html>
<head>
<title>KingsHouse Login Failed</title>
<meta http-equiv=\"Cache-control\" content=\"no-cache\">
<meta http-equiv=\"Pragma\" content=\"no-cache\">
</head>
<body bgColor = '#2D1600'>
<h1 style=\"text-align: center;\">KingsHouse Login Failed</h1>
<center>
Login must be performed through KingsHouse daemon.
</center>
</body>
</html>
";
exit(0);
}

###################################################################
#Generate the output
print "Content-type: text/html\n\n
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
<html>
<head>
<title>KingsHouse Login</title>
<meta http-equiv=\"Cache-control\" content=\"no-cache\">
<meta http-equiv=\"Pragma\" content=\"no-cache\">
<SCRIPT LANGUAGE=\"JavaScript\">
var blur = 0;
var starttime = new Date();
var startclock = starttime.getTime();
var mytimeleft = 0;

function popUp(URL) {
if (self.name != \"chillispot_popup\") {
chillispot_popup = window.open(URL, 'chillispot_popup', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=450,height=220');
}
}

# if (!window.opener) {
# document.bgColor = '#2D1600';
# }

#print "THE INPUT: $input";
#foreach $key (sort (keys %ENV)) {
# print $key, ' = ', $ENV{$key}, "<br>\n";
#}

if ($result == 2) {
print "
<h1 style=\"text-align: center;\">KingsHouse Login Failed</h1>";
if ($reply) {
print "<center> $reply </BR></BR></center>";
}
}
###############
if ($result == 5) {
print "
<h3 style=\"text-align: center;\">Enter Username and Password to Login. </h3>";
}

if ($result == 2 || $result == 5) {
print "
<form name=\"form1\" method=\"post\" action=\"$loginpath\">
<INPUT TYPE=\"hidden\" NAME=\"challenge\" VALUE=\"$challenge\">
<INPUT TYPE=\"hidden\" NAME=\"uamip\" VALUE=\"$uamip\">
<INPUT TYPE=\"hidden\" NAME=\"uamport\" VALUE=\"$uamport\">
<INPUT TYPE=\"hidden\" NAME=\"userurl\" VALUE=\"$userurldecode\">
<center>
<table border=\"0\" cellpadding=\"5\" cellspacing=\"0\" style=\"width: 217px;\">
<tbody>
<tr>
<td align=\"right\"<b>Username:<b/td>
<td><input STYLE=\"font-family: Arial\" type=\"text\" name=\"UserName\" size=\"20\" maxlength=\"128\"></td>
</tr>
<tr>
<td align=\"right\"<b>Password:<b/td>
<td><input STYLE=\"font-family: Arial\" type=\"password\" name=\"Password\" size=\"20\" maxlength=\"128\"></td>
</tr>
<tr>
<td align=\"center\" colspan=\"2\" height=\"23\"><input type=\"submit\" name=\"button\" value=\"Login\" onClick=\"javascript:popUp('$loginpath?res=popup1&uamip=$uamip&uamport=$uamport')\"></td>
</tr>
</tbody>
</table>
</center>
</form>
</body>
</html>";
}

if ($result == 1) {
print "
<h3 style=\"text-align: center;\">Logged in to KingsHouse</h3>";

if ($reply) {
print "<center> $reply </BR></BR></center>";
}

print "
<center>
<a href=\"http://$uamip:$uamport/logoff\">Logout</a>
</center>
<center>
</body>
</html>";
}

if (($result == 4) || ($result == 12)) {
print "
<h2 style=\"text-align: center;\">Logged in to KingsHouse</h2>
<center>
<a href=\"http://$uamip:$uamport/logoff\">Logout</a>
</center>
<center>
<h4><font color=#FFFF00>Please,Minimise this page to your task bar as it will be used to logout when you are through surfing.<br>Thank you for choosing KingsHouse.
</body>
</html>";
}

if ($result == 11) {
print "<h1 style=\"text-align: center;\">Logging in to KingsHouse</h1>";
print "
<center>
Please wait connecting to KingsHouse Network......
</center>
</body>
</html>";
}

if (($result == 3) || ($result == 13)) {
print "
<h3 style=\"text-align: center;\">Logged out from KingsHouse</h3>
<center>
<a href=\"http://$uamip:$uamport/prelogin\">Login</a>
</center>
</body>
</html>";
}

exit(0);

2009-04-16 19:47:36

Hi all,

I really love the hotspotlogin.php but the only problem i am encounting is that if popup is not enabled for the brower i will not be able to see my time left as the popup window will be blocked by default.

Is there any thing i can do to the hotspotlogin.php to authomatically popup just like the hotspotlogin.cgi script.

THANKS

2009-03-14 17:51:52

The issue of P2P has been over emphasized. but the problem there is that ipp2p or rope only block few packets but does not fullt stop it from working. The best solution is to use linux tc to shape traffic.

2009-03-14 17:44:41

pls kindly throw more light on this issue as i an currently in this shoes

2009-03-14 17:17:19

hi freinds,

i want to add pictures and graphics to my hotspotlogin.cgi to make it more uniq. how do i achieve this.

2009-03-14 17:05:35

hi guys,

I use a squid proxy on my lan and it seems not to enable key words like exit and logoff to work, how can i solve this issue. Thanks

2009-03-14 17:01:02

if i may ask what really do u want to achieve with this..

Cloud-based Hosted Chillispot Solution

Search options

Posts found: 8

1 Reply by yawe_frek 2009-05-04 18:39:02

Re: hotspotlogin.cgi with graphic and picture (7 replies, posted in Chillispot Configuration)

2 Reply by yawe_frek 2009-04-18 18:37:15

Re: hotspotlogin.cgi with graphic and picture (7 replies, posted in Chillispot Configuration)

3 Reply by yawe_frek 2009-04-16 19:47:36

Re: custom login page (4 replies, posted in UAM Configuration)

4 Reply by yawe_frek 2009-03-14 17:51:52

Re: Free hostpost with registration (5 replies, posted in Chillispot Configuration)

5 Reply by yawe_frek 2009-03-14 17:44:41

Re: How to logout with a closed pop-up? (3 replies, posted in Chillispot Configuration)

6 Topic by yawe_frek 2009-03-14 17:17:19

Topic: hotspotlogin.cgi with graphic and picture (7 replies, posted in Chillispot Configuration)

7 Topic by yawe_frek 2009-03-14 17:05:35

Topic: key word (exit, logout )not working.. (1 replies, posted in Chillispot Configuration)

8 Reply by yawe_frek 2009-03-14 17:01:02

Re: Can I add tun1 ? (1 replies, posted in Chillispot Configuration)

Posts found: 8