#!/usr/bin/perl

require "config.cgi";

$username = param("user");
$show = param("show");
$page = param("page");
$all = param("all");
$showmac = param("mac");
$menu = "active";
require "top.cgi";

#if ($all eq "1") {$all = ""; $epp="300";}

#if ($all ne "1") {$lim = "LIMIT $st,$epp";}

print "<center><font face=\"$fface\">";
if ($show ne "active" and $showmac eq "") {
    print "<table border=0 bgcolor=$table cellspacing=2 cellpadding=2 width=$conwidth><tr><td bgcolor=$cellheadbg><font color=$menucolor><center>Информация о соединениях пользователя <b>$username</b></font></td></table>";}
elsif ($showmac ne "") {
    print "<table border=0 bgcolor=$table cellspacing=2 cellpadding=2 width=$conwidth><tr><td bgcolor=$cellheadbg><font color=$menucolor><center>Информация о соединениях с устройства <b>$showmac</b></font></td></table>";}


print "<table border=0 bgcolor=$table cellspacing=2 cellpadding=2 width=$conwidth><tr>";
if ($show eq "active" or $showmac ne "") {
    print "<td bgcolor=$cellheadbg><font color=$headfont>Пользователь</font></td>";}

print "<td bgcolor=$cellheadbg><font color=$headfont>NAS</font></td>
<td bgcolor=$cellheadbg><font color=$headfont>Старт</font></td>";
if ($show ne "active") {print "<td bgcolor=$cellheadbg><font color=$headfont>Стоп</font></td>";}
print "<td bgcolor=$cellheadbg><font color=$headfont>Длительность</font></td>
<td bgcolor=$cellheadbg><font color=$headfont><center>RX (МБ)</center></font></td>
<td bgcolor=$cellheadbg><font color=$headfont><center>TX (МБ)</center></font></td>";
if ($show eq "active") {print "<td bgcolor=$cellheadbg><font color=$headfont>IP адрес</font></td>";}
print "<td bgcolor=$cellheadbg><font color=$headfont>MAC адрес</font></td>
<td bgcolor=$cellheadbg><font color=$headfont>Производитель</font></td>";
if ($show ne "active") {print "<td bgcolor=$cellheadbg><font color=$headfont>Завершено</font></td>";}
print "</tr>";

if ($show ne "active" and $showmac eq "") {
    $sth = $dbh->prepare("SELECT COUNT(*) FROM radacct WHERE username='$username'");
    $sth->execute();
    my ($cnt) = $sth->fetchrow_array();

	$pg = int($cnt / $epp);
	$pg1 = $cnt / $epp;
	if ($pg1 ne $pg) {$pg++;}
	if ($page eq "") {$page = $pg;}
	$pcn = $pg;
	if ($pcn > $pagsel) { $pcn = ($pagsel - 2) }
	if ($page eq 1)
	{$pstr = "<a href=\"log.cgi?page=1&user=$username\"><b><font color=$headfont>[ 1 ]</font></b></a>";}
	else {$pstr = "<a href=\"log.cgi?page=1&user=$username\">[ 1 ]</a>";}
	if ($page > (int($pagsel / 2) + 1)) {$pstr = sprintf("%s <font color=$actcolor> ... </font>", $pstr); }
	$pc1 = 0;
	if ($page < (int($pagsel / 2) + 1)) { $np = 2; } else { $np = $page - int($pagsel / 2) + 1; }
	if (($page + (int($pagsel / 2))) > $pg) { $np = $pg - ($pagsel - 2); }
	if ($np < 2) { $np = 2; $pcn = $pg - 2;}
	if ($pg > 2) {
    	    while ($pc1 ne $pcn)
		{
		if ($np eq $page) 
		    {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&user=$username\"><b><font color=$headfont>[ %s ]</font></b></a>", $pstr, $np, $np);}
		    else {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&user=$username\">[ %s ]</a>", $pstr, $np, $np);}
		$pc1++;
		$np++;
		}
	}
	if ($pg > 1) {
	    if ($page + (int($pagsel / 2)) < $pg) {$pstr = sprintf("%s <font color=$actcolor> ... </font>", $pstr); }
    	    if ($page eq $pg) {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&user=$username\"><b><font color=$headfont>[ %s ]</font></b></a>", $pstr, $pg, $pg);}
	    else {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&user=$username\">[ %s ]</a>", $pstr, $pg, $pg);}
	}
    $st = (($page - 1) * $epp) + 1;
    $lim = "LIMIT $st,$epp"; $showall = $pstr;

    $sth = $dbh->prepare("SELECT username,nasipaddress,acctstarttime,acctstoptime,acctsessiontime,connectinfo_stop,acctinputoctets,acctoutputoctets,callingstationid,acctterminatecause FROM radacct WHERE username='$username' $lim");
    $sth->execute() }

