windows-server-2003/tools/timebuild.pl

# FileName: timebuild.pl
#
# Have any changes to this file reviewed by DavePr, BryanT, or WadeLa
# before checking in.
# Any changes need to verified in all standard build/rebuild scenarios.
#
# Reads in the commands from commandfile, and executes them with system() -- recording
# the elapsed times on the standard output.
# Echo and timing can be supressed by prepending '@'.
# The magic 'CHECKFATAL' command can be used to end a script if the previous command failed.
# If commandfile is not specified, uses a canned list of commands.
#
# Note:  ':' can be used instead of '=' in command line arguments, since '=' is a separator to cmd.exe
#

# WARNING:
# WARNING:  make sure pathname comparisons are case insensitive.  Either convert the case or do the
# WARNING:  comparisons like this:
# WARNING:     if ($foo =~ /^\Q$bar\E$/i) {}
# WARNING: or  if ($foo !~ /^\Q$bar\E$/i) {}
# WARNING:

# use appropriate pm files
use lib $ENV{ "RazzleToolPath" } . "\\PostBuildScripts";
use cookie;

#
# Default cmdlist
# Enclose in single quotes, unless getting tricky with parameters
#
# Note that RESUME and STOPAFTERBUILD are referenced in the code.
#
@ValidFlagList = ("NOSYNC", "NOPOSTBUILD", "STOPAFTERBUILD", "RELEASE", "NOSCORCH", "NOCLEANBUILD", "CHECKSYNC");

$Usage = $PGM . "Usage: timebuild.pl\n"
              . "          [-]\n"
              . "          [-START=[[YY]MMDD-]HH[:]MM[(a|p)]    - specify a time to start the commands (start => revision time to use)\n"
              . "          [-START=+[HH[:]MM]]                  - specify a delay before starting commands\n"
              . "          [-RESUME]                            - start-up again after the build step\n"
              . "          [-STOPAFTERBUILD]                    - stop commands right after the build step\n"
              . "          [-NOSYNC]                            - do not sync/resolve\n"
              . "          [-NOSCORCH]                          - do not run scorch\n"
              . "          [-NOCLEANBUILD]                      - don't use -c with build\n"
              . "          [-NOPOSTBUILD]                       - skip the postbuild step\n"
              . "          [-NOCOOKIE]                          - ignore synchronization against concurrent timebuilds\n"
              . "          [-COVERBUILD]                        - produce one build with coverage-enabled files\n"
              . "          [-COVERBUILDONLY]                    - [REMOVED] same as COVERBUILD\n"
              . "          [-RELEASE]                           - release the build (automatic on build machines)\n"
              . "          [-REVISION=<sdrevision>]             - SD file revision to use (\@yyyy/mm/dd:hh:ss or \#rev -- see sd help revisions)\n"
              . "          [commandfile | - ]                   - instead of built-in commands use file or stdin\n\n";

