remove fs_sesmon

[freeside.git] / fs_sesmon / FS-SessionClient / cgi / login.cgi
diff --git a/fs_sesmon/FS-SessionClient/cgi/login.cgi b/fs_sesmon/FS-SessionClient/cgi/login.cgi

deleted file mode 100644 (file)

index 0307c5a..0000000
--- 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 )";
-}