#!/usr/local/bin/perl

# show everything that's down, and not in override.

use CGI qw(:standard);

my (%override,%down);

foreach my $object (split /\n/, `argusctl ovlist`){
        $override{$object} = 1;
}


foreach my $object (split /\n/, `argusctl getchildrenparam object=Top param=status`){
        next if($object =~ /:\s+up$/);
        $object =~ s/:\s+.*//;
        next if(exists($override{$object}));
        $down{$object} = 1;
}

while(my ($key,$value) = each %down){
        print "kv: $key => $value\n";
}
