Opened by Gast at 2006-02-20 21:35
Hallo,
ich habe mit Perl/Cgi folgendes Problem:
Ein Perlskript, welches usern einer internetseite den zugang zu einem 'Geschlossenem Bereich' geben sollte, funktioniert nicht.
Es ging als ich zuhause das skript OHNE cgi getestet habe (mit variablen in der kommandozeile),
aber wenn ich die zeile 'use CGI qw(:standard);' einfüge, geht es nicht mehr.
Kennt jemand dieses Problem schon?
Kann jemand abhilfe schaffen?
Danke,
pTschacK
\n\n
<!--EDIT|renee|1140475624-->
ich habe mit Perl/Cgi folgendes Problem:
Ein Perlskript, welches usern einer internetseite den zugang zu einem 'Geschlossenem Bereich' geben sollte, funktioniert nicht.
Es ging als ich zuhause das skript OHNE cgi getestet habe (mit variablen in der kommandozeile),
aber wenn ich die zeile 'use CGI qw(:standard);' einfüge, geht es nicht mehr.
Kennt jemand dieses Problem schon?
Kann jemand abhilfe schaffen?
Danke,
pTschacK
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use CGI qw(:standard);
$THRU = "0";
$PASSWORD = chomp(param('code'));
$salt = substr $PASSWORD, 0, 2;
$guess = crypt($PASSWORD, $salt);
open(USERLIST, "<users") or die "Can't open user list: $!\n";
while (chop($PWS = <USERLIST>)) {
if ( $PWS eq $guess ) { $THRU = "1"; };
}
close USERLIST;
print "Content-type: text/html\n\n";
if ($THRU eq "1") {
#generierung der html für den geschlossenen bereich ('wilkommen')
};
if ($THRU eq "0") {
#generierung der html für 'du kommst net rein'
};
exit (0);
<!--EDIT|renee|1140475624-->