1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: Log.pm,v 1.2.2.10 2001/10/08 04:21:46 brian Exp $
package Slash::Apache::Log;
use strict;
use Slash::Utility;
use Apache::Constants qw(:common);
use vars qw($VERSION);
($VERSION) = ' $Revision: 1.2.2.10 $ ' =~ /\$Revision:\s+([^\s]+)/;
# AMY: Leela's gonna kill me.
# BENDER: Naw, she'll probably have me do it.
sub handler {
my($r) = @_;
my $constants = getCurrentStatic();
return OK if -e "$constants->{datadir}/dboff";
return unless $r->status == 200;
# Notes has a bug (still in apache 1.3.17 at
# last look). Apache's directory sub handler
# is not copying notes. Bad Apache!
# -Brian
my $uri = $r->uri;
my $dat = $r->err_header_out('SLASH_LOG_DATA');
createLog($uri, $dat);
return OK;
}
# Rob asked for this, keeping this at the end means
# we can turn it off easily enough (and it won't happen
# during page stuff
sub UserLog {
my($r) = @_;
my $user = getCurrentUser();
return if !$user or !$user->{uid} or $user->{is_anon};
my $slashdb = getCurrentDB();
$slashdb->setUser($user->{uid}, {
-hits => 'hits +1'
});
return OK;
}
sub DESTROY { }
1;
__END__
=head1 NAME
Slash::Apache::Log - Handles logging for slashdot
=head1 SYNOPSIS
use Slash::Apache::Log;
=head1 DESCRIPTION
No method are provided. Basically this handles grabbing the
data out of the Apache process and logging it to the
database.
=head1 SEE ALSO
Slash(3), Slash::Apache(3).
=cut
|
