Text::DHCPLeases::Object(3pm) User Contributed Perl Documentation Text::DHCPLeases::Object(3pm)
NAME
Text::DHCPLeases::Object - Leases Object Class
SYNOPSIS
my $obj = Text::DHCPLeases::Object->parse($string);
or
my $obj = Text::DHCPLeases::Object->new(%lease_data);
print $obj->name; print $obj->type; print $obj->binding_state;
DESCRIPTION
DHCPLeases object class. Lease objects can be one of the following types:
lease
host
group
subgroup
failover-state
CLASS METHODS
new - Constructor
Arguments:
type one of (lease|host|group|subgroup|failover-state)
name identification string (address, host name, group name, etc)
ip_address
fixed_address
starts
ends
tstp
tsfp
atsfp
cltt
next_binding_state
binding_state
uid
client_hostname
abandoned (flag)
deleted (flag)
dynamic_bootp (flag)
dynamic (flag)
option_agent_circuit_id
option_agent_remote_id
hardware_type
mac_address
set (hash)
on (hash)
bootp (flag)
reserved (flag)
my_state
my_state_date
partner_state
partner_state_date
mclt
dns_rev_name
ddns_fwd_name
ddns_txt
Returns:
New Text::DHCPLeases::Object object
Examples:
my $lease = Text::DHCPLeases::Object->new(type => 'lease',
ip_address => '192.168.1.10',
starts => '3 2007/08/15 11:34:58',
ends => '3 2007/08/15 11:44:58');
parse - Parse object declaration
Arguments:
Array ref with declaration lines Returns:
Hash reference.
Examples:
my $text = '
lease 192.168.254.55 {
starts 3 2007/08/15 11:34:58;
ends 3 2007/08/15 11:44:58;
tstp 3 2007/08/15 11:49:58;
tsfp 2 2007/08/14 21:24:19;
cltt 3 2007/08/15 11:34:58;
binding state active;
next binding state expired;
hardware ethernet 00:11:85:5d:4e:11;
uid "