_SERVERS.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();}
1;
sub _SERVERS {
    my $input = shift || "";
    print "  _SERVERS($input)\n" if $DEBUG > 0;
    if (uc($input) eq "NOW") {$input = &getDate() . "-" . &getTime();}
    if (uc($input) eq "DT") {$input = &getDate();}
    if (uc($input) eq "TM") {$input = &getTime();}
    my $INTERNAL="";
    if (uc($input) =~ /INT:/) {
        print "  INTERNAL\n";
        $INTERNAL="TRUE";
        $input =~ s/^INT://g;
    }