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