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.
 
 
 
 
 
 

136 lines
3.8 KiB

@REM -----------------------------------------------------------------
@REM
@REM dbgeula.cmd - BarbKess
@REM script for putting localized eulas into dbg*.msi
@REM
@REM Copyright (c) Microsoft Corporation. All rights reserved.
@REM
@REM -----------------------------------------------------------------
@perl -x "%~f0" %*
@goto :EOF
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use File::Basename;
use PbuildEnv;
use ParseArgs;
use Logmsg;
use A2U;
BEGIN {
# A2u is setting itself as the script_name
$ENV{SCRIPT_NAME} = 'dbgeula.cmd';
}
sub Usage { print<<USAGE; exit(1) }
dbgeula -m <MsiFile> -e <EulaFile> -b <Lg>
-m <MsiFile> MSI File
-e <EulaFile> Eula to insert in RTF format
-b <Lg> Language - necessary for BiDi
Updates the msi file with the localized eula
USAGE
# global switches/values set on the command line
my ( $MsiFile, $EulaFile, $Lg );
parseargs('?' => \&Usage,
'm:' => \$MsiFile,
'e:' => \$EulaFile,
'b:' => \$Lg
);
# Global Variables
my( $LogFileName );
my( $TempDir );
my( $RazPath );
# call into the Main sub, too much indentation to make this
# toplevel right now
&Main();
sub Main {
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# Begin Main code section
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# Return when you want to exit on error
# <Implement your code here>
$Logmsg::DEBUG = 0; # set to 1 to activate logging of dbgmsg's
$LogFileName = $ENV{ "LOGFILE" };
$TempDir = $ENV{ "TMP" };
if ( ! defined( $LogFileName ) ) {
$LogFileName = "$TempDir\\$0.log";
}
$RazPath= $ENV{ "RazzleToolPath" };
timemsg( "Beginning ...", $LogFileName );
logmsg( "Updating eula in $MsiFile" );
# Copy the msi file over to the destination directory
if ( not -e $MsiFile ) {
errmsg( "$MsiFile does not exist" );
}
# Replace all of the \r\n's in the eula.rtf with nothing
system( qq(rep.exe "\\r\\n" "" $EulaFile ) );
# Export the control table to the temporary directory
system( "cscript $RazPath\\wiexport.vbs \/\/nologo $MsiFile $TempDir Control" );
# Copy the Control table to Control.idt.old
system( "copy $TempDir\\Control.idt $TempDir\\Control.idt.old" );
system( "del \/f \/q $TempDir\\Control.idt" );
# Fix the control table
my ( $Line );
my ( $fh_in );
unless ( $fh_in = new IO::File $TempDir . "\\Control.idt.old", "r" ) {
errmsg( "Failed to open $TempDir\\Control.idt.old for read" );
return;
}
my( $fh_out );
unless ( $fh_out = new IO::File $TempDir . "\\Control.idt", "w" ) {
errmsg( "Failed to open $TempDir\\Control.idt for write" );
return;
}
my ( $eula_in );
unless ( $eula_in = new IO::File $EulaFile, "r" ) {
errmsg( "Failed to open $EulaFile for read" );
return;
}
my( $ReplaceLine );
$ReplaceLine = <$eula_in>;
my( $IdentifyLine );
$IdentifyLine = "LicenseDialog\\sLicense\\sScrollableText";
while ( $Line = <$fh_in> ) {
chomp( $Line );
if ( $Line =~ /$IdentifyLine/) {
my( @myData );
my @myData = split(/\t/, $Line);
$myData[7] |= 224 if $Lg =~ /(ara?)|(heb?)/i;
$Line = join("\t", @myData[0..8],
$ReplaceLine,
@myData[10..$#myData], undef);
}
print( $fh_out "$Line\n" );
}
undef( $fh_in );
undef( $fh_out );
# Import the control table to the msi file
system( "cscript $RazPath\\wiimport.vbs \/\/nologo $MsiFile $TempDir Control.idt" );
}