diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-07 06:57:40 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-07 06:57:40 +0000 |
commit | 3c8bf664ba66bfcf8345cdc6c0eee7b5b6eae40d (patch) | |
tree | 6249e39ebb950df7d26aefa24e59660cf9b0ab94 /LedgerSMB.pm | |
parent | 10797430c4c1f51dd6dc0b63207c8e0c1383ae37 (diff) |
Authetication now works as far as the root document
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1714 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index b975071c..7980d0b4 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -173,12 +173,8 @@ sub new { ($self->{action} eq 'authenticate' || !$self->{action})){ return $self; } - my $locale = LedgerSMB::Locale->get_handle($self->{_user}->{countrycode}) - or $self->error(__FILE__.':'.__LINE__.": Locale not loaded: $!\n"); - $self->{_locale} = $locale; $self->_db_init; - $self->{_user} = LedgerSMB::User->fetch_config($self); if ($self->is_run_mode('cgi', 'mod_perl')) { my %cookie; $ENV{HTTP_COOKIE} =~ s/;\s*/;/g; @@ -190,13 +186,15 @@ sub new { #check for valid session unless this is an iniital authentication #request -- CT - if (!($self->{action} eq 'authenticate' - || $self->{script} eq 'login.pl') - || !Session::session_check( $cookie{"LedgerSMB"}, $self) ) { + if (!Session::session_check( $cookie{"LedgerSMB"}, $self) ) { $self->_get_password("Session Expired"); exit; } + $self->{_user} = LedgerSMB::User->fetch_config($self); } + #my $locale = LedgerSMB::Locale->get_handle($self->{_user}->{countrycode}) + #or $self->error(__FILE__.':'.__LINE__.": Locale not loaded: $!\n"); + #self->{_locale} = $locale; $self->{stylesheet} = $self->{_user}->{stylesheet}; @@ -656,10 +654,10 @@ sub _db_init { # connection fails since this probably means bad credentials are entered. # Just in case, however, I think it is a good idea to include the DBI # error string. CT - my $dbh = DBI->connect( + $self->{dbh} = DBI->connect( "dbi:Pg:dbname=$dbname;host=localhost;port=5432", "$login", "$password", { AutoCommit => 0 } ); - $self->{dbh} = $dbh; + my $dbh = $self->{dbh}; # This is the general version check my $sth = $dbh->prepare(" @@ -673,8 +671,8 @@ sub _db_init { } - if ($self->{script} eq 'login.pl' && $self->{action} eq - 'authenticate'){ + if (($self->{script} eq 'login.pl') && ($self->{action} eq + 'authenticate')){ return; } @@ -688,10 +686,6 @@ sub _db_init { # TODO: Add date handling settings and the like. - $self->{dbh} = $dbh; - if ($self->{script} eq 'autheticate' && $self->script eq 'login.pl'){ - return; - } my $query = "SELECT t.extends, coalesce (t.table_name, 'custom_' || extends) || ':' || f.field_name as field_def |