hpobjects.pl

#!/usr/bin/perl                                                                                                    
 
use strict;
use warnings;

my %address;
my %service;
while (<>) {
  next unless $. > 1;
  chomp;
  my @csv = split(/,/);
  my ($trf_port, $trf_protocol, $l2) = ($csv[5], $csv[4], $csv[3]);
  $address{$trf_port} = 1;
  $address{$trf_protocol} = 1;
  $service{$l2} = 1;
}

print "config firewall address\n";
foreach ( keys %address ) {
    if ($_ =~ /swp-(.*)/) {
        print "  edit \"$_\"\n";
        print "    set subnet $1 255.255.255.255\n";
        print "  next\n";
    }
}
print "end\n";

print "config firewall service custom\n";
foreach ( keys %service ) {
    if ($_ =~ /(tcp|udp)-(.*)/) {
        print "  edit \"$_\"\n";
        print "    set $1-portrange $2\n";
        print "  next\n";
    }
}
print "end\n";