X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=sql-ledger%2Fbin%2Fmozilla%2Fadmin.pl;fp=sql-ledger%2Fbin%2Fmozilla%2Fadmin.pl;h=0000000000000000000000000000000000000000;hp=8a4daba786bbfe27a4ebe3daf2267e1230337c72;hb=86b1b489a4ed2f9bc0cba6cafeab0d6eca5584dc;hpb=948b8acdd4b9b3864342062d0c397a11f57c5700 diff --git a/sql-ledger/bin/mozilla/admin.pl b/sql-ledger/bin/mozilla/admin.pl deleted file mode 100644 index 8a4daba78..000000000 --- a/sql-ledger/bin/mozilla/admin.pl +++ /dev/null @@ -1,1638 +0,0 @@ -#===================================================================== -# SQL-Ledger Accounting -# Copyright (c) 2002 -# -# Author: Dieter Simader -# Email: dsimader@sql-ledger.org -# Web: http://www.sql-ledger.org -# -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -#====================================================================== -# -# setup module -# add/edit/delete users -# -#====================================================================== - -$menufile = "menu.ini"; - -use SL::Form; -use SL::User; - - -$form = new Form; - -$locale = new Locale $language, "admin"; - -eval { require DBI; }; -$form->error($locale->text('DBI not installed!')) if ($@); - -$form->{stylesheet} = "sql-ledger.css"; -$form->{favicon} = "favicon.ico"; -$form->{timeout} = 600; - -require "$form->{path}/pw.pl"; - -# customization -if (-f "$form->{path}/custom_$form->{script}") { - eval { require "$form->{path}/custom_$form->{script}"; }; - $form->error($@) if ($@); -} - - -if ($form->{action}) { - - $subroutine = $locale->findsub($form->{action}); - - &check_password unless $form->{action} eq 'logout'; - - &$subroutine; - -} else { - - # if there are no drivers bail out - $form->error($locale->text('No Database Drivers available!')) unless (User->dbdrivers); - - # create memberfile - if (! -f $memberfile) { - open(FH, ">$memberfile") or $form->error("$memberfile : $!"); - print FH qq|# SQL-Ledger Accounting members - -[root login] -password= - -|; - close FH; - } - - &adminlogin; - -} - -1; -# end - - -sub adminlogin { - - $form->{title} = qq|SQL-Ledger $form->{version} |.$locale->text('Administration'); - - $form->{login} = "root login"; - $form->header(1); - - print qq| - - - - -
- - -

|.$locale->text('Version').qq| $form->{version}

|.$locale->text('Administration').qq|

- -
- - - - - - - - -{path}> -{sessionid}> -
|.$locale->text('Password').qq|
- -
- -SQL-Ledger |.$locale->text('website').qq| - -
- - - -|; - -} - - -sub login { - - &list_users; - -} - - -sub logout { - - $form->{callback} = "$form->{script}?path=$form->{path}&endsession=1"; - $form->redirect($locale->text('You are logged out')); - -} - - -sub add_user { - - $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Add User'); - - $form->{Oracle_sid} = $sid; - $form->{Oracle_dbport} = '1521'; - $form->{Oracle_dbhost} = `hostname`; - - if (-f "css/sql-ledger.css") { - $myconfig->{stylesheet} = "sql-ledger.css"; - } - $myconfig->{vclimit} = 1000; - $myconfig->{menuwidth} = 155; - $myconfig->{timeout} = 3600; - - &form_header; - &form_footer; - -} - - - -sub edit { - - $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Edit User'); - $form->{edit} = 1; - - &form_header; - &form_footer; - -} - - -sub form_footer { - - if ($form->{edit}) { - $delete = qq| -|; - } - - print qq| - - - -{path}> -{sessionid}> - - -$delete - - - - - -|; - -} - - -sub list_users { - - open(FH, "$memberfile") or $form->error("$memberfile : $!"); - - $nologin = qq| -|; - - if (-e "$userspath/nologin") { - $nologin = qq| -|; - } - - - while () { - chop; - - if (/^\[.*\]/) { - $login = $_; - $login =~ s/(\[|\])//g; - } - - if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) { - chop ($var = $&); - ($null, $member{$login}{$var}) = split /=/, $_, 2; - } - } - - close(FH); - -# type=submit $locale->text('Pg Database Administration') -# type=submit $locale->text('PgPP Database Administration') -# type=submit $locale->text('Oracle Database Administration') - - foreach $item (User->dbdrivers) { - $dbdrivers .= qq||; - } - - - $column_header{login} = qq||.$locale->text('Login').qq||; - $column_header{name} = qq||.$locale->text('Name').qq||; - $column_header{company} = qq||.$locale->text('Company').qq||; - $column_header{dbdriver} = qq||.$locale->text('Driver').qq||; - $column_header{dbhost} = qq||.$locale->text('Host').qq||; - $column_header{dataset} = qq||.$locale->text('Dataset').qq||; - $column_header{templates} = qq||.$locale->text('Templates').qq||; - - @column_index = qw(login name company dbdriver dbhost dataset templates); - - $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration'); - - $form->{login} = "root login"; - $form->header; - - print qq| - - -
{script}> - - - - - - - - - - - - - -
$form->{title}
- - |; - - map { print "$column_header{$_}\n" } @column_index; - - print qq| - -|; - -foreach $key (sort keys %member) { - $href = "$script?action=edit&login=$key&path=$form->{path}&sessionid=$form->{sessionid}"; - $href =~ s/ /%20/g; - - $member{$key}{templates} =~ s/^$templates\///; - $member{$key}{dbhost} = $locale->text('localhost') unless $member{$key}{dbhost}; - $member{$key}{dbname} = $member{$key}{dbuser} if ($member{$key}{dbdriver} eq 'Oracle'); - - $column_data{login} = qq||; - $column_data{name} = qq||; - $column_data{company} = qq||; - $column_data{dbdriver} = qq||; - $column_data{dbhost} = qq||; - $column_data{dataset} = qq||; - $column_data{templates} = qq||; - - $i++; $i %= 2; - print qq| - |; - - map { print "$column_data{$_}\n" } @column_index; - - print qq| - |; -} - - -print qq| -
$key$member{$key}{name}$member{$key}{company}$member{$key}{dbdriver}$member{$key}{dbhost}$member{$key}{dbname}$member{$key}{templates}
-
- -{path}> -{sessionid}> - -
- - -$dbdrivers -$nologin - - - -
- -|.$locale->text('Click on login name to edit!').qq| -
-|.$locale->text('To add a user to a group edit a name, change the login name and save. A new user with the same variables will then be saved under the new login name.').qq| - - - -|; - -} - - - -sub form_header { - - # if there is a login, get user - if ($form->{login}) { - # get user - $myconfig = new User "$memberfile", "$form->{login}"; - - $myconfig->{signature} =~ s/\\n/\r\n/g; - $myconfig->{address} =~ s/\\n/\r\n/g; - - # strip basedir from templates directory - $myconfig->{templates} =~ s/^$templates\///; - - $myconfig->{dbpasswd} = unpack 'u', $myconfig->{dbpasswd}; - } - - - foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { - $dateformat .= ($item eq $myconfig->{dateformat}) ? "