Jeg må desværre sige, at jeg fatter det ikke helt.
Nu har jeg prøvet at lave en mappe som hedder httpd/cgi-bin. Og jeg har lagt mit cgi-script over i den mappe, men der virker ikke...
Jeg ligger lige koden ind, så kan du prøve om du kan rette den til, så jeg ved helt nøjagtig hvordan at den skal se ud, for jeg er nu godt lost i dette spil.....
#!/usr/bin/perl
#######################################
# Password.cgi #
# Copyright Ricki Runge for Script.dk #
# ricki@script.dk -
www.script.dk #
#######################################
# Udskift
http://www.mitdomæne.dk/ok.html med adressen til den fil der skal beskyttes
$ok_html = \"
http://www.mitdomæne.dk/ok.html\";# Her lister du dine brugernavne og passwords, $navne[1] og $password[1] høre sammen.
# Nå du tilføjer flere skal du bare give dem nummer 3, 4, 5 osv.
$navne[0] = \"tester1\";
$passwords[0] = \"1234\";
$navne[1] = \"tester2\";
$passwords[1] = \"4321\";
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@datain = split(/&/, $buffer);
foreach $data (@datain) {
$data =~ s/\\+/ /g;
$data =~ s/%(..)/pack(\"c\",hex($1))/ge;
($name, $value) = split(/=/, $data, 2);
$name = lc($name);
if ($name eq \"navn\") {
$navn = lc($value);
} elsif ($name eq \"password\") {
$password = lc($value);
} elsif ($name eq \"fejl_html\") {
$fejl_html = $value;
}
}
$ud_html = $fejl_html;
for ($i=0; $i<=$#navne; $i++) {
if (lc($navne[$i]) eq $navn && lc($passwords[$i]) eq $password) {
$ud_html = $ok_html;
last;
}
}
print \"Location: $ud_html\\n\\n\";
