property.pm (a91987c1) | property.pm (677600b0) |
---|---|
1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 194 unchanged lines hidden (view full) --- 203 return $installer::globals::msiproductversion; 204} 205 206####################################################### 207# Setting all feature names as Properties. This is 208# required for the Windows patch process. 209####################################################### 210 | 1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 194 unchanged lines hidden (view full) --- 203 return $installer::globals::msiproductversion; 204} 205 206####################################################### 207# Setting all feature names as Properties. This is 208# required for the Windows patch process. 209####################################################### 210 |
211sub set_featurename_properties_for_patch | 211sub set_featurename_properties_for_patch ($) |
212{ | 212{ |
213 ($propertyfile) = @_; | 213 my ($propertyfile) = @_; |
214 | 214 |
215 for ( my $i = 0; $i <= $#installer::globals::featurecollector; $i++ ) | 215 foreach my $feature_gid (keys %installer::globals::featurecollector) |
216 { | 216 { |
217 my $onepropertyline = $installer::globals::featurecollector[$i] . "\t" . "1" . "\n"; 218 push(@{$propertyfile}, $onepropertyline); | 217 push @$propertyfile, $feature_gid . "\t" . "1" . "\n"; |
219 } | 218 } |
220 | |
221} 222 223####################################################### 224# Setting some important properties 225# (for finding the product in deinstallation process) 226####################################################### 227 228sub set_important_properties --- 418 unchanged lines hidden --- | 219} 220 221####################################################### 222# Setting some important properties 223# (for finding the product in deinstallation process) 224####################################################### 225 226sub set_important_properties --- 418 unchanged lines hidden --- |