#===================================================================== # LedgerSMB Small Medium Business Accounting # http://www.ledgersmb.org/ # # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used # with permission. # # This file contains source code included with or based on SQL-Ledger which # is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed # under the GNU General Public License version 2 or, at your option, any later # version. For a full list including contact information of contributors, # maintainers, and copyright holders, see the CONTRIBUTORS file. # # Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork): # Copyright (c) 2000 # # Author: DWS Systems Inc. # 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. #====================================================================== 1; use DBI; use LedgerSMB::User; use LedgerSMB::Form; use LedgerSMB::Locale; use LedgerSMB::Session; ## will need this later when session_destroy will be used #use LedgerSMB::Session; $form = new Form; $locale = LedgerSMB::Locale->get_handle( ${LedgerSMB::Sysconfig::language} ) or $form->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: $!\n" ); $locale->encoding('UTF-8'); $form->{charset} = 'UTF-8'; #$form->{charset} = $locale->encoding; # customization if ( -f "bin/custom/$form->{script}" ) { eval { require "bin/custom/$form->{script}"; }; $form->error( __FILE__ . ':' . __LINE__ . ': ' . $@ ) if ($@); } # window title bar, user info $form->{titlebar} = "LedgerSMB " . $locale->text('Version') . " $form->{version}"; if ( $form->{action} ) { $form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}"; &{ $form->{action} }; } else { &login_screen; } 1; sub login_screen { $form->{stylesheet} = "ledgersmb.css"; $form->{favicon} = "favicon.ico"; $form->{endsession} = 1; if ( $form->{login} ) { $sf = q|function sf() { document.login.password.focus(); }|; } else { $sf = q|function sf() { document.login.login.focus(); }|; } my $headeradd = qq| |; $form->header( 1, $headeradd ); print qq|

| . $locale->text("Administrative login") . qq|

|; } sub selectdataset { my ($login) = @_; if ( -f "css/ledgersmb.css" ) { $form->{stylesheet} = "ledgersmb.css"; } $form->header(1); print qq|

|; } sub login { $form->{stylesheet} = "ledgersmb.css"; $form->{favicon} = "favicon.ico"; $form->error( __FILE__ . ':' . __LINE__ . ': ' . $locale->text('You did not enter a name!') ) unless ( $form->{login} ); if ( !${LedgerSMB::Sysconfig::GLOBALDBH} ) { $locale->text("No GlobalDBH Configured or Could not Connect"); } $user = LedgerSMB::User->new( $form->{login} ); if ( ( $errno = $user->login( \%$form ) ) <= -1 ) { $errno *= -1; $err[1] = $locale->text('Access Denied!'); $err[2] = $locale->text('Incorrect Dataset version!'); $err[3] = $locale->text('Dataset is newer than version!'); if ( $errno == 4 ) { # upgrade dataset and log in again if ( !$LedgerSMB::Sysconfig::db_autoupdate ) { $form->error( $locale->text("Dabase Version too Old") ); } for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_}; } $form->{dbpasswd} = unpack 'u', $form->{dbpasswd}; $form->{dbupdate} = "db$user->{dbname}"; $form->{ $form->{dbupdate} } = 1; $form->header; print qq||; print $locale->text( 'Upgrading to Version [_1] ...', $form->{version} ); $user->dbupdate( \%$form ); # remove lock #unlink "${LedgerSMB::Sysconfig::userspath}/nologin"; print $locale->text('done'); print "

{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display&main=company_logo&js=$form->{js}>\">" . $locale->text('Continue') . ""; print qq||; exit; } $form->error( __FILE__ . ':' . __LINE__ . ': ' . $err[$errno] ); } # made it this far, setup callback for the menu $form->{callback} = "menu.pl?action=display&password=$form->{password}"; for (qw(login path js)) { $form->{callback} .= "&$_=$form->{$_}" } # check for recurring transactions if ( $user->{acs} !~ /Recurring Transactions/ ) { if ( $user->check_recurring( \%$form ) ) { $form->{callback} .= "&main=recurring_transactions"; } else { $form->{callback} .= "&main=company_logo"; } } else { if ( $user->{role} eq 'user' ) { $form->{callback} .= "&main=company_logo"; } else { if ( $user->check_recurring( \%$form ) ) { $form->{callback} .= "&main=recurring_transactions"; } else { $form->{callback} .= "&main=company_logo"; } } } Session::session_create($form); $form->redirect; } sub logout { $form->{callback} = ""; $form->{endsession} = 1; Session::session_destroy($form); $form->redirect; }