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_id($id)
Set the accesslist number. (INTEGER)
get_id()
Returns the accesslist number. (INTEGER)
add_entry($permitdeny, @fields)
Adds a new entry to the accesslist. Returns TRUE on success, otherwise FALSE.
for_each($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>