File Coverage

blib/lib/Text/DHCPparse.pm

Criterion	Covered	Total	%
statement	6	40	15.0
branch	0	28	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	74	10.8

package Text::DHCPparse;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(leaseparse leaseparsenc);

$VERSION = '0.10';

sub leaseparse {
   my $logfile = shift;
   my ( %list, $ip );
   open FILE, $logfile or die;

   while () {
      next if /^#|^$/;
      if (/^lease (\d+\.\d+\.\d+\.\d+)/) {
         $ip = $1;
         $list{$ip} = sprintf("%-17s", $ip);
      }
      /^\s*hardware ethernet (.*);/ && ($list{$ip} .= sprintf("%-19s", $1));
      /^\s*starts \d (.*);/ && ($list{$ip} .= sprintf("%-21s", $1));
      /^\s*(abandoned).*/ && ($list{$ip} .= sprintf("%-19s", $1));
      /^\s*client-hostname "(.*)";/ && ($list{$ip} .= sprintf("%-17s", $1));
   }

   close FILE;

   # make all entries 74 characters long to format properly
   foreach (keys %list) {
      #$list{$_} = sprintf("%-74s", $list{$_}) if (length$list{$_} < 76);
      $list{$_} = sprintf("%-74.74s", $list{$_});
   }

   return \%list;
}

sub leaseparsenc {
# Same as leaseparse, but no colons in MAC and field is 5 characters shorter
   my $logfile = shift;
   my ( %list, $ip );
   open FILE, $logfile or die;

   while () {
      next if /^#|^$/;
      if (/^lease (\d+\.\d+\.\d+\.\d+)/) {
         $ip = $1;
         $list{$ip} = sprintf("%-17s", $ip);
      }
      if ( /^\s*hardware ethernet (.*);/) {
         (my $mac =  $1) =~ s/://g;
         $list{$ip} .= sprintf("%-14s", $mac);
      }
      /^\s*starts \d (.*);/ && ($list{$ip} .= sprintf("%-21s", $1));
      /^\s*(abandoned).*/ && ($list{$ip} .= sprintf("%-14s", $1));
      /^\s*client-hostname "(.*)";/ && ($list{$ip} .= sprintf("%-17s", $1));
   }

   close FILE;

   # make all entries 69 characters long to format properly
   foreach (keys %list) {
      #$list{$_} = sprintf("%-69s", $list{$_}) if (length$list{$_} < 76);
      $list{$_} = sprintf("%-69.69s", $list{$_});
   }

   return \%list;
}

1;
__END__