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.
 
 
 
 
 
 

61 lines
1.4 KiB

@rem ='
@echo off
REM ------------------------------------------------------------------
REM
REM <<template_script.cmd>>
REM <<purpose of this script>>
REM
REM Copyright (c) Microsoft Corporation. All rights reserved.
REM
REM ------------------------------------------------------------------
perl -x "%~f0" %*
goto :EOF
rem ';
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use ParseArgs;
use IO::File;
use SymDelegate;
use Logmsg;
my ($FileName, $DDFDir, $Type, $DestDir);
parseargs(
'?' => \&Usage,
'f:' => \$FileName,
's:' => \$DDFDir,
't:' => \$Type,
'd:' => \$DestDir
);
logmsg("Calling SymCab()");
&SymCab;
sub SymCab {
logmsg("Attempting to chdir ($DDFDir)");
chdir($DDFDir);
if ( -e $DDFDir && -d $DDFDir ) {
logmsg("chdir was successful ($DDFDir)");
} else {
logmsg("chdir was failed ($DDFDir)");
}
if (uc$Type eq 'CAT') {
logmsg("Starting $FileName\.CAT");
system("makecat -n -v $DDFDir\\$FileName\.CDF > $DDFDir\\$FileName\.CAT\.LOG");
system("copy $DDFDir\\$FileName\.CAT $DestDir\\$FileName\.CAT");
} else {
logmsg("Starting $FileName\.CAB");
system("makecab.exe /f $DDFDir\\$FileName\.DDF > $DDFDir\\$FileName\.CAB\.LOG");
}
}
sub mymsg {
my ($fh, $msg);
logmsg $msg . "\n";
print $fh $msg . "\n";
}