#!/usr/local/bin/perl

use Getopt::Std;

use NBU;

my %opts;
getopts('d', \%opts);

NBU->debug($opts{'d'});

print NBU->me->name." is part of this cluster of NetBackup servers:\n";
for my $s (NBU->servers) {
  print " ".$s->name."(".$s->NBUVersion.")\n";
}

print "Where";
for my $s (NBU->masters) {
  print " ".$s->name;
}
print " acts as master and job notifications are ";
print !defined(NBU->adminAddress) ? "not sent out" : "sent to ".NBU->adminAddress;
print "\nMaximum ".NBU->maxJobsPerClient." jobs per client\n";
print "\n";