77 lines
3.6 KiB
Perl
77 lines
3.6 KiB
Perl
sub joe_comp {
|
|
### Where to send the uncompressed file.
|
|
$dest = "\\\\ntburnlab2";
|
|
#$dest = "d:";
|
|
|
|
system "title [JOECOMP]";
|
|
|
|
### Strip any unnecessary characters from the build number.
|
|
$loc = "L" if $build =~ /.*(L).*/i;
|
|
$build =~ s/^(\d{4})\S*(L?)\S*/$1$2/i;
|
|
#$build = "$build$loc";
|
|
|
|
### Clean out old builds
|
|
opendir JOEDIR, "$dest\\joehol\\compare\\$lang" or print "Could not open $dest\\joehol\\compare\\$lang: $!\n";
|
|
@joefiles = grep !/^\.\.?$/, readdir JOEDIR;
|
|
close JOEDIR;
|
|
|
|
foreach $joedir ( @joefiles ) {
|
|
if ( -d "$dest\\joehol\\compare\\$lang\\$joedir" ) {
|
|
if ( $lang =~ /USA/i ) {
|
|
execute "start /min cmd /c \"title [JOECOMP] Removing $dest\\joehol\\compare\\$lang\\$joedir && rd /s /q $dest\\joehol\\compare\\$lang\\$joedir\n" if -M "$dest\\joehol\\compare\\$lang\\$joedir\"" > 2;
|
|
} else {
|
|
execute "start /min cmd /c \"title [JOECOMP] Removing $dest\\joehol\\compare\\$lang\\$joedir && rd /s /q $dest\\joehol\\compare\\$lang\\$joedir\n" if -M "$dest\\joehol\\compare\\$lang\\$joedir\"" > 7;
|
|
}
|
|
}
|
|
}
|
|
|
|
### Where did we copy this build to?
|
|
if ( !$drive ) {
|
|
if ( $loc ) {
|
|
$drive = "D:"
|
|
} else {
|
|
( $daily, $drive ) = bs_drive( $build );
|
|
}
|
|
}
|
|
|
|
foreach $product ( @products ) {
|
|
$prod = "$prod $product";
|
|
|
|
foreach $platform ( 'x86' ) {
|
|
if ( $platform =~ /x86/i ) { $platdir = "i386"; }
|
|
else { $platdir = $platform; }
|
|
|
|
print "Expanding $build $drive\\$lang\\$proddir{$product}\\$platform to $dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}. Do not close this window.";
|
|
system "TITLE [JEOCOMP] Expanding $build $drive\\$lang\\$proddir{$product}\\$platform to $dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}. Do not close this window.";
|
|
|
|
foreach $make_dir ( "$dest\\joehol\\logs",
|
|
"$dest\\joehol\\compare",
|
|
"$dest\\joehol\\compare\\$lang",
|
|
"$dest\\joehol\\compare\\$lang\\$build",
|
|
"$dest\\joehol\\compare\\$lang\\$build\\$platform",
|
|
"$dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}"
|
|
) {
|
|
execute "md $make_dir\n" unless -e $make_dir;
|
|
}
|
|
|
|
execute "
|
|
copy /y $drive\\$lang\\$proddir{$product}\\$platform\\$platdir\\driver.cab $dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}
|
|
expand -r $drive\\$lang\\$proddir{$product}\\$platform\\$platdir\\*.* $dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}
|
|
if exist $drive\\$lang\\$proddir{$product}\\$platform\\$platdir\\lang\\*.* expand -r $drive\\$lang\\$proddir{$product}\\$platform\\$platdir\\lang\\*.* $dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}
|
|
";
|
|
|
|
foreach $lplang ( 'ara', 'chs', 'cht', 'heb', 'ind', 'jpn', 'kor', 'tha' ) {
|
|
execute "expand -r $drive\\$lang\\$proddir{$product}\\$platform\\$platdir\\lang\\$lplang\\*.* $dest\\joehol\\compare\\$lang\\$build\\$platform\\$proddir{$product}\n";
|
|
}
|
|
}
|
|
|
|
sendudp( "KEEBLER", "Finished uncompressing $build $lang $product CD tree(s) to $dest\\joehol\\compare\\$lang\\$build" );
|
|
}
|
|
|
|
# sendudp( "KEEBLER", "Finished uncompressing $build $lang [$products ] CD tree(s) to $dest\\joehol\\compare\\$lang\\$build" );
|
|
exit;
|
|
}
|
|
|
|
return 1;
|
|
|