The Perl Advent Calendar needs more articles for 2022. Submit your idea today!

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>