_TRACER.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_TRACER();}
1;
sub _TRACER {
    my $tracer_flag = 0;
    my $th_file = $SYS . $SLASH . ".pdm_tracer";
    my $tu_file = $SYS . $SLASH . ".pdm_tracer_user";
    my $ts_file = $SYS . $SLASH . ".pdm_tracer_size";
    my $tw_file = $SYS . $SLASH . ".pdm_tracer_watch";
    my @ON_LIST;
    my @OFF_LIST;
    %TRACER       = &readHASH_File($th_file);
    %TRACER_USER  = &readHASH_File($tu_file);
    %TRACER_SIZE  = &readHASH_File($ts_file);
    %TRACER_WATCH = &readHASH_File($tw_file);
    foreach my $tkey(sort keys %TRACER) {
        print "T:$tkey == %TRACER{$tkey}\n";
    }