Код: Выделить всё
#use /var/db/dhcpd/dhcpd.leases
#look like
#lease 192.168.0.85 {
# starts 3 2007/11/07 01:56:06;
# ends 3 2007/11/14 01:56:06;
# binding state active;
# next binding state free;
# hardware ethernet 00:15:f2:e0:69:4d;
# uid "\001\000\025\362\340iM";
# client-hostname "Sasha";
#}
use Socket;
sub StartIp2Name() {
my $body = Readdhcpd_leases();
while ($body =~ m/\nlease (.*?)\s?\{(.*?)\}/sig) {
my $ip = $1;
my $tmp = $2;
$tmp =~ m/\n(.*)?hostname\s"(.*)?"/;
my $host = $2;
$host = "\u\L$host";
$hIP{$ip} = $host;
}
}
sub Ip2Name($$$) {
#$Lhost,$user,$Ltimestamp
if (exists($hIP{$Lhost})) {
$Lhost = $hIP{$Lhost};
}
return $Lhost;
}
sub StopIp2Name() {
}
sub Readdhcpd_leases() {
local $/;
my $file;
open FFAAAA,"<","/var/db/dhcpd/dhcpd.leases";
$file=<FFAAAA>;
close FFAAAA;
return $file;
}
#warning !!!!
1;
Код: Выделить всё
user: 11
size: 1384353366
172.24.1.10 667802665 24778 263218123
Malenkov 204689763 21302 428706
172.24.1.20 170909620 2922 1254168
172.24.1.186 106307641 14843 73384
172.24.1.112 85293200 18133 908271
172.24.1.195 43194559 7443 254917
172.24.1.184 40177823 10832 694825
starts 3 2009/03/18 16:33:04;
ends 3 2009/03/18 18:33:04;
tstp 3 2009/03/18 18:33:04;
binding state free;
hardware ethernet 00:1f:d0:03:56:c9;
uid "\001\000\037\320\003v\311";
29915464 6048 138359
starts 3 2009/03/18 16:36:42;
ends 3 2009/03/18 18:36:42;
tstp 3 2009/03/18 18:36:42;
binding state free;
hardware ethernet 00:1f:d0:03:56:cf;
uid "\001\000\037\320\003v\317";
26324799 1726 55565
172.24.1.161 8435789 1777 318336
172.24.1.145 1302043 176 0
Код: Выделить всё
user: 7
size: 29781240
Goloborodiy 12422487 387 4306
Malenkov 7812933 2883 70506
Yakovlev 1318157 39 10795
Kudin 1262364 20 1804
Samoilenko 824739 15 0