diff options
| author | Jules Laplace <carbon@melanarchy.org> | 2015-05-22 15:25:11 -0500 |
|---|---|---|
| committer | Jules Laplace <carbon@melanarchy.org> | 2015-05-22 15:25:11 -0500 |
| commit | ca77a587da9ec393bceda87c2ec8dda096e2890d (patch) | |
| tree | e15f868d5d06c91e56e348ec8bf26c9f9ea5071f /lib/session.pm | |
| parent | 2f4aebe8139faff0e6456676fd83bf5c0e4e3c4d (diff) | |
demand https and other kewl stuff
Diffstat (limited to 'lib/session.pm')
| -rw-r--r-- | lib/session.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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); |