mirror of
https://github.com/fwbuilder/fwbuilder
synced 2026-09-11 07:31:25 +02:00
19 lines
313 B
Perl
Executable File
19 lines
313 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
$XMLFILE=@ARGV[0];
|
|
|
|
|
|
while (<>) {
|
|
$str=$_;
|
|
while ( $str=~ /<Firewall / ) {
|
|
$str=~ /<Firewall [^>]+name="([^"]*).*$"/;
|
|
$fw=$1;
|
|
printf "\n";
|
|
printf "echo '******* $fw'\n";
|
|
printf "fwb_ipf -v -f $XMLFILE -xt $fw\n";
|
|
$str=~ s/^.*<Firewall [^>]+name="$fw"[^>]+>//;
|
|
}
|
|
}
|
|
|
|
|