diff options
Diffstat (limited to 'solenv/bin/modules/installer/scriptitems.pm')
| -rw-r--r-- | solenv/bin/modules/installer/scriptitems.pm | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/solenv/bin/modules/installer/scriptitems.pm b/solenv/bin/modules/installer/scriptitems.pm index ac678be5e458..325205817994 100644 --- a/solenv/bin/modules/installer/scriptitems.pm +++ b/solenv/bin/modules/installer/scriptitems.pm @@ -44,8 +44,6 @@ sub resolve_all_directory_names { my ($directoryarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::resolve_all_directory_names : $#{$directoryarrayref}"); } - # After this procedure the hash shall contain the complete language # dependent path, not only the language dependent HostName. @@ -159,8 +157,6 @@ sub remove_delete_only_files_from_productlists { my ($productarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_delete_only_files_from_productlists : $#{$productarrayref}"); } - my @newitems = (); for ( my $i = 0; $i <= $#{$productarrayref}; $i++ ) @@ -188,8 +184,6 @@ sub remove_notinsuite_files_from_productlists { my ($productarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_notinsuite_files_from_productlists : $#{$productarrayref}"); } - my @newitems = (); for ( my $i = 0; $i <= $#{$productarrayref}; $i++ ) @@ -222,8 +216,6 @@ sub remove_office_start_language_files { my ($productarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_notinsuite_files_from_productlists : $#{$productarrayref}"); } - my @newitems = (); for ( my $i = 0; $i <= $#{$productarrayref}; $i++ ) @@ -255,8 +247,6 @@ sub remove_uninstall_regitems_from_script { my ($registryarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_uninstall_regitems_from_script : $#{$registryarrayref}"); } - my @newitems = (); for ( my $i = 0; $i <= $#{$registryarrayref}; $i++ ) @@ -308,8 +298,6 @@ sub resolving_all_languages_in_productlists { my ($productarrayref, $languagesarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::resolving_all_languages_in_productlists : $#{$productarrayref} : $#{$languagesarrayref}"); } - my @itemsinalllanguages = (); my ($key, $value); @@ -725,8 +713,6 @@ sub changing_name_of_language_dependent_keys { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::changing_name_of_language_dependent_keys : $#{$itemsarrayref}"); } - # Changing key for multilingual items from "Name ( )" to "Name" or "HostName ( )" to "HostName" for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ ) @@ -793,8 +779,6 @@ sub replace_setup_variables { my ($itemsarrayref, $languagestringref, $hashref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::replace_setup_variables : $#{$itemsarrayref} : $$languagestringref : $hashref->{'PRODUCTNAME'}"); } - my $languagesstring = $$languagestringref; $languagesstring =~ s/\_/ /g; # replacing underscore with whitespace @@ -887,8 +871,6 @@ sub remove_non_existent_languages_in_productlists { my ($itemsarrayref, $languagestringref, $searchkey, $itemtype) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_non_existent_languages_in_productlists : $#{$itemsarrayref} : $$languagestringref : $searchkey : $itemtype"); } - # Removing of all non existent files, for instance asian fonts installer::logger::include_header_into_logfile("Removing for this language $$languagestringref:"); @@ -936,8 +918,6 @@ sub get_Directoryname_From_Directorygid { my ($dirsarrayref ,$searchgid, $onelanguage, $oneitemgid) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_Directoryname_From_Directorygid : $#{$dirsarrayref} : $searchgid : $onelanguage"); } - my $directoryname = ""; my $onedirectory; my $foundgid = 0; @@ -989,8 +969,6 @@ sub get_Destination_Directory_For_Item_From_Directorylist # this is used f { my ($itemarrayref, $dirsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_Destination_Directory_For_Item_From_Directorylist : $#{$itemarrayref} : $#{$dirsarrayref}"); } - for ( my $i = 0; $i <= $#{$itemarrayref}; $i++ ) { my $oneitem = ${$itemarrayref}[$i]; @@ -1052,8 +1030,6 @@ sub get_sourcepath_from_filename_and_includepath_classic { my ($searchfilenameref, $includepatharrayref, $write_logfile) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic : $$searchfilenameref : $#{$includepatharrayref} : $write_logfile"); } - my ($onefile, $includepath, $infoline); my $foundsourcefile = 0; @@ -1109,8 +1085,6 @@ sub get_sourcepath_from_filename_and_includepath { my ($searchfilenameref, $unused, $write_logfile) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_sourcepath_from_filename_and_includepath : $$searchfilenameref : $#{$includepatharrayref} : $write_logfile"); } - my ($onefile, $includepath, $infoline); my $foundsourcefile = 0; @@ -1221,8 +1195,6 @@ sub get_Source_Directory_For_Files_From_Includepathlist { my ($filesarrayref, $includepatharrayref, $dirsref, $item) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_Source_Directory_For_Files_From_Includepathlist : $#{$filesarrayref} : $#{$includepatharrayref} : $item"); } - installer::logger::include_header_into_logfile("$item:"); my $infoline = ""; @@ -1315,8 +1287,6 @@ sub remove_Files_For_Languagepacks { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Files_For_Languagepacks : $#{$filesarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1351,8 +1321,6 @@ sub remove_Files_Without_Sourcedirectory { my ($filesarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Files_Without_Sourcedirectory : $#{$filesarrayref}"); } - my $infoline; my $error_occurred = 0; @@ -1486,8 +1454,6 @@ sub add_License_Files_into_Installdir { my ($filesarrayref, $dirsarrayref, $languagesarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_License_Files_into_Installdir : $#{$filesarrayref} : $#{$languagesarrayref}"); } - my $infoline; my @newfilesarray = (); @@ -1645,8 +1611,6 @@ sub remove_scpactions_without_name { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_scpactions_without_name : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1680,8 +1644,6 @@ sub change_keys_of_scpactions { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::change_keys_of_scpactions : $#{$itemsarrayref}"); } - for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ ) { my $oneitem = ${$itemsarrayref}[$i]; @@ -1725,8 +1687,6 @@ sub remove_Xpdonly_Items { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Xpdonly_Items : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1763,8 +1723,6 @@ sub remove_Languagepacklibraries_from_Installset { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Languagepacklibraries_from_Installset : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1801,8 +1759,6 @@ sub remove_Helppacklibraries_from_Installset { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Helppacklibraries_from_Installset : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1839,8 +1795,6 @@ sub remove_patchonlyfiles_from_Installset { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_patchonlyfiles_from_Installset : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1877,8 +1831,6 @@ sub remove_tabonlyfiles_from_Installset { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_tabonlyfiles_from_Installset : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1915,8 +1867,6 @@ sub remove_installedproductonlyfiles_from_Installset { my ($itemsarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_installedproductonlyfiles_from_Installset : $#{$itemsarrayref}"); } - my $infoline; my @newitemsarray = (); @@ -1952,8 +1902,6 @@ sub quoting_illegal_filenames { my ($filesarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::rename_illegal_filenames : $#{$filesarrayref}"); } - # This function has to be removed as soon as possible! installer::logger::include_header_into_logfile("Renaming illegal filenames:"); @@ -2015,8 +1963,6 @@ sub collect_directories_from_filesarray { my ($filesarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::collect_directories_from_filesarray : $#{$filesarrayref}"); } - my @alldirectories = (); my %alldirectoryhash = (); @@ -2086,8 +2032,6 @@ sub collect_directories_with_create_flag_from_directoryarray { my ($directoryarrayref, $alldirectoryhash) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::collect_directories_with_create_flag_from_directoryarray : $#{$directoryarrayref}"); } - my $alreadyincluded = 0; my @alldirectories = (); @@ -2210,8 +2154,6 @@ sub get_destination_file_path_for_links { my ($linksarrayref, $filesarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_destination_file_path_for_links : $#{$linksarrayref} : $#{$filesarrayref}"); } - my $infoline; for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ ) @@ -2257,8 +2199,6 @@ sub get_destination_link_path_for_links { my ($linksarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_destination_link_path_for_links : $#{$linksarrayref}"); } - my $infoline; for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ ) @@ -2304,8 +2244,6 @@ sub remove_workstation_only_items { my ($itemarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_workstation_only_items : $#{$itemarrayref}"); } - my @newitemarray = (); for ( my $i = 0; $i <= $#{$itemarrayref}; $i++ ) @@ -2334,8 +2272,6 @@ sub resolve_links_with_flag_relative { my ($linksarrayref) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::resolve_links_with_flag_relative : $#{$linksarrayref}"); } - # Before this step is: # destination=program/libsalhelperC52.so.3, this will be the name of the link # destinationfile=program/libsalhelperC52.so.3, this will be the linked file or name @@ -2433,8 +2369,6 @@ sub get_string_of_modulegids_for_itemgid { my ($module_lookup_table, $modulesref, $itemgid, $itemname) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_string_of_modulegids_for_itemgid : $#{$modulesref} : $itemgid : $itemname"); } - my $allmodules = ""; my $haslanguagemodule = 0; my %foundmodules = (); @@ -2470,8 +2404,6 @@ sub assigning_modules_to_items { my ($modulesref, $itemsref, $itemname) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::assigning_modules_to_items : $#{$modulesref} : $#{$itemsref} : $itemname"); } - my $infoline = ""; my $languageassignmenterror = 0; my @languageassignmenterrors = (); @@ -2536,8 +2468,6 @@ sub add_rootpath_to_directories { my ($dirsref, $rootpath) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_rootpath_to_directories : $#{$dirsref} : $rootpath"); } - for ( my $i = 0; $i <= $#{$dirsref}; $i++ ) { my $onedir = ${$dirsref}[$i]; @@ -2567,8 +2497,6 @@ sub add_rootpath_to_files { my ($filesref, $rootpath) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_rootpath_to_files : $#{$filesref} : $rootpath"); } - for ( my $i = 0; $i <= $#{$filesref}; $i++ ) { my $onefile = ${$filesref}[$i]; @@ -2582,8 +2510,6 @@ sub add_rootpath_to_links { my ($linksref, $rootpath) = @_; - if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_rootpath_to_links : $#{$linksref} : $rootpath"); } - for ( my $i = 0; $i <= $#{$linksref}; $i++ ) { my $onelink = ${$linksref}[$i]; |