26 lines
802 B
Perl
26 lines
802 B
Perl
require 'isolang.pl';
|
|
use Cwd;
|
|
|
|
$nttree = $ENV{ '_NTTREE' };
|
|
$TempDir = $ENV{ 'TMP' };
|
|
$BootFlopTemp = $TempDir . "\\bootflop";
|
|
|
|
mkdir $BootFlopTemp, 1 if not -e $BootFlopTemp;
|
|
|
|
### Need to get date for floppy timestamp.
|
|
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
|
|
= localtime(time);
|
|
|
|
$TimeStamp = sprintf( "%0.2d/%d/%0.2d,12:00:00", $mon+1, $mday, $year + 1900 );
|
|
|
|
$HomeDir = cwd();
|
|
|
|
foreach $ProdTree ( 'WKS', 'SRV', 'ENT', 'DTC' ) {
|
|
### Build the images
|
|
for ( $x = 0; $x < 4; $x++ ) {
|
|
chdir "$nttree\\congeal_scripts\\$ProdTree";
|
|
system sprintf "fcopy -f -3 $TimeStamp -lW2\U$ProdTree\EB%d_$iso_lang{$language} \@b%d.txt $BootFlopTemp\\_disk%d.$ProdTree", $x + 1, $x, $x + 1;
|
|
chdir $HomeDir;
|
|
}
|
|
}
|