From ca77a587da9ec393bceda87c2ec8dda096e2890d Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 22 May 2015 15:25:11 -0500
Subject: demand https and other kewl stuff

---
 lib/session.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/session.pm')

diff --git a/lib/session.pm b/lib/session.pm
index 072c0dc..1ae4a18 100644
--- a/lib/session.pm
+++ b/lib/session.pm
@@ -119,8 +119,8 @@ sub logout
   {
   my $error = shift;
   my $lender = undef;
-  # my $s = $ENV{'HTTPS'} eq "on" ? "s" : "";
-  my $s = "";
+  my $s = $ENV{'HTTPS'} eq "on" ? "s" : "";
+  # my $s = "";
 
   setCookie( { name => "name", value => undef, path => "$BUCKY/", domain => $BUCKY_COOKIE_DOMAIN } );
   setCookie( { name => "pass", value => undef, path => "$BUCKY/", domain => $BUCKY_COOKIE_DOMAIN } );
@@ -164,8 +164,8 @@ sub nice_redirect
 sub redirect
   {
   my $uri = shift;
-  # my $s = ($ENV{'HTTPS'} eq "on" || exists($input->{secure})) ? "s" : "";
-  my $s = "";
+  my $s = ($ENV{'HTTPS'} eq "on" || exists($input->{secure})) ? "s" : "";
+  # my $s = "";
   print "Location: http$s://$BUCKY_HOST$uri\n\n";
   $dbh->disconnect() if (defined($dbh));
   exit (0);
-- 
cgit v1.2.3-70-g09d2