For kicks I am trying to write a squid log parser. The access.log file is
the easy part. I am having trouble with translating the ip information in
the dhcpd.leases file. The way I see it I will need to read the file
backwards. Analyzing each lease block and skipping lease blocks which I have
already defined. As far as perl its simply going to be a hash
($users{ipaddress}=computer name). Any thoughts would be appreciative. Don't
solve this but help me out with suggestions on how to process the block of
next. Here is an example of the dhcpd.leases file. The problem is you could
have 20 different leases for a user depending on how far back the log file
goes.
lease 192.168.XXX.XXX {
starts 1 2004/01/05 13:02:10;
ends 1 2004/01/05 13:12:10;
binding state active;
next binding state free;
hardware ethernet XXX;
uid "\001\000\003G\241\031\037";
client-hostname "Agullifer";
}
lease 192.168.XXX.XXX {
starts 1 2004/01/05 13:02:20;
ends 1 2004/01/05 13:12:20;
binding state active;
next binding state free;
hardware ethernet XXX;
uid "[EMAIL PROTECTED]";
client-hostname "ROBIN";
}
Paul Kraus
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
