NAME
IPDevice::CiscoRouter::Accesslist
SYNOPSIS
use IPDevice::CiscoRouter::Accesslist;
my $acl = new IPDevice::CiscoRouter::Accesslist;
$acl->set_id(10);
$acl->add_entry('permit', '192.168.0.0/22', '20', '24');
DESCRIPTION
This module provides routines for storing informations regarding a Cisco accesslist entry.
CONSTRUCTOR AND METHODS
new([%args])
Object constructor. Valid arguments:
id: The accesslist number.
set_name($id)
Set the accesslist name.
get_name()
Returns the accesslist number.
set_description($id)
Set the accesslist description.
get_description()
Returns the accesslist description.
add_entry($permitdeny, @fields)
Adds a new entry to the accesslist. Returns TRUE on success, otherwise FALSE.
foreach_entry($func, %data)
Walks through the ACL calling the function $func for every ACL statement. Args passed to $func are:
$aclentry: The IPDevice::CiscoRouter::AccesslistEntry. %data: The given data, just piped through.
If $func returns FALSE, list evaluation will be stopped.
COPYRIGHT
Copyright (c) 2004 Samuel Abels. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHOR
Samuel Abels <spam debain org>