NAME

Parse::CPinfo - Perl extension to parse output from cpinfo

SYNOPSIS

  use Parse::CPinfo;
  my $p = Parse::CPinfo->new();
  $p->readfile('cpinfofile');

  # print the section containing the fwm version string 
  print $p->getSection('FireWall-1 Management (fwm) Version Information');

  # Get a list of interfaces
  my @l = $p->getInterfaceList();

  foreach my $int(@l) {
      print "Interface $int\n";
          print "IP Address: " . $int->{'inetaddr'} . "\n";
  }

DESCRIPTION

This module parses the output from cpinfo. cpinfo is a utility provided by Check Point Software, used for diagnostic purposes.

SUBROUTINES/METHODS

The following are the object methods:

new

Create a new parser object like this: my $p = Parse::CPinfo->new();

readfile

After creating the parser object, ask it to read the cpinfo file for you: $parser->readfile('/full/path/to/cpinfofile');

getSectionList

Use this method to get a list of valid sections. Returns an array.

getSection

Use this method to get a section of the cpinfo file. Returns a scalar.

getHostname

Use this method to get the hostname of the server. Returns a scalar.

getInterfaceList

Use this method to get a list of the active interfaces. Returns an array.

getInterfaceInfo

Use this method to get information about a specific interface. Takes a scalar (interface name) and returns a hash.

SEE ALSO

Check Point Software Technologies, Ltd., at http://www.checkpoint.com/

AUTHOR

Matthew M. Lange, <mmlange@cpan.org>

BUGS AND LIMITATIONS

This library hasn't been extensively tested. I'm sure there are bugs in the code. Please file a bug report at http://rt.cpan.org/ if you find a bug.

LICENSE AND COPYRIGHT

Copyright (C) 2007 by Matthew M. Lange

This library is released under the GNU Public License.