#!/usr/bin/perl 

print <<EOH;

route entry 1.0.0.1
route 1.0.0.1 link 1.0.0.0/24

create router
set router personality "Cisco 7206 running IOS 11.1(24)"
set router default tcp action reset

EOH

foreach my $os (qw(debian solaris)) {
   print "create $os\n";
   for (my $i=0; $i < 65536; $i++) {
      foreach my $proto (qw(tcp udp)) {
         print "add $os $proto port $i \"perl bportmapd --proto $proto --host hosts/$os --srcip \$ipsrc --dstip \$ipdst --srcport \$srcport --dstport \$dport --logfile /tmp/log --logall\"\n";
      }
   }
}

print <<EOH;

bind 1.0.0.1 router
bind 1.0.0.2 solaris
bind 1.0.0.3 debian

EOH
