#!/usr/bin/perl
#
# This is a sh wrapper around the NDCprocesses program, to try to
# diagnose startup problems when called from NetView.
#

#exec >/tmp/snmp_info.out 2>&1

$D = '/usr/mon';

print "`date` started. \n";
print "' ' \n";
print "'Environment:' \n";
system env ;
print "' ' \n";
print "'Args:' $* \n";
print "' ' \n";

$ENV{"D_NDCprocesses"} = 1;

chdir $D ;

system "NDCprocesses @ARGV";

sleep 1000 ;
print "`date` done. \n";