solenv/bin/modules/installer/windows/assembly.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::windows::assembly;
  20
  21 use installer::files;
  22 use installer::globals;
  23 use installer::worker;
  24 use installer::windows::idtglobal;
  25
  26 ##############################################################
  27 # Returning the first module of a file from the
  28 # comma separated list of modules.
  29 ##############################################################
  30
  31 sub get_msiassembly_feature
  32 {
  33     my ( $onefile ) = @_;
  34
  35     my $module = "";
  36
  37     if ( $onefile->{'modules'} ) { $module = $onefile->{'modules'}; }
  38
  39     # If modules contains a list of modules, only taking the first one.
  40
  41     if ( $module =~ /^\s*(.*?)\,/ ) { $module = $1; }
  42
  43     # Attention: Maximum feature length is 38!
  44     installer::windows::idtglobal::shorten_feature_gid(\$module);
  45
  46     return $module;
  47 }
  48
  49 ##############################################################
  50 # Returning the component of a file.
  51 ##############################################################
  52
  53 sub get_msiassembly_component
  54 {
  55     my ( $onefile ) = @_;
  56
  57     my $component = "";
  58
  59     $component = $onefile->{'componentname'};
  60
  61     return $component;
  62 }
  63
  64 ##############################################################
  65 # Returning the file name as manifest file
  66 ##############################################################
  67
  68 sub get_msiassembly_filemanifest
  69 {
  70     my ( $onefile ) = @_;
  71
  72     my $filemanifest = "";
  73
  74     $filemanifest = $onefile->{'uniquename'};
  75
  76     return $filemanifest;
  77 }
  78
  79 ##############################################################
  80 # Returning the file application
  81 ##############################################################
  82
  83 sub get_msiassembly_fileapplication
  84 {
  85     my ( $onefile ) = @_;
  86
  87     my $fileapplication = "";
  88
  89     return $fileapplication;
  90 }
  91
  92 ##############################################################
  93 # Returning the file attributes
  94 ##############################################################
  95
  96 sub get_msiassembly_attributes
  97 {
  98     my ( $onefile ) = @_;
  99
 100     my $fileattributes = "";
 101
 102     if ( $onefile->{'Attributes'} ne "" ) { $fileattributes = $onefile->{'Attributes'}; }
 103
 104     return $fileattributes;
 105 }
 106
 107 ####################################################################################
 108 # Creating the file MsiAssembly.idt dynamically
 109 # Content:
 110 # Component_    Feature_    File_Manifest   File_Application    Attributes
 111 # s72   s38 S72 S72 I2
 112 # MsiAssembly   Component_
 113 ####################################################################################
 114
 115 sub create_msiassembly_table
 116 {
 117     my ($filesref, $basedir) = @_;
 118
 119     $installer::globals::msiassemblyfiles = installer::worker::collect_all_items_with_special_flag($filesref, "ASSEMBLY");
 120
 121     my @msiassemblytable = ();
 122
 123     installer::windows::idtglobal::write_idt_header(\@msiassemblytable, "msiassembly");
 124
 125     # Registering all libraries listed in $installer::globals::msiassemblyfiles
 126
 127     for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
 128     {
 129         my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
 130
 131         my %msiassembly = ();
 132
 133         $msiassembly{'Component_'} = get_msiassembly_component($onefile);
 134         $msiassembly{'Feature_'} = get_msiassembly_feature($onefile);
 135         $msiassembly{'File_Manifest'} = get_msiassembly_filemanifest($onefile);
 136         $msiassembly{'File_Application'} = get_msiassembly_fileapplication($onefile);
 137         $msiassembly{'Attributes'} = get_msiassembly_attributes($onefile);
 138
 139         my $oneline = $msiassembly{'Component_'} . "\t" . $msiassembly{'Feature_'} . "\t" .
 140                         $msiassembly{'File_Manifest'} . "\t" . $msiassembly{'File_Application'} . "\t" .
 141                         $msiassembly{'Attributes'} . "\n";
 142
 143         push(@msiassemblytable, $oneline);
 144     }
 145
 146     # Saving the file
 147
 148     my $msiassemblytablename = $basedir . $installer::globals::separator . "MsiAssem.idt";
 149     installer::files::save_file($msiassemblytablename ,\@msiassemblytable);
 150     my $infoline = "Created idt file: $msiassemblytablename\n";
 151     push(@installer::globals::logfileinfo, $infoline);
 152 }
 153
 154 ####################################################################################
 155 # Creating the file MsiAssemblyName.idt dynamically
 156 # Content:
 157 # Component_    Name    Value
 158 # s72   s255    s255
 159 # MsiAssemblyName   Component_  Name
 160 ####################################################################################
 161
 162 sub create_msiassemblyname_table
 163 {
 164     my ($filesref, $basedir) = @_;
 165
 166     my @msiassemblynametable = ();
 167
 168     installer::windows::idtglobal::write_idt_header(\@msiassemblynametable, "msiassemblyname");
 169
 170     for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
 171     {
 172         my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
 173
 174         my $component = get_msiassembly_component($onefile);
 175         my $oneline = "";
 176
 177         # Order: (Assembly)name, publicKeyToken, version, culture.
 178
 179         if ( $onefile->{'Assemblyname'} )
 180         {
 181             $oneline = $component . "\t" . "name" . "\t" . $onefile->{'Assemblyname'} . "\n";
 182             push(@msiassemblynametable, $oneline);
 183         }
 184
 185         if ( $onefile->{'PublicKeyToken'} )
 186         {
 187             $oneline = $component . "\t" . "publicKeyToken" . "\t" . $onefile->{'PublicKeyToken'} . "\n";
 188             push(@msiassemblynametable, $oneline);
 189         }
 190
 191         if ( $onefile->{'Version'} )
 192         {
 193             $oneline = $component . "\t" . "version" . "\t" . $onefile->{'Version'} . "\n";
 194             push(@msiassemblynametable, $oneline);
 195         }
 196
 197         if ( $onefile->{'Culture'} )
 198         {
 199             $oneline = $component . "\t" . "culture" . "\t" . $onefile->{'Culture'} . "\n";
 200             push(@msiassemblynametable, $oneline);
 201         }
 202
 203         if ( $onefile->{'ProcessorArchitecture'} )
 204         {
 205             $oneline = $component . "\t" . "processorArchitecture" . "\t" . $onefile->{'ProcessorArchitecture'} . "\n";
 206             push(@msiassemblynametable, $oneline);
 207         }
 208     }
 209
 210     # Saving the file
 211
 212     my $msiassemblynametablename = $basedir . $installer::globals::separator . "MsiAsseN.idt";
 213     installer::files::save_file($msiassemblynametablename ,\@msiassemblynametable);
 214     my $infoline = "Created idt file: $msiassemblynametablename\n";
 215     push(@installer::globals::logfileinfo, $infoline);
 216
 217 }
 218
 219 ####################################################################################
 220 # setting an installation condition for the assembly libraries saved in
 221 # @installer::globals::msiassemblynamecontent
 222 ####################################################################################
 223
 224 sub add_assembly_condition_into_component_table
 225 {
 226     my ($filesref, $basedir) = @_;
 227
 228     my $componenttablename = $basedir . $installer::globals::separator . "Componen.idt";
 229     my $componenttable = installer::files::read_file($componenttablename);
 230     my $changed = 0;
 231     my $infoline = "";
 232
 233     for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
 234     {
 235         my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
 236
 237         my $filecomponent = get_msiassembly_component($onefile);
 238
 239         for ( my $j = 0; $j <= $#{$componenttable}; $j++ )
 240         {
 241             my $oneline = ${$componenttable}[$j];
 242
 243             if ( $oneline =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)\t(.*)/ )
 244             {
 245                 my $component = $1;
 246                 my $componentid = $2;
 247                 my $directory = $3;
 248                 my $attributes = $4;
 249                 my $condition = $5;
 250                 my $keypath = $6;
 251
 252                 if ( $component eq $filecomponent )
 253                 {
 254                     # setting the condition
 255
 256                     $condition = "MsiNetAssemblySupport >= \"4.0.0.0\"";
 257                     $oneline = $component . "\t" . $componentid . "\t" . $directory . "\t" . $attributes . "\t" . $condition . "\t" . $keypath . "\n";
 258                     ${$componenttable}[$j] = $oneline;
 259                     $changed = 1;
 260                     $infoline = "Changing $componenttablename :\n";
 261                     push(@installer::globals::logfileinfo, $infoline);
 262                     $infoline = $oneline;
 263                     push(@installer::globals::logfileinfo, $infoline);
 264                     last;
 265                 }
 266             }
 267         }
 268     }
 269
 270     if ( $changed )
 271     {
 272         # Saving the file
 273         installer::files::save_file($componenttablename ,$componenttable);
 274         $infoline = "Saved idt file: $componenttablename\n";
 275         push(@installer::globals::logfileinfo, $infoline);
 276     }
 277 }
 278
 279 1;