#
# Conditional execution based on either ValidFlagList (specified on command line) or environment variables.
#
@cmdlist = (
    '                @echo Running <<timebuild>>',
    '=%OFFICIAL_BUILD_MACHINE             ECHO This is an OFFICIAL BUILD MACHINE!',
    '=%OFFICIAL_BUILD_MACHINE=PRIMARY     ECHO Publics will be published if timebuild succeeds.',
    '                @if EXIST <<fixederr>> del <<fixederr>>',
    '=NOSYNC         @echo SKIPPING sync/resolve',

    '=NOSYNC         SUCCESS',       # set current result code to 0

    '!NOSYNC         revert_public.cmd',
    '=CHECKSYNC      CHECKWARN      perl %sdxroot%\Tools\sendbuildstats.pl -warn -m revert_public failed',
    '=NOSCORCH       @echo SKIPPING scorch',
    '!NOSCORCH       nmake -lf makefil0 scorch_source',
    '!NOSCORCH       CHECKWARN      perl %sdxroot%\Tools\sendbuildstats.pl -warn -m scorch failed see %sdxroot%\build.scorch',
    '!NOSYNC         sdx sync <<timestamp>> -q -h > build.changes 2>&1',
    '=CHECKSYNC      CHECKWARN      perl %sdxroot%\Tools\sendbuildstats.pl -warn -m sdx sync failed',
    '!NOSYNC         sdx resolve -af',
    '=CHECKSYNC      CHECKWARN      perl %sdxroot%\Tools\sendbuildstats.pl -warn -m sdx resolve failed',
    '!NOSYNC         perl %sdxroot%\Tools\ChangesToFiles.pl build.changes > build.changedfiles 2>&1',
    '!NOSYNC         @echo BUILDDATE=<<BUILDDATE_timestamp>> > __blddate__',

#   '                sdx delta > build.baseline',

    '!NOCLEANBUILD   build -cZP',
    '=NOCLEANBUILD   @echo NOT BUILDING CLEAN',
    '=NOCLEANBUILD   build -ZP',
    '                CHECKBUILDERRORS',
    '                CHECKFATAL      perl %sdxroot%\Tools\sendbuildstats.pl -too -buildfailure',
    'RESUME',
    '=RESUME         ECHO Resuming timebuild after build step.',
    '=RESUME         ECHO Resuming timebuild after build step. >> build.changes',

#   '=RESUME         ECHO The following changes have been made since the build was started. >> build.changes',
#   '=RESUME         perl %sdxroot%\Tools\DetermineChanges.pl build.baseline >> build.changes',
#   '=RESUME         perl %sdxroot%\Tools\ChangesToFiles.pl build.changes > build.changedfiles 2>&1',

    '=STOPAFTERBUILD QUIT TIMEBUILD stopping after build, use /RESUME to continue.',
    '                perl %sdxroot%\Tools\PopulateFromVBL.pl -verbose -checkbinplace -force',
    '                CHECKFATAL',
    '!NOPOSTBUILD    postbuild',
    '!NOPOSTBUILD    CHECKFATAL      perl %sdxroot%\tools\sendbuildstats.pl -postbuildfailure',
    '=RELEASE        perl %RazzleToolPath%\PostBuildScripts\release.pl -nd',
    '!NOPOSTBUILD    perl %sdxroot%\tools\sendbuildstats.pl -successful',
    '=NOPOSTBUILD    ECHO SKIPPING postbuild',
    'ECHO Finished Timing Build'
);

if ($ENV{'BUILD_OFFLINE'} eq "1") { @cmdlist = (
    '                @echo Running <<timebuild>>',
    '                @if EXIST <<fixederr>> del <<fixederr>>',
    '=NOSYNC         @echo SKIPPING sync/resolve',
    '=NOSCORCH       @echo SKIPPING scorch',
    '!NOCLEANBUILD   build -cZP',
    '=NOCLEANBUILD   @echo NOT BUILDING CLEAN',
    '=NOCLEANBUILD   build -ZP',
    '                CHECKBUILDERRORS',
    '                CHECKFATAL',
#   '                CHECKFATAL      perl %sdxroot%\Tools\sendbuildstats.pl -fb;',
    'RESUME',
    '=RESUME         ECHO Resuming timebuild after build step.',
    '=RESUME         ECHO Resuming timebuild after build step. >> build.changes',
#   '=RESUME         ECHO The following changes have been made since the build wsa started. >> build.changes',
#   '=RESUME         perl %sdxroot%\Tools\DetermineChanges.pl build.baseline >> build.changes',
    '=STOPAFTERBUILD QUIT TIMEBUILD stopping after build, use /RESUME to continue.',
#   '                perl %sdxroot%\Tools\PopulateFromVBL.pl -verbose -checkbinplace -force',
    '                CHECKFATAL',
    '!NOPOSTBUILD    postbuild',
    '!NOPOSTBUILD    CHECKFATAL',
#    '!NOPOSTBUILD    CHECKFATAL      perl %sdxroot%\tools\sendbuildstats.pl -fpb',
    '=RELEASE        perl %RazzleToolPath%\PostBuildScripts\release.pl -nd',
#    '!NOPOSTBUILD    perl %sdxroot%\tools\sendbuildstats.pl -s',
    '=NOPOSTBUILD    ECHO SKIPPING postbuild',
    'ECHO Finished Timing Build'
);
}


for (@ValidFlagList) {
    $ValidFlag{lc $_} = 1;
}

$TimeLogFileName = "build.time";
$ChangeLogFileName = "build.changes";
$TimeHistFileName = "build.timehistory";
$BuildErrorFileName = "build.err";
$BuildCheckFileName = "build.fixed-err";
$CookieSleepDuration = 60;

