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