SF.net SVN: ledger-smb: [1833] trunk/LedgerSMB.pm

[..hidden..]

Revision: 1833
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1833&view=rev
Author:   einhverfr
Date:     2007-11-01 14:45:53 -0700 (Thu, 01 Nov 2007)

Log Message:
-----------
Temporary fix for http auth and get_password

Modified Paths:
--------------
    trunk/LedgerSMB.pm

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2007-10-31 22:52:03 UTC (rev 1832)
+++ trunk/LedgerSMB.pm	2007-11-01 21:45:53 UTC (rev 1833)
@@ -211,6 +211,7 @@
 
 }
 
+#This function needs to be moved into the session handler.
 sub _get_password {
     my ($self) = shift @_;
     $self->{sessionexpired} = shift @_;
@@ -222,15 +223,19 @@
         $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;
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.