_SETUP.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SETUP();}
1;
sub _SETUP {
    my $SVR_TYPE;
    &_SETUP_LIC("PDM");
    &_SETUP_PDM();              # Everyone gets PDM
    &_REFRESH_TOOL();
    
    my %APP_LIST = (
        #("PDM"      => "Setup PDM   Tool Only"),           THIS IS ALWAYS INSTALLED
        ("USD"      => "Setup PDM   w/Unicenter Service Desk (USD)"),
        ("UAPM"     => "Setup PDM   w/Unicenter Asset Mgmt (UAPM)"),
        ("AP"       => "Setup PDM   w/Automation Point (AP)")
    );
    my %INS_APP;
    if (uc($MODE) eq "CRON") {
        if (scalar(keys %LICS) <= 0) {&_FH_LICS("LOAD");}
        %INS_APP = map {$_ => ""} &_SHOW_HASH_AS_ARRAY("INT,APP!=PDM,APP",%LICS);
    } else {
        print "  **************************************************\n";
        print "  **       Welcome to PDM Application Setup!      **\n";
        print "  **************************************************\n";
        my %LIST = reverse(%APP_LIST);
        %INS_APP = &fromHASH(%LIST);
        %INS_APP = reverse(%INS_APP);

    }