_SERVERS_HELP.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SERVERS_HELP();}
1;
sub _SERVERS_HELP {
    my $HelpMsg = "  PDM_SERVERS  \n";
    $HelpMsg   .= "  -----------  \n";
    $HelpMsg   .= "  In summary: pdm_servers will keep a list of server(s)   \n";
    $HelpMsg   .= "  KEY:" . $SERVERS{"${HAG}hKeyMask"} . "   \n";
    $HelpMsg   .= "  --------------------------------------------------------------------------------   \n";

    if (uc($USER_ACCESS) =~ /ADMIN/) {
        $HelpMsg   .= "  VAL:" . $SERVERS{"${HAG}hValMask"} . "   \n";
        $HelpMsg   .= "  To manage the server list, use: 'pdm_servers setup' ~ follow the prompts   \n";
        $HelpMsg   .= "  \n";
    }