diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-26 00:01:10 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-26 00:01:10 +0000 |
| commit | ad8fbf5c0f6bb3db77ca7e959a4aa476723285a1 (patch) | |
| tree | 5f90ec6d582124dcf53aadf2a1c964fd048572bb /LedgerSMB.pm | |
| parent | ab39d959a3ed777ced9cd8607d2125f79303935b (diff) | |
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
Diffstat (limited to 'LedgerSMB.pm')
| -rwxr-xr-x | LedgerSMB.pm | 10 |
1 files 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 "<head></head>"; print qq|<body><h2 class="error">Error!</h2> <p><b>$self->{msg}</b></body>|; |