lightsquid 1.8-4 / usr / lib / cgi-bin / lightsquid / day_detail.cgi

This file is indexed.

/usr/lib/cgi-bin/lightsquid/day_detail.cgi is in lightsquid 1.8-4.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below. 

  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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
#!/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

print "Content-Type: text/html\n\n";

use File::Basename;
push (@INC,(fileparse($0))[1]);

use CGI;
require "lightsquid.cfg";
require "common.pl";


$co=new CGI;

#$year ="2004";
#$month="05";
#$day  ="01";
#$user ="#169";

$year      =$co->param('year');
$month     =$co->param('month');
$day       =$co->param('day');
$oversize  =$co->param('oversize');

InitTPL("day_detail",$co->param('tpl'));


$daypath="$reportpath/$year$month$day";

$workperiod="$day $MonthName[$month] $year";

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$daypath");
($sec_,$min_,$hour_,$mday_,$mon_,$year_,$wday_,$yday_,$isdst_)=localtime($mtime);
$mon_++;$year_+=1900;

$worktmp=GetFeatures($daypath,"modification",sprintf("%02d:%02d",$hour_,$min_)." ::  $mday_ $MonthName[$mon_] $year_");

#forkaround for bug in version 1.7
$worktmp =~ m/(.*?\:\:\s+\S+)\s+(\S+)\s+(\S+)/;
if ($3 < 1900) {
  $preffix=$1;
  $year_=$3+1900;$month_=$2;
  if ($month_=~ m/MONTH(\d\d)/) {$month_=$1+1;} else {$month_=1;}
  $worktmp ="$preffix $MonthName[$month_] $year_";
}

$workperiod .= " (##MSG_UPDATE## :: $worktmp)" ;

$topsitesurl="topsites.cgi?year=$year&month=$month&day=$day";
$bigfilesurl="bigfiles.cgi?year=$year&month=$month&day=$day";

open FF,"<$daypath/.total";
$totaluser=<FF>;chomp $totaluser;$totaluser=~s/^user: //;
$totalsize=<FF>;chomp $totalsize;$totalsize=~s/^size: //;

$totalsize=1 if ($totalsize == 0);

$topsites_L="$topsitesurl";
$topsites_B="##MSG_TOP_SITES##";
$bigfiles_B="##MSG_BIG_FILES##";
if (-f "$daypath/.bigfiles") {
 $bigfiles_L="$bigfilesurl";
}

$overmsg="##MSG_OVERSIZE_HEAD## ".FineDec($perusertrafficlimit)." ##MSG_OVERSIZE_TAIL##";

GetGroup($daypath);

$N=0;
while (<FF>) {
  
  $N++;
  ($user,$size,$hit,$putpost)=split;


  next if ($oversize && ($size < $perusertrafficlimit));

  $percent     =sprintf("%2.1f",int($size*1000/$totalsize)/10);
  $printhit    =FineDec($hit);
  $printsize   =FineDec($size);
  $printputpost=FineDec($putpost);

  $putpostpercent=($putpost*100)/($size+1);
#  $printputpost .= " (".sprintf("%2.2f",$putpostpercent).")";

  $timeurl_L=URLEncode("user_time.cgi?year=$year&month=$month&day=$day&user=$user");
  $timeurl_B="##MSG_TIME_LINK##";

  $userurl_L=URLEncode("user_detail.cgi?year=$year&month=$month&day=$day&user=$user");
  $userurl_B="$user";

  $realname=GetRealName($daypath,$user);
#  $userurl_L =~ s/#/%23/;
  
  #no URLEncode here! # sign in url !!
  $usergroupurl_L="group_detail.cgi?year=$year&month=$month&day=$day#$hGroup{$user}";
  $usergroupurl_B=(defined $hGroup{$user})?"$hGroupName{$hGroup{$user}}":"?";

  $rowattr = ($N & 1)?$hTPLVARIABLE{oddattr}:$hTPLVARIABLE{evenattr};

  $overputpostattr=(($showputpost) && ($putpostpercent < $putpostwarninglevel))?$hTPLVARIABLE{putpostnormalattr}:$hTPLVARIABLE{putpostwarningattr};



  $tmp=$hTPL{user};
  $tmp=~s/##USERNUM##/$N/;
  $tmp=~s/##TIMEURL_L##/$timeurl_L/;
  $tmp=~s/##TIMEURL_B##/$timeurl_B/;
  $tmp=~s/##USERURL_L##/$userurl_L/;
  $tmp=~s/##USERURL_B##/$userurl_B/;
  $tmp=~s/##USERCONNECT##/$printhit/;
  $tmp=~s/##USERBYTES##/$printsize/;
  $tmp=~s/##USERPUTPOST##/$printputpost/;
  $tmp=~s/##USERPERCENT##/$percent/;
  $tmp=~s/##USERGROUPURL_L##/$usergroupurl_L/;
  $tmp=~s/##USERGROUPURL_B##/$usergroupurl_B/;
  $tmp=~s/##REALNAME##/$realname/;
  $tmp=~s/##ROWATTR##/$rowattr/;
  $tmp=~s/##OVERPUTPOSTATTR##/$overputpostattr/;

  $tpl{user} .= $tmp;

}

ReplaceTPL_URL(TOPSITESURL,$topsites_L,$topsites_B);
ReplaceTPL_URL(BIGFILESURL,$bigfiles_L,$bigfiles_B);
ReplaceTPL(DATE,$workperiod);
ReplaceTPL(OVERMSG,$overmsg);

ApplyTPL();
HideTPL("timereport") if ($timereport    == 0);
HideTPL("group")      if ($showgrouplink == 0);
HideTPL("overuser")   if ($oversize      == 0);
HideTPL("realname")   if ($userealname   == 0);
HideTPL("putpost")    if ($showputpost   == 0);

PrintTPL();

__END__
2004-12-18 ADD : ðÏËÁÚÙ×ÁÅÍ ÄÁÔÕ É ÉÍÑ ÐÏÌØÚÏ×ÁÔÅÌÑ × ÓËÒÉÐÔÅ
2005-04-14 ADD : usertrafficlimit support
2005-04-17 ADD : TemplateEngine
2005-05-01 ADD : Time Report Support
2005-08-30 ADD : Color Flipper
2005-10-01 ADD : _L,_B
2005-10-06 ADD : group column
2005-11-07 ADD : URLEncode for link
2006-06-28 ADD : &tpl= support
2006-07-05 ADD : PutPost added
2006-07-10 ADD : .features modification: parameter support
2007-01-10 FIX : fix for correct display update time broken in v1.7 (2007 -> 107)

APT Browse - Built by Thomas Orozco.