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
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" );
|
|
|
|
}
|
|
|