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