X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=edbb35cc48ee10dada3917bf2042f6e19ef1f3bf;hb=391d6b54a3a294bb45c4aa52c9c245059f9d4422;hp=4e33ef200c80fedbd94c2434962d5c38103f5007;hpb=8cbf20b55bb339ed4940711d371d6b607dcac8e4;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 4e33ef200..edbb35cc4 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -36,10 +36,19 @@ $menufile = "menu.ini"; use DBI; use CGI; +use POSIX qw(strftime); +use IO::File; +use Fcntl; +use English qw(-no_match_vars); +use Sys::Hostname; use SL::Form; +use SL::Mailer; use SL::User; use SL::Common; +use SL::Inifile; +use SL::DBUpgrade2; +use SL::DBUtils; require "bin/mozilla/common.pl"; @@ -70,7 +79,7 @@ if ($form->{action}) { } } - &check_password; + check_password(); call_sub($subroutine); @@ -82,7 +91,7 @@ if ($form->{action}) { # create memberfile if (!-f $memberfile) { - open(FH, ">$memberfile") or $form->error("$memberfile : $!"); + open(FH, ">$memberfile") or $form->error("$memberfile : $ERRNO"); print FH qq|# SQL-Ledger Accounting members [root login] @@ -92,7 +101,7 @@ password= close FH; } - &adminlogin; + adminlogin(); } @@ -105,51 +114,48 @@ sub adminlogin { $form->{title} = qq|Lx-Office ERP $form->{version} | . $locale->text('Administration'); - $form->header; - - print qq| -
- + $form->header(); + print $form->parse_html_template('admin/adminlogin'); +} -| - . $locale->text('Administration') - . qq| +sub list_users { -
+ while (