Tatsuki SUGIURA
sugi****@users*****
2006年 11月 1日 (水) 12:21:08 JST
Index: slashjp/themes/slashcode/tasks/counthits.pl diff -u slashjp/themes/slashcode/tasks/counthits.pl:1.4 slashjp/themes/slashcode/tasks/counthits.pl:1.5 --- slashjp/themes/slashcode/tasks/counthits.pl:1.4 Wed Jul 12 20:42:09 2006 +++ slashjp/themes/slashcode/tasks/counthits.pl Wed Nov 1 12:21:08 2006 @@ -2,7 +2,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: counthits.pl,v 1.4 2006/07/12 11:42:09 sugi Exp $ +# $Id: counthits.pl,v 1.5 2006/11/01 03:21:08 sugi Exp $ # Counts hits from accesslog and updates stories.hits columns. @@ -14,7 +14,7 @@ use Slash::Utility; use Slash::Constants ':slashd'; -(my $VERSION) = ' $Revision: 1.4 $ ' =~ /\$Revision:\s+([^\s]+)/; +(my $VERSION) = ' $Revision: 1.5 $ ' =~ /\$Revision:\s+([^\s]+)/; # Change this var to change how often the task runs. $minutes_run = 20; @@ -66,7 +66,7 @@ my $qlid = $slashdb->_querylog_start('SELECT', 'accesslog'); my $sth = $logdb->sqlSelectMany("dat", "accesslog", "id BETWEEN $lastmaxid AND $newmaxid - AND status=200 AND op='article'"); + AND status=200 LIKE op='%article'"); while (my($dat) = $sth->fetchrow_array()) { next unless $dat =~ m{^\d+/\d+/\d}; # got 3 sets of digits? good enough $sid_count{$dat}++;