systemactions.pm (b274bc22) systemactions.pm (852d2129)
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

--- 437 unchanged lines hidden (view full) ---

446 create_directory($path);
447
448 my $locallanguagesref = "";
449
450 if ( $$languagesref ) { $locallanguagesref = $$languagesref; }
451
452 if (!($locallanguagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files
453 {
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

--- 437 unchanged lines hidden (view full) ---

446 create_directory($path);
447
448 my $locallanguagesref = "";
449
450 if ( $$languagesref ) { $locallanguagesref = $$languagesref; }
451
452 if (!($locallanguagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files
453 {
454 my $languagestring = $$languagesref;
454 my $languagestring = installer::languages::get_language_directory_name($$languagesref);
455
455
456 if (length($languagestring) > $installer::globals::max_lang_length )
457 {
458 my $number_of_languages = get_number_of_langs($languagestring);
459 chomp(my $shorter = `echo $languagestring | md5sum | sed -e "s/ .*//g"`);
460 # $languagestring = $shorter;
461 my $id = substr($shorter, 0, 8); # taking only the first 8 digits
462 $languagestring = "lang_" . $number_of_languages . "_id_" . $id;
463 }
464
465 $path = $path . $languagestring . $installer::globals::separator;
466 create_directory($path);
467 }
468 }
469
470 installer::remover::remove_ending_pathseparator(\$path);
471
472 $path = installer::converter::make_path_conform($path);

--- 1329 unchanged lines hidden --- 		456 $path = $path . $languagestring . $installer::globals::separator;
457 create_directory($path);
458 }
459 }
460
461 installer::remover::remove_ending_pathseparator(\$path);
462
463 $path = installer::converter::make_path_conform($path);

--- 1329 unchanged lines hidden ---