From ad8fbf5c0f6bb3db77ca7e959a4aa476723285a1 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 26 Jun 2007 00:01:10 +0000 Subject: If no login sent, return simple credential-free object git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1321 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/LedgerSMB.pm b/LedgerSMB.pm index c82caa0e..a8ccb2d4 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -160,6 +160,10 @@ sub new { if ( ( $self->{script} =~ m#(..|\\|/)# ) ) { $self->error("Access Denied"); } + if (!$self->{login}){ + #this is an ugly hack we need to rethink. + return $self; + } $self->{_user} = LedgerSMB::User->fetch_config($self->{login}); my $locale = LedgerSMB::Locale->get_handle($self->{_user}->{countrycode}) @@ -610,9 +614,9 @@ sub error { delete $self->{pre}; - if ( !$self->{header} ) { - $self->header; - } + + print qq|Content-Type: text/html; charset=utf-8\n\n|; + print ""; print qq|

Error!

$self->{msg}|; -- cgit v1.2.3