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"; }
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 "hi" ) { $nsislanguage = "Hindi"; }
1198	elsif ( $language eq "hu" ) { $nsislanguage = "Hungarian"; }
1199	elsif ( $language eq "is" ) { $nsislanguage = "Icelandic"; }
1200	elsif ( $language eq "id" ) { $nsislanguage = "Indonesian"; }
1201	elsif ( $language eq "it" ) { $nsislanguage = "Italian"; }
1202	elsif ( $language eq "ja" ) { $nsislanguage = "Japanese"; }
1203	elsif ( $language eq "ko" ) { $nsislanguage = "Korean"; }
1204	elsif ( $language eq "lv" ) { $nsislanguage = "Latvian"; }
1205	elsif ( $language eq "lt" ) { $nsislanguage = "Lithuanian"; }
1206	elsif ( $language eq "de-LU" ) { $nsislanguage = "Luxembourgish"; }
1207	elsif ( $language eq "mk" ) { $nsislanguage = "Macedonian"; }
1208	elsif ( $language eq "mn" ) { $nsislanguage = "Mongolian"; }
1209	elsif ( $language eq "nb" ) { $nsislanguage = "Norwegian"; }
1210	elsif ( $language eq "no" ) { $nsislanguage = "Norwegian"; }
1211	elsif ( $language eq "no-NO" ) { $nsislanguage = "Norwegian"; }
1212	elsif ( $language eq "nn" ) { $nsislanguage = "NorwegianNynorsk"; }
1213	elsif ( $language eq "pl" ) { $nsislanguage = "Polish"; }
1214	elsif ( $language eq "pt" ) { $nsislanguage = "Portuguese"; }
1215	elsif ( $language eq "pt-BR" ) { $nsislanguage = "PortugueseBR"; }
1216	elsif ( $language eq "ro" ) { $nsislanguage = "Romanian"; }
1217	elsif ( $language eq "ru" ) { $nsislanguage = "Russian"; }
1218	elsif ( $language eq "gd" ) { $nsislanguage = "ScotsGaelic"; }
1219	elsif ( $language eq "sr" ) { $nsislanguage = "Serbian"; }
1220	elsif ( $language eq "sr-SP" ) { $nsislanguage = "Serbian"; }
1221	elsif ( $language eq "sh" ) { $nsislanguage = "SerbianLatin"; }
1222	elsif ( $language eq "zh-CN" ) { $nsislanguage = "SimpChinese"; }
1223	elsif ( $language eq "sl" ) { $nsislanguage = "Slovenian"; }
1224	elsif ( $language eq "sk" ) { $nsislanguage = "Slovak"; }
1225	elsif ( $language eq "es" ) { $nsislanguage = "Spanish"; }
1226	elsif ( $language eq "sv" ) { $nsislanguage = "Swedish"; }
1227	elsif ( $language eq "th" ) { $nsislanguage = "Thai"; }
1228	elsif ( $language eq "zh-TW" ) { $nsislanguage = "TradChinese"; }
1229	elsif ( $language eq "tr" ) { $nsislanguage = "Turkish"; }
1230	elsif ( $language eq "uk" ) { $nsislanguage = "Ukrainian"; }
1231	elsif ( $language eq "vi" ) { $nsislanguage = "Vietnamese"; }
1232	elsif ( $language eq "cy" ) { $nsislanguage = "Welsh"; }
1233	else
1234	{
1235		$installer::logger::Lang->printf("NSIS language_converter : Could not find nsis language for %s!\n", $language);
1236		$nsislanguage = "English";
1237	}
1238
1239	return $nsislanguage;
1240}
1241
1242##################################################################
1243# Windows: Including list of all languages into nsi template
1244##################################################################
1245
1246sub put_language_list_into_template
1247{
1248	my ($templatefile, $languagesarrayref) = @_;
1249
1250	my $alllangstring = "";
1251	my %nsislangs;
1252
1253	for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ )
1254	{
1255		my $onelanguage = ${$languagesarrayref}[$i];
1256		my $nsislanguage = nsis_language_converter($onelanguage);
1257		$nsislangs{$nsislanguage}++;
1258	}
1259
1260	foreach my $nsislanguage ( keys(%nsislangs) )
1261	{
1262		# Syntax: !insertmacro MUI_LANGUAGE "English"
1263		my $langstring = "\!insertmacro MUI_LANGUAGE_PACK " . $nsislanguage . "\n";
1264		if ( $nsislanguage eq "English" )
1265		{
1266			$alllangstring = $langstring . $alllangstring;
1267		}
1268		else
1269		{
1270			$alllangstring = $alllangstring . $langstring;
1271		}
1272	}
1273
1274	$alllangstring =~ s/\s*$//;
1275
1276	replace_one_variable($templatefile, "ALLLANGUAGESPLACEHOLDER", $alllangstring);
1277}
1278
1279##################################################################
1280# Windows: Collecting all identifier from mlf file
1281##################################################################
1282
1283sub get_identifier
1284{
1285	my ( $mlffile ) = @_;
1286
1287	my @identifier = ();
1288
1289	for ( my $i = 0; $i <= $#{$mlffile}; $i++ )
1290	{
1291		my $oneline = ${$mlffile}[$i];
1292
1293		if ( $oneline =~ /^\s*\[(.+)\]\s*$/ )
1294		{
1295			my $identifier = $1;
1296			push(@identifier, $identifier);
1297		}
1298	}
1299
1300	return \@identifier;
1301}
1302
1303##############################################################
1304# Returning the complete block in all languages
1305# for a specified string
1306##############################################################
1307
1308sub get_language_block_from_language_file
1309{
1310	my ($searchstring, $languagefile) = @_;
1311
1312	my @language_block = ();
1313
1314	for ( my $i = 0; $i <= $#{$languagefile}; $i++ )
1315	{
1316		if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ )
1317		{
1318			my $counter = $i;
1319
1320			push(@language_block, ${$languagefile}[$counter]);
1321			$counter++;
1322
1323			while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ )))
1324			{
1325				push(@language_block, ${$languagefile}[$counter]);
1326				$counter++;
1327			}
1328
1329			last;
1330		}
1331	}
1332
1333	return \@language_block;
1334}
1335
1336##############################################################
1337# Returning a specific language string from the block
1338# of all translations
1339##############################################################
1340
1341sub get_language_string_from_language_block
1342{
1343	my ($language_block, $language) = @_;
1344
1345	my $newstring = "";
1346
1347	for ( my $i = 0; $i <= $#{$language_block}; $i++ )
1348	{
1349		if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
1350		{
1351			$newstring = $1;
1352			last;
1353		}
1354	}
1355
1356	if ( $newstring eq "" )
1357	{
1358		$language = "en-US"; 	# defaulting to English
1359
1360		for ( my $i = 0; $i <= $#{$language_block}; $i++ )
1361		{
1362			if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
1363			{
1364				$newstring = $1;
1365				last;
1366			}
1367		}
1368	}
1369
1370	return $newstring;
1371}
1372
1373##################################################################
1374# Windows: Replacing strings in NSIS nsh file
1375# nsh file syntax:
1376# !define MUI_TEXT_DIRECTORY_TITLE "Choose Install Location"
1377##################################################################
1378
1379sub replace_identifier_in_nshfile
1380{
1381	my ( $nshfile, $identifier, $newstring, $nshfilename, $onelanguage ) = @_;
1382
1383	$newstring =~ s/\\r/\$\\r/g; # \r -> $\r in modern nsis versions
1384	$newstring =~ s/\\n/\$\\n/g; # \n -> $\n in modern nsis versions
1385
1386	for ( my $i = 0; $i <= $#{$nshfile}; $i++ )
1387	{
1388		if ( ${$nshfile}[$i] =~ /\s+\Q$identifier\E\s+\"(.+)\"\s*$/ )
1389		{
1390			my $oldstring = $1;
1391			${$nshfile}[$i] =~ s/\Q$oldstring\E/$newstring/;
1392			$installer::logger::Lang->printf("NSIS replacement in %s (%s): \-\> %s\n",
1393				$nshfilename,
1394				$onelanguage,
1395				$oldstring,
1396				$newstring);
1397		}
1398	}
1399}
1400
1401##################################################################
1402# Windows: Replacing strings in NSIS nlf file
1403# nlf file syntax (2 lines):
1404# # ^DirSubText
1405# Destination Folder
1406##################################################################
1407
1408sub replace_identifier_in_nlffile
1409{
1410	my ( $nlffile, $identifier, $newstring, $nlffilename, $onelanguage ) = @_;
1411
1412	for ( my $i = 0; $i <= $#{$nlffile}; $i++ )
1413	{
1414		if ( ${$nlffile}[$i] =~ /^\s*\#\s+\^\s*\Q$identifier\E\s*$/ )
1415		{
1416			my $next = $i+1;
1417			my $oldstring = ${$nlffile}[$next];
1418			${$nlffile}[$next] = $newstring . "\n";
1419			$oldstring =~ s/\s*$//;
1420			$installer::logger::Lang->printf("NSIS replacement in %s (%s): %s \-\> %s\n",
1421				$nlffilename,
1422				$onelanguage,
1423				$oldstring,
1424				$newstring);
1425		}
1426	}
1427}
1428
1429##################################################################
1430# Windows: Translating the NSIS nsh and nlf file
1431##################################################################
1432
1433sub translate_nsh_nlf_file
1434{
1435	my ($nshfile, $nlffile, $mlffile, $onelanguage, $nshfilename, $nlffilename, $nsislanguage) = @_;
1436
1437	# Analyzing the mlf file, collecting all Identifier
1438	my $allidentifier = get_identifier($mlffile);
1439
1440	$onelanguage = "en-US" if ( $nsislanguage eq "English" && $onelanguage ne "en-US");
1441	for ( my $i = 0; $i <= $#{$allidentifier}; $i++ )
1442	{
1443		my $identifier = ${$allidentifier}[$i];
1444		my $language_block = get_language_block_from_language_file($identifier, $mlffile);
1445		my $newstring = get_language_string_from_language_block($language_block, $onelanguage);
1446
1447		# removing mask
1448		$newstring =~ s/\\\'/\'/g;
1449
1450		replace_identifier_in_nshfile($nshfile, $identifier, $newstring, $nshfilename, $onelanguage);
1451		replace_identifier_in_nlffile($nlffile, $identifier, $newstring, $nlffilename, $onelanguage);
1452	}
1453}
1454
1455##################################################################
1456# Converting utf 16 file to utf 8
1457##################################################################
1458
1459sub convert_utf16_to_utf8
1460{
1461	my ( $filename ) = @_;
1462
1463	my @localfile = ();
1464
1465	my $savfilename = $filename . "_before.utf16";
1466	installer::systemactions::copy_one_file($filename, $savfilename);
1467
1468#	open( IN, "<:utf16", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8");
1469#	open( IN, "<:para:crlf:uni", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8");
1470	open( IN, "<:encoding(UTF16-LE)", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf16_to_utf8");
1471	while ( my $line = <IN> )
1472	{
1473		push @localfile, $line;
1474	}
1475	close( IN );
1476
1477	if ( open( OUT, ">:utf8", $filename ) )
1478	{
1479		print OUT @localfile;
1480		close(OUT);
1481	}
1482
1483	$savfilename = $filename . "_before.utf8";
1484	installer::systemactions::copy_one_file($filename, $savfilename);
1485}
1486
1487##################################################################
1488# Converting utf 8 file to utf 16
1489##################################################################
1490
1491sub convert_utf8_to_utf16
1492{
1493	my ( $filename ) = @_;
1494
1495	my @localfile = ();
1496
1497	my $savfilename = $filename . "_after.utf8";
1498	installer::systemactions::copy_one_file($filename, $savfilename);
1499
1500	open( IN, "<:utf8", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_utf8_to_utf16");
1501	while (my $line = <IN>)
1502	{
1503		push @localfile, $line;
1504	}
1505	close( IN );
1506
1507	if ( open( OUT, ">:raw:encoding(UTF16-LE):crlf:utf8", $filename ) )
1508	{
1509		print OUT @localfile;
1510		close(OUT);
1511	}
1512
1513	$savfilename = $filename . "_after.utf16";
1514	installer::systemactions::copy_one_file($filename, $savfilename);
1515}
1516
1517##################################################################
1518# Converting text string to utf 16
1519##################################################################
1520
1521sub convert_textstring_to_utf16
1522{
1523	my ( $textstring, $localnsisdir, $shortfilename ) = @_;
1524
1525	my $filename = $localnsisdir . $installer::globals::separator . $shortfilename;
1526	my @filecontent = ();
1527	push(@filecontent, $textstring);
1528	installer::files::save_file($filename, \@filecontent);
1529	convert_utf8_to_utf16($filename);
1530	my $newfile = installer::files::read_file($filename);
1531	my $utf16string = "";
1532	if ( ${$newfile}[0] ne "" ) { $utf16string = ${$newfile}[0]; }
1533
1534	return $utf16string;
1535}
1536
1537##################################################################
1538# Windows: Copying NSIS language files to local nsis directory
1539##################################################################
1540
1541sub copy_and_translate_nsis_language_files
1542{
1543	my ($nsispath, $localnsisdir, $languagesarrayref, $allvariables) = @_;
1544
1545	my $nlffilepath = $nsispath . $installer::globals::separator . "Contrib" . $installer::globals::separator . "Language\ files" . $installer::globals::separator;
1546	my $nshfilepath = $nsispath . $installer::globals::separator . "Contrib" . $installer::globals::separator . "Modern\ UI" . $installer::globals::separator . "Language files" . $installer::globals::separator;
1547
1548	for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ )
1549	{
1550		my $onelanguage = ${$languagesarrayref}[$i];
1551		my $nsislanguage = nsis_language_converter($onelanguage);
1552
1553		# Copying the nlf file
1554		my $sourcepath = $nlffilepath . $nsislanguage . "\.nlf";
1555		if ( ! -f $sourcepath ) { installer::exiter::exit_program("ERROR: Could not find nsis file: $sourcepath!", "copy_and_translate_nsis_language_files"); }
1556		my $nlffilename = $localnsisdir . $installer::globals::separator . $nsislanguage . "_pack.nlf";
1557		if ( $^O =~ /cygwin/i ) { $nlffilename =~ s/\//\\/g; }
1558		installer::systemactions::copy_one_file($sourcepath, $nlffilename);
1559
1560		# Copying the nsh file
1561		# In newer nsis versions, the nsh file is located next to the nlf file
1562		$sourcepath = $nshfilepath . $nsislanguage . "\.nsh";
1563		if ( ! -f $sourcepath )
1564		{
1565			# trying to find the nsh file next to the nlf file
1566			$sourcepath = $nlffilepath . $nsislanguage . "\.nsh";
1567			if ( ! -f $sourcepath )
1568			{
1569				installer::exiter::exit_program("ERROR: Could not find nsis file: $sourcepath!", "copy_and_translate_nsis_language_files");
1570			}
1571		}
1572		my $nshfilename = $localnsisdir . $installer::globals::separator . $nsislanguage . "_pack.nsh";
1573		if ( $^O =~ /cygwin/i ) { $nshfilename =~ s/\//\\/g; }
1574		installer::systemactions::copy_one_file($sourcepath, $nshfilename);
1575
1576		# Changing the macro name in nsh file: MUI_LANGUAGEFILE_BEGIN -> MUI_LANGUAGEFILE_PACK_BEGIN
1577		#convert_utf16_to_utf8($nshfilename);
1578		#convert_utf16_to_utf8($nlffilename);
1579		my $nshfile = installer::files::read_file($nshfilename);
1580		replace_one_variable($nshfile, "MUI_LANGUAGEFILE_BEGIN", "MUI_LANGUAGEFILE_PACK_BEGIN");
1581
1582		# find the ulf file for translation
1583		my $mlffile = get_translation_file($allvariables);
1584
1585		# Translate the files
1586		my $nlffile = installer::files::read_file($nlffilename);
1587		translate_nsh_nlf_file($nshfile, $nlffile, $mlffile, $onelanguage, $nshfilename, $nlffilename, $nsislanguage);
1588
1589		installer::files::save_file($nshfilename, $nshfile);
1590		installer::files::save_file($nlffilename, $nlffile);
1591
1592		#convert_utf8_to_utf16($nshfilename);
1593		#convert_utf8_to_utf16($nlffilename);
1594	}
1595
1596}
1597
1598##################################################################
1599# Windows: Including the nsis path into the nsi template
1600##################################################################
1601
1602sub put_nsis_path_into_template
1603{
1604	my ($templatefile, $nsisdir) = @_;
1605
1606	replace_one_variable($templatefile, "NSISPATHPLACEHOLDER", $nsisdir);
1607}
1608
1609##################################################################
1610# Windows: Including the output path into the nsi template
1611##################################################################
1612
1613sub put_output_path_into_template
1614{
1615	my ($templatefile, $downloaddir) = @_;
1616
1617	if ( $^O =~ /cygwin/i ) { $downloaddir =~ s/\//\\/g; }
1618
1619	replace_one_variable($templatefile, "OUTPUTDIRPLACEHOLDER", $downloaddir);
1620}
1621
1622##################################################################
1623# Windows: Finding the path to the nsis SDK
1624##################################################################
1625
1626sub get_path_to_nsis_sdk
1627{
1628	my $nsispath = "";
1629
1630	if ( $ENV{'NSIS_PATH'} )
1631	{
1632		$nsispath = $ENV{'NSIS_PATH'};
1633	}
1634	if ( $nsispath eq "" )
1635	{
1636		$installer::logger::Info->print("... no Environment variable \"NSIS_PATH\"!\n");
1637	}
1638	elsif ( ! -d $nsispath )
1639	{
1640		installer::exiter::exit_program("ERROR: NSIS path $nsispath does not exist!", "get_path_to_nsis_sdk");
1641	}
1642
1643	return $nsispath;
1644}
1645
1646##################################################################
1647# Windows: Executing NSIS to create the installation set
1648##################################################################
1649
1650sub call_nsis
1651{
1652	my ( $nsispath, $nsifile ) = @_;
1653
1654	my $makensisexe = $nsispath . $installer::globals::separator . "makensis.exe";
1655
1656	$installer::logger::Info->printf("... starting %s ... \n", $makensisexe);
1657
1658	if( $^O =~ /cygwin/i ) { $nsifile =~ s/\\/\//g;	}
1659
1660	my $systemcall = "$makensisexe $nsifile |";
1661
1662	$installer::logger::Lang->printf("Systemcall: %s\n", $systemcall);
1663
1664	my @nsisoutput = ();
1665
1666	open (NSI, "$systemcall");
1667	while (<NSI>) {push(@nsisoutput, $_); }
1668	close (NSI);
1669
1670	my $returnvalue = $?;	# $? contains the return value of the systemcall
1671
1672	if ($returnvalue)
1673	{
1674		$installer::logger::Lang->printf("ERROR: %s !\n", $systemcall);
1675	}
1676	else
1677	{
1678		$installer::logger::Lang->printf("Success: %s\n", $systemcall);
1679	}
1680
1681	foreach my $line (@nsisoutput)
1682	{
1683		$installer::logger::Lang->print($line);
1684	}
1685}
1686
1687#################################################################################
1688# Replacing one variable in one files
1689#################################################################################
1690
1691sub replace_one_variable_in_translationfile
1692{
1693	my ($translationfile, $variable, $searchstring) = @_;
1694
1695	for ( my $i = 0; $i <= $#{$translationfile}; $i++ )
1696	{
1697		${$translationfile}[$i] =~ s/\%$searchstring/$variable/g;
1698	}
1699}
1700
1701#################################################################################
1702# Replacing the variables in the translation file
1703#################################################################################
1704
1705sub replace_variables
1706{
1707	my ($translationfile, $variableshashref) = @_;
1708
1709	foreach my $key (keys %{$variableshashref})
1710	{
1711		my $value = $variableshashref->{$key};
1712
1713		# special handling for PRODUCTVERSION, if $allvariables->{'POSTVERSIONEXTENSION'}
1714		if (( $key eq "PRODUCTVERSION" ) && ( $variableshashref->{'POSTVERSIONEXTENSION'} )) { $value = $value . " " . $variableshashref->{'POSTVERSIONEXTENSION'}; }
1715
1716		replace_one_variable_in_translationfile($translationfile, $value, $key);
1717	}
1718}
1719
1720#########################################################
1721# Getting the translation file for the nsis installer
1722#########################################################
1723
1724sub get_translation_file
1725{
1726	my ($allvariableshashref) = @_;
1727	my $translationfilename = $installer::globals::idtlanguagepath . $installer::globals::separator . $installer::globals::nsisfilename . ".uulf";
1728	if ( ! -f $translationfilename ) { installer::exiter::exit_program("ERROR: Could not find language file $translationfilename!", "get_translation_file"); }
1729	my $translationfile = installer::files::read_file($translationfilename);
1730	replace_variables($translationfile, $allvariableshashref);
1731
1732	$installer::logger::Lang->printf("Reading translation file: %s\n", $translationfilename);
1733
1734	return $translationfile;
1735}
1736
1737####################################################
1738# Removing English, if it was added before
1739####################################################
1740
1741sub remove_english_for_nsis_installer
1742{
1743	my ($languagestringref, $languagesarrayref) = @_;
1744
1745	# $$languagestringref =~ s/en-US_//;
1746	# shift(@{$languagesarrayref});
1747
1748	@{$languagesarrayref} = ("en-US");	# only English for NSIS installer!
1749}
1750
1751####################################################
1752# Creating link tree for upload
1753####################################################
1754
1755sub create_link_tree
1756{
1757	my ($sourcedownloadfile, $destfilename, $versionstring) = @_;
1758
1759	if ( ! $installer::globals::ooouploaddir ) { installer::exiter::exit_program("ERROR: Directory for AOO upload not defined!", "create_link_tree"); }
1760	my $versiondir = $installer::globals::ooouploaddir . $installer::globals::separator . $versionstring;
1761	$installer::logger::Lang->printf("Directory for the link: %s\n", $versiondir);
1762
1763	if ( ! -d $versiondir ) { installer::systemactions::create_directory_structure($versiondir); }
1764
1765	# inside directory $versiondir all links have to be created
1766	my $linkdestination = $versiondir . $installer::globals::separator . $destfilename;
1767
1768	# If there is an older version of this file (link), it has to be removed
1769	if ( -f $linkdestination ) { unlink($linkdestination); }
1770
1771	$installer::logger::Lang->printf("Creating hard link from %s to %s\n", $sourcedownloadfile, $linkdestination);
1772	installer::systemactions::hardlink_one_file($sourcedownloadfile, $linkdestination);
1773}
1774
1775#######################################################
1776# Setting supported platform for OpenOffice builds
1777#######################################################
1778
1779sub is_supported_platform
1780{
1781	my $is_supported = 0;
1782
1783	if (( $installer::globals::islinuxrpmbuild ) ||
1784		( $installer::globals::issolarissparcbuild ) ||
1785		( $installer::globals::issolarisx86build ) ||
1786		( $installer::globals::iswindowsbuild ))
1787	{
1788		$is_supported = 1;
1789	}
1790
1791	return $is_supported;
1792}
1793
1794####################################################
1795# Creating download installation sets
1796####################################################
1797
1798sub create_download_sets
1799{
1800	my ($installationdir, $includepatharrayref, $allvariableshashref, $downloadname, $languagestringref, $languagesarrayref) = @_;
1801
1802	$installer::logger::Info->print("\n");
1803	$installer::logger::Info->print("******************************************\n");
1804	$installer::logger::Info->print("... creating download installation set ...\n", 1);
1805	$installer::logger::Info->print("******************************************\n");
1806
1807	installer::logger::include_header_into_logfile("Creating download installation sets:");
1808
1809	# special handling for installation sets, to which english was added automatically
1810	if ( $installer::globals::added_english ) { remove_english_for_nsis_installer($languagestringref, $languagesarrayref); }
1811
1812	my $firstdir = $installationdir;
1813	installer::pathanalyzer::get_path_from_fullqualifiedname(\$firstdir);
1814
1815	my $lastdir = $installationdir;
1816	installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$lastdir);
1817
1818	if ( $lastdir =~ /\./ ) { $lastdir =~ s/\./_download_inprogress\./ }
1819	else { $lastdir = $lastdir . "_download_inprogress"; }
1820
1821	# removing existing directory "_native_packed_inprogress" and "_native_packed_witherror" and "_native_packed"
1822
1823	my $downloaddir = $firstdir . $lastdir;
1824
1825	if ( -d $downloaddir ) { installer::systemactions::remove_complete_directory($downloaddir); }
1826
1827	my $olddir = $downloaddir;
1828	$olddir =~ s/_inprogress/_witherror/;
1829	if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
1830
1831	$olddir = $downloaddir;
1832	$olddir =~ s/_inprogress//;
1833	if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
1834
1835	# creating the new directory
1836
1837	installer::systemactions::create_directory($downloaddir);
1838
1839	$installer::globals::saveinstalldir = $downloaddir;
1840
1841	# evaluating the name of the download file
1842
1843	if ( $allvariableshashref->{'AOODOWNLOADNAME'} )
1844	{
1845		$downloadname = set_download_filename($languagestringref, $allvariableshashref);
1846	}
1847	else
1848	{
1849		$downloadname = resolve_variables_in_downloadname($allvariableshashref, $downloadname, $languagestringref);
1850	}
1851
1852	if ( ! $installer::globals::iswindowsbuild )	# Unix specific part
1853	{
1854
1855		# getting the path of the getuid.so (only required for Solaris and Linux)
1856		my $getuidlibrary = "";
1857		if (( $installer::globals::issolarisbuild ) || ( $installer::globals::islinuxbuild )) {	$getuidlibrary = get_path_for_library($includepatharrayref); }
1858
1859		if ( $allvariableshashref->{'AOODOWNLOADNAME'} )
1860		{
1861			my $downloadfile = create_tar_gz_file_from_directory($installationdir, $getuidlibrary, $downloaddir, $downloadname);
1862		}
1863		else
1864		{
1865			# find and read setup script template
1866			my $scriptfilename = "downloadscript.sh";
1867
1868			my $scriptref = "";
1869
1870			if ( $installer::globals::include_pathes_read )
1871			{
1872				$scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$scriptfilename, $includepatharrayref, 0);
1873			}
1874			else
1875			{
1876				$scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$scriptfilename, $includepatharrayref, 0);
1877			}
1878
1879			if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find script file $scriptfilename!", "create_download_sets"); }
1880			my $scriptfile = installer::files::read_file($$scriptref);
1881
1882			$installer::logger::Lang->printf("Found script file %s: %s \n", $scriptfilename, $$scriptref);
1883
1884			# add product name into script template
1885			put_productname_into_script($scriptfile, $allvariableshashref);
1886
1887			# replace linenumber in script template
1888			put_linenumber_into_script($scriptfile);
1889
1890			# create tar file
1891			my $temporary_tarfile_name = $downloaddir . $installer::globals::separator . 'installset.tar';
1892			my $size = tar_package($installationdir, $temporary_tarfile_name, $getuidlibrary);
1893			installer::exiter::exit_program("ERROR: Could not create tar file $temporary_tarfile_name!", "create_download_sets") unless $size;
1894
1895			# calling sum to determine checksum and size of the tar file
1896			my $sumout = call_sum($temporary_tarfile_name);
1897
1898			# writing checksum and size into scriptfile
1899			put_checksum_and_size_into_script($scriptfile, $sumout);
1900
1901			# saving the script file
1902			my $newscriptfilename = determine_scriptfile_name($downloadname);
1903			$newscriptfilename = save_script_file($downloaddir, $newscriptfilename, $scriptfile);
1904
1905			$installer::logger::Info->printf("... including installation set into %s ... \n", $newscriptfilename);
1906			# Append tar file to script
1907			include_tar_into_script($newscriptfilename, $temporary_tarfile_name);
1908		}
1909	}
1910	else	# Windows specific part
1911	{
1912		my $localnsisdir = installer::systemactions::create_directories("nsis", $languagestringref);
1913		# push(@installer::globals::removedirs, $localnsisdir);
1914
1915		# find nsis in the system
1916		my $nsispath = get_path_to_nsis_sdk();
1917
1918		if ( $nsispath eq "" ) {
1919			# If nsis is not found just skip the rest of this function
1920			# and do not create the NSIS file.
1921			$installer::logger::Lang->print("\n");
1922			$installer::logger::Lang->printf("No NSIS SDK found. Skipping the generation of NSIS file.\n");
1923			$installer::logger::Info->print("... no NSIS SDK found. Skipping the generation of NSIS file ... \n");
1924			return $downloaddir;
1925		}
1926
1927		# copy language files into nsis directory and translate them
1928		copy_and_translate_nsis_language_files($nsispath, $localnsisdir, $languagesarrayref, $allvariableshashref);
1929
1930		# find and read the nsi file template
1931		my $templatefilename = "downloadtemplate.nsi";
1932
1933		my $templateref = "";
1934
1935		if ( $installer::globals::include_pathes_read )
1936		{
1937			$templateref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$templatefilename, $includepatharrayref, 0);
1938		}
1939		else
1940		{
1941			$templateref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$templatefilename, $includepatharrayref, 0);
1942		}
1943
1944		if ($$templateref eq "") { installer::exiter::exit_program("ERROR: Could not find nsi template file $templatefilename!", "create_download_sets"); }
1945		my $templatefile = installer::files::read_file($$templateref);
1946
1947		# add product name into script template
1948		put_windows_productname_into_template($templatefile, $allvariableshashref);
1949		put_banner_bmp_into_template($templatefile, $includepatharrayref, $allvariableshashref);
1950		put_welcome_bmp_into_template($templatefile, $includepatharrayref, $allvariableshashref);
1951		put_setup_ico_into_template($templatefile, $includepatharrayref, $allvariableshashref);
1952		put_publisher_into_template($templatefile, $allvariableshashref);
1953		put_website_into_template($templatefile, $allvariableshashref);
1954		put_javafilename_into_template($templatefile, $allvariableshashref);
1955		put_windows_productversion_into_template($templatefile, $allvariableshashref);
1956		put_windows_productpath_into_template($templatefile, $allvariableshashref, $languagestringref, $localnsisdir);
1957		put_outputfilename_into_template($templatefile, $downloadname);
1958		put_filelist_into_template($templatefile, $installationdir);
1959		put_language_list_into_template($templatefile, $languagesarrayref);
1960		put_nsis_path_into_template($templatefile, $localnsisdir);
1961		put_output_path_into_template($templatefile, $downloaddir);
1962
1963		my $nsifilename = save_script_file($localnsisdir, $templatefilename, $templatefile);
1964
1965		$installer::logger::Info->printf("... created NSIS file %s ... \n", $nsifilename);
1966
1967		# starting the NSIS SDK to create the download file
1968		call_nsis($nsispath, $nsifilename);
1969	}
1970
1971	return $downloaddir;
1972}
1973
1974####################################################
1975# Creating AOO upload tree
1976####################################################
1977
1978sub create_download_link_tree
1979{
1980	my ($downloaddir, $languagestringref, $allvariableshashref) = @_;
1981
1982	$installer::logger::Info->print("\n");
1983	$installer::logger::Info->print("******************************************\n");
1984	$installer::logger::Info->print("... creating download hard link ...\n");
1985	$installer::logger::Info->print("******************************************\n");
1986
1987	installer::logger::include_header_into_logfile("Creating download hard link:");
1988	$installer::logger::Lang->print("\n");
1989	$installer::logger::Lang->add_timestamp("Performance Info: Creating hard link, start");
1990
1991	if ( is_supported_platform() )
1992	{
1993		my $versionstring = "";
1994		# Already defined $installer::globals::oooversionstring and $installer::globals::ooodownloadfilename ?
1995
1996		if ( ! $installer::globals::oooversionstring ) { $versionstring = get_current_version(); }
1997		else { $versionstring = $installer::globals::oooversionstring; }
1998
1999		# Is $versionstring empty? If yes, there is nothing to do now.
2000
2001		$installer::logger::Lang->printf("Version string is set to: %s\n", $versionstring);
2002
2003		if ( $versionstring )
2004		{
2005			# Now the downloadfilename has to be set (if not already done)
2006			my $destdownloadfilename = "";
2007			if ( ! $installer::globals::ooodownloadfilename ) { $destdownloadfilename = set_download_filename($languagestringref, $versionstring, $allvariableshashref); }
2008			else { $destdownloadfilename = $installer::globals::ooodownloadfilename; }
2009
2010			if ( $destdownloadfilename )
2011			{
2012				$destdownloadfilename = $destdownloadfilename . $installer::globals::downloadfileextension;
2013
2014				$installer::logger::Lang->printf("Setting destination download file name: %s\n", $destdownloadfilename);
2015
2016				my $sourcedownloadfile = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename;
2017
2018				$installer::logger::Lang->printf("Setting source download file name: %s\n", $sourcedownloadfile);
2019
2020				create_link_tree($sourcedownloadfile, $destdownloadfilename, $versionstring);
2021				# my $md5sumoutput = call_md5sum($downloadfile);
2022				# my $md5sum = get_md5sum($md5sumoutput);
2023
2024			}
2025		}
2026		else
2027		{
2028			$installer::logger::Lang->printf("Version string is empty. Nothing to do!\n");
2029		}
2030	}
2031	else
2032	{
2033		$installer::logger::Lang->printf("Platform not used for hard linking. Nothing to do!\n");
2034	}
2035
2036	$installer::logger::Lang->add_timestamp("Performance Info: Creating hard link, stop");
2037}
2038
20391;
2040