#!/usr/bin/perl
my ($res, $who, $d1, $d2);

$who = $ENV{'REMOTE_USER'};

open(CONF, "</var/www/etc/users");
@all = <CONF>;
close(CONF);

foreach $line(@all) {
 @user = split(/:/, $line);
 if ($user[0] eq $who) {
 $d1 = $user[2];
 $d2 = $user[3];
 last;
 }
}

$who .= "_in";

$d1 =~ /(\d+)\.(\d+)\.(\d+)/;
$dd1 = sprintf ("%04d%02d%02d",$3,$2,$1);
$d2 =~ /(\d+)\.(\d+)\.(\d+)/;
$dd2 = sprintf ("%04d%02d%02d",$3,$2,$1);

$res = `/usr/local/sbin/ipacsum -f$who`;
if ($res =~ /$who\s*:\s*(\w*)/) { $total = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"last month\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $lastmo = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"this month\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $thismo = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"last week\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $lastweek = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"this week\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $thisweek = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"the day before yesterday\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $lastday = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"yesterday\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $yesterday = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -t \"today\"`;
if ($res =~ /$who\s*:\s*(\w*)/) { $today = "$1"; }

$res = `/usr/local/sbin/ipacsum -f$who -s$dd1 -e$dd2`;
if ($res =~ /$who\s*:\s*(\w*)/) { $last = "$1"; }

if ($last < 1000) {
 $ne = " ";
 $na = "";
 $nn = "";
} else {
 $ne = "";
 $na = " ";
 $nn = $last - 1000;
 }
  

print <<eof
Content-type: text/html


<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
   <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
      <meta name="Author" content="Marat Bilialov root\@socket.ru">
         <title>Traffic Stats</title>
	 </head>
	 <body text="#000000" bgcolor="#CCFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000">
	 &nbsp;
	 <center><table BORDER=0 COLS=2 WIDTH="80%" >
	 <tr>
	 <td COLSPAN="2"><font face="Arial,Helvetica"><font size=+3>  "
	 "</font></font></td>
	 </tr>
	 
	 <tr>
	 <td colspan=2><b><font face="Arial,Helvetica"><font size=+1> 
	   <font color="#0000FF">$ENV{'REMOTE_USER'}</font></font></font></b><hr></td>
	 
	 <td></td>
	 </tr>
	 
	 <tr>
	 <td></td>
	 
	 <td></td>
	 </tr>
	 
	 <tr>
	 <td><b><i><font face="Arial,Helvetica"> :</font></i></b></td>
	 
	 <td></td>
	 </tr>
	 
	 <tr BGCOLOR="#FFFFFF">
	 <td><font face="Arial,Helvetica"><font size=-1></font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$total</font></font></b></td>
	 </tr>
	 
	 <tr>
	 <td><font face="Arial,Helvetica"><font size=-1> </font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$lastmo</font></font></b></td>
	 </tr>
	 
	 <tr BGCOLOR="#FFFFFF">
	 <td><font face="Arial,Helvetica"><font size=-1> </font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$thismo</font></font></b></td>
	 </tr>
	 
	 <tr>
	 <td><font face="Arial,Helvetica"><font size=-1> </font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$lastweek</font></font></b></td>
	 </tr>
	 
	 <tr BGCOLOR="#FFFFFF">
	 <td><font face="Arial,Helvetica"><font size=-1> </font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$thisweek</font></font></b></td>
	 </tr>
	 
	 <tr>
	 <td><font face="Arial,Helvetica"><font size=-1></font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$lastday</font></font></b></td>
	 </tr>
	 
	 <tr BGCOLOR="#FFFFFF">
	 <td><font face="Arial,Helvetica"><font size=-1></font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$yesterday</font></font></b></td>
	 </tr>
	 
	 <tr>
	 <td><font face="Arial,Helvetica"><font size=-1></font></font></td>
	 
	 <td><b><font face="Arial,Helvetica"><font size=-1>$today</font></font></b></td>
	 </tr>
	 
	 <tr BGCOLOR="#FFFFFF">
	 <td><b><i><font face="Arial,Helvetica">   </font></i></b></td>
	 
	 <td><b><i><font face="Arial,Helvetica">$d1</font></i></b></td>
	 </tr>
	 
	 <tr>
	 <td><b><i><font face="Arial,Helvetica">   </font></i></b></td>
	 
	 <td><b><i><font face="Arial,Helvetica">$d2</font></i></b></td>
	 </tr>
	 
	 <tr BGCOLOR="#FFFFFF">
	 <td><b><i><font face="Arial,Helvetica">    </font></i></b></td>
	 
	 <td><b><i><font face="Arial,Helvetica">$last</font></i></b></td>
	 </tr>
	 
	 <tr>
	 <td><b><i><font face="Arial,Helvetica">  (1)   </td></font></i></b>
	 
	 <td><b><i><font face="Arial,Helvetica">$ne $na $nn</font></i></b></td>
	 </tr>
	 <tr>
	 <td colspan=2 align=center><font face="Arial,Helvetica"><font size="-1"><a href="/cgi-bin/logout.cgi">Another user...</a></font></font>
	 </td>
	 </tr>
	 <tr>
	 <td colspan=2><font face="Arial,Helvetica"><font size="-2"><hr>(C)2000 New Systems</font></font>
	 </td>
	 </tr>
	 </table></center>
	 
	 </body>
	 </html>
eof
;	 
