#!/usr/bin/perl
use CGI;
$query = new CGI;
my $sc_ziel = "unterverzeichnis";
my $ha_zeilen = {};
my %ha_logins = ( Name1 => 'Passwort1', Name2 => 'Passwort2' );
print $query->header();
if( ($query->param("goto") ne "") and ($query->param("goto") ne "runlevel1")) {
exit(-1);
}
if($query->param("goto") eq "") { &Seite1(); }
if($query->param("goto") eq "runlevel1") { &Seite2(); }
&exit(0);
sub exit {
my $sc_errorlevel = $_[0];
if($sc_errorlevel) {
print "<B>FEHLER: Seite konnte nicht gefunden werden ( falscher Parameter).</B>\n";
}
exit $sc_errorlevel;
}
sub Seite1 {
print "<HTML>\n";
print " <HEAD><TITLE>SeitentitelBlaBla</TITLE>\n";
print " <LINK REL=stylesheet TYPE=\"text/css\" HREF=\"$sc_pfad/pub.css\">\n";
print " </HEAD>\n";
print " <BODY>\n";
print " <FORM METHOD=\"POST\" ENCTYPE=\"application/x-www-form-urlencoded\">\n";
.
.
. (HTML-Code zum Aufbau der Seite)
.
.
print " <INPUT NAME=\"LoginName\" SIZE=20 MAXLENGTH=30>\n";
print " <INPUT NAME=\"Passwort\" SIZE=20 MAXLENGTH=30 TYPE=\"password\">\n";
print " <INPUT NAME=\"Anmelden\" VALUE=\"Anmelden\" TYPE=\"submit\">\n";
print " <INPUT NAME=\"goto\" TYPE=\"hidden\" VALUE=\"runlevel1\">\n";
print " </FORM>\n";
print " </BODY>\n";
print "</HTML>\n";
}
sub Seite2
{
my $sc_checkok = 0;
$sc_name = $query->param("LoginName");
$sc_pw = $query->param("Passwort");
foreach $sc_temp (sort keys %ha_logins)
{ if(($sc_name eq $sc_temp) and ($sc_pw eq $ha_logins{$sc_name})) { $sc_checkok = 1; } }
if($sc_checkok == 0) {
print "<HTML>\n";
print " <HEAD><TITLE>SeitentitelBlaBla</TITLE>\n";
print " <LINK REL=stylesheet TYPE=\"text/css\" HREF=\"$sc_pfad/pub.css\">\n";
print " </HEAD>\n";
print " <BODY>\n";
print " <FORM METHOD=\"POST\" ENCTYPE=\"application/x-www-form-urlencoded\">\n";
.
.
.
. (HTML-Code zum Aufbau der Seite)
.
.
print " <INPUT NAME=\"LoginName\" SIZE=20 MAXLENGTH=30 VALUE=\"LOGIN FAILED.\">\n";
print " <INPUT NAME=\"Passwort\" SIZE=20 MAXLENGTH=30 TYPE=\"password\">\n";
print " <INPUT NAME=\"Anmelden\" VALUE=\"Anmelden\" TYPE=\"submit\">\n";
print " <INPUT NAME=\"goto\" TYPE=\"hidden\" VALUE=\"runlevel1\">\n";
print " </FORM>\n";
print " </BODY>\n";
print "</HTML>\n";
}
else {
print "<HTML>\n";
print " <HEAD>\n";
print " <TITLE>Titelbla</TITLE>\n";
print " <SCRIPT language=\"JavaScript\">\n";
print " function weiter()\n";
print " { top.location.href = 'http://www.star-adder.de/$sc_ziel/index.htm' }\n";
print " window.setTimeout('weiter()', 0);\n";
print " </SCRIPT>\n";
print " </HEAD>\n";
print " <BODY>\n";
print " </BODY>\n";
print "</HTML>\n";
}
}