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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#!/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
use File::Basename;
push( @INC, ( fileparse($0) )[1] );
use CGI;
require "lightsquid.cfg";
require "common.pl";
$co = new CGI;
$year = $co->param('year');
$month = $co->param('month');
$user = $co->param('user');
$mode = $co->param('mode');
print "Content-Type: text/html\n\n";
InitTPL("user_month",$co->param('tpl'));
$workperiod = "$MonthName[$month] $year";
ReplaceTPL( WORKPERIOD, $workperiod );
$week_id=0;
$week_date=$date;
$average = 0;
$days = 0;
$filter = "$year$month";
@daylist = sort glob("$reportpath/$filter*");
@daylist = reverse @daylist;
foreach $daypath (@daylist ) {
open FF, "<$daypath/.total";
$tmp = <FF>; $size = <FF>;
# $daypath =~ m/(\d\d\d\d)(\d\d)(\d\d)/;
$daypath =~ m#$reportpath/(.*)#;
$date=$1;
$date =~ m/^(\d\d\d\d)(\d\d)(\d\d)/;
$urldate="year=$1&month=$2&day=$3";
$printdate= GetTxtDate($date);
$weekday = GetWeekDayDate($date);
$weeksumtpl="";
if ($weekday == 0) {
$week_id++;
$weeksumtpl="##WEEKSUM$week_id##";
$weeksum[$week_id]=0;
}
$size="?";
while (<FF>) {
( $user_, $size_, $hit ) = split;
next if ( $user_ ne $user );
$cumulative += $size_;
$size = $size_;
}
$weeksum[$week_id]+=$size if ($size ne "?");
$printsize =($size eq "?")?"?":FineDec($size);
$printcumulative =FineDec($cumulative);
$daydate_L =URLEncode("user_detail.cgi?$urldate&user=$user"); $daydate_B ="$printdate";
$dayattr = ($weekday & 1 )?$hTPLVARIABLE{oddattr}:$hTPLVARIABLE{evenattr};
$dayattr = $hTPLVARIABLE{sundayattr} if ($weekday == 0);
$dayattr = $hTPLVARIABLE{saturdayattr} if (($weekday == 6) && ($weekendmode eq "both"));
$oversizeattr=(($perusertrafficlimit>0) && ($size > $perusertrafficlimit))?$hTPLVARIABLE{oversizedattr}:$hTPLVARIABLE{nooversizedattr};
$tmp=$hTPL{day};
$tmp=~s/##DAYDATE_L##/$daydate_L/;
$tmp=~s/##DAYDATE_B##/$daydate_B/;
$tmp=~s/##DAYBYTES##/$printsize/;
$tmp=~s/##DAYCUMULATIVE##/$printcumulative/;
$tmp=~s/##WEEKSUM##/$weeksumtpl/;
$tmp=~s/##DAYATTR##/$dayattr/;
$tmp=~s/##OVERSIZEATTR##/$oversizeattr/;
$tpl{day} .= $tmp;
$days++;
close FF;
}
$graphurl_L=URLEncode("graph.cgi?year=$year&month=$month&mode=user&user=$user");
$graphurl_B="##MSG_GRAPH_LINK##";
ReplaceTPL_URL(GRAPHURL,$graphurl_L,$graphurl_B);
ReplaceTPL(USER,$user);
ReplaceTPL(WORKPERIOD,$workperiod);
ReplaceTPL(TOTALBYTES,$printcumulative);
for ($i=0;$i<=$week_id;$i++) {
ReplaceTPL("WEEKSUM$i",FineDec($weeksum[$i]));
}
ApplyTPL();
PrintTPL();
__END__
2005-10-06 ADD : Initial release
2006-06-28 ADD : &tpl= support
2006-07-01 ADD : RIC, add sunday highlight
|
