| #************************************************************** |
| # |
| # 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 |
| # |
| # Unless required by applicable law or agreed to in writing, |
| # software distributed under the License is distributed on an |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| # KIND, either express or implied. See the License for the |
| # specific language governing permissions and limitations |
| # under the License. |
| # |
| #************************************************************** |
| |
| |
| |
| package installer::windows::component; |
| |
| use installer::converter; |
| use installer::existence; |
| use installer::exiter; |
| use installer::files; |
| use installer::globals; |
| use installer::windows::idtglobal; |
| use installer::windows::language; |
| |
| use strict; |
| |
| ############################################################## |
| # Returning a globally unique ID (GUID) for a component |
| # If the component is new, a unique guid has to be created. |
| # If the component already exists, the guid has to be |
| # taken from a list component <-> guid |
| # Sample for a guid: {B68FD953-3CEF-4489-8269-8726848056E8} |
| ############################################################## |
| |
| sub get_component_guid ($) |
| { |
| my ($componentname) = @_; |
| |
| # At this time only a template |
| my $returnvalue = "\{COMPONENTGUID\}"; |
| |
| # Returning a ComponentID, that is assigned in scp project |
| if ( exists($installer::globals::componentid{$componentname}) ) |
| { |
| $installer::logger::Lang->printf("reusing guid %s for component %s\n", |
| $installer::globals::componentid{$componentname}, |
| $componentname); |
| $returnvalue = "\{" . $installer::globals::componentid{$componentname} . "\}"; |
| } |
| |
| return $returnvalue; |
| } |
| |
| ############################################################## |
| # Returning the directory for a file component. |
| ############################################################## |
| |
| sub get_file_component_directory ($$$) |
| { |
| my ($componentname, $filesref, $dirref) = @_; |
| |
| my ($component, $uniquedir); |
| |
| foreach my $onefile (@$filesref) |
| { |
| if ($onefile->{'componentname'} eq $componentname) |
| { |
| return get_file_component_directory_for_file($onefile, $dirref); |
| } |
| } |
| |
| # This component can be ignored, if it exists in a version with |
| # extension "_pff" (this was renamed in file::get_sequence_for_file() ) |
| my $ignore_this_component = 0; |
| my $origcomponentname = $componentname; |
| my $componentname_pff = $componentname . "_pff"; |
| |
| foreach my $onefile (@$filesref) |
| { |
| if ($onefile->{'componentname'} eq $componentname_pff) |
| { |
| return "IGNORE_COMP"; |
| } |
| } |
| |
| installer::exiter::exit_program( |
| "ERROR: Did not find component \"$origcomponentname\" in file collection", |
| "get_file_component_directory"); |
| } |
| |
| |
| |
| |
| sub get_file_component_directory_for_file ($$) |
| { |
| my ($onefile, $dirref) = @_; |
| |
| my $localstyles = $onefile->{'Styles'}; |
| $localstyles = "" unless defined $localstyles; |
| |
| if ( $localstyles =~ /\bFONT\b/ ) # special handling for font files |
| { |
| return $installer::globals::fontsfolder; |
| } |
| |
| my $destdir = ""; |
| |
| if ( $onefile->{'Dir'} ) { $destdir = $onefile->{'Dir'}; } |
| |
| if ( $destdir =~ /\bPREDEFINED_OSSHELLNEWDIR\b/ ) # special handling for shellnew files |
| { |
| return $installer::globals::templatefolder; |
| } |
| |
| my $destination = $onefile->{'destination'}; |
| |
| installer::pathanalyzer::get_path_from_fullqualifiedname(\$destination); |
| |
| $destination =~ s/\Q$installer::globals::separator\E\s*$//; |
| |
| # This path has to be defined in the directory collection at "HostName" |
| |
| my $uniquedir = undef; |
| if ($destination eq "") # files in the installation root |
| { |
| $uniquedir = "INSTALLLOCATION"; |
| } |
| else |
| { |
| my $found = 0; |
| foreach my $directory (@$dirref) |
| { |
| if ($directory->{'HostName'} eq $destination) |
| { |
| $found = 1; |
| $uniquedir = $directory->{'uniquename'}; |
| last; |
| } |
| } |
| |
| if ( ! $found) |
| { |
| installer::exiter::exit_program( |
| "ERROR: Did not find destination $destination in directory collection", |
| "get_file_component_directory"); |
| } |
| |
| if ( $uniquedir eq $installer::globals::officeinstalldirectory ) |
| { |
| $uniquedir = "INSTALLLOCATION"; |
| } |
| } |
| |
| $onefile->{'uniquedirname'} = $uniquedir; # saving it in the file collection |
| |
| return $uniquedir |
| } |
| |
| ############################################################## |
| # Returning the directory for a registry component. |
| # This cannot be a useful value |
| ############################################################## |
| |
| sub get_registry_component_directory |
| { |
| my $componentdir = "INSTALLLOCATION"; |
| |
| return $componentdir; |
| } |
| |
| ############################################################## |
| # Returning the attributes for a file component. |
| # Always 8 in this first try? |
| ############################################################## |
| |
| sub get_file_component_attributes |
| { |
| my ($componentname, $filesref, $allvariables) = @_; |
| |
| my $attributes; |
| |
| $attributes = 2; |
| |
| # special handling for font files |
| |
| my $onefile; |
| my $found = 0; |
| |
| for ( my $i = 0; $i <= $#{$filesref}; $i++ ) |
| { |
| $onefile = ${$filesref}[$i]; |
| my $component = $onefile->{'componentname'}; |
| |
| if ( $component eq $componentname ) |
| { |
| $found = 1; |
| last; |
| } |
| } |
| |
| if (!($found)) |
| { |
| installer::exiter::exit_program("ERROR: Did not find component in file collection", "get_file_component_attributes"); |
| } |
| |
| my $localstyles = ""; |
| |
| if ( $onefile->{'Styles'} ) { $localstyles = $onefile->{'Styles'}; } |
| |
| if ( $localstyles =~ /\bFONT\b/ ) |
| { |
| $attributes = 8; # font files will be deinstalled if the ref count is 0 |
| } |
| |
| if ( $localstyles =~ /\bASSEMBLY\b/ ) |
| { |
| $attributes = 0; # Assembly files cannot run from source |
| } |
| |
| if ((defined $onefile->{'Dir'} && $onefile->{'Dir'} =~ /\bPREDEFINED_OSSHELLNEWDIR\b/) |
| || $onefile->{'needs_user_registry_key'}) |
| { |
| $attributes = 4; # Files in shellnew dir and in non advertised startmenu entries must have user registry key as KeyPath |
| } |
| |
| # Adding 256, if this is a 64 bit installation set. |
| if (( $allvariables->{'64BITPRODUCT'} ) && ( $allvariables->{'64BITPRODUCT'} == 1 )) { $attributes = $attributes + 256; } |
| |
| return $attributes |
| } |
| |
| ############################################################## |
| # Returning the attributes for a registry component. |
| # Always 4, indicating, the keypath is a defined in |
| # table registry |
| ############################################################## |
| |
| sub get_registry_component_attributes |
| { |
| my ($componentname, $allvariables) = @_; |
| |
| my $attributes; |
| |
| $attributes = 4; |
| |
| # Adding 256, if this is a 64 bit installation set. |
| if (( $allvariables->{'64BITPRODUCT'} ) && ( $allvariables->{'64BITPRODUCT'} == 1 )) { $attributes = $attributes + 256; } |
| |
| if ( exists($installer::globals::dontdeletecomponents{$componentname}) ) { $attributes = $attributes + 16; } |
| |
| return $attributes |
| } |
| |
| ############################################################## |
| # Returning the conditions for a component. |
| # This is important for language dependent components |
| # in multilingual installation sets. |
| ############################################################## |
| |
| sub get_file_component_condition |
| { |
| my ($componentname, $filesref) = @_; |
| |
| my $condition = ""; |
| |
| if (exists($installer::globals::componentcondition{$componentname})) |
| { |
| $condition = $installer::globals::componentcondition{$componentname}; |
| } |
| |
| # there can be also tree conditions for multilayer products |
| if (exists($installer::globals::treeconditions{$componentname})) |
| { |
| if ( $condition eq "" ) |
| { |
| $condition = $installer::globals::treeconditions{$componentname}; |
| } |
| else |
| { |
| $condition = "($condition) And ($installer::globals::treeconditions{$componentname})"; |
| } |
| } |
| |
| return $condition |
| } |
| |
| ############################################################## |
| # Returning the conditions for a registry component. |
| ############################################################## |
| |
| sub get_component_condition |
| { |
| my ($componentname) = @_; |
| |
| my $condition; |
| |
| $condition = ""; # Always ? |
| |
| if (exists($installer::globals::componentcondition{$componentname})) |
| { |
| $condition = $installer::globals::componentcondition{$componentname}; |
| } |
| |
| return $condition |
| } |
| |
| #################################################################### |
| # Returning the keypath for a component. |
| # This will be the name of the first file/registry, found in the |
| # collection $itemsref |
| # Attention: This has to be the unique (file)name, not the |
| # real filename! |
| #################################################################### |
| |
| sub get_component_keypath ($$) |
| { |
| my ($componentname, $itemsref) = @_; |
| |
| foreach my $oneitem (@$itemsref) |
| { |
| my $component = $oneitem->{'componentname'}; |
| |
| if ( ! defined $component) |
| { |
| installer::scriptitems::print_script_item($oneitem); |
| installer::logger::PrintError("item in get_component_keypath has no 'componentname'\n"); |
| return ""; |
| } |
| if ( $component eq $componentname ) |
| { |
| my $keypath = $oneitem->{'uniquename'}; # "uniquename", not "Name" |
| |
| # Special handling for components in |
| # PREDEFINED_OSSHELLNEWDIR. These components need as |
| # KeyPath a RegistryItem in HKCU |
| if ($oneitem->{'userregkeypath'}) |
| { |
| $keypath = $oneitem->{'userregkeypath'}; |
| } |
| |
| # saving it in the file and registry collection |
| $oneitem->{'keypath'} = $keypath; |
| |
| return $keypath |
| } |
| } |
| |
| installer::exiter::exit_program( |
| "ERROR: Did not find component in file/registry collection, function get_component_keypath", |
| "get_component_keypath"); |
| } |
| |
| |
| |
| |
| sub remove_ooversion_from_component_name($) |
| { |
| my ($component_name) = @_; |
| |
| $component_name =~ s/_openoffice\d+//; |
| |
| return $component_name; |
| } |
| |
| |
| |
| |
| sub prepare_component_table_creation ($$$) |
| { |
| my ($file_components, $registry_components, $variables) = @_; |
| |
| if ($installer::globals::is_release) |
| { |
| my %source_component_data = (); |
| |
| # Collect the components that are used in the source release. |
| my $component_table = $installer::globals::source_msi->GetTable("Component"); |
| foreach my $row (@{$component_table->GetAllRows()}) |
| { |
| $source_component_data{$row->GetValue("Component")} = $row; |
| } |
| |
| # Find source components that do not exist in the target components, ie have been removed. |
| |
| # Process file components. |
| my @missing_source_component_names = (); |
| my %file_component_hash = map {$_ => 1} @$file_components; |
| foreach my $source_component_name (keys %source_component_data) |
| { |
| # In this loop we only process components for files and ignore those for registry entries. |
| next if $source_component_name =~ /^registry_/; |
| |
| if ( ! defined $file_component_hash{$source_component_name}) |
| { |
| push @missing_source_component_names, [$source_component_name, $source_component_name]; |
| $installer::logger::Info->printf("missing file component %s\n", $source_component_name); |
| } |
| } |
| |
| # Process registry components. |
| my %registry_component_hash = map {$_ => 1} @$registry_components; |
| my %registry_component_hash_normalized = map {remove_ooversion_from_component_name($_) => $_} @$registry_components; |
| my %target_registry_component_translation = (); |
| foreach my $source_component_name (keys %source_component_data) |
| { |
| # In this loop we only process components for registry entries and ignore those for files. |
| next if $source_component_name !~ /^registry_/; |
| |
| if (defined $registry_component_hash{$source_component_name}) |
| { |
| # Found the non-normalized name. |
| } |
| elsif (defined $registry_component_hash_normalized{ |
| remove_ooversion_from_component_name($source_component_name)}) |
| { |
| # Found the normalized name. |
| my $target_component_name = $registry_component_hash_normalized{ |
| remove_ooversion_from_component_name($source_component_name)}; |
| $target_registry_component_translation{$target_component_name} = $source_component_name; |
| $installer::logger::Info->printf("found normalized component name %s\n", $source_component_name); |
| $installer::logger::Info->printf(" %s -> %s\n", $target_component_name, $source_component_name); |
| } |
| else |
| { |
| # Source component was not found. |
| push @missing_source_component_names, $source_component_name; |
| $installer::logger::Info->printf("missing component %s\n", $source_component_name); |
| } |
| } |
| |
| if (scalar @missing_source_component_names > 0) |
| { |
| $installer::logger::Info->printf("Error: there are %d missing components\n", |
| scalar @missing_source_component_names); |
| return {}; |
| } |
| else |
| { |
| return \%target_registry_component_translation; |
| } |
| } |
| |
| return {}; |
| } |
| |
| |
| |
| |
| sub get_component_data ($$$$) |
| { |
| my ($file_component_names, |
| $registry_component_names, |
| $files, |
| $registry_entries) = @_; |
| |
| # When we are building a release then prepare building a patch by looking up some data |
| # from the previous release. |
| my %source_data = (); |
| if ($installer::globals::is_release) |
| { |
| my $source_component_table = $installer::globals::source_msi->GetTable("Component"); |
| my $component_column_index = $source_component_table->GetColumnIndex("Component"); |
| my $component_id_column_index = $source_component_table->GetColumnIndex("ComponentId"); |
| my $key_path_column_index = $source_component_table->GetColumnIndex("KeyPath"); |
| foreach my $source_row (@{$source_component_table->GetAllRows()}) |
| { |
| my $component_name = $source_row->GetValue($component_column_index); |
| my $component_id = $source_row->GetValue($component_id_column_index); |
| my $key_path = $source_row->GetValue($key_path_column_index); |
| |
| $source_data{$component_name} = { |
| 'component_id' => $component_id, |
| 'key_path' => $key_path |
| }; |
| } |
| } |
| |
| # Set up data for the target release. |
| # Use data from the source version where possible. |
| # Create missind data where necessary. |
| |
| # Set up the target data with flags that remember whether a |
| # component contains files or registry entries. |
| my %target_data = (); |
| foreach my $name (@$file_component_names) |
| { |
| $target_data{$name} = {'is_file' => 1}; |
| } |
| foreach my $name (@$registry_component_names) |
| { |
| $target_data{$name} = {'is_file' => 0}; |
| } |
| |
| # Add values for the ComponentId column. |
| $installer::logger::Lang->printf("preparing Component->ComponentId values\n"); |
| foreach my $name (@$file_component_names,@$registry_component_names) |
| { |
| # Determine the component id. |
| my $guid = $installer::globals::is_release |
| ? $source_data{$name}->{'component_id'} |
| : undef; |
| if (defined $guid) |
| { |
| $installer::logger::Lang->printf(" reusing guid %s\n", $guid); |
| } |
| else |
| { |
| $guid = "{" . installer::windows::msiglobal::create_guid() . "}"; |
| $installer::logger::Lang->printf(" creating new guid %s\n", $guid); |
| } |
| $target_data{$name}->{'component_id'} = $guid; |
| } |
| |
| # Add values for the KeyPath column. |
| $installer::logger::Lang->printf("preparing Component->KeyPath values\n"); |
| foreach my $component_name (@$file_component_names,@$registry_component_names) |
| { |
| # Determine the key path. |
| my $key_path = $installer::globals::is_release |
| ? $source_data{$component_name}->{'key_path'} |
| : undef; |
| if (defined $key_path) |
| { |
| $installer::logger::Lang->printf(" reusing key path %s for component %s\n", |
| $key_path, |
| $component_name); |
| } |
| else |
| { |
| if ($target_data{$component_name}->{'is_file'}) |
| { |
| $key_path = get_component_keypath($component_name, $files); |
| } |
| else |
| { |
| $key_path = get_component_keypath($component_name, $registry_entries); |
| } |
| $installer::logger::Lang->printf(" created key path %s for component %s\n", |
| $key_path, |
| $component_name); |
| } |
| $target_data{$component_name}->{'key_path'} = $key_path; |
| } |
| |
| return \%target_data; |
| } |
| |
| |
| |
| |
| sub create_component_table_data ($$$$$$) |
| { |
| my ($filesref, $registryref, $dirref, $allfilecomponentsref, $allregistrycomponents, $allvariables) = @_; |
| |
| my $target_data = get_component_data($allfilecomponentsref, $allregistrycomponents, $filesref, $registryref); |
| |
| my @table_data = (); |
| |
| # File components |
| foreach my $name (@$allfilecomponentsref) |
| { |
| my %onecomponent = (); |
| |
| $onecomponent{'name'} = $name; |
| $onecomponent{'guid'} = $target_data->{$name}->{'component_id'}; |
| $onecomponent{'directory'} = get_file_component_directory($name, $filesref, $dirref); |
| if ( $onecomponent{'directory'} eq "IGNORE_COMP" ) { next; } |
| $onecomponent{'attributes'} = get_file_component_attributes($name, $filesref, $allvariables); |
| $onecomponent{'condition'} = get_file_component_condition($name, $filesref); |
| $onecomponent{'keypath'} = $target_data->{$name}->{'key_path'}; |
| |
| push @table_data, \%onecomponent; |
| } |
| |
| # Registry components |
| foreach my $name (@$allregistrycomponents) |
| { |
| my %onecomponent = (); |
| |
| $onecomponent{'name'} = $name; |
| $onecomponent{'guid'} = $target_data->{$name}->{'component_id'}; |
| $onecomponent{'directory'} = get_registry_component_directory(); |
| $onecomponent{'attributes'} = get_registry_component_attributes($name, $allvariables); |
| $onecomponent{'condition'} = get_component_condition($name); |
| $onecomponent{'keypath'} = $target_data->{$name}->{'key_path'}; |
| |
| push(@table_data, \%onecomponent); |
| } |
| |
| return \@table_data; |
| } |
| |
| |
| |
| |
| ################################################################### |
| # Creating the file Componen.idt dynamically |
| # Content: |
| # Component ComponentId Directory_ Attributes Condition KeyPath |
| ################################################################### |
| |
| |
| sub create_component_table ($$) |
| { |
| my ($table_data, $basedir) = @_; |
| |
| my @componenttable = (); |
| |
| my ($oneline, $infoline); |
| |
| installer::windows::idtglobal::write_idt_header(\@componenttable, "component"); |
| |
| foreach my $item (@$table_data) |
| { |
| $oneline = sprintf("%s\t%s\t%s\t%s\t%s\t%s\n", |
| $item->{'name'}, |
| $item->{'guid'}, |
| $item->{'directory'}, |
| $item->{'attributes'}, |
| $item->{'condition'}, |
| $item->{'keypath'}); |
| push(@componenttable, $oneline); |
| } |
| |
| # Saving the file |
| |
| my $componenttablename = $basedir . $installer::globals::separator . "Componen.idt"; |
| installer::files::save_file($componenttablename ,\@componenttable); |
| $infoline = "Created idt file: $componenttablename\n"; |
| $installer::logger::Lang->print($infoline); |
| } |
| |
| |
| |
| |
| #################################################################################### |
| # Returning a component for a scp module gid. |
| # Pairs are saved in the files collector. |
| #################################################################################### |
| |
| sub get_component_name_from_modulegid |
| { |
| my ($modulegid, $filesref) = @_; |
| |
| my $componentname = ""; |
| |
| for ( my $i = 0; $i <= $#{$filesref}; $i++ ) |
| { |
| my $onefile = ${$filesref}[$i]; |
| |
| if ( $onefile->{'modules'} ) |
| { |
| my $filemodules = $onefile->{'modules'}; |
| my $filemodulesarrayref = installer::converter::convert_stringlist_into_array_without_newline(\$filemodules, ","); |
| |
| if (installer::existence::exists_in_array($modulegid, $filemodulesarrayref)) |
| { |
| $componentname = $onefile->{'componentname'}; |
| last; |
| } |
| } |
| } |
| |
| return $componentname; |
| } |
| |
| #################################################################################### |
| # Updating the file Environm.idt dynamically |
| # Content: |
| # Environment Name Value Component_ |
| #################################################################################### |
| |
| sub set_component_in_environment_table |
| { |
| my ($basedir, $filesref) = @_; |
| |
| my $infoline = ""; |
| |
| my $environmentfilename = $basedir . $installer::globals::separator . "Environm.idt"; |
| |
| if ( -f $environmentfilename ) # only do something, if file exists |
| { |
| my $environmentfile = installer::files::read_file($environmentfilename); |
| |
| for ( my $i = 3; $i <= $#{$environmentfile}; $i++ ) # starting in line 4 of Environm.idt |
| { |
| if ( ${$environmentfile}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ ) |
| { |
| my $modulegid = $4; # in Environment table a scp module gid can be used as component replacement |
| |
| my $componentname = get_component_name_from_modulegid($modulegid, $filesref); |
| |
| if ( $componentname ) # only do something if a component could be found |
| { |
| $infoline = "Updated Environment table:\n"; |
| $installer::logger::Lang->print($infoline); |
| $infoline = "Old line: ${$environmentfile}[$i]\n"; |
| $installer::logger::Lang->print($infoline); |
| |
| ${$environmentfile}[$i] =~ s/$modulegid/$componentname/; |
| |
| $infoline = "New line: ${$environmentfile}[$i]\n"; |
| $installer::logger::Lang->print($infoline); |
| |
| } |
| } |
| } |
| |
| # Saving the file |
| |
| installer::files::save_file($environmentfilename ,$environmentfile); |
| $infoline = "Updated idt file: $environmentfilename\n"; |
| $installer::logger::Lang->print($infoline); |
| |
| } |
| } |
| |
| |
| |
| |
| sub apply_component_translation ($@) |
| { |
| my ($translation_map, @component_names) = @_; |
| |
| my @translated_names = (); |
| foreach my $component_name (@component_names) |
| { |
| my $translated_name = $translation_map->{$component_name}; |
| if (defined $translated_name) |
| { |
| push @translated_names, $translated_name; |
| } |
| else |
| { |
| push @translated_names, $component_name; |
| } |
| } |
| |
| return @translated_names; |
| } |
| |
| |
| 1; |