Кто подскажет, все работает, рисует, кроме отчета кто скачал большие файлы вот конфиг:
Код: #!/usr/bin/perl
#
# LightSquid Project (c) 2004-2005 Sergey Erokhin aka ESL
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# detail see in gnugpl.txt
# -------------------- GLOBAL VARIABLES ---------------------------
#path to additional `cfg` files
$cfgpath ="/usr/local/etc/lightsquid";
#path to `tpl` folder
$tplpath ="/usr/local/www/lightsquid/tpl";
#path to `lang` folder
$langpath ="/usr/local/share/lightsquid/lang";
#path to `report` folder
$reportpath ="/usr/local/www/lightsquid/report";
#path to access.log
$logpath ="/usr/local/squid/logs/";
#path to `ip2name` folder
$ip2namepath ="/usr/local/libexec/lightsquid";
#path to `lockfile`
$lockpath =$reportpath;
#if lockfile older $maxlocktime second, remove old lock file.
$maxlocktime = 30*60;
#if 1 - lightparser generate some statistic
$debug = 0;
#if 1 - lightparser generate skip details, 2 ..., 3 ..., ....
$debug2 = 0;
# -------------------- LightParser VARIABLES ---------------------------
#squid log type
#if native squid format (default squid, see in doc) - must be 0
#if EmulateHttpdLog ON - set 1
#digit - for speed optimization
#try it set to 1 if parser generate warning
#
#see also month2dec below !!!!
#
$squidlogtype = 0;
#if you want skip some sites from stat, example our local www server
#WARNING !!!, don't leave this variable empty !!!
#example, if you want skip LOCAL site, put it here
#$skipurl = "zdd.com|192\.168\.1\.|cnn.com";
$skipurl = "zzz\.zzz";
#define sobroutine file for convertion from IP into name
#if you want skip some ip from log - return "SKIP THIS IP"
#detail see in ip2name folder,
$ip2name="simple";
#use for convert from Text to Dec convertion if EmualteHttpdLog format !!!!
#fix it if need
%month2dec = ( Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5,Jun => 6,
Jul => 7, Aug => 8, Sep => 9, Oct => 10, Nov => 11,Dec => 12);
# -------------------- Common (Parser & Web) VARIABLES ----------------------
#create & use time report statistic (logsize = logsize*2)
)
$timereport = 1;
# -------------------- WEB VARIABLES ----------------------------------------
#language
#see `lang` folder (avaible: bg,eng,fr,hu,it,pt_br,ru,sp)
$lang ="ru";
#html template name
#see template folder `tpl/$templatename/`
$templatename ="base";
#$templatename ="ric";
#$templatename ="base.css";
#define type of decimal output
#fine 123456789 -> 123,456,789
#class 123456789 -> 117.7 G
$DecOutType="class";
# define delimiter for thousands (in `fine` mode)
# = " " -> 12 345 678
# = "," -> 12,345,678
# = "" -> 12345678
$decdelimiter = " ";
#if you dont need Group mode, do =0
$showgrouplink = 1;
#if not zero, groups look like "01. Group1", if zero - "Group1"
$showgroupid = 1;
#if you dont need oversize report , do =0
$showoversizelink = 1;
#show how many data user send to internet
$showputpost = 0;
#if putpost higer this variable (in percent), highlight it
$putpostwarninglevel =15;
#use or not .realname files
#.realname contain pair userid -> Full User Name
$userealname = 1;
#if url size exceed $bigfilelimit - add this file into report
$bigfilelimit = 200*1024*1024;
#user maximum size per day limit (oversize)
$perusertrafficlimit = 100*1024*1024;
# weekend display mode
# both - select sunday & monday
# monday - only monday
$weekendmode="both";
#how many site show in TopSites report
$topsiteslimit = 500;
#how many site show in user time report
$usertimelimit = 200;
#if you want user traffic GRAPHIC report, set it in 1
#WARNING !!!, need libgd, GD.PM & other external modules !!!
#please run check-setup.pl for check library !!!!
$graphreport = 1;
#higest value on graph report
# for user month report (0.05*(...) = 50mb)
$graphmaxuser=0.05*(1024*1024*1024);
# for all user month report (1.05*(...) = 1 Gb)
$graphmaxall =0.80*(1024*1024*1024);
#color scheme for GRAPHICs, avaible "orange","blue","green","yellow","brown","red"
$barcolor="orange";
#-------------------------------------------------------------------------- Group support
#
sub CreateGroupFile($) {
my $path=shift;
open Fi,"<$cfgpath/group.cfg";
open Fo,">$path/.group";
while (<Fi>) {
print Fo $_;
}
close Fo;
close Fi;
}
#-------------------------------------------------------------------------- RealName support
#
sub CreateRealnameFile($) {
my $path=shift;
open Fi,"<$cfgpath/realname.cfg";
open Fo,">$path/.realname";
while (<Fi>) {
print Fo $_;
}
close Fo;
close Fi;
}
