|
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 |
- |
|
|