mirror of
https://github.com/fwbuilder/fwbuilder
synced 2026-03-22 11:17:31 +01:00
5ef36c5a52
* All policy compilers: using FWObjectDatabase::createClass methods to create rules and other objects in compilers wherever the type is known at the (code) compile time. This makes code cleaner and speeds it up a little because of eliminated cast() and string comparison. * changes in libfbuilder: eliminated excessive use of dynamic_cast and long chains of "if" comparing object type names in FWObjectDatabase in methods that create new objects of given type.
18 lines
349 B
Perl
Executable File
18 lines
349 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
$XMLFILE=@ARGV[0];
|
|
|
|
|
|
while (<>) {
|
|
$str=$_;
|
|
while ( $str=~ /<Firewall / ) {
|
|
$str=~ /<Firewall [^>]+name="([^"]*).*$"/;
|
|
$fw=$1;
|
|
printf "echo ====================== $fw =========================================\n";
|
|
printf "fwb_pix -v -f $XMLFILE $fw \n";
|
|
$str=~ s/^.*<Firewall [^>]+name="$fw"[^>]+>//;
|
|
}
|
|
}
|
|
|
|
|