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 557-563 has authenticated. Link Here
557
558
558
=cut
559
=cut
559
560
560
sub _version_check ($$) {
561
sub _version_check {
561
    my $type = shift;
562
    my $type = shift;
562
    my $query = shift;
563
    my $query = shift;
563
    my $version;
564
    my $version;
Lines 602-610 sub _version_check ($$) { Link Here
602
603
603
sub _session_log {
604
sub _session_log {
604
    (@_) or return 0;
605
    (@_) or return 0;
605
    open L, ">>/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog";
606
    open my $fh, '>>', "/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog";
606
    printf L join("\n",@_);
607
    printf $fh join("\n",@_);
607
    close L;
608
    close $fh;
608
}
609
}
609
610
610
sub checkauth {
611
sub checkauth {
611
- 

Return to bug 6679