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