Revision 4bd1e2f8
Von Sven Schöling vor etwa 9 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 1030 | 1030 |
|
| 1031 | 1031 |
$form->error("Missing Parameter: @_") if !$userspath || !$filename;
|
| 1032 | 1032 |
|
| 1033 |
$filename = "$form->{login}_$filename";
|
|
| 1033 |
$filename = "$::myconfig{login}_$filename";
|
|
| 1034 | 1034 |
$filename =~ s|.*/||; |
| 1035 | 1035 |
$filename = "$userspath/$filename"; |
| 1036 | 1036 |
open my $FACONF, "<", $filename or do {# Annon Sub
|
Auch abrufbar als: Unified diff
login nicht aus $::form nehmen. Teil 1