$cmdvar{fixederr} = $BuildCheckFileName;

#
# Debug routines for printing out variables
#
sub gvar {
    for (@_) {
        print "\$$_ = $$_\n";
    }
}

#
# print on the various files
#
sub printall {
    print TIMELOGFILE @_;
    print TIMEHISTFILE @_;
    print $PGM  unless @_ == 1 and $_[0] eq "\n";
    print @_;
}

sub printfall {
    printf TIMELOGFILE @_;
    printf TIMEHISTFILE @_;
    print  $PGM  unless @_ == 1 and $_[0] eq "\n";
    printf @_;
}

#
# Sub hms
# Takes Argument time in seconds and returns as list of (hrs, mins, secs)
#
sub hms {
    $s = shift @_;
    $h = int ($s / 3600);
    $s -= 3600*$h;
    $m = int ($s / 60);
    $s -= 60*$m;

    return ($h, $m, $s);
}

#
# Sub toseconds
# Takes Argument time string and returns how many seconds from now.
# Balks at negative time, or time greater than a week.
# Returns 0 on error.  Any valid time returns at least 1 second.
# Flavors of time specs:
#   +MM
#   +HH:MM
#   HH:MM
#   HH:MMa
#
sub toseconds {
    my($y,  $M,  $d,  $h,  $m, $s, $mday, $wday, $yday, $isdst);
    my($delta, $now, $then, $th, $tm, $ampm);

    my($arg) = $_[0];

    ($s, $m, $h, $mday, $M, $y, $wday, $yday, $isdst) = localtime;
    $y += 1900;
    $M += 1;
    $mday += 1;

         if ($arg =~ /^\+(\d+)$/i) {
                $delta = $1;

    } elsif ($arg =~ /^\+(\d+)\:(\d{1,2})$/i) {
                $delta = $1 * 60 + $2;

    } elsif ($arg =~ /^(\d{1,2})\:(\d{1,2})([ap]m{0,1}){0,1}$/i
         or  $arg =~ /^(\d\d)(\d\d)([ap]m{0,1}){0,1}$/i) {
                $th = $1;
                $tm = $2;
                $ampm = $3;

                return -1  if $ampm and ($th == 0 or $th > 12);

                if ($ampm =~ /^pm{0,1}$/i) {
                    $th += 12  if $th < 12;
                } else {
                    $th = 0    if $th == 12;
                }
                $now   = $h  *60 + $m;
                $then  = $th *60 + $tm;
                $then += (24 *60)        if ($now > $then);

                $delta = $then - $now;

    } else {
                $delta = -1;
    }

    return $delta * 60  if $delta > 0;      # convert to seconds
    return      1       if $delta == 0;     # minimum valid wait
    return      0       if $delta < 0;      # error
}



#
# Initialization
#

$PGM='TIMEBUILD: ';
$cmdvar{timebuild} = "TIMEBUILD";

$TimeLogFileSpec  = ">"  . $TimeLogFileName;
$TimeHistFileSpec = ">>" . $TimeHistFileName;

open TIMELOGFILE, $TimeLogFileSpec  or  die  $PGM, "Could not open: ", $TimeLogFileName, "\n";
open TIMEHISTFILE, $TimeHistFileSpec  or  die  $PGM, "Could not open: ", $TimeHistFileName, "\n";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;

$foo = sprintf "Timed Build script started at %04d/%02d/%02d-%02d:%02d:%02d.\n",
                            1900+$year, 1+$mon, $mday, $hour, $min, $sec;
printall "\n";
printall $foo;

$begintime = time();

#
# Assume we're setting the build date.
#
$ENV{"BUILD_DATE_SET"} = 1;

#
# Make sure NT_SIGNCODE is off as it disables most of the postbuild changes.
#

$ENV{"NT_SIGNCODE"} = "";

#
# Process and validate arguments
#

$CommandFile   = 0;
$DoResume      = 0;
$ResumeTag     = "";
$Verbose       = 0;
$Fake          = 0;
$WaitSeconds   = 0;
$NoCookie      = 0;
$Revision      = "";

