forum.lissyara.su

Код: Выделить всё

rl1: flags=8943<UP,BROADCAST,RUNNING,PROMISC,SIMPLEX,MULTICAST> mtu 1500
        options=8<VLAN_MTU>
        inet 192.168.25.2 netmask 0xffffff00 broadcast 192.168.25.255
        inet 192.168.20.2 netmask 0xffffff00 broadcast 192.168.20.255
        ether 00:e0:4c:01:72:a1
        media: Ethernet autoselect (100baseTX <full-duplex>)
        status: active

Код: Выделить всё

[root@bc /usr/local/etc/trafd]# cat db_step2.pl
#!/usr/bin/perl

use Mysql;

$dbh = Mysql->Connect("","ipacc", "trafd", "pass");
$del_query="delete from traffic_tmp;";
$dbh->Query($del_query);

$q="delete from yesterday where ((src_port>=137) AND (src_port<=139))";
$dbh->Query($q);
$q="delete from yesterday where ((dst_port>=137) AND (dst_port<=139))";
$dbh->Query($q);

$query_sent="insert into traffic_tmp (ip,sent) \
      select src_ip as ip, sum(bytes) as sent \
      from yesterday where src_ip like '192.168.25.%' group by src_ip;";

$dbh->Query($query_sent);

$query_recv="insert into traffic_tmp (ip,recv) \
      select dst_ip as ip, sum(bytes) as recv \
      from yesterday where dst_ip like '192.168.25.%' group by dst_ip;";

$dbh->Query($query_recv);
#
#  itogo
#
$yesterday=`date -v-1d '+%Y-%m-%d'`;
chomp($yesterday);

$qi="insert into traffic (dt,ip,sent,recv) \
      select '".$yesterday."',ip, sum(sent) as sent, sum(recv) as recv \
      from traffic_tmp group by ip;";

$dbh->Query($qi);