#!/usr/bin/perl

$XMLFILE=@ARGV[0];


while (<>) {
  $str=$_;
  while ( $str=~ /<Firewall / ) {
    $str=~ /<Firewall [^>]+name="([^"]*).*$"/;
    $fw=$1;
    printf "\n";
    printf "echo '***** $fw'\n";
    printf "fwb_ipt -v -f $XMLFILE -xt $fw\n";
    $str=~ s/^.*<Firewall [^>]+name="$fw"[^>]+>//;
  }
}