#!/usr/bin/perl

use lib qw(blib lib);
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Data::Dumper;
use Opsware::NAS::Client;
use Net::Ping;
use POSIX qw(strftime);
#use TrueControlAPI;

my($user,$pass,$host) = ('na_admin', 'na4adm1n', 'localhost');
my $help = 0;

my $nas = Opsware::NAS::Client->new();
my $res = $nas->login(-user => $user, -pass => $pass, -host => $host, -nosession => '0');

print " \n";

#$res = $nas->show_configlet(host => "dev1", start => "snmp-server host", end => "!");

$res = $nas->show_configlet(host => "dev2", start => "snmp-server host", end => "!");


#$res = $nas->show_deviceinfo(ip => '10.253.74.70');


unless ($res->ok()) {
  printf STDERR ("*** error: %s\n", $res->error_message());
  exit(1);
}

print (Dumper([$res->result()]), "\n\n");

my $result_1;
for (split /(?<=\n)/, $res->result()) {
    next unless /^\Qsnmp-server host\E/;
    $result_1 .= $_;
}
print "---Result 1---\n$result_1\n\n";

my $result_2;
for (split /(?<=\n)/, $res->result()) {
    next unless /^\Qsnmp-server\E/;
    s/^((?:\S+\s+){3})\S+/${1}Bob/;
    $result_2 .= $_;
}
print "---Result 2---\n$result_2\n\n";