xref: /AOO41X/main/solenv/bin/modules/installer/download.pm (revision dd40957be38e045b89e6c1b562adf7ea1602df9e) 
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
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22
23
24package installer::download;
25
26use File::Spec;
27use installer::exiter;
28use installer::files;
29use installer::globals;
30use installer::logger;
31use installer::pathanalyzer;
32use installer::remover;
33use installer::systemactions;
34
35use strict;
36
37BEGIN { # This is needed so that Cygwin's perl evaluates ACLs
38    # (needed for correctly evaluating the -x test.)
39    if( $^O =~ /cygwin/i ) {
40        require filetest; import filetest "access";
41    }
42}
43
44##################################################################
45# Including the lowercase product name into the script template
46##################################################################
47
48sub put_productname_into_script
49{
50    my ($scriptfile, $variableshashref) = @_;
51
52    my $productname = $variableshashref->{'PRODUCTNAME'};
53    $productname = lc($productname);
54    $productname =~ s/\.//g;    # openoffice.org -> openofficeorg
55    $productname =~ s/\s*//g;
56
57    $installer::logger::Lang->printf("Adding productname %s into download shell script\n", $productname);
58
59    for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
60    {
61        ${$scriptfile}[$i] =~ s/PRODUCTNAMEPLACEHOLDER/$productname/;
62    }
63}
64
65#########################################################
66# Including the linenumber into the script template
67#########################################################
68
69sub put_linenumber_into_script
70{
71    my ( $scriptfile ) = @_;
72
73    my $linenumber = $#{$scriptfile} + 2;
74
75    $installer::logger::Lang->printf("Adding linenumber %d into download shell script\n", $linenumber);
76
77    for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
78    {
79        ${$scriptfile}[$i] =~ s/LINENUMBERPLACEHOLDER/$linenumber/;
80    }
81}
82
83#########################################################
84# Determining the name of the new scriptfile
85#########################################################
86
87sub determine_scriptfile_name
88{
89    my ( $filename ) = @_;
90
91    $installer::globals::downloadfileextension = ".sh";
92    $filename = $filename . $installer::globals::downloadfileextension;
93    $installer::globals::downloadfilename = $filename;
94
95    $installer::logger::Lang->printf("Setting download shell script file name to %s\n", $filename);
96
97    return $filename;
98}
99
100#########################################################
101# Saving the script file in the installation directory
102#########################################################
103
104sub save_script_file
105{
106    my ($directory, $newscriptfilename, $scriptfile) = @_;
107
108    $newscriptfilename = $directory . $installer::globals::separator . $newscriptfilename;
109    installer::files::save_file($newscriptfilename, $scriptfile);
110
111    $installer::logger::Lang->printf("Saving script file %s\n", $newscriptfilename);
112
113    if ( ! $installer::globals::iswindowsbuild )
114    {
115        my $localcall = "chmod 775 $newscriptfilename \>\/dev\/null 2\>\&1";
116        system($localcall);
117    }
118
119    return $newscriptfilename;
120}
121
122#########################################################
123# Including checksum and size into script file
124#########################################################
125
126sub put_checksum_and_size_into_script
127{
128    my ($scriptfile, $sumout) = @_;
129
130    my $checksum = "";
131    my $size = "";
132
133    if ( $sumout =~ /^\s*(\d+)\s+(\d+)\s*$/ )
134    {
135        $checksum = $1;
136        $size = $2;
137    }
138    else
139    {
140        installer::exiter::exit_program("ERROR: Incorrect return value from /usr/bin/sum: $sumout", "put_checksum_and_size_into_script");
141    }
142
143    $installer::logger::Lang->printf(
144        "Adding checksum %s and size %s into download shell script\n", $checksum, $size);
145
146    for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
147    {
148        ${$scriptfile}[$i] =~ s/CHECKSUMPLACEHOLDER/$checksum/;
149        ${$scriptfile}[$i] =~ s/DISCSPACEPLACEHOLDER/$size/;
150    }
151
152}
153
154#########################################################
155# Calling md5sum
156#########################################################
157
158sub call_md5sum
159{
160    my ($filename) = @_;
161
162    my $md5sumfile = "/usr/bin/md5sum";
163
164    if ( ! -f $md5sumfile ) { installer::exiter::exit_program("ERROR: No file /usr/bin/md5sum", "call_md5sum"); }
165
166    my $systemcall = "$md5sumfile $filename |";
167
168    my $md5sumoutput = "";
169
170    open (SUM, "$systemcall");
171    $md5sumoutput = <SUM>;
172    close (SUM);
173
174    my $returnvalue = $?;   # $? contains the return value of the systemcall
175
176    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
177
178    if ($returnvalue)
179    {
180        $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
181    }
182    else
183    {
184        $installer::logger::Lang->print("Success: Executed \"%s\" successfully!\n", $systemcall);
185    }
186
187    return $md5sumoutput;
188}
189
190#########################################################
191# Calling md5sum
192#########################################################
193
194sub get_md5sum
195{
196    my ($md5sumoutput) = @_;
197
198    my $md5sum;
199
200    if ( $md5sumoutput =~ /^\s*(\w+?)\s+/ )
201    {
202        $md5sum = $1;
203    }
204    else
205    {
206        installer::exiter::exit_program("ERROR: Incorrect return value from /usr/bin/md5sum: $md5sumoutput", "get_md5sum");
207    }
208
209    $installer::logger::Lang->printf("Setting md5sum: %s\n", $md5sum);
210
211    return $md5sum;
212}
213
214#########################################################
215# Determining checksum and size of tar file
216#########################################################
217
218sub call_sum
219{
220    my ($filename, $getuidlibrary) = @_;
221
222    my $systemcall = "/usr/bin/sum $filename |";
223
224    my $sumoutput = "";
225
226    open (SUM, "$systemcall");
227    $sumoutput = <SUM>;
228    close (SUM);
229
230    my $returnvalue = $?;   # $? contains the return value of the systemcall
231
232    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
233
234    if ($returnvalue)
235    {
236        $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
237    }
238    else
239    {
240        $installer::logger::Lang->printf("Success: Executed \"%s\" successfully!\n", $systemcall);
241    }
242
243    $sumoutput =~ s/\s+$filename\s$//;
244    return $sumoutput;
245}
246
247#########################################################
248# Searching for the getuid.so in the solver
249#########################################################
250
251sub get_path_for_library
252{
253    my ($includepatharrayref) = @_;
254
255    my $getuidlibraryname = "getuid.so";
256
257    my $getuidlibraryref = "";
258
259    if ( $installer::globals::include_pathes_read )
260    {
261        $getuidlibraryref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$getuidlibraryname, $includepatharrayref, 0);
262    }
263    else
264    {
265        $getuidlibraryref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$getuidlibraryname, $includepatharrayref, 0);
266    }
267
268    if ($$getuidlibraryref eq "") { installer::exiter::exit_program("ERROR: Could not find $getuidlibraryname!", "get_path_for_library"); }
269
270    return $$getuidlibraryref;
271}
272
273#########################################################
274# Include the tar file into the script
275#########################################################
276
277sub include_tar_into_script
278{
279    my ($scriptfile, $temporary_tarfile) = @_;
280
281    my $systemcall = "cat $temporary_tarfile >> $scriptfile && rm $temporary_tarfile";
282    my $returnvalue = system($systemcall);
283
284    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
285
286    if ($returnvalue)
287    {
288        $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
289    }
290    else
291    {
292        $installer::logger::Lang->printf("Success: Executed \"%s\" successfully!\n", $systemcall);
293    }
294    return $returnvalue;
295}
296
297#########################################################
298# Create a tar file from the binary package
299#########################################################
300
301sub tar_package
302{
303    my ( $installdir, $tarfilename, $getuidlibrary) = @_;
304
305    my $ldpreloadstring = "";
306
307    if (($ENV{'FAKEROOT'} ne "no") && ($ENV{'FAKEROOT'} ne "")) {
308        $ldpreloadstring = $ENV{'FAKEROOT'};
309    } else {
310        if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
311    }
312
313    my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - * > $tarfilename";
314
315    my $returnvalue = system($systemcall);
316
317    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
318
319    if ($returnvalue)
320    {
321        $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
322    }
323    else
324    {
325        $installer::logger::Lang->printf("Success: Executed \"\" successfully!\n", $systemcall);
326    }
327
328    my $localcall = "chmod 775 $tarfilename \>\/dev\/null 2\>\&1";
329    $returnvalue = system($localcall);
330
331    return ( -s $tarfilename );
332}
333
334#########################################################
335# Creating a tar.gz file
336#########################################################
337
338sub create_tar_gz_file_from_package
339{
340    my ($installdir, $getuidlibrary) = @_;
341
342    my $alldirs = installer::systemactions::get_all_directories($installdir);
343    my $onedir = ${$alldirs}[0];
344    $installdir = $onedir;
345
346    my $allfiles = installer::systemactions::get_all_files_from_one_directory($installdir);
347
348    for ( my $i = 0; $i <= $#{$allfiles}; $i++ )
349    {
350        my $onefile = ${$allfiles}[$i];
351        my $systemcall = "cd $installdir; rm $onefile";
352        my $returnvalue = system($systemcall);
353
354        $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
355
356        if ($returnvalue)
357        {
358            $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
359        }
360        else
361        {
362            $installer::logger::Lang->printf("Success: Executed \"%s\" successfully!\n", $systemcall);
363        }
364    }
365
366    $alldirs = installer::systemactions::get_all_directories($installdir);
367    my $packagename = ${$alldirs}[0]; # only taking the first Solaris package
368    if ( $packagename eq "" ) { installer::exiter::exit_program("ERROR: Could not find package in directory $installdir!", "determine_packagename"); }
369
370    installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packagename);
371
372    $installer::globals::downloadfileextension = ".tar.gz";
373    my $targzname = $packagename . $installer::globals::downloadfileextension;
374    $installer::globals::downloadfilename = $targzname;
375
376    my $ldpreloadstring = "";
377
378    if (($ENV{'FAKEROOT'} ne "no") && ($ENV{'FAKEROOT'} ne "")) {
379        $ldpreloadstring = $ENV{'FAKEROOT'};
380    } else {
381        if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
382    }
383
384    my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename | gzip > $targzname";
385    $installer::logger::Info->printf("... %s ...\n", $systemcall);
386
387    my $returnvalue = system($systemcall);
388
389    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
390
391    if ($returnvalue)
392    {
393        $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
394    }
395    else
396    {
397        $installer::logger::Lang->printf("Success: Executed \"%s\" successfully!\n", $systemcall);
398    }
399}
400
401#########################################################
402# Setting type of installation
403#########################################################
404
405sub get_installation_type
406{
407    my $type = "";
408
409    if ( $installer::globals::languagepack ) { $type = "langpack"; }
410    else { $type = "install"; }
411
412    return $type;
413}
414
415#########################################################
416# Setting installation languages
417#########################################################
418
419sub get_downloadname_language
420{
421    my ($languagestringref) = @_;
422
423    my $languages = $$languagestringref;
424
425    if ( $installer::globals::added_english )
426    {
427        $languages =~ s/en-US_//;
428        $languages =~ s/_en-US//;
429    }
430
431    # en-US is default language and can be removed therefore
432    # for one-language installation sets
433
434    # if ( $languages =~ /^\s*en-US\s*$/ )
435    # {
436    #   $languages = "";
437    # }
438
439    if ( length ($languages) > $installer::globals::max_lang_length )
440    {
441        $languages = 'multi';
442    }
443
444    return $languages;
445}
446
447#########################################################
448# Setting download name
449#########################################################
450
451sub get_downloadname_productname
452{
453    my ($allvariables) = @_;
454
455    my $start;
456
457    if ( $allvariables->{'AOODOWNLOADNAMEPREFIX'} )
458    {
459        $start = $allvariables->{'AOODOWNLOADNAMEPREFIX'};
460    }
461    else
462    {
463        $start = "Apache_OpenOffice";
464        if ( $allvariables->{'PRODUCTNAME'} eq "OpenOffice" )
465        {
466            if ( $allvariables->{'POSTVERSIONEXTENSION'} eq "SDK" )
467            {
468                $start .= "-SDK";
469            }
470        }
471
472        if ( $allvariables->{'PRODUCTNAME'} eq "AOO-Developer-Build" )
473        {
474            if ( $allvariables->{'POSTVERSIONEXTENSION'} eq "SDK" )
475            {
476                $start .= "-Dev-SDK";
477            }
478            else
479            {
480                $start .= "-Dev";
481            }
482        }
483
484        if ( $allvariables->{'PRODUCTNAME'} eq "URE" )
485        {
486            $start .= "-URE";
487        }
488    }
489
490    return $start;
491}
492
493#########################################################
494# Setting download version
495#########################################################
496
497sub get_download_version
498{
499    my ($allvariables) = @_;
500
501    my $version = "";
502
503    my $devproduct = 0;
504    if (( $allvariables->{'DEVELOPMENTPRODUCT'} ) && ( $allvariables->{'DEVELOPMENTPRODUCT'} == 1 )) { $devproduct = 1; }
505
506    my $cwsproduct = 0;
507    # the environment variable CWS_WORK_STAMP is set only in CWS
508    if ( $ENV{'CWS_WORK_STAMP'} ) { $cwsproduct = 1; }
509
510    if (( $cwsproduct ) || ( $devproduct )) # use "DEV300m75"
511    {
512        my $source = uc($installer::globals::build); # DEV300
513        my $localminor = "";
514        if ( $installer::globals::minor ne "" ) { $localminor = $installer::globals::minor; }
515        else { $localminor = $installer::globals::lastminor; }
516        $version = $source . $localminor;
517    }
518    else # use 3.2.0rc1
519    {
520        $version = $allvariables->{'PRODUCTVERSION'};
521        if (( $allvariables->{'ABOUTBOXPRODUCTVERSION'} ) && ( $allvariables->{'ABOUTBOXPRODUCTVERSION'} ne "" )) { $version = $allvariables->{'ABOUTBOXPRODUCTVERSION'}; }
522        if (( $allvariables->{'SHORT_PRODUCTEXTENSION'} ) && ( $allvariables->{'SHORT_PRODUCTEXTENSION'} ne "" )) { $version = $version . $allvariables->{'SHORT_PRODUCTEXTENSION'}; }
523    }
524
525    return $version;
526}
527
528###############################################################
529# Set date string, format: yymmdd
530###############################################################
531
532sub set_date_string
533{
534    my ($allvariables) = @_;
535
536    my $datestring = "";
537
538    my $devproduct = 0;
539    if (( $allvariables->{'DEVELOPMENTPRODUCT'} ) && ( $allvariables->{'DEVELOPMENTPRODUCT'} == 1 )) { $devproduct = 1; }
540
541    my $cwsproduct = 0;
542    # the environment variable CWS_WORK_STAMP is set only in CWS
543    if ( $ENV{'CWS_WORK_STAMP'} ) { $cwsproduct = 1; }
544
545    my $releasebuild = 1;
546    if (( $allvariables->{'SHORT_PRODUCTEXTENSION'} ) && ( $allvariables->{'SHORT_PRODUCTEXTENSION'} ne "" )) { $releasebuild = 0; }
547
548    if (( ! $devproduct ) && ( ! $cwsproduct ) && ( ! $releasebuild ))
549    {
550        my @timearray = localtime(time);
551
552        my $day = $timearray[3];
553        my $month = $timearray[4] + 1;
554        my $year = $timearray[5] + 1900;
555
556        if ( $month < 10 ) { $month = "0" . $month; }
557        if ( $day < 10 ) { $day = "0" . $day; }
558
559        $datestring = $year . $month . $day;
560    }
561
562    return $datestring;
563}
564
565#################################################################
566# Setting the platform name for download
567#################################################################
568
569sub get_download_platformname
570{
571    my $platformname = "";
572
573    if ( $installer::globals::islinuxbuild )
574    {
575        $platformname = "Linux";
576    }
577    elsif ( $installer::globals::issolarisbuild )
578    {
579        $platformname = "Solaris";
580    }
581    elsif ( $installer::globals::iswindowsbuild )
582    {
583        $platformname = "Win";
584    }
585    elsif ( $installer::globals::isfreebsdbuild )
586    {
587        $platformname = "FreeBSD";
588    }
589    elsif ( $installer::globals::ismacbuild )
590    {
591        $platformname = "MacOS";
592    }
593    else
594    {
595        # $platformname = $installer::globals::packageformat;
596        $platformname = $installer::globals::compiler;
597    }
598
599    return $platformname;
600}
601
602#########################################################
603# Setting the architecture for the download name
604#########################################################
605
606sub get_download_architecture
607{
608    my $arch = "";
609
610    if(( $installer::globals::compiler =~ /^unxlngi/ )
611    || ( $installer::globals::compiler =~ /^unxmac.i/ )
612    || ( $installer::globals::issolarisx86build )
613    || ( $installer::globals::iswindowsbuild ))
614    {
615        $arch = "x86";
616    }
617    elsif(( $installer::globals::compiler =~ /^unxlngx/ )
618    ||    ( $installer::globals::compiler =~ /^unxmaccx/ ))
619    {
620        $arch = "x86-64";
621    }
622    elsif ( $installer::globals::issolarissparcbuild )
623    {
624        $arch = "Sparc";
625    }
626    elsif(( $installer::globals::compiler =~ /^unxmacxp/ )
627    ||    ( $installer::globals::compiler =~ /^unxlngppc/ ))
628    {
629        $arch = "PPC";
630    }
631
632    return $arch;
633}
634
635#########################################################
636# Setting the installation type for the download name
637#########################################################
638
639sub get_install_type
640{
641    my ($allvariables) = @_;
642
643    my $type = "";
644
645    if ( $installer::globals::languagepack )
646    {
647        $type = "langpack";
648
649        if ( $installer::globals::islinuxrpmbuild )
650        {
651            $type = $type . "-rpm";
652        }
653
654        if ( $installer::globals::islinuxdebbuild )
655        {
656            $type = $type . "-deb";
657        }
658
659        if ( $installer::globals::packageformat eq "archive" )
660        {
661            $type = $type . "-arc";
662        }
663    }
664    else
665    {
666        $type = "install";
667
668        if ( $installer::globals::islinuxrpmbuild )
669        {
670            $type = $type . "-rpm";
671        }
672
673        if ( $installer::globals::islinuxdebbuild )
674        {
675            $type = $type . "-deb";
676        }
677
678        if ( $installer::globals::packageformat eq "archive" )
679        {
680            $type = $type . "-arc";
681        }
682
683        if (( $allvariables->{'WITHJREPRODUCT'} ) && ( $allvariables->{'WITHJREPRODUCT'} == 1 ))
684        {
685            $type = $type . "-wJRE";
686        }
687
688    }
689
690    return $type;
691}
692
693#########################################################
694# Setting installation addons
695#########################################################
696
697sub get_downloadname_addon
698{
699    my $addon = "";
700
701    if ( $installer::globals::islinuxdebbuild ) { $addon = $addon . "_deb"; }
702
703    if ( $installer::globals::product =~ /_wJRE\s*$/ ) { $addon = "_wJRE"; }
704
705    return $addon;
706}
707
708#########################################################
709# Looking for versionstring in version.info
710# This has to be the only content of this file.
711#########################################################
712
713sub get_versionstring
714{
715    my ( $versionfile ) = @_;
716
717    my $versionstring = "";
718
719    for ( my $i = 0; $i <= $#{$versionfile}; $i++ )
720    {
721        my $oneline = ${$versionfile}[$i];
722
723        if ( $oneline =~ /^\s*\#/ ) { next; } # comment line
724        if ( $oneline =~ /^\s*\"\s*(.*?)\s*\"\s*$/ )
725        {
726            $versionstring = $1;
727            last;
728        }
729    }
730
731    return $versionstring;
732}
733
734#########################################################
735# Returning the current product version
736# This has to be defined in file "version.info"
737# in directory $installer::globals::ooouploaddir
738#########################################################
739
740sub get_current_version
741{
742    my $versionstring = "";
743    my $filename = "version.info";
744    # $filename = $installer::globals::ooouploaddir . $installer::globals::separator . $filename;
745
746    if ( -f $filename )
747    {
748        $installer::logger::Lang->printf("File %s exists. Trying to find current version.\n", $filename);
749        my $versionfile = installer::files::read_file($filename);
750        $versionstring = get_versionstring($versionfile);
751        $installer::logger::Lang->printf("Setting version string: %s\n", $versionstring);
752    }
753    else
754    {
755        $installer::logger::Lang->printf("File %s does not exist. No version setting in download file name.\n", $filename);
756    }
757
758    $installer::globals::oooversionstring = $versionstring;
759
760    return $versionstring;
761}
762
763###############################################################################################
764# Setting the download file name
765# Syntax:
766# (PRODUCTNAME)_(VERSION)_(TIMESTAMP)_(OS)_(ARCH)_(INSTALLTYPE)_(LANGUAGE).(FILEEXTENSION)
767# Rules:
768# Timestamp only for Beta and Release Candidate
769###############################################################################################
770
771sub set_download_filename
772{
773    my ($languagestringref, $allvariables) = @_;
774
775    my $start = get_downloadname_productname($allvariables);
776    my $versionstring = get_download_version($allvariables);
777    my $date = set_date_string($allvariables);
778    my $platform = get_download_platformname();
779    my $architecture = get_download_architecture();
780    my $type = get_install_type($allvariables);
781    my $language = get_downloadname_language($languagestringref);
782
783    # Setting the extension happens automatically
784
785    my $filename = $start . "_" . $versionstring . "_" . $date . "_" . $platform . "_" . $architecture . "_" . $type . "_" . $language;
786
787    $filename =~ s/\_\_/\_/g;   # necessary, if $versionstring or $platform or $language are empty
788    $filename =~ s/\_\s*$//;    # necessary, if $language and $addon are empty
789
790    $installer::globals::ooodownloadfilename = $filename;
791
792    return $filename;
793}
794
795#########################################################
796# Creating a tar.gz file
797#########################################################
798
799sub create_tar_gz_file_from_directory
800{
801    my ($installdir, $getuidlibrary, $downloaddir, $downloadfilename) = @_;
802
803    my $packdir = $installdir;
804    installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packdir);
805    my $changedir = $installdir;
806    installer::pathanalyzer::get_path_from_fullqualifiedname(\$changedir);
807
808    my $ldpreloadstring = "";
809
810    if (($ENV{'FAKEROOT'} ne "no") && ($ENV{'FAKEROOT'} ne "")) {
811        $ldpreloadstring = $ENV{'FAKEROOT'};
812    } else {
813        if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
814    }
815
816    $installer::globals::downloadfileextension = ".tar.gz";
817    $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension;
818    my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename;
819
820    my $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname";
821
822    my $returnvalue = system($systemcall);
823
824    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
825
826    if ($returnvalue)
827    {
828        $installer::logger::Lang->printf("ERROR: Could not execute \"%s\"!\n", $systemcall);
829    }
830    else
831    {
832        $installer::logger::Lang->printf("Success: Executed \"%s\" successfully!\n", $systemcall);
833    }
834
835    return $targzname;
836}
837
838#########################################################
839# Setting the variables in the download name
840#########################################################
841
842sub resolve_variables_in_downloadname
843{
844    my ($allvariables, $downloadname, $languagestringref) = @_;
845
846    # Typical name: soa-{productversion}-{extension}-bin-{os}-{languages}
847
848    my $productversion = $allvariables->{'PRODUCTVERSION'};
849    $productversion = "" unless defined $productversion;
850    $downloadname =~ s/\{productversion\}/$productversion/;
851
852    my $packageversion = $allvariables->{'PACKAGEVERSION'};
853    $packageversion = "" unless defined $packageversion;
854    $downloadname =~ s/\{packageversion\}/$packageversion/;
855
856    my $extension = $allvariables->{'SHORT_PRODUCTEXTENSION'};
857    $extension = "" unless defined $extension;
858    $extension = lc($extension);
859    $downloadname =~ s/\{extension\}/$extension/;
860
861    my $os = "";
862    if ( $installer::globals::iswindowsbuild ) { $os = "windows"; }
863    elsif ( $installer::globals::issolarissparcbuild ) { $os = "solsparc"; }
864    elsif ( $installer::globals::issolarisx86build ) { $os = "solia"; }
865    elsif ( $installer::globals::islinuxbuild ) { $os = "linux"; }
866    elsif ( $installer::globals::compiler =~ /unxmac.i/ ) { $os = "macosi"; }
867    elsif ( $installer::globals::compiler =~ /unxmac.x/ ) { $os = "macosx"; }
868    elsif ( $installer::globals::compiler =~ /unxmacxp/ ) { $os = "macosp"; }
869    else { $os = ""; }
870    $downloadname =~ s/\{os\}/$os/;
871
872    my $languages = $$languagestringref;
873    $downloadname =~ s/\{languages\}/$languages/;
874
875    $downloadname =~ s/\-\-\-/\-/g;
876    $downloadname =~ s/\-\-/\-/g;
877    $downloadname =~ s/\-\s*$//;
878
879    return $downloadname;
880}
881
882##################################################################
883# Windows: Replacing one placeholder with the specified value
884##################################################################
885
886sub replace_one_variable
887{
888    my ($templatefile, $placeholder, $value) = @_;
889
890    $installer::logger::Lang->printf("Replacing %s by %s in nsi file\n", $placeholder, $value);
891
892    for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
893    {
894        ${$templatefile}[$i] =~ s/$placeholder/$value/g;
895    }
896
897}
898
899########################################################################################
900# Converting a string to a unicode string
901########################################################################################
902
903sub convert_to_unicode
904{
905    my ($string) = @_;
906
907    my $unicodestring = "";
908
909    my $stringlength = length($string);
910
911    for ( my $i = 0; $i < $stringlength; $i++ )
912    {
913        $unicodestring = $unicodestring . substr($string, $i, 1);
914        $unicodestring = $unicodestring . chr(0);
915    }
916
917    return $unicodestring;
918}
919
920##################################################################
921# Windows: Including the product name into nsi template
922##################################################################
923
924sub put_windows_productname_into_template
925{
926    my ($templatefile, $variableshashref) = @_;
927
928    my $productname = $variableshashref->{'PRODUCTNAME'};
929    $productname =~ s/\.//g;    # OpenOffice.org -> OpenOfficeorg
930
931    replace_one_variable($templatefile, "PRODUCTNAMEPLACEHOLDER", $productname);
932}
933
934##################################################################
935# Windows: Including the path to the banner.bmp into nsi template
936##################################################################
937
938sub put_banner_bmp_into_template
939{
940    my ($templatefile, $includepatharrayref, $allvariables) = @_;
941
942    # my $filename = "downloadbanner.bmp";
943    if ( ! $allvariables->{'DOWNLOADBANNER'} ) { installer::exiter::exit_program("ERROR: DOWNLOADBANNER not defined in product definition!", "put_banner_bmp_into_template"); }
944    my $filename = $allvariables->{'DOWNLOADBANNER'};
945
946    my $completefilenameref = "";
947
948    if ( $installer::globals::include_pathes_read )
949    {
950        $completefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 0);
951    }
952    else
953    {
954        $completefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$filename, $includepatharrayref, 0);
955    }
956
957    if ($$completefilenameref eq "") { installer::exiter::exit_program("ERROR: Could not find download file $filename!", "put_banner_bmp_into_template"); }
958
959    if ( $^O =~ /cygwin/i ) { $$completefilenameref =~ s/\//\\/g; }
960
961    replace_one_variable($templatefile, "BANNERBMPPLACEHOLDER", $$completefilenameref);
962}
963
964##################################################################
965# Windows: Including the path to the welcome.bmp into nsi template
966##################################################################
967
968sub put_welcome_bmp_into_template
969{
970    my ($templatefile, $includepatharrayref, $allvariables) = @_;
971
972    # my $filename = "downloadbitmap.bmp";
973    if ( ! $allvariables->{'DOWNLOADBITMAP'} ) { installer::exiter::exit_program("ERROR: DOWNLOADBITMAP not defined in product definition!", "put_welcome_bmp_into_template"); }
974    my $filename = $allvariables->{'DOWNLOADBITMAP'};
975
976    my $completefilenameref = "";
977
978    if ( $installer::globals::include_pathes_read )
979    {
980        $completefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 0);
981    }
982    else
983    {
984        $completefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$filename, $includepatharrayref, 0);
985    }
986
987    if ($$completefilenameref eq "") { installer::exiter::exit_program("ERROR: Could not find download file $filename!", "put_welcome_bmp_into_template"); }
988
989    if ( $^O =~ /cygwin/i ) { $$completefilenameref =~ s/\//\\/g; }
990
991    replace_one_variable($templatefile, "WELCOMEBMPPLACEHOLDER", $$completefilenameref);
992}
993
994##################################################################
995# Windows: Including the path to the setup.ico into nsi template
996##################################################################
997
998sub put_setup_ico_into_template
999{
1000    my ($templatefile, $includepatharrayref, $allvariables) = @_;
1001
1002    # my $filename = "downloadsetup.ico";
1003    if ( ! $allvariables->{'DOWNLOADSETUPICO'} ) { installer::exiter::exit_program("ERROR: DOWNLOADSETUPICO not defined in product definition!", "put_setup_ico_into_template"); }
1004    my $filename = $allvariables->{'DOWNLOADSETUPICO'};
1005
1006    my $completefilenameref = "";
1007
1008    if ( $installer::globals::include_pathes_read )
1009    {
1010        $completefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 0);
1011    }
1012    else
1013    {
1014        $completefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$filename, $includepatharrayref, 0);
1015    }
1016
1017    if ($$completefilenameref eq "") { installer::exiter::exit_program("ERROR: Could not find download file $filename!", "put_setup_ico_into_template"); }
1018
1019    if ( $^O =~ /cygwin/i ) { $$completefilenameref =~ s/\//\\/g; }
1020
1021    replace_one_variable($templatefile, "SETUPICOPLACEHOLDER", $$completefilenameref);
1022}
1023
1024##################################################################
1025# Windows: Including the publisher into nsi template
1026##################################################################
1027
1028sub put_publisher_into_template ($$)
1029{
1030    my ($templatefile, $variables) = @_;
1031
1032    my $publisher = $variables->{'OOOVENDOR'};
1033    $publisher = "" unless defined $publisher;
1034
1035    replace_one_variable($templatefile, "PUBLISHERPLACEHOLDER", $publisher);
1036}
1037
1038##################################################################
1039# Windows: Including the web site into nsi template
1040##################################################################
1041
1042sub put_website_into_template ($$)
1043{
1044    my ($templatefile, $variables) = @_;
1045
1046    my $website = $variables->{'STARTCENTER_INFO_URL'};
1047    $website = "" unless defined $website;
1048
1049    replace_one_variable($templatefile, "WEBSITEPLACEHOLDER", $website);
1050}
1051
1052##################################################################
1053# Windows: Including the Java file name into nsi template
1054##################################################################
1055
1056sub put_javafilename_into_template
1057{
1058    my ($templatefile, $variableshashref) = @_;
1059
1060    my $javaversion = "";
1061
1062    if ( $variableshashref->{'WINDOWSJAVAFILENAME'} ) { $javaversion = $variableshashref->{'WINDOWSJAVAFILENAME'}; }
1063
1064    replace_one_variable($templatefile, "WINDOWSJAVAFILENAMEPLACEHOLDER", $javaversion);
1065}
1066
1067##################################################################
1068# Windows: Including the product version into nsi template
1069##################################################################
1070
1071sub put_windows_productversion_into_template
1072{
1073    my ($templatefile, $variableshashref) = @_;
1074
1075    my $productversion = $variableshashref->{'PRODUCTVERSION'};
1076
1077    replace_one_variable($templatefile, "PRODUCTVERSIONPLACEHOLDER", $productversion);
1078}
1079
1080##################################################################
1081# Windows: Including the product path into nsi template
1082##################################################################
1083
1084sub put_windows_productpath_into_template
1085{
1086    my ($templatefile, $variableshashref, $languagestringref, $localnsisdir) = @_;
1087
1088    my $productpath = $variableshashref->{'PROPERTYTABLEPRODUCTNAME'};
1089
1090    my $locallangs = $$languagestringref;
1091    $locallangs =~ s/_/ /g;
1092    if (length($locallangs) > $installer::globals::max_lang_length) { $locallangs = "multi lingual"; }
1093
1094    if ( ! $installer::globals::languagepack ) { $productpath = $productpath . " (" . $locallangs . ")"; }
1095
1096    replace_one_variable($templatefile, "PRODUCTPATHPLACEHOLDER", $productpath);
1097}
1098
1099##################################################################
1100# Windows: Including download file name into nsi template
1101##################################################################
1102
1103sub put_outputfilename_into_template
1104{
1105    my ($templatefile, $downloadname) = @_;
1106
1107    $installer::globals::downloadfileextension = ".exe";
1108    $downloadname = $downloadname . $installer::globals::downloadfileextension;
1109    $installer::globals::downloadfilename = $downloadname;
1110
1111    replace_one_variable($templatefile, "DOWNLOADNAMEPLACEHOLDER", $downloadname);
1112}
1113
1114##################################################################
1115# Windows: Generating the file list in nsi file format
1116##################################################################
1117
1118sub get_file_list
1119{
1120    my ( $basedir ) = @_;
1121
1122    my @filelist = ();
1123
1124    my $alldirs = installer::systemactions::get_all_directories($basedir);
1125    unshift(@{$alldirs}, $basedir); # $basedir is the first directory in $alldirs
1126
1127    for ( my $i = 0; $i <= $#{$alldirs}; $i++ )
1128    {
1129        my $onedir = ${$alldirs}[$i];
1130
1131        # Syntax:
1132        # SetOutPath "$INSTDIR"
1133
1134        my $relativedir = $onedir;
1135        $relativedir =~ s/\Q$basedir\E//;
1136
1137        my $oneline = " " . "SetOutPath" . " " . "\"\$INSTDIR" . $relativedir . "\"" . "\n";
1138
1139        if ( $^O =~ /cygwin/i ) {
1140            $oneline =~ s/\//\\/g;
1141        }
1142        push(@filelist, $oneline);
1143
1144        # Collecting all files in the specific directory
1145
1146        my $files = installer::systemactions::get_all_files_from_one_directory($onedir);
1147
1148        for ( my $j = 0; $j <= $#{$files}; $j++ )
1149        {
1150            my $onefile = ${$files}[$j];
1151
1152            my $fileline = "  " . "File" . " " . "\"" . $onefile . "\"" . "\n";
1153
1154            if ( $^O =~ /cygwin/i ) {
1155                $fileline =~ s/\//\\/g;
1156            }
1157            push(@filelist, $fileline);
1158        }
1159    }
1160
1161    return \@filelist;
1162}
1163
1164##################################################################
1165# Windows: Including list of all files into nsi template
1166##################################################################
1167
1168sub put_filelist_into_template
1169{
1170    my ($templatefile, $installationdir) = @_;
1171
1172    my $filelist = get_file_list($installationdir);
1173
1174    my $filestring = "";
1175
1176    for ( my $i = 0; $i <= $#{$filelist}; $i++ )
1177    {
1178        $filestring = $filestring . ${$filelist}[$i];
1179    }
1180
1181    $filestring =~ s/\s*$//;
1182
1183    replace_one_variable($templatefile, "ALLFILESPLACEHOLDER", $filestring);
1184}
1185
1186##################################################################
1187# Windows: NSIS uses specific language names
1188##################################################################
1189
1190sub nsis_language_converter
1191{
1192    my ($language) = @_;
1193
1194    my $nsislanguage = "";
1195
1196    # Assign language used by NSIS.
1197    # The files "$nsislanguage.nsh" and "$nsislanguage.nlf"
1198    # are needed in the NSIS environment.
1199    # Directory: <NSIS-Dir>/Contrib/Language files
1200    if ( $language eq "en-US" ) { $nsislanguage = "English"; }
1201    elsif ( $language eq "af" ) { $nsislanguage = "Afrikaans"; }
1202    elsif ( $language eq "sq" ) { $nsislanguage = "Albanian"; }
1203    elsif ( $language eq "ar" ) { $nsislanguage = "Arabic"; }
1204    elsif ( $language eq "hy" ) { $nsislanguage = "Armenian"; }
1205    elsif ( $language eq "ast" ) { $nsislanguage = "Asturian"; }
1206    elsif ( $language eq "eu" ) { $nsislanguage = "Basque"; }
1207    elsif ( $language eq "bg" ) { $nsislanguage = "Bulgarian"; }
1208    elsif ( $language eq "ca" ) { $nsislanguage = "Catalan"; }
1209    elsif ( $language eq "hr" ) { $nsislanguage = "Croatian"; }
1210    elsif ( $language eq "cs" ) { $nsislanguage = "Czech"; }
1211    elsif ( $language eq "da" ) { $nsislanguage = "Danish"; }
1212    elsif ( $language eq "nl" ) { $nsislanguage = "Dutch"; }
1213    elsif ( $language eq "en-GB" ) { $nsislanguage = "English"; }
1214    elsif ( $language eq "eo" ) { $nsislanguage = "Esperanto"; }
1215    elsif ( $language eq "et" ) { $nsislanguage = "Estonian"; }
1216    elsif ( $language eq "fa" ) { $nsislanguage = "Farsi"; }
1217    elsif ( $language eq "fi" ) { $nsislanguage = "Finnish"; }
1218    elsif ( $language eq "fr" ) { $nsislanguage = "French"; }
1219    elsif ( $language eq "gl" ) { $nsislanguage = "Galician"; }
1220    elsif ( $language eq "de" ) { $nsislanguage = "German"; }
1221    elsif ( $language eq "el" ) { $nsislanguage = "Greek"; }
1222    elsif ( $language eq "he" ) { $nsislanguage = "Hebrew"; }
1223    elsif ( $language eq "hi" ) { $nsislanguage = "Hindi"; }
1224    elsif ( $language eq "hu" ) { $nsislanguage = "Hungarian"; }
1225    elsif ( $language eq "is" ) { $nsislanguage = "Icelandic"; }
1226    elsif ( $language eq "id" ) { $nsislanguage = "Indonesian"; }
1227    elsif ( $language eq "it" ) { $nsislanguage = "Italian"; }
1228    elsif ( $language eq "ja" ) { $nsislanguage = "Japanese"; }
1229    elsif ( $language eq "ko" ) { $nsislanguage = "Korean"; }
1230    elsif ( $language eq "lv" ) { $nsislanguage = "Latvian"; }
1231    elsif ( $language eq "lt" ) { $nsislanguage = "Lithuanian"; }
1232    elsif ( $language eq "de-LU" ) { $nsislanguage = "Luxembourgish"; }
1233    elsif ( $language eq "mk" ) { $nsislanguage = "Macedonian"; }
1234    elsif ( $language eq "mn" ) { $nsislanguage = "Mongolian"; }
1235    elsif ( $language eq "nb" ) { $nsislanguage = "Norwegian"; }
1236    elsif ( $language eq "no" ) { $nsislanguage = "Norwegian"; }
1237    elsif ( $language eq "no-NO" ) { $nsislanguage = "Norwegian"; }
1238    elsif ( $language eq "nn" ) { $nsislanguage = "NorwegianNynorsk"; }
1239    elsif ( $language eq "pl" ) { $nsislanguage = "Polish"; }
1240    elsif ( $language eq "pt" ) { $nsislanguage = "Portuguese"; }
1241    elsif ( $language eq "pt-BR" ) { $nsislanguage = "PortugueseBR"; }
1242    elsif ( $language eq "ro" ) { $nsislanguage = "Romanian"; }
1243    elsif ( $language eq "ru" ) { $nsislanguage = "Russian"; }
1244    elsif ( $language eq "gd" ) { $nsislanguage = "ScotsGaelic"; }
1245    elsif ( $language eq "sr" ) { $nsislanguage = "Serbian"; }
1246    elsif ( $language eq "sr-SP" ) { $nsislanguage = "Serbian"; }
1247    elsif ( $language eq "sh" ) { $nsislanguage = "SerbianLatin"; }
1248    elsif ( $language eq "zh-CN" ) { $nsislanguage = "SimpChinese"; }
1249    elsif ( $language eq "sk" ) { $nsislanguage = "Slovak"; }
1250    elsif ( $language eq "sl" ) { $nsislanguage = "Slovenian"; }
1251    elsif ( $language eq "es" ) { $nsislanguage = "Spanish"; }
1252    elsif ( $language eq "sv" ) { $nsislanguage = "Swedish"; }
1253    elsif ( $language eq "th" ) { $nsislanguage = "Thai"; }
1254    elsif ( $language eq "zh-TW" ) { $nsislanguage = "TradChinese"; }
1255    elsif ( $language eq "tr" ) { $nsislanguage = "Turkish"; }
1256    elsif ( $language eq "uk" ) { $nsislanguage = "Ukrainian"; }
1257    elsif ( $language eq "vi" ) { $nsislanguage = "Vietnamese"; }
1258    elsif ( $language eq "cy" ) { $nsislanguage = "Welsh"; }
1259    else
1260    {
1261        $installer::logger::Lang->printf("NSIS language_converter : Could not find nsis language for %s!\n", $language);
1262        $nsislanguage = "English";
1263    }
1264
1265    return $nsislanguage;
1266}
1267
1268##################################################################
1269# Windows: Including list of all languages into nsi template
1270##################################################################
1271
1272sub put_language_list_into_template
1273{
1274    my ($templatefile, $languagesarrayref) = @_;
1275
1276    my $alllangstring = "";
1277    my %nsislangs;
1278
1279    for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ )
1280    {
1281        my $onelanguage = ${$languagesarrayref}[$i];
1282        my $nsislanguage = nsis_language_converter($onelanguage);
1283        $nsislangs{$nsislanguage}++;
1284    }
1285
1286    foreach my $nsislanguage ( keys(%nsislangs) )
1287    {
1288        # Syntax: !insertmacro MUI_LANGUAGE "English"
1289        my $langstring = "\!insertmacro MUI_LANGUAGE_PACK " . $nsislanguage . "\n";
1290        if ( $nsislanguage eq "English" )
1291        {
1292            $alllangstring = $langstring . $alllangstring;
1293        }
1294        else
1295        {
1296            $alllangstring = $alllangstring . $langstring;
1297        }
1298    }
1299
1300    $alllangstring =~ s/\s*$//;
1301
1302    replace_one_variable($templatefile, "ALLLANGUAGESPLACEHOLDER", $alllangstring);
1303}
1304
1305##################################################################
1306# Windows: Collecting all identifier from mlf file
1307##################################################################
1308
1309sub get_identifier
1310{
1311    my ( $mlffile ) = @_;
1312
1313    my @identifier = ();
1314
1315    for ( my $i = 0; $i <= $#{$mlffile}; $i++ )
1316    {
1317        my $oneline = ${$mlffile}[$i];
1318
1319        if ( $oneline =~ /^\s*\[(.+)\]\s*$/ )
1320        {
1321            my $identifier = $1;
1322            push(@identifier, $identifier);
1323        }
1324    }
1325
1326    return \@identifier;
1327}
1328
1329##############################################################
1330# Returning the complete block in all languages
1331# for a specified string
1332##############################################################
1333
1334sub get_language_block_from_language_file
1335{
1336    my ($searchstring, $languagefile) = @_;
1337
1338    my @language_block = ();
1339
1340    for ( my $i = 0; $i <= $#{$languagefile}; $i++ )
1341    {
1342        if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ )
1343        {
1344            my $counter = $i;
1345
1346            push(@language_block, ${$languagefile}[$counter]);
1347            $counter++;
1348
1349            while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ )))
1350            {
1351                push(@language_block, ${$languagefile}[$counter]);
1352                $counter++;
1353            }
1354
1355            last;
1356        }
1357    }
1358
1359    return \@language_block;
1360}
1361
1362##############################################################
1363# Returning a specific language string from the block
1364# of all translations
1365##############################################################
1366
1367sub get_language_string_from_language_block
1368{
1369    my ($language_block, $language) = @_;
1370
1371    my $newstring = "";
1372
1373    for ( my $i = 0; $i <= $#{$language_block}; $i++ )
1374    {
1375        if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
1376        {
1377            $newstring = $1;
1378            last;
1379        }
1380    }
1381
1382    if ( $newstring eq "" )
1383    {
1384        $language = "en-US";    # defaulting to English
1385
1386        for ( my $i = 0; $i <= $#{$language_block}; $i++ )
1387        {
1388            if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
1389            {
1390                $newstring = $1;
1391                last;
1392            }
1393        }
1394    }
1395
1396    return $newstring;
1397}
1398
1399##################################################################
1400# Windows: Replacing strings in NSIS nsh file
1401# nsh file syntax:
1402# !define MUI_TEXT_DIRECTORY_TITLE "Zielverzeichnis auswählen"
1403##################################################################
1404
1405sub replace_identifier_in_nshfile
1406{
1407    my ( $nshfile, $identifier, $newstring, $nshfilename, $onelanguage ) = @_;
1408
1409    $newstring =~ s/\\r/\$\\r/g; # \r -> $\r in modern nsis versions
1410    $newstring =~ s/\\n/\$\\n/g; # \n -> $\n in modern nsis versions
1411
1412    for ( my $i = 0; $i <= $#{$nshfile}; $i++ )
1413    {
1414        if ( ${$nshfile}[$i] =~ /\s+\Q$identifier\E\s+\"(.+)\"\s*$/ )
1415        {
1416            my $oldstring = $1;
1417            ${$nshfile}[$i] =~ s/\Q$oldstring\E/$newstring/;
1418            $installer::logger::Lang->printf("NSIS replacement in %s (%s): \-\> %s\n",
1419                $nshfilename,
1420                $onelanguage,
1421                $oldstring,
1422                $newstring);
1423        }
1424    }
1425}
1426
1427##################################################################
1428# Windows: Replacing strings in NSIS nlf file
1429# nlf file syntax (2 lines):
1430# # ^DirSubText
1431# Zielverzeichnis
1432##################################################################
1433
1434sub replace_identifier_in_nlffile
1435{
1436    my ( $nlffile, $identifier, $newstring, $nlffilename, $onelanguage ) = @_;
1437
1438    for ( my $i = 0; $i <= $#{$nlffile}; $i++ )
1439    {
1440        if ( ${$nlffile}[$i] =~ /^\s*\#\s+\^\s*\Q$identifier\E\s*$/ )
1441        {
1442            my $next = $i+1;
1443            my $oldstring = ${$nlffile}[$next];
1444            ${$nlffile}[$next] = $newstring . "\n";
1445            $oldstring =~ s/\s*$//;
1446            $installer::logger::Lang->printf("NSIS replacement in %s (%s): %s \-\> %s\n",
1447                $nlffilename,
1448                $onelanguage,
1449                $oldstring,
1450                $newstring);
1451        }
1452    }
1453}
1454
1455##################################################################
1456# Windows: Translating the NSIS nsh and nlf file
1457##################################################################
1458
1459sub translate_nsh_nlf_file
1460{
1461    my ($nshfile, $nlffile, $mlffile, $onelanguage, $nshfilename, $nlffilename, $nsislanguage) = @_;
1462
1463    # Analyzing the mlf file, collecting all Identifier
1464    my $allidentifier = get_identifier($mlffile);
1465
1466    $onelanguage = "en-US" if ( $nsislanguage eq "English" && $onelanguage ne "en-US");
1467    for ( my $i = 0; $i <= $#{$allidentifier}; $i++ )
1468    {
1469        my $identifier = ${$allidentifier}[$i];
1470        my $language_block = get_language_block_from_language_file($identifier, $mlffile);
1471        my $newstring = get_language_string_from_language_block($language_block, $onelanguage);
1472
1473        # removing mask
1474        $newstring =~ s/\\\'/\'/g;
1475
1476        replace_identifier_in_nshfile($nshfile, $identifier, $newstring, $nshfilename, $onelanguage);
1477        replace_identifier_in_nlffile($nlffile, $identifier, $newstring, $nlffilename, $onelanguage);
1478    }
1479}
1480
1481##################################################################
1482# Converting utf 16 file to utf 8
1483##################################################################
1484
1485sub convert_utf16_to_utf8
1486{
1487    my ( $filename ) = @_;
1488
1489    my @localfile = ();
1490
1491    my $savfilename = $filename . "_before.utf16";
1492    installer::systemactions::copy_one_file($filename, $savfilename);
1493
1494#   open( IN, "<:utf16", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8");
1495#   open( IN, "<:para:crlf:uni", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8");
1496    open( IN, "<:encoding(UTF16-LE)", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8");
1497    while ( my $line = <IN> )
1498    {
1499        push @localfile, $line;
1500    }
1501    close( IN );
1502
1503    if ( open( OUT, ">:utf8", $filename ) )
1504    {
1505        print OUT @localfile;
1506        close(OUT);
1507    }
1508
1509    $savfilename = $filename . "_before.utf8";
1510    installer::systemactions::copy_one_file($filename, $savfilename);
1511}
1512
1513##################################################################
1514# Converting utf 8 file to utf 16
1515##################################################################
1516
1517sub convert_utf8_to_utf16
1518{
1519    my ( $filename ) = @_;
1520
1521    my @localfile = ();
1522
1523    my $savfilename = $filename . "_after.utf8";
1524    installer::systemactions::copy_one_file($filename, $savfilename);
1525
1526    open( IN, "<:utf8", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf8_to_utf16");
1527    while (my $line = <IN>)
1528    {
1529        push @localfile, $line;
1530    }
1531    close( IN );
1532
1533    if ( open( OUT, ">:raw:encoding(UTF16-LE):crlf:utf8", $filename ) )
1534    {
1535        print OUT @localfile;
1536        close(OUT);
1537    }
1538
1539    $savfilename = $filename . "_after.utf16";
1540    installer::systemactions::copy_one_file($filename, $savfilename);
1541}
1542
1543##################################################################
1544# Converting text string to utf 16
1545##################################################################
1546
1547sub convert_textstring_to_utf16
1548{
1549    my ( $textstring, $localnsisdir, $shortfilename ) = @_;
1550
1551    my $filename = $localnsisdir . $installer::globals::separator . $shortfilename;
1552    my @filecontent = ();
1553    push(@filecontent, $textstring);
1554    installer::files::save_file($filename, \@filecontent);
1555    convert_utf8_to_utf16($filename);
1556    my $newfile = installer::files::read_file($filename);
1557    my $utf16string = "";
1558    if ( ${$newfile}[0] ne "" ) { $utf16string = ${$newfile}[0]; }
1559
1560    return $utf16string;
1561}
1562
1563##################################################################
1564# Windows: Copying NSIS language files to local nsis directory
1565##################################################################
1566
1567sub copy_and_translate_nsis_language_files
1568{
1569    my ($nsispath, $localnsisdir, $languagesarrayref, $allvariables) = @_;
1570
1571    my $nlffilepath = $nsispath . $installer::globals::separator . "Contrib" . $installer::globals::separator . "Language\ files" . $installer::globals::separator;
1572    my $nshfilepath = $nsispath . $installer::globals::separator . "Contrib" . $installer::globals::separator . "Modern\ UI" . $installer::globals::separator . "Language files" . $installer::globals::separator;
1573
1574    for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ )
1575    {
1576        my $onelanguage = ${$languagesarrayref}[$i];
1577        my $nsislanguage = nsis_language_converter($onelanguage);
1578
1579        # Copying the nlf file
1580        my $sourcepath = $nlffilepath . $nsislanguage . "\.nlf";
1581        if ( ! -f $sourcepath ) { installer::exiter::exit_program("ERROR: Could not find nsis file: $sourcepath!", "copy_and_translate_nsis_language_files"); }
1582        my $nlffilename = $localnsisdir . $installer::globals::separator . $nsislanguage . "_pack.nlf";
1583        if ( $^O =~ /cygwin/i ) { $nlffilename =~ s/\//\\/g; }
1584        installer::systemactions::copy_one_file($sourcepath, $nlffilename);
1585
1586        # Copying the nsh file
1587        # In newer nsis versions, the nsh file is located next to the nlf file
1588        $sourcepath = $nshfilepath . $nsislanguage . "\.nsh";
1589        if ( ! -f $sourcepath )
1590        {
1591            # trying to find the nsh file next to the nlf file
1592            $sourcepath = $nlffilepath . $nsislanguage . "\.nsh";
1593            if ( ! -f $sourcepath )
1594            {
1595                installer::exiter::exit_program("ERROR: Could not find nsis file: $sourcepath!", "copy_and_translate_nsis_language_files");
1596            }
1597        }
1598        my $nshfilename = $localnsisdir . $installer::globals::separator . $nsislanguage . "_pack.nsh";
1599        if ( $^O =~ /cygwin/i ) { $nshfilename =~ s/\//\\/g; }
1600        installer::systemactions::copy_one_file($sourcepath, $nshfilename);
1601
1602        # Changing the macro name in nsh file: MUI_LANGUAGEFILE_BEGIN -> MUI_LANGUAGEFILE_PACK_BEGIN
1603        #convert_utf16_to_utf8($nshfilename);
1604        #convert_utf16_to_utf8($nlffilename);
1605        my $nshfile = installer::files::read_file($nshfilename);
1606        replace_one_variable($nshfile, "MUI_LANGUAGEFILE_BEGIN", "MUI_LANGUAGEFILE_PACK_BEGIN");
1607
1608        # find the ulf file for translation
1609        my $mlffile = get_translation_file($allvariables);
1610
1611        # Translate the files
1612        my $nlffile = installer::files::read_file($nlffilename);
1613        translate_nsh_nlf_file($nshfile, $nlffile, $mlffile, $onelanguage, $nshfilename, $nlffilename, $nsislanguage);
1614
1615        installer::files::save_file($nshfilename, $nshfile);
1616        installer::files::save_file($nlffilename, $nlffile);
1617
1618        #convert_utf8_to_utf16($nshfilename);
1619        #convert_utf8_to_utf16($nlffilename);
1620    }
1621
1622}
1623
1624##################################################################
1625# Windows: Including the nsis path into the nsi template
1626##################################################################
1627
1628sub put_nsis_path_into_template
1629{
1630    my ($templatefile, $nsisdir) = @_;
1631
1632    replace_one_variable($templatefile, "NSISPATHPLACEHOLDER", $nsisdir);
1633}
1634
1635##################################################################
1636# Windows: Including the output path into the nsi template
1637##################################################################
1638
1639sub put_output_path_into_template
1640{
1641    my ($templatefile, $downloaddir) = @_;
1642
1643    if ( $^O =~ /cygwin/i ) { $downloaddir =~ s/\//\\/g; }
1644
1645    replace_one_variable($templatefile, "OUTPUTDIRPLACEHOLDER", $downloaddir);
1646}
1647
1648##################################################################
1649# Windows: Finding the path to the nsis SDK
1650##################################################################
1651
1652sub get_path_to_nsis_sdk
1653{
1654    my $nsispath = "";
1655
1656    if ( $ENV{'NSIS_PATH'} )
1657    {
1658        $nsispath = $ENV{'NSIS_PATH'};
1659    }
1660    if ( $nsispath eq "" )
1661    {
1662        $installer::logger::Info->print("... no Environment variable \"NSIS_PATH\"!\n");
1663    }
1664    elsif ( ! -d $nsispath )
1665    {
1666        installer::exiter::exit_program("ERROR: NSIS path $nsispath does not exist!", "get_path_to_nsis_sdk");
1667    }
1668
1669    return $nsispath;
1670}
1671
1672##################################################################
1673# Windows: Executing NSIS to create the installation set
1674##################################################################
1675
1676sub call_nsis
1677{
1678    my ( $nsispath, $nsifile ) = @_;
1679
1680    my $makensisexe = $nsispath . $installer::globals::separator . "makensis.exe";
1681
1682    $installer::logger::Info->printf("... starting %s ... \n", $makensisexe);
1683
1684    if( $^O =~ /cygwin/i ) { $nsifile =~ s/\\/\//g; }
1685
1686    my $systemcall = "$makensisexe $nsifile |";
1687
1688    $installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
1689
1690    my @nsisoutput = ();
1691
1692    open (NSI, "$systemcall");
1693    while (<NSI>) {push(@nsisoutput, $_); }
1694    close (NSI);
1695
1696    my $returnvalue = $?;   # $? contains the return value of the systemcall
1697
1698    if ($returnvalue)
1699    {
1700        $installer::logger::Lang->printf("ERROR: %s !\n", $systemcall);
1701    }
1702    else
1703    {
1704        $installer::logger::Lang->printf("Success: %s\n", $systemcall);
1705    }
1706
1707    foreach my $line (@nsisoutput)
1708    {
1709        $installer::logger::Lang->print($line);
1710    }
1711}
1712
1713#################################################################################
1714# Replacing one variable in one files
1715#################################################################################
1716
1717sub replace_one_variable_in_translationfile
1718{
1719    my ($translationfile, $variable, $searchstring) = @_;
1720
1721    for ( my $i = 0; $i <= $#{$translationfile}; $i++ )
1722    {
1723        ${$translationfile}[$i] =~ s/\%$searchstring/$variable/g;
1724    }
1725}
1726
1727#################################################################################
1728# Replacing the variables in the translation file
1729#################################################################################
1730
1731sub replace_variables
1732{
1733    my ($translationfile, $variableshashref) = @_;
1734
1735    foreach my $key (keys %{$variableshashref})
1736    {
1737        my $value = $variableshashref->{$key};
1738
1739        # special handling for PRODUCTVERSION, if $allvariables->{'POSTVERSIONEXTENSION'}
1740        if (( $key eq "PRODUCTVERSION" ) && ( $variableshashref->{'POSTVERSIONEXTENSION'} )) { $value = $value . " " . $variableshashref->{'POSTVERSIONEXTENSION'}; }
1741
1742        replace_one_variable_in_translationfile($translationfile, $value, $key);
1743    }
1744}
1745
1746#########################################################
1747# Getting the translation file for the nsis installer
1748#########################################################
1749
1750sub get_translation_file
1751{
1752    my ($allvariableshashref) = @_;
1753    my $translationfilename = $installer::globals::idtlanguagepath . $installer::globals::separator . $installer::globals::nsisfilename . ".uulf";
1754    if ( ! -f $translationfilename ) { installer::exiter::exit_program("ERROR: Could not find language file $translationfilename!", "get_translation_file"); }
1755    my $translationfile = installer::files::read_file($translationfilename);
1756    replace_variables($translationfile, $allvariableshashref);
1757
1758    $installer::logger::Lang->printf("Reading translation file: %s\n", $translationfilename);
1759
1760    return $translationfile;
1761}
1762
1763####################################################
1764# Removing English, if it was added before
1765####################################################
1766
1767sub remove_english_for_nsis_installer
1768{
1769    my ($languagestringref, $languagesarrayref) = @_;
1770
1771    # $$languagestringref =~ s/en-US_//;
1772    # shift(@{$languagesarrayref});
1773
1774    @{$languagesarrayref} = ("en-US");  # only English for NSIS installer!
1775}
1776
1777####################################################
1778# Creating link tree for upload
1779####################################################
1780
1781sub create_link_tree
1782{
1783    my ($sourcedownloadfile, $destfilename, $versionstring) = @_;
1784
1785    if ( ! $installer::globals::ooouploaddir ) { installer::exiter::exit_program("ERROR: Directory for AOO upload not defined!", "create_link_tree"); }
1786    my $versiondir = $installer::globals::ooouploaddir . $installer::globals::separator . $versionstring;
1787    $installer::logger::Lang->printf("Directory for the link: %s\n", $versiondir);
1788
1789    if ( ! -d $versiondir ) { installer::systemactions::create_directory_structure($versiondir); }
1790
1791    # inside directory $versiondir all links have to be created
1792    my $linkdestination = $versiondir . $installer::globals::separator . $destfilename;
1793
1794    # If there is an older version of this file (link), it has to be removed
1795    if ( -f $linkdestination ) { unlink($linkdestination); }
1796
1797    $installer::logger::Lang->printf("Creating hard link from %s to %s\n", $sourcedownloadfile, $linkdestination);
1798    installer::systemactions::hardlink_one_file($sourcedownloadfile, $linkdestination);
1799}
1800
1801#######################################################
1802# Setting supported platform for Sun OpenOffice.org
1803# builds
1804#######################################################
1805
1806sub is_supported_platform
1807{
1808    my $is_supported = 0;
1809
1810    if (( $installer::globals::islinuxrpmbuild ) ||
1811        ( $installer::globals::issolarissparcbuild ) ||
1812        ( $installer::globals::issolarisx86build ) ||
1813        ( $installer::globals::iswindowsbuild ))
1814    {
1815        $is_supported = 1;
1816    }
1817
1818    return $is_supported;
1819}
1820
1821####################################################
1822# Creating download installation sets
1823####################################################
1824
1825sub create_download_sets
1826{
1827    my ($installationdir, $includepatharrayref, $allvariableshashref, $downloadname, $languagestringref, $languagesarrayref) = @_;
1828
1829    $installer::logger::Info->print("\n");
1830    $installer::logger::Info->print("******************************************\n");
1831    $installer::logger::Info->print("... creating download installation set ...\n", 1);
1832    $installer::logger::Info->print("******************************************\n");
1833
1834    installer::logger::include_header_into_logfile("Creating download installation sets:");
1835
1836    # special handling for installation sets, to which English was added automatically
1837    if ( $installer::globals::added_english ) { remove_english_for_nsis_installer($languagestringref, $languagesarrayref); }
1838
1839    my $firstdir = $installationdir;
1840    installer::pathanalyzer::get_path_from_fullqualifiedname(\$firstdir);
1841
1842    my $lastdir = $installationdir;
1843    installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$lastdir);
1844
1845    if ( $lastdir =~ /\./ ) { $lastdir =~ s/\./_download_inprogress\./ }
1846    else { $lastdir = $lastdir . "_download_inprogress"; }
1847
1848    # removing existing directory "_native_packed_inprogress" and "_native_packed_witherror" and "_native_packed"
1849
1850    my $downloaddir = $firstdir . $lastdir;
1851
1852    if ( -d $downloaddir ) { installer::systemactions::remove_complete_directory($downloaddir); }
1853
1854    my $olddir = $downloaddir;
1855    $olddir =~ s/_inprogress/_witherror/;
1856    if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
1857
1858    $olddir = $downloaddir;
1859    $olddir =~ s/_inprogress//;
1860    if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
1861
1862    # creating the new directory
1863
1864    installer::systemactions::create_directory($downloaddir);
1865
1866    $installer::globals::saveinstalldir = $downloaddir;
1867
1868    # evaluating the name of the download file
1869
1870    if ( $allvariableshashref->{'AOODOWNLOADNAME'} )
1871    {
1872        $downloadname = set_download_filename($languagestringref, $allvariableshashref);
1873    }
1874    else
1875    {
1876        $downloadname = resolve_variables_in_downloadname($allvariableshashref, $downloadname, $languagestringref);
1877    }
1878
1879    if ( ! $installer::globals::iswindowsbuild )    # Unix specific part
1880    {
1881
1882        # getting the path of the getuid.so (only required for Solaris and Linux)
1883        my $getuidlibrary = "";
1884        if (( $installer::globals::issolarisbuild ) || ( $installer::globals::islinuxbuild )) { $getuidlibrary = get_path_for_library($includepatharrayref); }
1885
1886        if ( $allvariableshashref->{'AOODOWNLOADNAME'} )
1887        {
1888            my $downloadfile = create_tar_gz_file_from_directory($installationdir, $getuidlibrary, $downloaddir, $downloadname);
1889        }
1890        else
1891        {
1892            # find and read setup script template
1893            my $scriptfilename = "downloadscript.sh";
1894
1895            my $scriptref = "";
1896
1897            if ( $installer::globals::include_pathes_read )
1898            {
1899                $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$scriptfilename, $includepatharrayref, 0);
1900            }
1901            else
1902            {
1903                $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$scriptfilename, $includepatharrayref, 0);
1904            }
1905
1906            if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find script file $scriptfilename!", "create_download_sets"); }
1907            my $scriptfile = installer::files::read_file($$scriptref);
1908
1909            $installer::logger::Lang->printf("Found script file %s: %s \n", $scriptfilename, $$scriptref);
1910
1911            # add product name into script template
1912            put_productname_into_script($scriptfile, $allvariableshashref);
1913
1914            # replace linenumber in script template
1915            put_linenumber_into_script($scriptfile);
1916
1917            # create tar file
1918            my $temporary_tarfile_name = $downloaddir . $installer::globals::separator . 'installset.tar';
1919            my $size = tar_package($installationdir, $temporary_tarfile_name, $getuidlibrary);
1920            installer::exiter::exit_program("ERROR: Could not create tar file $temporary_tarfile_name!", "create_download_sets") unless $size;
1921
1922            # calling sum to determine checksum and size of the tar file
1923            my $sumout = call_sum($temporary_tarfile_name);
1924
1925            # writing checksum and size into scriptfile
1926            put_checksum_and_size_into_script($scriptfile, $sumout);
1927
1928            # saving the script file
1929            my $newscriptfilename = determine_scriptfile_name($downloadname);
1930            $newscriptfilename = save_script_file($downloaddir, $newscriptfilename, $scriptfile);
1931
1932            $installer::logger::Info->printf("... including installation set into %s ... \n", $newscriptfilename);
1933            # Append tar file to script
1934            include_tar_into_script($newscriptfilename, $temporary_tarfile_name);
1935        }
1936    }
1937    else    # Windows specific part
1938    {
1939        my $localnsisdir = installer::systemactions::create_directories("nsis", $languagestringref);
1940        # push(@installer::globals::removedirs, $localnsisdir);
1941
1942        # find nsis in the system
1943        my $nsispath = get_path_to_nsis_sdk();
1944
1945        if ( $nsispath eq "" ) {
1946            # If nsis is not found just skip the rest of this function
1947            # and do not create the NSIS file.
1948            $installer::logger::Lang->print("\n");
1949            $installer::logger::Lang->printf("No NSIS SDK found. Skipping the generation of NSIS file.\n");
1950            $installer::logger::Info->print("... no NSIS SDK found. Skipping the generation of NSIS file ... \n");
1951            return $downloaddir;
1952        }
1953
1954        # copy language files into nsis directory and translate them
1955        copy_and_translate_nsis_language_files($nsispath, $localnsisdir, $languagesarrayref, $allvariableshashref);
1956
1957        # find and read the nsi file template
1958        my $templatefilename = "downloadtemplate.nsi";
1959
1960        my $templateref = "";
1961
1962        if ( $installer::globals::include_pathes_read )
1963        {
1964            $templateref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$templatefilename, $includepatharrayref, 0);
1965        }
1966        else
1967        {
1968            $templateref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$templatefilename, $includepatharrayref, 0);
1969        }
1970
1971        if ($$templateref eq "") { installer::exiter::exit_program("ERROR: Could not find nsi template file $templatefilename!", "create_download_sets"); }
1972        my $templatefile = installer::files::read_file($$templateref);
1973
1974        # add product name into script template
1975        put_windows_productname_into_template($templatefile, $allvariableshashref);
1976        put_banner_bmp_into_template($templatefile, $includepatharrayref, $allvariableshashref);
1977        put_welcome_bmp_into_template($templatefile, $includepatharrayref, $allvariableshashref);
1978        put_setup_ico_into_template($templatefile, $includepatharrayref, $allvariableshashref);
1979        put_publisher_into_template($templatefile, $allvariableshashref);
1980        put_website_into_template($templatefile, $allvariableshashref);
1981        put_javafilename_into_template($templatefile, $allvariableshashref);
1982        put_windows_productversion_into_template($templatefile, $allvariableshashref);
1983        put_windows_productpath_into_template($templatefile, $allvariableshashref, $languagestringref, $localnsisdir);
1984        put_outputfilename_into_template($templatefile, $downloadname);
1985        put_filelist_into_template($templatefile, $installationdir);
1986        put_language_list_into_template($templatefile, $languagesarrayref);
1987        put_nsis_path_into_template($templatefile, $localnsisdir);
1988        put_output_path_into_template($templatefile, $downloaddir);
1989
1990        my $nsifilename = save_script_file($localnsisdir, $templatefilename, $templatefile);
1991
1992        $installer::logger::Info->printf("... created NSIS file %s ... \n", $nsifilename);
1993
1994        # starting the NSIS SDK to create the download file
1995        call_nsis($nsispath, $nsifilename);
1996    }
1997
1998    return $downloaddir;
1999}
2000
2001####################################################
2002# Creating AOO upload tree
2003####################################################
2004
2005sub create_download_link_tree
2006{
2007    my ($downloaddir, $languagestringref, $allvariableshashref) = @_;
2008
2009    $installer::logger::Info->print("\n");
2010    $installer::logger::Info->print("******************************************\n"); #
2011    $installer::logger::Info->print("... creating download hard link ...\n");
2012    $installer::logger::Info->print("******************************************\n");
2013
2014    installer::logger::include_header_into_logfile("Creating download hard link:");
2015    $installer::logger::Lang->print("\n");
2016    $installer::logger::Lang->add_timestamp("Performance Info: Creating hard link, start");
2017
2018    if ( is_supported_platform() )
2019    {
2020        my $versionstring = "";
2021        # Already defined $installer::globals::oooversionstring and $installer::globals::ooodownloadfilename ?
2022
2023        if ( ! $installer::globals::oooversionstring ) { $versionstring = get_current_version(); }
2024        else { $versionstring = $installer::globals::oooversionstring; }
2025
2026        # Is $versionstring empty? If yes, there is nothing to do now.
2027
2028        $installer::logger::Lang->printf("Version string is set to: %s\n", $versionstring);
2029
2030        if ( $versionstring )
2031        {
2032            # Now the downloadfilename has to be set (if not already done)
2033            my $destdownloadfilename = "";
2034            if ( ! $installer::globals::ooodownloadfilename ) { $destdownloadfilename = set_download_filename($languagestringref, $versionstring, $allvariableshashref); }
2035            else { $destdownloadfilename = $installer::globals::ooodownloadfilename; }
2036
2037            if ( $destdownloadfilename )
2038            {
2039                $destdownloadfilename = $destdownloadfilename . $installer::globals::downloadfileextension;
2040
2041                $installer::logger::Lang->printf("Setting destination download file name: %s\n", $destdownloadfilename);
2042
2043                my $sourcedownloadfile = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename;
2044
2045                $installer::logger::Lang->printf("Setting source download file name: %s\n", $sourcedownloadfile);
2046
2047                create_link_tree($sourcedownloadfile, $destdownloadfilename, $versionstring);
2048                # my $md5sumoutput = call_md5sum($downloadfile);
2049                # my $md5sum = get_md5sum($md5sumoutput);
2050
2051            }
2052        }
2053        else
2054        {
2055            $installer::logger::Lang->printf("Version string is empty. Nothing to do!\n");
2056        }
2057    }
2058    else
2059    {
2060        $installer::logger::Lang->printf("Platform not used for hard linking. Nothing to do!\n");
2061    }
2062
2063    $installer::logger::Lang->add_timestamp("Performance Info: Creating hard link, stop");
2064}
2065
20661;
2067