diff options
Diffstat (limited to 'fs_sesmon/FS-SessionClient/cgi/login.cgi')
-rw-r--r-- | fs_sesmon/FS-SessionClient/cgi/login.cgi | 108 |
1 files changed, 0 insertions, 108 deletions
diff --git a/fs_sesmon/FS-SessionClient/cgi/login.cgi b/fs_sesmon/FS-SessionClient/cgi/login.cgi deleted file mode 100644 index 0307c5a3d..000000000 --- a/fs_sesmon/FS-SessionClient/cgi/login.cgi +++ /dev/null @@ -1,108 +0,0 @@ -#!/usr/bin/perl -Tw - -#false-laziness hack w logout.cgi - -use strict; -use vars qw( $cgi $username $password $error $ip $portnum ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::SessionClient qw( login portnum ); - -$cgi = new CGI; - -if ( defined $cgi->param('magic') ) { - $cgi->param('username') =~ /^\s*(\w{1,255})\s*$/ or do { - $error = "Illegal username"; - &print_form; - exit; - }; - $username = $1; - $cgi->param('password') =~ /^([^\n]{0,255})$/ or die "guru meditation #420"; - $password = $1; - #$ip = $cgi->remote_host; - $ip = $ENV{REMOTE_ADDR}; - $ip =~ /^([\d\.]+)$/ or die "illegal ip: $ip"; - $ip = $1; - $portnum = portnum( { 'ip' => $1 } ) or do { - $error = "You appear to be coming from an unknown IP address. Verify ". - "that your computer is set to obtain an IP address automatically ". - "via DHCP."; - &print_form; - exit; - }; - - ( $error = login ( { - 'username' => $username, - 'portnum' => $portnum, - 'password' => $password, - } ) ) - ? &print_form() - : &print_okay(); - -} else { - $username = ''; - $password = ''; - $error = ''; - &print_form; -} - -sub print_form { - my $self_url = $cgi->self_url; - - print $cgi->header( '-expires' => 'now' ), <<END; -<HTML><HEAD><TITLE>login</TITLE></HEAD> -<BODY BGCOLOR="#FFFFFF"> -END - -print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: $error</FONT>! if $error; - -print <<END; -<FORM ACTION="$self_url" METHOD="POST"> -<INPUT TYPE="hidden" NAME="magic" VALUE="process"> -<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="4" ALIGN="center"> -<TR> - <TD ALIGN="center" COLSPAN="2"> - <STRONG>Welcome</STRONG> - </TD> -</TR> -<TR> - <TD ALIGN="right"> - Username - </TD> - <TD ALIGN="left"> - <INPUT TYPE="text" NAME="username" VALUE="$username"> - </TD> -</TR> -<TR> - <TD ALIGN="right"> - Password - </TD> - <TD ALIGN="left"> - <INPUT TYPE="password" NAME="password"> - </TD> -</TR> -<TR> - <TD ALIGN="center" COLSPAN="2"> - <INPUT TYPE="submit" VALUE=" Login "> - </TD> -</TR> -</TABLE> -</FORM> -</BODY> -</HTML> -END - -} - -sub print_okay { - print $cgi->header( '-expires' => 'now' ), <<END; -<HTML><HEAD><TITLE>login sucessful</TITLE></HEAD> -<BODY>login successful, etc. -</BODY> -</HTML> -END -} - -sub usage { - die "Usage:\n\n freeside-login username ( portnum | ip | nasnum nasport )"; -} |