Hm, irgendwie bekomme ich dann einen Abbruch.
Hier einfach einmal das komplette Coding:
#!/usr/bin/perl
if($ENV{'REQUEST_METHOD'} eq "GET")
{
$in = $ENV{'QUERY_STRING'};
}
elsif($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
}
@pairs = split(/&/, $in);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/|/-/;
$value =~ s/&&/&/;
$value =~ s/§§/-/;
$value =~ s/§/-/;
$in{$name} = $value;
}
print "Content-type: text/html\n\n";
$username = "$in{'user'}";
$passwort = "$in{'pass'}";
open (PASS, "$username.pass") || die print "<p>Dieser Nick ist nicht vorhanden.</p>\n";
$correctpass = <PASS>;
close(PASS);
if ($passwort eq $correctpass) {
&passwortrichtig;
}
else {
&badpass;
}
sub passwortrichtig {
print "<SCRIPT LANGUAGE='JavaScript'>
<!--
var tipWin = null;
function opentip()
{
str="profile.cgi?MyName=$username&pass=$passwort";
tipWin = window.open(str,'tipWin','width=300,height=350,resizeable=no,scrollbars=no');
window.open(str,'tipWin','width=300,height=350');
tipWin.opener = self;
}
//-->
</SCRIPT>";
print "<font size="3" color="#FFCC66" face="Tahoma">";
print "<body bgcolor="#006666">";
print "<meta http-equiv="refresh" content="10;URL=whoisonline.cgi?user=$username&pass=$passwort">";
print "<br><b>Einstellungen:</b><br><br>";
print "<a href="javascript:opentip()" style="text-decoration: none"><font size="2" color="#FF8C00"><b>Profil editieren</b></a></font><br><br>";
print "<b>Wer ist Online?<br><br></b>";
open(USERDATA,"whoisonline.dat");
@user=<USERDATA>;
close(USERDATA);
foreach $user_online(@user)
{
print "<a href="viewprofile.cgi?user=$user_online" style="text-decoration: none" target="_blank"><font size="2" color="#FF8C00"><b>$user_online</b></a><br>\n";
}
}
z.B. soll bei dieser Zeile aus dem <b> das vorbelegte Format <h2> genommen werden:
print "<br><b>Einstellungen:</b><br><br>";
Irgendwie bekomme ich es nicht hin, die css-Datei einzubinden :-(.
Bis denn
Stefan