282 lines
9.1 KiB
Perl
282 lines
9.1 KiB
Perl
#
|
|
# This file is part of the LibreOffice project.
|
|
#
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
#
|
|
# This file incorporates work covered by the following license notice:
|
|
#
|
|
# Licensed to the Apache Software Foundation (ASF) under one or more
|
|
# contributor license agreements. See the NOTICE file distributed
|
|
# with this work for additional information regarding copyright
|
|
# ownership. The ASF licenses this file to you under the Apache
|
|
# License, Version 2.0 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
#
|
|
|
|
package installer::windows::assembly;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use installer::files;
|
|
use installer::globals;
|
|
use installer::worker;
|
|
use installer::windows::idtglobal;
|
|
|
|
##############################################################
|
|
# Returning the first module of a file from the
|
|
# comma separated list of modules.
|
|
##############################################################
|
|
|
|
sub get_msiassembly_feature
|
|
{
|
|
my ( $onefile ) = @_;
|
|
|
|
my $module = "";
|
|
|
|
if ( $onefile->{'modules'} ) { $module = $onefile->{'modules'}; }
|
|
|
|
# If modules contains a list of modules, only taking the first one.
|
|
|
|
if ( $module =~ /^\s*(.*?)\,/ ) { $module = $1; }
|
|
|
|
# Attention: Maximum feature length is 38!
|
|
installer::windows::idtglobal::shorten_feature_gid(\$module);
|
|
|
|
return $module;
|
|
}
|
|
|
|
##############################################################
|
|
# Returning the component of a file.
|
|
##############################################################
|
|
|
|
sub get_msiassembly_component
|
|
{
|
|
my ( $onefile ) = @_;
|
|
|
|
my $component = "";
|
|
|
|
$component = $onefile->{'componentname'};
|
|
|
|
return $component;
|
|
}
|
|
|
|
##############################################################
|
|
# Returning the file name as manifest file
|
|
##############################################################
|
|
|
|
sub get_msiassembly_filemanifest
|
|
{
|
|
my ( $onefile ) = @_;
|
|
|
|
my $filemanifest = "";
|
|
|
|
$filemanifest = $onefile->{'uniquename'};
|
|
|
|
return $filemanifest;
|
|
}
|
|
|
|
##############################################################
|
|
# Returning the file application
|
|
##############################################################
|
|
|
|
sub get_msiassembly_fileapplication
|
|
{
|
|
my ( $onefile ) = @_;
|
|
|
|
my $fileapplication = "";
|
|
|
|
return $fileapplication;
|
|
}
|
|
|
|
##############################################################
|
|
# Returning the file attributes
|
|
##############################################################
|
|
|
|
sub get_msiassembly_attributes
|
|
{
|
|
my ( $onefile ) = @_;
|
|
|
|
my $fileattributes = "";
|
|
|
|
if ( $onefile->{'Attributes'} ne "" ) { $fileattributes = $onefile->{'Attributes'}; }
|
|
|
|
return $fileattributes;
|
|
}
|
|
|
|
####################################################################################
|
|
# Creating the file MsiAssembly.idt dynamically
|
|
# Content:
|
|
# Component_ Feature_ File_Manifest File_Application Attributes
|
|
# s72 s38 S72 S72 I2
|
|
# MsiAssembly Component_
|
|
####################################################################################
|
|
|
|
sub create_msiassembly_table
|
|
{
|
|
my ($filesref, $basedir) = @_;
|
|
|
|
$installer::globals::msiassemblyfiles = installer::worker::collect_all_items_with_special_flag($filesref, "ASSEMBLY");
|
|
|
|
my @msiassemblytable = ();
|
|
|
|
installer::windows::idtglobal::write_idt_header(\@msiassemblytable, "msiassembly");
|
|
|
|
# Registering all libraries listed in $installer::globals::msiassemblyfiles
|
|
|
|
for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
|
|
{
|
|
my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
|
|
|
|
my %msiassembly = ();
|
|
|
|
$msiassembly{'Component_'} = get_msiassembly_component($onefile);
|
|
$msiassembly{'Feature_'} = get_msiassembly_feature($onefile);
|
|
$msiassembly{'File_Manifest'} = get_msiassembly_filemanifest($onefile);
|
|
$msiassembly{'File_Application'} = get_msiassembly_fileapplication($onefile);
|
|
$msiassembly{'Attributes'} = get_msiassembly_attributes($onefile);
|
|
|
|
my $oneline = $msiassembly{'Component_'} . "\t" . $msiassembly{'Feature_'} . "\t" .
|
|
$msiassembly{'File_Manifest'} . "\t" . $msiassembly{'File_Application'} . "\t" .
|
|
$msiassembly{'Attributes'} . "\n";
|
|
|
|
push(@msiassemblytable, $oneline);
|
|
}
|
|
|
|
# Saving the file
|
|
|
|
my $msiassemblytablename = $basedir . $installer::globals::separator . "MsiAssem.idt";
|
|
installer::files::save_file($msiassemblytablename ,\@msiassemblytable);
|
|
my $infoline = "Created idt file: $msiassemblytablename\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
}
|
|
|
|
####################################################################################
|
|
# Creating the file MsiAssemblyName.idt dynamically
|
|
# Content:
|
|
# Component_ Name Value
|
|
# s72 s255 s255
|
|
# MsiAssemblyName Component_ Name
|
|
####################################################################################
|
|
|
|
sub create_msiassemblyname_table
|
|
{
|
|
my ($filesref, $basedir) = @_;
|
|
|
|
my @msiassemblynametable = ();
|
|
|
|
installer::windows::idtglobal::write_idt_header(\@msiassemblynametable, "msiassemblyname");
|
|
|
|
for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
|
|
{
|
|
my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
|
|
|
|
my $component = get_msiassembly_component($onefile);
|
|
my $oneline = "";
|
|
|
|
# Order: (Assembly)name, publicKeyToken, version, culture.
|
|
|
|
if ( $onefile->{'Assemblyname'} )
|
|
{
|
|
$oneline = $component . "\t" . "name" . "\t" . $onefile->{'Assemblyname'} . "\n";
|
|
push(@msiassemblynametable, $oneline);
|
|
}
|
|
|
|
if ( $onefile->{'PublicKeyToken'} )
|
|
{
|
|
$oneline = $component . "\t" . "publicKeyToken" . "\t" . $onefile->{'PublicKeyToken'} . "\n";
|
|
push(@msiassemblynametable, $oneline);
|
|
}
|
|
|
|
if ( $onefile->{'Version'} )
|
|
{
|
|
$oneline = $component . "\t" . "version" . "\t" . $onefile->{'Version'} . "\n";
|
|
push(@msiassemblynametable, $oneline);
|
|
}
|
|
|
|
if ( $onefile->{'Culture'} )
|
|
{
|
|
$oneline = $component . "\t" . "culture" . "\t" . $onefile->{'Culture'} . "\n";
|
|
push(@msiassemblynametable, $oneline);
|
|
}
|
|
|
|
if ( $onefile->{'ProcessorArchitecture'} )
|
|
{
|
|
$oneline = $component . "\t" . "processorArchitecture" . "\t" . $onefile->{'ProcessorArchitecture'} . "\n";
|
|
push(@msiassemblynametable, $oneline);
|
|
}
|
|
}
|
|
|
|
# Saving the file
|
|
|
|
my $msiassemblynametablename = $basedir . $installer::globals::separator . "MsiAsseN.idt";
|
|
installer::files::save_file($msiassemblynametablename ,\@msiassemblynametable);
|
|
my $infoline = "Created idt file: $msiassemblynametablename\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
|
|
}
|
|
|
|
####################################################################################
|
|
# setting an installation condition for the assembly libraries saved in
|
|
# @installer::globals::msiassemblynamecontent
|
|
####################################################################################
|
|
|
|
sub add_assembly_condition_into_component_table
|
|
{
|
|
my ($filesref, $basedir) = @_;
|
|
|
|
my $componenttablename = $basedir . $installer::globals::separator . "Componen.idt";
|
|
my $componenttable = installer::files::read_file($componenttablename);
|
|
my $changed = 0;
|
|
my $infoline = "";
|
|
|
|
for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
|
|
{
|
|
my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
|
|
|
|
my $filecomponent = get_msiassembly_component($onefile);
|
|
|
|
for ( my $j = 0; $j <= $#{$componenttable}; $j++ )
|
|
{
|
|
my $oneline = ${$componenttable}[$j];
|
|
|
|
if ( $oneline =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)\t(.*)/ )
|
|
{
|
|
my $component = $1;
|
|
my $componentid = $2;
|
|
my $directory = $3;
|
|
my $attributes = $4;
|
|
my $condition = $5;
|
|
my $keypath = $6;
|
|
|
|
if ( $component eq $filecomponent )
|
|
{
|
|
# setting the condition
|
|
|
|
$condition = "MsiNetAssemblySupport >= \"4.0.0.0\"";
|
|
$oneline = $component . "\t" . $componentid . "\t" . $directory . "\t" . $attributes . "\t" . $condition . "\t" . $keypath . "\n";
|
|
${$componenttable}[$j] = $oneline;
|
|
$changed = 1;
|
|
$infoline = "Changing $componenttablename :\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
$infoline = $oneline;
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ( $changed )
|
|
{
|
|
# Saving the file
|
|
installer::files::save_file($componenttablename ,$componenttable);
|
|
$infoline = "Saved idt file: $componenttablename\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
}
|
|
}
|
|
|
|
1;
|