Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

40 lines
1.0 KiB

$NtTree = $ENV{ "_NTPostBld" };
# quick parse the command line
undef( $AppendMode );
foreach $Argument ( @ARGV ) {
if ( $Argument =~ /[\/\-]a/i ) {
$AppendMode = ">";
} else {
print( "Unrecognized option '$Argument', exiting.\n" );
exit( 1 );
}
}
$InputFile = "$NtTree\\build_logs\\bindiff1.txt";
$OutputFile = "$NtTree\\build_logs\\bindiff.txt";
unless ( open( INFILE, $InputFile ) ) {
print( "Failed to open '$InputFile' for reading, exiting.\n" );
exit( 1 );
}
@InfileLines = <INFILE>;
close( INFILE );
print( "DEBUG: $AppendMode>$OutputFile\n" );
unless ( open( OUTFILE, "$AppendMode>$OutputFile" ) ) {
print( "Failed to open '$OutputFile' for writing, exiting.\n" );
exit( 1 );
}
# now parse out the interesting lines
foreach $Line ( @InfileLines ) {
chomp( $Line );
if ( $Line =~ /\-\- / ) { next; }
( $Junk, $Junk, $FileName, $Junk ) = split( /\s+/, $Line );
print( OUTFILE "$FileName\n" );
}
close( OUTFILE );
exit( 0 );