From c4d52e58b1f865ad8dd5481e78bd71d84a8f0a88 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 2 Oct 2006 07:46:10 +0000 Subject: [PATCH] updating the proxy git-svn-id: svn://svn.open-ils.org/ILS/trunk@6342 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm b/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm index 9d1c97ef88..8306fa5672 100644 --- a/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm +++ b/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm @@ -33,6 +33,13 @@ sub handler { my $auth_ses = $cgi->cookie('ses'); my $ws_ou = $cgi->cookie('ws_ou') || 1; + # push everyone to the secure site + if ($url =~ /^http:/o) { + $url =~ s/^http:/https:/o; + print "Location: $url\n\n"; + return Apache2::Const::OK; + } + if (!$auth_ses) { my $u = $cgi->param('user'); my $p = $cgi->param('passwd'); @@ -40,37 +47,37 @@ sub handler { my $url = $cgi->url; if (!$u) { - if ($url =~ /^http:/o) { - $url =~ s/^http:/https:/o; - print "Location: $url\n\n"; - return Apache2::Const::OK; - } print $cgi->header(-type=>'text/html', -expires=>'-1d'); print <<" HTML"; + Report Output Login +


+
- +
- + - +
Please log in to view reports
Username or barcode:Username or barcode:
Password:Password:
+
+ HTML return Apache2::Const::OK; } -- 2.11.0