control.pm (01a01bd6) control.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

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

423sub determine_ship_directory
424{
425 my ($languagesref) = @_;
426
427 if (!( $ENV{'SHIPDRIVE'} )) { installer::exiter::exit_program("ERROR: SHIPDRIVE must be set for updater!", "determine_ship_directory"); }
428
429 my $shipdrive = $ENV{'SHIPDRIVE'};
430
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

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

423sub determine_ship_directory
424{
425 my ($languagesref) = @_;
426
427 if (!( $ENV{'SHIPDRIVE'} )) { installer::exiter::exit_program("ERROR: SHIPDRIVE must be set for updater!", "determine_ship_directory"); }
428
429 my $shipdrive = $ENV{'SHIPDRIVE'};
430
431 my $languagestring = $$languagesref;
431 my $languagestring = installer::languages::get_language_directory_name($$languagesref);
432
432
433 if (length($languagestring) > $installer::globals::max_lang_length )
434 {
435 my $number_of_languages = installer::systemactions::get_number_of_langs($languagestring);
436 chomp(my $shorter = `echo $languagestring | md5sum | sed -e "s/ .*//g"`);
437 # $languagestring = $shorter;
438 my $id = substr($shorter, 0, 8); # taking only the first 8 digits
439 $languagestring = "lang_" . $number_of_languages . "_id_" . $id;
440 }
441
442 my $productstring = $installer::globals::product;
443 my $productsubdir = "";
444
445 if ( $productstring =~ /^\s*(.+?)\_\_(.+?)\s*$/ )
446 {
447 $productstring = $1;
448 $productsubdir = $2;
449 }

--- 304 unchanged lines hidden --- 		433 my $productstring = $installer::globals::product;
434 my $productsubdir = "";
435
436 if ( $productstring =~ /^\s*(.+?)\_\_(.+?)\s*$/ )
437 {
438 $productstring = $1;
439 $productsubdir = $2;
440 }

--- 304 unchanged lines hidden ---