summaryrefslogtreecommitdiff
path: root/LedgerSMB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-xLedgerSMB.pm23
1 files changed, 14 insertions, 9 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index d2eeb9bc..96006b62 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -211,6 +211,7 @@ sub new {
}
+#This function needs to be moved into the session handler.
sub _get_password {
my ($self) = shift @_;
$self->{sessionexpired} = shift @_;
@@ -222,15 +223,19 @@ sub _get_password {
$attr->{value} = $self->{$_};
push @{$self->{hidden}}, $attr;
}
- my $template = LedgerSMB::Template->new(
- user =>$self->{_user},
- locale => $self->{_locale},
- path => 'UI',
- template => 'get_password',
- format => 'HTML'
- );
- $template->render($self);
- $template->output('http');
+ print "WWW-Authenticate: Basic realm=\"LedgerSMB\"\n";
+ print "Status: 401 Unauthorized\n\n";
+ print "Please enter your credentials.\n";
+ exit;
+# my $template = LedgerSMB::Template->new(
+# user =>$self->{_user},
+# locale => $self->{_locale},
+# path => 'UI',
+# template => 'get_password',
+# format => 'HTML'
+# );
+# $template->render($self);
+# $template->output('http');
exit;
}