elsif ($showmac ne "") {
    $sth = $dbh->prepare("SELECT COUNT(*) FROM radacct WHERE callingstationid='$showmac'");
    $sth->execute();
    my ($cnt) = $sth->fetchrow_array();
	$pg = int($cnt / $epp);
	$pg1 = $cnt / $epp;
	if ($pg1 ne $pg) {$pg++;}
	if ($page eq "") {$page = $pg;}
	$pcn = $pg;
	if ($pcn > $pagsel) { $pcn = ($pagsel - 2) }
	if ($page eq 1)
	{$pstr = "<a href=\"log.cgi?page=1&mac=$showmac\"><b><font color=$headfont>[ 1 ]</font></b></a>";}
	else {$pstr = "<a href=\"log.cgi?page=1&mac=$showmac\">[ 1 ]</a>";}
	if ($page > (($pagsel / 2) + 1)) {$pstr = sprintf("%s <font color=$actcolor> ... </font>", $pstr); }
	$pc1 = 0;
	if ($page < (int($pagsel / 2) + 1)) { $np = 2; } else { $np = $page - int($pagsel / 2) + 1; }
	if (($page + int($pagsel / 2)) > $pg) { $np = $pg - ($pagsel - 2); }
	if ($np < 2) { $np = 2; $pcn = $pg - 2;}
	if ($pg > 2) {
    	    while ($pc1 ne $pcn)
		{
		if ($np eq $page) 
		    {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&mac=$showmac\"><b><font color=$headfont>[ %s ]</font></b></a>", $pstr, $np, $np);}
		    else {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&mac=$showmac\">[ %s ]</a>", $pstr, $np, $np);}
		$pc1++;
		$np++;
		}
	}
	if ($pg > 1) {
	    if ($page + int($pagsel / 2) < $pg) {$pstr = sprintf("%s <font color=$actcolor> ... </font>", $pstr); }
    	    if ($page eq $pg) {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&mac=$showmac\"><b><font color=$headfont>[ %s ]</font></b></a>", $pstr, $pg, $pg);}
	    else {$pstr = sprintf ("%s <a href=\"log.cgi?page=%s&mac=$showmac\">[ %s ]</a>", $pstr, $pg, $pg);}
	}
    $st = (($page - 1) * $epp) + 1;
    $lim = "LIMIT $st,$epp"; $showall = $pstr;

    $sth = $dbh->prepare("SELECT username,nasipaddress,acctstarttime,acctstoptime,acctsessiontime,connectinfo_stop,acctinputoctets,acctoutputoctets,callingstationid,acctterminatecause FROM radacct WHERE callingstationid='$showmac' $lim");
    $sth->execute();}

else {
    $sth = $dbh->prepare("SELECT COUNT(*) FROM radacct WHERE connectinfo_stop='' AND acctterminatecause=''");
    $sth->execute();
    my ($cnt) = $sth->fetchrow_array();
    $sth = $dbh->prepare("SELECT username,nasipaddress,acctstarttime,acctstoptime,acctsessiontime,connectinfo_stop,acctinputoctets,acctoutputoctets,callingstationid,acctterminatecause FROM radacct WHERE connectinfo_stop='' AND acctterminatecause=''");
    $sth->execute();
    }


while (my ($username, $nas, $start, $stop, $time, $connected, $tx, $rx, $mac, $reason) = $sth->fetchrow_array())
    {

	$nasname = "";
        $sth1 = $dbh->prepare("SELECT name FROM nasnames WHERE address='$nas'");
        $sth1->execute();
        my ($nasname) = $sth1->fetchrow_array();
	if ($nasname eq "") {$nasname = $nas; }
	
	if ($reason eq "" and $connected ne "") {$reason = "Signal-lost";}
	$day = int($time / 86400);                                                                                                                                                                           
	$hour = int($time / 3600) - ($day * 24);                                                                                                                                                             
	$min = int($time / 60) - ($day * 24) - ($hour * 60)  - ($day * 1416);                                                                                                                                
	$sec = $time - (int($time / 60) * 60);                                                                                                                                                                  
	$time = sprintf ("%s.%02d:%02d:%02d", $day, $hour, $min, $sec);

	$tx = int($tx/1024/1024);
	$rx = int($rx/1024/1024);

#	print "<tr>";

	($m1, $m2, $m3) = split ("-", $mac);
	$oui = sprintf("%s-%s-%s", $m1, $m2, $m3);
	$sth1 = $dbh->prepare("SELECT vendor FROM oui WHERE mac='$oui'");
	$sth1->execute();
	my ($ven) = $sth1->fetchrow_array();
	$macv = "<acronym title=\"$ven\">$mac</acronym>";

	$arp = lc($mac);
	$arp =~ s/-/:/g;

	open(ARP1, "/proc/net/arp") || die "can't open arp file";
	$ipaddr = "";
	while (<ARP1>) {
	chomp;
	if (/^[0-9]/) {
	   ($ipa, $hwtype, $flags, $ether, $mask, $device) = split(/ +/);

	    if ($ether eq $arp) {$ipaddr = $ipa;}
	    }
	}
	close (ARP1);

	if ($show eq "active" or $showmac ne "" ) {print "<tr><td bgcolor=$cellcolor><font color=$fontcolor size=\"2\"><a href=\"log.cgi?user=$username\">$username</a></font></td>";}

#	$arp = lc($macv);
#	$arp =~ s/-/:/g;
#	$cmd = "/usr/sbin/arp -n |/bin/grep $arp";
#	my $out=qx($cmd 2>&1);
#	($ipaddr) = split(" ", $out);
#	print "$out";


	print "<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$nasname</font></td>
	<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$start</font></td>";
	if ($show ne "active") {print "<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$stop</font></td>";}
	print "<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$time</font></td>
	<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\"><center>$rx</font></td>
	<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\"><center>$tx</font></td>";
	if ($show eq "active") {print "<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$ipaddr</font></td>";}
	print "<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\"><a href=\"log.cgi?mac=$mac\">$macv</a></font></td>
	<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$ven</font></td>";
	if ($show ne "active") {print "<td bgcolor=$cellcolor><font color=$fontcolor size=\"2\">$reason</font></td>";}
	print "</tr>";

    }
print "</table><table border=0 width=$conwidth cellspacing=0 cellpadding=2 bgcolor=$cellheadbg><tr><td bgcolor=$cellheadbg><center>$showall</td></tr></table>";