buildManualWinFiles.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &buildManualWinFiles();}
1;
sub buildManualWinFiles {
    my $line = $_[0];
    print "  W:$line\n" if $DEBUG > 0;
    my $to = $line;
    $to =~ s/NXROOT//g;
    $to =~ s/^\\//;
    $to =~ s/^\///;
    $to =~ s/\\/_-_/g;
    $to =~ s/\//_-_/g;
    $to = "\%COMPUTERNAME\%\\$to";
    $line =~ s/NXROOT/\%NXROOT\%/;
    my $get = "copy \"$line\" \"${to}\"";
    my $put = "copy \"$to\" \"$line\"";
    open (GT,">> $gwFile");
        print "  gw:  $get\n" if $DEBUG > 0;
        print GT "$get\n";
    close(GT);
    open (GT,">> $pwFile");
        print "  gp:  $put\n" if $DEBUG > 0;
        print GT "$put\n";
    close(GT);
}