From 01028db977dab93cf2b7022d1e1eb2248ce7e8bc Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 26 Jun 2007 06:02:09 +0000 Subject: Removing old login.pl git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1328 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/login.pl | 334 ----------------------------------------------------------- 1 file changed, 334 deletions(-) delete mode 100644 bin/login.pl diff --git a/bin/login.pl b/bin/login.pl deleted file mode 100644 index b015dbf7..00000000 --- a/bin/login.pl +++ /dev/null @@ -1,334 +0,0 @@ -#===================================================================== -# 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("Database 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; -} - -- cgit v1.2.3