Vad är det för fel på följande kod
#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</\<\;/g;
$value =~ s/>/\<\;/g;
$FORM{$name} = $value;
}
$data = $FORM{'name'} + ".txt";
open(DATA, $data);
@lines = <DATA>;
close(DATA);
($name, $value, $color) = split(/;/, $lines{1});
if ($value eq $FORM{'name'}) {
print <<endhtml;
<html>
<head>
<frameset frameborder="0" border="0" rows="36,*" cols="100%">
<frame name="xlankarmeny" src="http://www.settlers.org/cgi-bin/xlinks/script.cgi?name=$name&color=$color" scrolling="no">
<frame name="xlankarmain" src="http://www.webforum.nu/wf/index.html" scrolling="auto">
</frameset>
<noframes>
</noframes>
</head>
</html>
endhtml
} else {
print <<endhtml;
<html>
<body>
<font face="verdana" size="2"><b><center>
Fel lösenord<b><br>
Klicka <a href="http://www.settlers.org/staff/emil/index.html">här</a> för att försöka igen.
</body>
</html>
endhtml
}
#!/usr/bin/perl
$buffer=$ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</\<\;/g;
$value =~ s/>/\<\;/g;
$FORM{$name} = $value;
}
$data = $FORM{'name'} + ".txt";
$color = $FORM{'color'};
open(DATA, $data);
@lines = <DATA>;
close(DATA);
print <<endhtml;
<html>
<body bgcolor="#FFFFFF" background="pics/$color/bg.gif" topmargin="0" leftmargin="0">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td rowspan="2" width="50%" valign="top"><a target="xlankarmain" href="http://www.settlers.org/staff/emil/xlinks"><img src="pics/$color/logo.gif" border="0"></a></td>
<td width="45%" align="right" valign="top" height="8"></td><td width="5%"></td>
</tr>
<tr>
<td align=\"right\">
<form name="menu">
<select name="links" onChange="parent.xlankarmain.location.href=menu.links.options[menu.links.selectedIndex].value">
<option>Links</option>
<option>----------------------------------------</option>
endhtml
$nr = 0
foreach $line (@lines) {
$nr++;
chomp($line);
($value, $name) = split(/;/, $line);
if ($nr <> 1) {
print "<option value=\"$value\">$name</option>";
}
}
print <<endhtml;
</select>
</form>
</td>
</tr>
</table>
</body>
</html>
endhtml
------------------
/Emil Hesslow