diff options
Diffstat (limited to 'lib/session.pm')
| -rw-r--r-- | lib/session.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/session.pm b/lib/session.pm index 2074ee4..072c0dc 100644 --- a/lib/session.pm +++ b/lib/session.pm @@ -119,7 +119,8 @@ sub logout { my $error = shift; my $lender = undef; - my $s = $ENV{'HTTPS'} eq "on" ? "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 } ); @@ -163,7 +164,8 @@ sub nice_redirect sub redirect { my $uri = shift; - my $s = ($ENV{'HTTPS'} eq "on" || exists($input->{secure})) ? "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); |