for (@ARGV) {
    if (/^[\-\/]{0,1}\?$/i)              { die $Usage; }
    if (/^[\-\/]help$/i)           { die $Usage; }
    if (/^[\-\/]resume$/i)         { $DoResume++; $ResumeTag = "";   next; }
    if (/^[\-\/]resume[:=](.+)$/i) { $DoResume++; $ResumeTag = $1;   next; }
    if (/^[\-\/]revision[:=]([@#].+)$/i) { $Revision = $1;           next; }
    if (/^[\-\/]verbose$/i)        { $Verbose++;                     next; }
    if (/^[\-\/]fake$/i)           { $Fake++;                        next; }
    if (/^[\-\/]nocookie$/i)       { $NoCookie++;                    next; }

    if (/^[\-\/]start[:=](.+)$/i)  { $WaitSeconds = toseconds $1;
                                    die $PGM, "Invalid start time: ", $1, "\n"  unless $WaitSeconds;
                                    next;
                                   }

    #
    # Set the environment variables we need for producing a coverage build
    #
    if (/^[\-\/]coverbuild/i)      { 
        $ENV{"_COVERAGE_BUILD"} = 1;
        if (/^[\-\/]coverbuildonly$/i) { $ENV{"_COVERAGE_BUILD_ONLY"} = 1; }
            next;
    }

    #
    # We don't set the build date if this is a nosync build.
    #
    if (/^[\-\/]nosync/i)      { 
        $ENV{"BUILD_DATE_SET"} = "";
    }

    #
    # Flags can be used for things like -STOPAFTERBUILD
    #
    if (/^[\-\/](\S+)[:=](\S+)$/i) {
        $argkey = lc $1;
        $argval = lc $2;
        die $PGM, "Invalid option: ", $argkey, "\n", $Usage  unless $ValidFlag{$argkey};
        $Flags{$argkey} = $argval;
        next;
    }

    if (/^[\-\/](\S+)$/i) {
        $argkey = lc $1;
        die $PGM, "Invalid option: ", $argkey, "\n", $Usage  unless $ValidFlag{$argkey};
        $Flags{$argkey}++;
        next;
    }


    #
    # All that should be left is the commandfile (we only allow one).
    #
    die $Usage               if $CommandFile;

    $CommandFile = $_;
}


print $PGM, "Only Faking.\n"  if $Fake;

die $Usage if $DoResume > 1;

if ($CommandFile) {

    @cmdlist = ();

    open CMD, $CommandFile  or  die  $PGM, "Could not open command file: ", $CommandFile, "\n";
    for (<CMD>) {
        push @cmdlist, $_;
    }
    close CMD;

    print $PGM, 'Running commands from: ', $CommandFile, "\n";

} else {
    print $PGM, "Running default build commands.\n";
}

#
# Set up some global variables:  nttree
#
# Check the environmental assumptions.
#
# _nttree has to point at a directory containing build_logs
# no_binaries results in a warning
# VBL release has to be detectable
# VBL has to have binlist and binplace files.

#
# Get the current directory
#
open CWD, 'cd 2>&1|';
$CurrDir = <CWD>;
close CWD;
chomp $CurrDir;


$s = $ENV{'sdxroot'};
if (not $s) {
    printall "sdxroot not defined\n";
    exit 1;
}

if ($s !~ /^\Q$CurrDir\E$/i) {
    printall "ERROR: CD ($CurrDir) mismatch with sdxroot ($s)\n";
    exit 1;
}

$nttree = $ENV{'_NTTREE'};
if (not $nttree) {
    printall "_NTTREE not defined - Adding STOPAFTERBUILD to arg list\n";
    $Flags{"STOPAFTERBUILD"} = 1;
}

if (not $ENV{'USERNAME'} and not $ENV {'_NT_BUILD_DL'} and not $ENV {'OFFICIAL_BUILD_MACHINE'}) {
    printall "ERROR: Must be an official build machine, or set USERNAME or _NT_BUILD_DL in the environment\n";
    exit 1;
}

#        THIS IS STILL TODO

use File::Compare;

#
# Process the commands
#

#
# Calculate the build date value to write to __blddate__
#
$BuildDate     = "";
if ($Revision) {
   # For now, if they specified a revision, just use the current time/date for the build date
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time() + $WaitSeconds);
   $BuildDate = sprintf "%02d%02d%02d-%02d%02d", (1900+$year)%100, 1+$mon, $mday, $hour, $min;
}

#
# sleep if we were told /START=...
#

if ($WaitSeconds) {
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time() + $WaitSeconds);
    if ($sec < $WaitSeconds) {
        $WaitSeconds -= $sec;
        $sec = 0;
    }

    $foo = sprintf "Waiting to run commands until %04d/%02d/%02d-%02d:%02d:%02d.\n",
                                            1900+$year, 1+$mon, $mday, $hour, $min, $sec;
    printall $foo;
    sleep $WaitSeconds;

    #
    # yyyy/mm/dd:hh:mm:ss
    #
    if (not $Revision) {
        $Revision  = sprintf "@%04d/%02d/%02d:%02d:%02d", 1900+$year, 1+$mon, $mday, $hour, $min;
        $BuildDate = sprintf "%02d%02d%02d-%02d%02d", (1900+$year)%100, 1+$mon, $mday, $hour, $min;
    }

    #
    # reset the beginning time if we slept
    #
    $begintime = time();
}

if (not $Revision) {
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
   $Revision  = sprintf "@%04d/%02d/%02d:%02d:%02d", 1900+$year, 1+$mon, $mday, $hour, $min;
   $BuildDate = sprintf "%02d%02d%02d-%02d%02d", (1900+$year)%100, 1+$mon, $mday, $hour, $min;
}

$cmdvar{timestamp} = "$Revision";
$cmdvar{BUILDDATE_timestamp} = "$BuildDate";

printall "sdx sync revision: $Revision\n";

#
# do the cookie check, unless -nocookie
#
if ( $NoCookie == 0 ) {

    printall "Checking for other instances of timebuild ...\n";

    $CookieName = "timebuild." . $ENV{ "SDXROOT" };
    $CookieName =~ s/[\:\\]/\./g;

    $CheckCookie = "TRUE"; # loop variable to see if we've acquired the cookie
    while ( $CheckCookie eq "TRUE" ) {

	# attempt to acquire the cookie
	$CookieRC = &cookie::CreateCookieQuiet( $CookieName );

	if ( $CookieRC ) {
	    # we successfully created the cookie, we're the only instance of timebuild
	    printall "No other timebuilds running, continuing ...\n";
	    $CheckCookie = "FALSE";
	} else {
	    # someone else has the cookie, there is another instance of timebuild running.
	    printall "Other timebuilds are running, sleeping $CookieSleepDuration seconds ...\n";
	    sleep( $CookieSleepDuration );
	}
    }

}



$rc = 0;

for (@cmdlist) {
    chomp;

    s/\#.*$//;
    s/^\s+//;
    s/\s+$//;

    $skipchar = s/^\@//;

    #
    # replace any cmd variables
    #
    while (s/<<([^<]+)>>/$cmdvar{$1}/) {}

    #
    # Skip through the specified RESUME line
    #
    if (/^RESUME\s*/i) {
        if ($DoResume) {
            $DoResume = 0  if /^RESUME\s*(\Q$ResumeTag\E)$/i;
            $Flags{'resume'} = 1;
        }
        next;
    }
    next if $DoResume;

    #
    # Handle conditional execution of commands (before CHECKFATAL)
    #
    if (/^([!=])(\%{0,1})(\w+)%{0,1}\s*=(\S*)\s+(.*)$/i) {
        $argkey = lc $3;
        $argval = lc $4;

        $keyval = ($2 eq '%')? $ENV{$argkey} : $Flags{$argkey};
        $keyval = lc $keyval;

        printall ("Info: Picking up %$argkey%=$ENV{$argkey} from environment.\n") if $Verbose and !$Flags{$argkey} and $ENV{$argkey};

        next if $1 eq '=' and $keyval ne $argval;
        next if $1 eq '!' and $keyval eq $argval;
        $_ = $5;
    }
    elsif (/^([!=])(\%{0,1})(\w+)%{0,1}\s+(.*)$/i) {
        $argkey = lc $3;

        $keyval = ($2 eq '%')? $ENV{$argkey} : $Flags{$argkey};
        $keyval = lc $keyval;

        printall ("Info: Picking up %$argkey%=$ENV{$argkey} from environment.\n") if $Verbose and !$Flags{$argkey} and $ENV{$argkey};

        next if $1 eq '!' and $keyval;
        next if $1 eq '=' and not $keyval;
        $_ = $4;
    }

    #
    # SUCCESS - reset the current result code to 0
    #
    if (/^SUCCESS\s*$/i) {
        $rc = 0;
        next;
    }

    #
    # Handle CHECKBUILDERRORs
    # $rc is set to 0, and cmdlist parsing continues, if the
    # errors in the check build.err file matches those in build.err
    #
    if (/^CHECKBUILDERRORS\s*(.*)$/i) {
        next unless $rc;
        next unless -r $BuildCheckFileName;

        $foo = "Checking $BuildErrorFileName "
             .  "against $BuildCheckFileName...\n";
        printall $foo;

        $r = compare ($BuildErrorFileName, $BuildCheckFileName);
        if ($r) {
            $foo = "Comparison failed.  Build error will be fatal.\n";
            printall $foo;
        } else {
            #
            # No new build errors have occurred so reset $rc.
            #
            $foo = "Error file hasn't changed. Build errors ignored.\n";
            printall $foo;
            $rc = 0;
        }

        next;
    }

    #
    # Handle CHECKFATALs
    #
    if (/^CHECKFATAL\s*(.*)$/i) {
        $checkcommand = $1;

        if ($rc) {
            $foo = "Failure of last command is fatal.  Script aborted.\n";
            printall $foo;

            system "$checkcommand"  if $checkcommand;
            last;
        }
        next;
    }

    #
    # Handle CHECKWARNs (like CHECKFATALs, but not fatal).
    #
    if (/^CHECKWARN\s*(.*)$/i) {
        $checkcommand = $1;

        if ($rc) {
            $foo = "WARNING: Last command failed.\n";
            printall $foo;

            system "$checkcommand"  if $checkcommand;
        }
        next;
    }


    #
    # The built-in ECHO command
    #
    if (/^ECHO\s*(.*)$/i) {
        printall $1, "\n";
        next;
    }

    #
    # The built-in TESTFATAL command
    #
    if (/^TESTFATAL\s*(.*)$/i) {
        $rc = 1;

        printall $1, "\n";
        next;
    }


    #
    # The built-in QUIT command
    #
    if (/^QUIT\s*(.*)$/i) {
        printall "QUITTING: $1.\n";
        $rc = 0;
        last;
    }

    #
    # Run the command
    #
    printall "Running: $_\n"   unless $skipchar;

    $rc = 0;

    $then = time();
    $rc = system $_   unless $Fake;
    $now = time();

    if ($rc) {
        $foo = sprintf "FAILURE.  Returned 0x%x: %s\n", $rc, $_;
        printall $foo;
    }

    if (not $skipchar  and  not $Fake) {
        $t = $now - $then;
        ($h, $m, $s) = hms $t;
        printfall "Elapsed time: %5d seconds (%d:%02d:%02d) <%s>\n", $t, $h, $m, $s, $_;
    }
}

die $PGM, "Could not find RESUME <tag=$ResumeTag>\n"    if $DoResume;

if (not $Fake) {
    $t = time() - $begintime;
    ($h, $m, $s) = hms $t;
    printfall "Total Elapsed time: %5d seconds (%d:%02d:%02d)\n", $t, $h, $m, $s;
}


#
# Close the logfile and copy it into the binplace directory.
#
close TIMEHISTFILE;
close TIMELOGFILE;

$src = $TimeLogFileName;
$dst = $nttree . "\\build_logs\\";

if (not $Fake  and  -r $src  and  -d $dst  and  -w $dst) {
    $rc = system("xcopy /y $src $dst");
    if ($rc) {
        $foo = sprintf "Warning... could not copy %s to %s\n", $src, $dst;
        print $PGM, $foo;
    }
}

#
# Copy the sd change log to the binplace directory also.
#

$src = $ChangeLogFileName;

if (not $Fake  and  -r $src  and  -d $dst  and  -w $dst) {
    $rc = system("xcopy /y $src $dst");
    if ($rc) {
        $foo = sprintf "Warning... could not copy %s to %s\n", $src, $dst;
        print $PGM, $foo;
    }
}


exit $rc;