chrs: geht nicht

Beitrag lesen

SELF-Forum

geht nicht

chrs
– Informationen zu den Bewertungsregeln

hallo

ich habe mir heute folgendes script runtergeladen und das geht aber nicht so ganz weil der ständig die seiten und alles im web sucht obwohl eigentlich kein befehl mehr auf die ursprungsseite zeigt.
könnt ihr mir das mal so ändern das es wieder geht?

#!/usr/local/bin/perl

Change these variables with your own values

$correctpass = "passwort";
  $correcturl = "correct.html";
  $scriptlocation = "password.cgi";

Read in form data

&parse_form;

$password =  $input{'password'};
  $function = $input{'function'};

if ($function eq "post") {
       if ($password eq $correctpass) {
           &goto_url;
       }
       &badpassword;
   }

&ask_password;

sub badpassword {
    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<HEAD><TITLE>Invalid Password</Title></HEAD>\n";
    print "<BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#0000FF VLINK=#800040 ALINK=#800040>\n";
    print "<CENTER><H2>Invalid Password</H2></CENTER><BR>\n";
    print "</BODY>\n";
    print "</HTML>\n";
    exit;
}

sub ask_password {
    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<HEAD><TITLE>Editor</Title></HEAD>\n";
    print "<BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#0000FF VLINK=#800040 ALINK=#800040>\n";
    print "<Center><FONT SIZE=6 COLOR=0000A0><CODE>Please Enter Your Password</CODE></FONT>\n";
    print "<BR><BR><BR><TABLE WIDTH=75% Border=10><TR><TD><CENTER><BR>\n";
    print "<FORM ACTION=$scriptlocation>\n";
    print "<INPUT TYPE=password  NAME=password SIZE=15>\n";
    print "<INPUT TYPE=hidden NAME=function VALUE=post>\n";
    print "<INPUT TYPE=submit VALUE="   Verify Me   ">\n";
    print "</FORM>\n";
    print "</CENTER></TD></TR></TABLE>\n";
    print "<FONT SIZE=2 COLOR=000080>Password Script - brought to you by The<!-- <A HREF="http://technotrade.com/cgi">Techno Trade CGI Archive</A>--></FONT>\n";
    print "</CENTER></BODY></HTML>\n";

exit;
}

sub goto_url {

print "Location: $correcturl\n\n";
}

sub parse_form {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   if (length($buffer) < 5) {
         $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;

$input{$name} = $value;
   }
}

bye,christian

hey,
weiss ja nicht so genau ob du den Link nicht bemerkt hast oder ob der von dir da reingeschrieben wurde ,habe aber den Link von dem ich ausging das er der verantwortlich ist mal auskommentiert (nach HTML Art, für cgi braucht man ja glaube ich die c kommentierung mit /*textexttextetext*/ ),aber du kannst dir den Code ja jetzt mal kopieren und mit beiden Varianten mal ausprobieren...
Nur so ne Idee...

Der Link in deinem Code lautet :"<A HREF="http://technotrade.com/cgi">Techno Trade CGI Archive</A>"

mfg Chris (-;

Beitrag melden
–
Informationen zu den Bewertungsregeln