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

(-)a/C4/Auth.pm (-6 / +6 lines)
Lines 18-24 package C4::Auth; Link Here
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
use warnings; 
22
use Digest::MD5 qw(md5_base64);
22
use Digest::MD5 qw(md5_base64);
23
use Storable qw(thaw freeze);
23
use Storable qw(thaw freeze);
24
use URI::Escape;
24
use URI::Escape;
Lines 129-134 my $SEARCH_HISTORY_INSERT_SQL =<<EOQ; Link Here
129
INSERT INTO search_history(userid, sessionid, query_desc, query_cgi, total, time            )
129
INSERT INTO search_history(userid, sessionid, query_desc, query_cgi, total, time            )
130
VALUES                    (     ?,         ?,          ?,         ?,          ?, FROM_UNIXTIME(?))
130
VALUES                    (     ?,         ?,          ?,         ?,          ?, FROM_UNIXTIME(?))
131
EOQ
131
EOQ
132
132
sub get_template_and_user {
133
sub get_template_and_user {
133
    my $in       = shift;
134
    my $in       = shift;
134
    my $template =
135
    my $template =
Lines 558-564 has authenticated. Link Here
558
559
559
=cut
560
=cut
560
561
561
sub _version_check ($$) {
562
sub _version_check {
562
    my $type = shift;
563
    my $type = shift;
563
    my $query = shift;
564
    my $query = shift;
564
    my $version;
565
    my $version;
Lines 603-611 sub _version_check ($$) { Link Here
603
604
604
sub _session_log {
605
sub _session_log {
605
    (@_) or return 0;
606
    (@_) or return 0;
606
    open L, ">>/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog";
607
    open my $fh, '>>', "/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog";
607
    printf L join("\n",@_);
608
    printf $fh join("\n",@_);
608
    close L;
609
    close $fh;
609
}
610
}
610
611
611
sub checkauth {
612
sub checkauth {
612
- 

Return to bug 6679