25 lines
535 B
Perl
25 lines
535 B
Perl
#!/bin/perl
|
|
|
|
open FILE, "<running.txt";
|
|
@running=<FILE>;
|
|
close FILE;
|
|
|
|
|
|
#ip access-list extended <NR/NAME>
|
|
#ip access-list standard <NR/NAME>
|
|
#access-list <NR>
|
|
|
|
#config durchlaufen und context merken - letzte zeile ohne " " am zeilenanfang.
|
|
#ip access-group <NR/NAME> in/out
|
|
|
|
#access-class <NR/NAME> in/out
|
|
|
|
#ip nat xxxxxxxxxxxxxxxxxxx list <NAME>
|
|
|
|
#match ip address <NR/NAME \prefix-lists>
|
|
|
|
# Konfigurierte ACL finden
|
|
foreach (@running) {
|
|
chomp;
|
|
if (/ip access-list extended ([0-9a-zA-Z]*) /) {
|
|
|