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 version 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