X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c7edb24800396748f2bf1e40ff05f90a18d31b02..ec35cbcff8c79cdda05d56e8677a2251531f1166:/scripts/console

diff --git a/scripts/console b/scripts/console
index d7679d0f6..c374d22ef 100755
--- a/scripts/console
+++ b/scripts/console
@@ -34,6 +34,12 @@ $repl->run;
 
 package Devel::REPL;
 
+use CGI qw( -no_xhtml);
+use SL::Auth;
+use SL::Form;
+use SL::Locale;
+use SL::LXDebug;
+use Data::Dumper;
 
 # this is a cleaned up version of am.pl
 # it lacks redirection, some html setup and most of the authentication process.
@@ -49,25 +55,18 @@ sub lxinit {
   { no warnings 'once';
     $::userspath  = "users";
     $::templates  = "templates";
-    $::memberfile = "users/members";
     $::sendmail   = "| /usr/sbin/sendmail -t";
   }
 
-  use SL::LXDebug;
   $::lxdebug = LXDebug->new;
 
-  use CGI qw( -no_xhtml);
-  use SL::Auth;
-  use SL::Form;
-  use SL::Locale;
-  use Data::Dumper;
-
   eval { require "config/lx-erp.conf"; };
   eval { require "config/lx-erp-local.conf"; } if -f "config/lx-erp-local.conf";
 
-  $::cgi  = CGI->new qw();
-  $::form = Form->new;
-  $::auth = SL::Auth->new;
+  $::locale = Locale->new($::language);
+  $::cgi    = CGI->new qw();
+  $::form   = Form->new;
+  $::auth   = SL::Auth->new;
 
   die 'cannot reach auth db'               unless $::auth->session_tables_present;
 
@@ -90,7 +89,7 @@ sub load {
 }
 
 sub reload {
-  use Module::Reload;
+  require Module::Reload;
   Module::Reload->check();
 
   return "modules reloaded";