Source code of Windows XP (NT5)
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.
 
 
 
 
 
 

84 lines
2.8 KiB

#
# updtnum.pl
#
# Author: MikeCarl
#
# Written: 11-12-1999
#
# Abstract:
# updtnum.pl will examine a specified file and update the build version
# information located in it. the file will look something like
# BUILDDATE=1999-11-12-2300
# which means the current build is the build begun at 11pm on 11/12/1999.
# the current file is set to %_NTBINDIR%\__blddate__
#
# simple test for usage
if ( @ARGV > 0 ) {
print( "\n" );
print( "updtnum.pl\n\n" );
print( " updtnum.pl takes no arguments, and will examine the file\n" );
print( " %_NTBINDIR%\\__blddate__. It will increment the daily build\n" );
print( " number, or if a new day has arrived, update the day and\n" );
print( " reset the daily build number to zero.\n\n" );
exit( 1 );
}
#define our defaults
$BldDateFileName = "__blddate__";
# set the full path to the root
$BldDateFileFullPath = "$ENV{'_NTBINDIR'}\\$BldDateFileName";
# get the current date
( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
localtime( time );
# perl docs _claim_ that the year has 1900 subtracted from it,
# so add 1900 to the year
if ($year >= 100) {
$year -= 100;
}
# also note that $mon is 0..11, but i've chosen to add 1 when it's used below.
# don't ask me why.
# finally, if the hour/minute/month is less than 10, put a zero in front of it.
if ( ($year) < 10 ) { $DateString .= "0"; }
$DateString .= $year;
if ( ($mon+1) < 10 ) { $DateString .= "0"; }
$DateString .= ($mon + 1);
if ( $mday < 10 ) { $DateString .= "0"; }
$DateString .= $mday . "-";
if ( $hour < 10 ) { $DateString .= "0"; }
$DateString .= $hour;
if ( $min < 10 ) { $DateString .= "0"; }
$DateString .= $min;
unless ( open( OUTFILE, ">$BldDateFileFullPath" ) ) {
print( "Cannot open $BldDateFileFullPath for writing, exiting.\n" );
exit( 1 );
}
if( (lc("$ENV{_BuildBranch}") eq lc("lab06_n")) && (-f "$ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__lb06dat__") ) {
print( OUTFILE "BUILDDATE=", `type $ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__lb06dat__` );
close( OUTFILE );
unlink "$ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__lb06dat__";
exit( 0 );
}
if( (lc("$ENV{_BuildBranch}") eq lc("lab07_n")) && (-f "$ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__lb07dat__") ) {
print( OUTFILE "BUILDDATE=", `type $ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__lb07dat__` );
close( OUTFILE );
exit( 0 );
}
if( (lc("$ENV{_BuildBranch}") eq lc("jasbr")) && (-f "$ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__jasbrdat__") ) {
print( OUTFILE "BUILDDATE=", `type $ENV{_NTBINDIR}\\developer\\$ENV{USERNAME}\\__jasbrdat__` );
close( OUTFILE );
exit( 0 );
}
print( OUTFILE "BUILDDATE=$DateString" );
# uncomment the next line if you want a \n in the _blddate.h file
# print( OUTFILE "\n" );
close( OUTFILE );
exit( 0 );