#!/usr/bin/perl -w
use strict;
use File::Tail;

my $file = File::Tail->new(
		name =>'/var/log/dhcpd.log', 
		interval => 1, 
		maxinterval => 1, 
		resetafter=> 5, 
		);





  while (defined(my $line=$file->read)) {
 		print $line,"\n"; 
                if ($line =~ /^(.*) mdz-shaper1 dhcpd: DHCPACK on ([0-9\.]+) to ([[:xdigit:]:]+).* ([0-9\.]+)/) {
                        my ($date,$client_ip,$client_mac,$master_ip) = ($1,$2,$3,$4);


                system "sed -i '/$client_mac/d' /opt/btb_webservice/ver3/lease_list.txt";
                if(($client_ip)&&($client_mac)&&($master_ip)){
              system 'echo "'.$date.' '. $client_ip.' '.$client_mac.' '. $master_ip.'"'.' >> /opt/btb_webservice/ver3/lease_list.txt';
                }
        }

}
1;