1*b1cdbd2cSJim Jagielski#************************************************************** 2*b1cdbd2cSJim Jagielski# 3*b1cdbd2cSJim Jagielski# Licensed to the Apache Software Foundation (ASF) under one 4*b1cdbd2cSJim Jagielski# or more contributor license agreements. See the NOTICE file 5*b1cdbd2cSJim Jagielski# distributed with this work for additional information 6*b1cdbd2cSJim Jagielski# regarding copyright ownership. The ASF licenses this file 7*b1cdbd2cSJim Jagielski# to you under the Apache License, Version 2.0 (the 8*b1cdbd2cSJim Jagielski# "License"); you may not use this file except in compliance 9*b1cdbd2cSJim Jagielski# with the License. You may obtain a copy of the License at 10*b1cdbd2cSJim Jagielski# 11*b1cdbd2cSJim Jagielski# http://www.apache.org/licenses/LICENSE-2.0 12*b1cdbd2cSJim Jagielski# 13*b1cdbd2cSJim Jagielski# Unless required by applicable law or agreed to in writing, 14*b1cdbd2cSJim Jagielski# software distributed under the License is distributed on an 15*b1cdbd2cSJim Jagielski# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*b1cdbd2cSJim Jagielski# KIND, either express or implied. See the License for the 17*b1cdbd2cSJim Jagielski# specific language governing permissions and limitations 18*b1cdbd2cSJim Jagielski# under the License. 19*b1cdbd2cSJim Jagielski# 20*b1cdbd2cSJim Jagielski#************************************************************** 21*b1cdbd2cSJim Jagielski 22*b1cdbd2cSJim Jagielski 23*b1cdbd2cSJim Jagielski 24*b1cdbd2cSJim Jagielskipackage installer::windows::language; 25*b1cdbd2cSJim Jagielski 26*b1cdbd2cSJim Jagielskiuse installer::exiter; 27*b1cdbd2cSJim Jagielski 28*b1cdbd2cSJim Jagielski#################################################### 29*b1cdbd2cSJim Jagielski# Determining the Windows language (LCID) 30*b1cdbd2cSJim Jagielski# English: 1033 31*b1cdbd2cSJim Jagielski#################################################### 32*b1cdbd2cSJim Jagielski 33*b1cdbd2cSJim Jagielskisub get_windows_language 34*b1cdbd2cSJim Jagielski{ 35*b1cdbd2cSJim Jagielski my ($language) = @_; 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim Jagielski my $windowslanguage = ""; 38*b1cdbd2cSJim Jagielski 39*b1cdbd2cSJim Jagielski if ( $installer::globals::msilanguage->{$language} ) { $windowslanguage = $installer::globals::msilanguage->{$language}; } 40*b1cdbd2cSJim Jagielski 41*b1cdbd2cSJim Jagielski if ( $windowslanguage eq "" ) { installer::exiter::exit_program("ERROR: Unknown language $language in function get_windows_language", "get_windows_language"); } 42*b1cdbd2cSJim Jagielski 43*b1cdbd2cSJim Jagielski return $windowslanguage; 44*b1cdbd2cSJim Jagielski} 45*b1cdbd2cSJim Jagielski 46*b1cdbd2cSJim Jagielski#################################################### 47*b1cdbd2cSJim Jagielski# Determining the Windows language ANSI-Codepage 48*b1cdbd2cSJim Jagielski# English: 1252 49*b1cdbd2cSJim Jagielski#################################################### 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim Jagielskisub get_windows_encoding 52*b1cdbd2cSJim Jagielski{ 53*b1cdbd2cSJim Jagielski my ($language) = @_; 54*b1cdbd2cSJim Jagielski 55*b1cdbd2cSJim Jagielski my $windowsencoding = ""; 56*b1cdbd2cSJim Jagielski 57*b1cdbd2cSJim Jagielski if ( $installer::globals::msiencoding->{$language} ) { $windowsencoding = $installer::globals::msiencoding->{$language}; } 58*b1cdbd2cSJim Jagielski 59*b1cdbd2cSJim Jagielski # if ( $windowsencoding eq "" ) { installer::exiter::exit_program("ERROR: Unknown language $language in function get_windows_encoding", "get_windows_encoding"); } 60*b1cdbd2cSJim Jagielski if ( $windowsencoding eq "" ) { $windowsencoding = "0"; } # setting value, if the language is not listed in the encodinglist 61*b1cdbd2cSJim Jagielski 62*b1cdbd2cSJim Jagielski if ( $windowsencoding eq "0" ) { $windowsencoding = "65001"; } # languages with "0" have to be available in UTF-8 (65001) 63*b1cdbd2cSJim Jagielski 64*b1cdbd2cSJim Jagielski # Asian multilingual installation sets need a code neutral Windows Installer database -> $windowsencoding = 0 65*b1cdbd2cSJim Jagielski if (( $language eq "en-US" ) && (( $installer::globals::product =~ /suitemulti/i ) || ( $installer::globals::product =~ /officemulti/i ) || ( $installer::globals::product =~ /c05office/i ) || ( $installer::globals::added_english ))) { $windowsencoding = "0"; } 66*b1cdbd2cSJim Jagielski 67*b1cdbd2cSJim Jagielski return $windowsencoding; 68*b1cdbd2cSJim Jagielski} 69*b1cdbd2cSJim Jagielski 70*b1cdbd2cSJim Jagielski1;