mirror of https://github.com/tongzx/nt5src
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.
24 lines
484 B
24 lines
484 B
$rootdir = $ARGV[0];
|
|
$lastbuild = 0;
|
|
|
|
if ( ! $rootdir )
|
|
{
|
|
print "Usage: GetLastBuildDir.pl <Parent Archive Directory>\n";
|
|
}
|
|
else
|
|
{
|
|
if ( ! opendir( INPUTDIR, $rootdir ) )
|
|
{
|
|
print "Error opening directory $rootdir: $!\n";
|
|
}
|
|
else
|
|
{
|
|
while( $dir = readdir( INPUTDIR ) )
|
|
{
|
|
( $dir =~ /Build(\d+.*)/ ) && ( $1 > $lastbuild ) && ( $lastbuild = $1 );
|
|
}
|
|
closedir INPUTDIR;
|
|
print "Last build = $lastbuild\n";
|
|
}
|
|
}
|
|
exit $lastbuild;
|