Globale Variablen $::userspath, $::templates, $::membersfile nach %::lx_office_conf...

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 024a683db72d09f7dbf0e742ee7908a6ea400674..becfcb7990d76fd0eb2f1e6f341c0ac7e5ddfe20 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -145,10 +145,10 @@ sub login {
       }
 
       # update the tables
-      if (!open(FH, ">$main::userspath/nologin")) {
+      if (!open(FH, ">" . $::lx_office_conf{paths}->{userspath} . "/nologin")) {
         $form->show_generic_error($main::locale->text('A temporary file could not be created. ' .
                                                       'Please verify that the directory "#1" is writeable by the webserver.',
-                                                      $main::userspath),
+                                                      $::lx_office_conf{paths}->{userspath}),
                                   'back_button' => 1);
       }
 
@@ -166,7 +166,7 @@ sub login {
       close(FH);
 
       # remove lock file
-      unlink("$main::userspath/nologin");
+      unlink($::lx_office_conf{paths}->{userspath} . "/nologin");
 
       my $menufile =
         $self->{"menustyle"} eq "v3" ? "menuv3.pl" :