View | Details | Raw Unified | Return to bug 28571
Collapse All | Expand All

(-)a/C4/Auth.pm (-12 lines)
Lines 777-789 sub _version_check { Link Here
777
    }
777
    }
778
}
778
}
779
779
780
sub _session_log {
781
    (@_) or return 0;
782
    open my $fh, '>>', "/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog";
783
    printf $fh join( "\n", @_ );
784
    close $fh;
785
}
786
787
sub _timeout_syspref {
780
sub _timeout_syspref {
788
    my $default_timeout = 600;
781
    my $default_timeout = 600;
789
    my $timeout = C4::Context->preference('timeout') || $default_timeout;
782
    my $timeout = C4::Context->preference('timeout') || $default_timeout;
Lines 923-929 sub checkauth { Link Here
923
            $session->flush;
916
            $session->flush;
924
            C4::Context->_unset_userenv($sessionID);
917
            C4::Context->_unset_userenv($sessionID);
925
918
926
            #_session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime));
927
            $sessionID = undef;
919
            $sessionID = undef;
928
            $userid    = undef;
920
            $userid    = undef;
929
921
Lines 946-952 sub checkauth { Link Here
946
            }
938
            }
947
            C4::Context->_unset_userenv($sessionID);
939
            C4::Context->_unset_userenv($sessionID);
948
940
949
            #_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime));
950
            $userid    = undef;
941
            $userid    = undef;
951
            $sessionID = undef;
942
            $sessionID = undef;
952
        }
943
        }
Lines 960-966 sub checkauth { Link Here
960
            $session->flush;
951
            $session->flush;
961
            C4::Context->_unset_userenv($sessionID);
952
            C4::Context->_unset_userenv($sessionID);
962
953
963
            #_session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,(strftime "%c",localtime), $info{'newip'});
964
            $sessionID = undef;
954
            $sessionID = undef;
965
            $userid    = undef;
955
            $userid    = undef;
966
        }
956
        }
Lines 1121-1127 sub checkauth { Link Here
1121
            # $return: 1 = valid user
1111
            # $return: 1 = valid user
1122
            if ($return) {
1112
            if ($return) {
1123
1113
1124
                #_session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime));
1125
                if ( $flags = haspermission( $userid, $flagsrequired ) ) {
1114
                if ( $flags = haspermission( $userid, $flagsrequired ) ) {
1126
                    $loggedin = 1;
1115
                    $loggedin = 1;
1127
                }
1116
                }
1128
- 

Return to bug 28571