# Selima Website Content Management System
# LogOut.pm: The log-out subroutines.

#  Copyright (c) 2004-2018 imacat.
#
#  Licensed under the Apache License, Version 2.0 (the "License");
#  you may not use this file except in compliance with the License.
#  You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
#  Unless required by applicable law or agreed to in writing, software
#  distributed under the License is distributed on an "AS IS" BASIS,
#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#  See the License for the specific language governing permissions and
#  limitations under the License.

# Author: imacat <imacat@mail.imacat.idv.tw>
# First written: 2004-10-16

package Selima::LogOut;
use 5.008;
use strict;
use warnings;
use base qw(Exporter);
use vars qw(@EXPORT @EXPORT_OK);
BEGIN {
@EXPORT = qw(logout);
@EXPORT_OK = @EXPORT;
# Prototype declaration
sub logout();
sub new_logoutid();
}

use File::Spec::Functions qw(catfile);

use Selima::AddGet;
use Selima::DataVars qw($SESSION $AUTHINFO :env);
use Selima::HTTP;
use Selima::Session;
use Selima::XFileIO;

# logout: Log out
sub logout() {
    local ($_, %_);
    delete $$SESSION{"usersn"};
    delete $$SESSION{"userid"};
    delete $$SESSION{"username"};
    delete $$SESSION{"userpref"};
    delete $$SESSION{"groups"};
    delete $$SESSION{"admin"};
    delete $$SESSION{"guest"};
    # Logged-in from Apache/mod_perl HTTP Authentication
    if (defined $AUTHINFO) {
        my ($id, $file, $r, $uri, $method);
        ($id, $file) = new_logoutid;
        # Tag the log out file
        xfwrite($file, "");
        
        # Get back to the referer
        $r = $IS_MP2? Apache2::RequestUtil->request:
            Apache->request;
        $uri = $r->headers_in->get("Referer");
        # Default to the home if referer is not available
        $uri = "/magicat/" if !defined $uri;
        # Append the logout ID.
        $uri = add_get_arg $uri, "logout", $id;
        
        # Back to the referer
        if ($r->method eq "POST") {
            http_303 $uri;
        } else {
            http_307 $uri;
        }
    }
    return;
}

# new_logoutid: Generate a new random logout ID number
sub new_logoutid() {
    local ($_, %_);
    my ($id, $file);
    do {
        $id = 100000000 + int rand 900000000;
        $file = catfile($Selima::Session::DIR, "logout_$id");
    } until !-e $file;
    return ($id, $file);
}

return 1;