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

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: assembly.pm,v $
  10 #
  11 # $Revision: 1.11 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 package installer::windows::assembly;
  33
  34 use installer::files;
  35 use installer::globals;
  36 use installer::worker;
  37 use installer::windows::idtglobal;
  38
  39 ##############################################################
  40 # Returning the first module of a file from the
  41 # comma separated list of modules.
  42 ##############################################################
  43
  44 sub get_msiassembly_feature
  45 {
  46     my ( $onefile ) = @_;
  47
  48     my $module = "";
  49
  50     if ( $onefile->{'modules'} ) { $module = $onefile->{'modules'}; }
  51
  52     # If modules contains a list of modules, only taking the first one.
  53
  54     if ( $module =~ /^\s*(.*?)\,/ ) { $module = $1; }
  55
  56     # Attention: Maximum feature length is 38!
  57     installer::windows::idtglobal::shorten_feature_gid(\$module);
  58
  59     return $module;
  60 }
  61
  62 ##############################################################
  63 # Returning the component of a file.
  64 ##############################################################
  65
  66 sub get_msiassembly_component
  67 {
  68     my ( $onefile ) = @_;
  69
  70     my $component = "";
  71
  72     $component = $onefile->{'componentname'};
  73
  74     return $component;
  75 }
  76
  77 ##############################################################
  78 # Returning the file name as manifest file
  79 ##############################################################
  80
  81 sub get_msiassembly_filemanifest
  82 {
  83     my ( $onefile ) = @_;
  84
  85     my $filemanifest = "";
  86
  87     $filemanifest = $onefile->{'uniquename'};
  88     # $filemanifest = $onefile->{'Name'};
  89
  90     return $filemanifest;
  91 }
  92
  93
  94 ##############################################################
  95 # Returning the file application
  96 ##############################################################
  97
  98 sub get_msiassembly_fileapplication
  99 {
 100     my ( $onefile ) = @_;
 101
 102     my $fileapplication = "";
 103
 104     return $fileapplication;
 105 }
 106
 107 ##############################################################
 108 # Returning the file attributes
 109 ##############################################################
 110
 111 sub get_msiassembly_attributes
 112 {
 113     my ( $onefile ) = @_;
 114
 115     my $fileattributes = "";
 116
 117     if ( $onefile->{'Attributes'} ne "" ) { $fileattributes = $onefile->{'Attributes'}; }
 118
 119     return $fileattributes;
 120 }
 121
 122 ##############################################################
 123 # Returning the file object for the msiassembly table.
 124 ##############################################################
 125
 126 sub get_msiassembly_file
 127 {
 128     my ( $filesref, $filename ) = @_;
 129
 130     my $foundfile = 0;
 131     my $onefile;
 132
 133     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 134     {
 135         $onefile = ${$filesref}[$i];
 136         my $name = $onefile->{'Name'};
 137
 138         if ( $name eq $filename )
 139         {
 140             $foundfile = 1;
 141             last;
 142         }
 143     }
 144
 145     # It does not need to exist. For example products that do not contain the libraries.
 146     # if (! $foundfile ) { installer::exiter::exit_program("ERROR: No unique file name found for $filename !", "get_selfreg_file"); }
 147
 148     if (! $foundfile ) { $onefile  = ""; }
 149
 150     return $onefile;
 151 }
 152
 153 ##############################################################
 154 # Returning the file object for the msiassembly table.
 155 ##############################################################
 156
 157 sub get_msiassembly_file_by_gid
 158 {
 159     my ( $filesref, $gid ) = @_;
 160
 161     my $foundfile = 0;
 162     my $onefile;
 163
 164     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 165     {
 166         $onefile = ${$filesref}[$i];
 167         my $filegid = $onefile->{'gid'};
 168
 169         if ( $filegid eq $gid )
 170         {
 171             $foundfile = 1;
 172             last;
 173         }
 174     }
 175
 176     # It does not need to exist. For example products that do not contain the libraries.
 177     # if (! $foundfile ) { installer::exiter::exit_program("ERROR: No unique file name found for $filename !", "get_selfreg_file"); }
 178
 179     if (! $foundfile ) { $onefile  = ""; }
 180
 181     return $onefile;
 182 }
 183
 184 ####################################################################################
 185 # Creating the file MsiAssembly.idt dynamically
 186 # Content:
 187 # Component_    Feature_        File_Manifest   File_Application        Attributes
 188 # s72   s38     S72     S72     I2
 189 # MsiAssembly   Component_
 190 ####################################################################################
 191
 192 sub create_msiassembly_table
 193 {
 194     my ($filesref, $basedir) = @_;
 195
 196     $installer::globals::msiassemblyfiles = installer::worker::collect_all_items_with_special_flag($filesref, "ASSEMBLY");
 197
 198     my @msiassemblytable = ();
 199
 200     installer::windows::idtglobal::write_idt_header(\@msiassemblytable, "msiassembly");
 201
 202     # Registering all libraries listed in $installer::globals::msiassemblyfiles
 203
 204     for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
 205     {
 206         my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
 207
 208         my %msiassembly = ();
 209
 210         $msiassembly{'Component_'} = get_msiassembly_component($onefile);
 211         $msiassembly{'Feature_'} = get_msiassembly_feature($onefile);
 212         $msiassembly{'File_Manifest'} = get_msiassembly_filemanifest($onefile);
 213         $msiassembly{'File_Application'} = get_msiassembly_fileapplication($onefile);
 214         $msiassembly{'Attributes'} = get_msiassembly_attributes($onefile);
 215
 216         my $oneline = $msiassembly{'Component_'} . "\t" . $msiassembly{'Feature_'} . "\t" .
 217                         $msiassembly{'File_Manifest'} . "\t" . $msiassembly{'File_Application'} . "\t" .
 218                         $msiassembly{'Attributes'} . "\n";
 219
 220         push(@msiassemblytable, $oneline);
 221     }
 222
 223     # Saving the file
 224
 225     my $msiassemblytablename = $basedir . $installer::globals::separator . "MsiAssem.idt";
 226     installer::files::save_file($msiassemblytablename ,\@msiassemblytable);
 227     my $infoline = "Created idt file: $msiassemblytablename\n";
 228     push(@installer::globals::logfileinfo, $infoline);
 229 }
 230
 231 ####################################################################################
 232 # Returning the name for the table MsiAssemblyName
 233 ####################################################################################
 234
 235 sub get_msiassemblyname_name
 236 {
 237     ( $number ) = @_;
 238
 239     my $name = "";
 240
 241     if ( $number == 1 ) { $name = "name"; }
 242     elsif ( $number == 2 ) { $name = "publicKeyToken"; }
 243     elsif ( $number == 3 ) { $name = "version"; }
 244     elsif ( $number == 4 ) { $name = "culture"; }
 245
 246     return $name;
 247 }
 248
 249 ####################################################################################
 250 # Creating the file MsiAssemblyName.idt dynamically
 251 # Content:
 252 # Component_    Name    Value
 253 # s72   s255    s255
 254 # MsiAssemblyName       Component_      Name
 255 ####################################################################################
 256
 257 sub create_msiassemblyname_table
 258 {
 259     my ($filesref, $basedir) = @_;
 260
 261     my @msiassemblynametable = ();
 262
 263     installer::windows::idtglobal::write_idt_header(\@msiassemblynametable, "msiassemblyname");
 264
 265     for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
 266     {
 267         my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
 268
 269         my $component = get_msiassembly_component($onefile);
 270         my $oneline = "";
 271
 272         # Order: (Assembly)name, publicKeyToken, version, culture.
 273
 274         if ( $onefile->{'Assemblyname'} )
 275         {
 276             $oneline = $component . "\t" . "name" . "\t" . $onefile->{'Assemblyname'} . "\n";
 277             push(@msiassemblynametable, $oneline);
 278         }
 279
 280         if ( $onefile->{'PublicKeyToken'} )
 281         {
 282             $oneline = $component . "\t" . "publicKeyToken" . "\t" . $onefile->{'PublicKeyToken'} . "\n";
 283             push(@msiassemblynametable, $oneline);
 284         }
 285
 286         if ( $onefile->{'Version'} )
 287         {
 288             $oneline = $component . "\t" . "version" . "\t" . $onefile->{'Version'} . "\n";
 289             push(@msiassemblynametable, $oneline);
 290         }
 291
 292         if ( $onefile->{'Culture'} )
 293         {
 294             $oneline = $component . "\t" . "culture" . "\t" . $onefile->{'Culture'} . "\n";
 295             push(@msiassemblynametable, $oneline);
 296         }
 297
 298         if ( $onefile->{'ProcessorArchitecture'} )
 299         {
 300             $oneline = $component . "\t" . "processorArchitecture" . "\t" . $onefile->{'ProcessorArchitecture'} . "\n";
 301             push(@msiassemblynametable, $oneline);
 302         }
 303     }
 304
 305     # Saving the file
 306
 307     my $msiassemblynametablename = $basedir . $installer::globals::separator . "MsiAsseN.idt";
 308     installer::files::save_file($msiassemblynametablename ,\@msiassemblynametable);
 309     my $infoline = "Created idt file: $msiassemblynametablename\n";
 310     push(@installer::globals::logfileinfo, $infoline);
 311
 312 }
 313
 314 ####################################################################################
 315 # setting an installation condition for the assembly libraries saved in
 316 # @installer::globals::msiassemblynamecontent
 317 ####################################################################################
 318
 319 sub add_assembly_condition_into_component_table
 320 {
 321     my ($filesref, $basedir) = @_;
 322
 323     my $componenttablename = $basedir . $installer::globals::separator . "Componen.idt";
 324     my $componenttable = installer::files::read_file($componenttablename);
 325     my $changed = 0;
 326     my $infoline = "";
 327
 328     for ( my $i = 0; $i <= $#{$installer::globals::msiassemblyfiles}; $i++ )
 329     {
 330         my $onefile = ${$installer::globals::msiassemblyfiles}[$i];
 331
 332         my $filecomponent = get_msiassembly_component($onefile);
 333
 334         for ( my $j = 0; $j <= $#{$componenttable}; $j++ )
 335         {
 336             my $oneline = ${$componenttable}[$j];
 337
 338             if ( $oneline =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)\t(.*)/ )
 339             {
 340                 my $component = $1;
 341                 my $componentid = $2;
 342                 my $directory = $3;
 343                 my $attributes = $4;
 344                 my $condition = $5;
 345                 my $keypath = $6;
 346
 347                 if ( $component eq $filecomponent )
 348                 {
 349                     # setting the condition
 350
 351                     # $condition = "MsiNetAssemblySupport";
 352                     $condition = "DOTNET_SUFFICIENT=1";
 353                     $oneline = $component . "\t" . $componentid . "\t" . $directory . "\t" . $attributes . "\t" . $condition . "\t" . $keypath . "\n";
 354                     ${$componenttable}[$j] = $oneline;
 355                     $changed = 1;
 356                     $infoline = "Changing $componenttablename :\n";
 357                     push(@installer::globals::logfileinfo, $infoline);
 358                     $infoline = $oneline;
 359                     push(@installer::globals::logfileinfo, $infoline);
 360                     last;
 361                 }
 362             }
 363         }
 364     }
 365
 366     if ( $changed )
 367     {
 368         # Saving the file
 369         installer::files::save_file($componenttablename ,$componenttable);
 370         $infoline = "Saved idt file: $componenttablename\n";
 371         push(@installer::globals::logfileinfo, $infoline);
 372     }
 373 }
 374
 375 1;