use warnings;
use strict;
##
## Sherlock v0.1 written 040409:1650 by BJP
##
## Sherlock, given a hostname, can determine if that host is known to netbackup.
##
## Usage:  sherlock.pl <hostname>
##


if ( @ARGV != 1) {
    print "\n\nUsage:  sherlock.pl <hostname>\n";
    print "Example: sherlock.pl cistest\n\n";
    exit 1;
    }

print "\nSherlock: Starting up..\n";

if ( $ARGV[ 0 ] =~ s/^b_// ) {
    print "Sherlock: Stripping off the \"b_\" prefix temporarily..\n";
    }

print "Sherlock: Checking to see if NetBackup knows about $ARGV[0]..\n";

my @results = `/usr/openv/netbackup/bin/bpclntcmd -pn -hn $ARGV[0] 2>&1 `;    ## For some reason, this command will dump ordinary status information to stderr versus stdout, hence the gag suffix on the command.


for my $item ( @results ) {
    chomp $item;

    if ( $item =~ /TRY_AGAIN/ ) {
        print "Sherlock: Bad news. NetBackup does not recognize $ARGV[0] as a valid peer name under its care.\n";
        print "Sherlock: Test results: FAIL\n";
        print "Sherlock: Exiting..\n\n";
        exit 2;
        }

    next if $item !~ /0x/;
    print
        "Sherlock: Good news! NetBackup recognizes $ARGV[0] as a valid client and peer name.\n",
        "Sherlock: Details: $item\n";

    my $clientName = $ARGV[ 0 ];

    my @history = `/usr/openv/netbackup/bin/bpclimagelist -t ANY -client $clientName`;
    dumpHistory( @history ) if @history;

    print
        "Sherlock: A check of the backup logs for this client shows nothing so far.. Still searching..\n",
        "Sherlock: This time, let's try again using a \"b_\" prefix on the hostname and see what happens..\n";

    $clientName = "b_$ARGV[0]";

    @history = `/usr/openv/netbackup/bin/bpclimagelist -t ANY -client $clientName`;
    dumpHistory( @history ) if @history;
    print "Sherlock: I'm still not seeing anything for this host. Hmmm.. Maybe it's a Wintel box? Lets try that..\n";

    $clientName = $ARGV[ 0 ];

    @history = `/usr/openv/netbackup/bin/bpclimagelist -t ANY -client $clientName -ct 5`;
    dumpHistory( @history ) if @history;
    print "Sherlock: No luck.. I'm not seeing anything on it. Trying again, assuming it's a Wintel box AND \"b_\" prefixed..\n";

    $clientName = "b_$ARGV[0]";

    @history = `/usr/openv/netbackup/bin/bpclimagelist -t ANY -client $clientName -ct 5`;
    dumpHistory( @history ) if @history;
    print
        "Sherlock: Still no luck. This box needs to be checked manually.\n",
        "Sherlock: Test results: FAIL\n",
        "Sherlock: Exiting..\n\n";
    }

sub dumpHistory {
    print "Sherlock: Ahhh, there we go. Results! This host appears to have a backup history..\n";
    for my $item ( @_ ) {
        chomp $item;
        print "Sherlock: $item\n";
        }

    print
        "Sherlock: Test results: PASSED\n",
        "Sherlock: Exiting..\n\n";
    exit;
    }