Select Code to Download

Select or download this

my ($db,$killswitch,$configDepth,$hostname)  #default values
=  (0  ,0          ,-1          ,''); 
...

if( $configDepth == -1){ print $0.' requires the -d switch with a dept
+h value.'.$cr; die; }
if( $hostname == ''   ){ print $0.' requires the -H with a hostname or
+ comma-seperated list of hostnames.'.$cr; die;}

Select or download this

 $>traverse.pl -v -H WSTM0165815 -d=1
C:\depot\code\util\pl\traverse.pl requires the -H with a hostname or c
+omma-seperated list of hostnames.
Died at C:\depot\code\util\pl\traverse.pl line 34.