solenv/bin/modules/installer/download.pm

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