Revision d5b09512
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| am.pl | ||
|---|---|---|
|
# pull in DBI
|
||
|
use DBI;
|
||
|
|
||
|
$form->{login} =~ s|.*/||;
|
||
|
|
||
|
# check for user config file, could be missing or ???
|
||
|
eval { require("$userspath/$form->{login}.conf"); };
|
||
|
if ($@) {
|
||
| login.pl | ||
|---|---|---|
|
$pos = rindex $0, '/';
|
||
|
$script = substr($0, $pos + 1);
|
||
|
|
||
|
$form->{login} =~ s|.*/||;
|
||
|
|
||
|
if (-e "$userspath/nologin" && $script ne 'admin.pl') {
|
||
|
print "content-type: text/plain
|
||
|
|
||
Auch abrufbar als: Unified diff
Es muss sichergestellt sein, dass $form->{login} keine Datei Pfadkomponenten enthalten kann.