#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH2;

my @sites = (191..240);
my $ip = "205.205.38.70";
my $iface = 'ethernet0/0';
my $port = 2222;
my $user = 'netscreen';
my $pass = 'xxxx';

foreach my $site (@sites) {
 my $ssh2 = Net::SSH2->new();

 $site = $site . ".tpxinc.com";
 print "Starting site $site..\n";

 $ssh2->connect($site, $port) || warn $!;

 if ($ssh2->auth_password($user, $pass)) {
  my $chan2 = $ssh2->channel();
  $chan2->blocking(0);
  $chan2->shell();

  print $chan2 "set nsmgmt server primary $ip src-interface $iface\n";
  print $chan2 "set nsm server primary $ip src-interface $iface\n";
  print $chan2 "set snmp community traffipax Read-Only trap-off version v2c\n";
  print $chan2 "set snmp host traffipax $ip 255.255.255.255 src-interface ethernet0/0 trap v2\n";
  print $chan2 "exit\n";
  print $chan2 "y\n";

  $chan2->close;
  select(undef,undef,undef,.5);

  print "Finished site $site.\n\n";
 } else {
  warn "auth failed.\n";
 }
}