_WSP_MODS.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_WSP_MODS();}
1;
sub _WSP_MODS {
    my %RET_WSP;
    my $wspMods = $ROOTS{"NXROOT"} . $SLASH . "site" . $SLASH . "mods" . $SLASH . "majic" . $SLASH . "wsp.mods";
    if (! -f $wspMods ) {
        print "  Unable to locate WSP File! ( $wspMods )\n";
        return;
    }
    open (WSPFH,"< $wspMods");
    my $ln=0;
    while (<WSPFH>) {
        my $line = $_;
        chomp($line);
        next if ($line =~ /\/.*/);
        next if ($line eq "");
        $ln++;
        printf "  WSP(%0.4d):%-s\n",$ln,$line;
    }
    close(WSPFH);
}