solenv/bin/modules/installer/javainstaller.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: javainstaller.pm,v $
  10 #
  11 # $Revision: 1.30 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31 package installer::javainstaller;
  32
  33 use Cwd;
  34 use installer::exiter;
  35 use installer::files;
  36 use installer::globals;
  37 use installer::languages;
  38 use installer::pathanalyzer;
  39 use installer::scriptitems;
  40 use installer::systemactions;
  41 use installer::worker;
  42 use installer::logger;
  43
  44 ##############################################################
  45 # Returning a specific language string from the block
  46 # of all translations
  47 ##############################################################
  48
  49 sub get_language_string_from_language_block
  50 {
  51     my ($language_block, $language, $oldstring) = @_;
  52
  53     my $newstring = "";
  54
  55     for ( my $i = 0; $i <= $#{$language_block}; $i++ )
  56     {
  57         if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
  58         {
  59             $newstring = $1;
  60             last;
  61         }
  62     }
  63
  64     if ( $newstring eq "" )
  65     {
  66         $language = "en-US";    # defaulting to english
  67
  68         for ( my $i = 0; $i <= $#{$language_block}; $i++ )
  69         {
  70             if ( ${$language_block}[$i] =~ /^\s*$language\s*\=\s*\"(.*)\"\s*$/ )
  71             {
  72                 $newstring = $1;
  73                 last;
  74             }
  75         }
  76     }
  77
  78     return $newstring;
  79 }
  80
  81 ##############################################################
  82 # Returning the complete block in all languages
  83 # for a specified string
  84 ##############################################################
  85
  86 sub get_language_block_from_language_file
  87 {
  88     my ($searchstring, $languagefile) = @_;
  89
  90     my @language_block = ();
  91
  92     for ( my $i = 0; $i <= $#{$languagefile}; $i++ )
  93     {
  94         if ( ${$languagefile}[$i] =~ /^\s*\[\s*$searchstring\s*\]\s*$/ )
  95         {
  96             my $counter = $i;
  97
  98             push(@language_block, ${$languagefile}[$counter]);
  99             $counter++;
 100
 101             while (( $counter <= $#{$languagefile} ) && (!( ${$languagefile}[$counter] =~ /^\s*\[/ )))
 102             {
 103                 push(@language_block, ${$languagefile}[$counter]);
 104                 $counter++;
 105             }
 106
 107             last;
 108         }
 109     }
 110
 111     return \@language_block;
 112 }
 113
 114 #######################################################
 115 # Searching for the module name and description in the
 116 # modules collector
 117 #######################################################
 118
 119 sub get_module_name_description
 120 {
 121     my ($modulesarrayref, $onelanguage, $gid, $type) = @_;
 122
 123     my $found = 0;
 124
 125     my $newstring = "";
 126
 127     for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
 128     {
 129         my $onemodule = ${$modulesarrayref}[$i];
 130
 131         if ( $onemodule->{'gid'} eq $gid )
 132         {
 133             my $typestring = $type . " " . "(" . $onelanguage . ")";
 134             if ( $onemodule->{$typestring} ) { $newstring = $onemodule->{$typestring}; }
 135             $found = 1;
 136         }
 137
 138         if ( $found ) { last; }
 139     }
 140
 141     # defaulting to english
 142
 143     if ( ! $found )
 144     {
 145         my $defaultlanguage = "en-US";
 146
 147         for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
 148         {
 149             my $onemodule = ${$modulesarrayref}[$i];
 150
 151             if ( $onemodule->{'gid'} eq $gid )
 152             {
 153                 my $typestring = $type . " " . "(" . $defaultlanguage . ")";
 154                 if ( $onemodule->{$typestring} ) { $newstring = $onemodule->{$typestring}; }
 155                 $found = 1;
 156             }
 157
 158             if ( $found ) { last; }
 159         }
 160     }
 161
 162     return $newstring;
 163 }
 164
 165 #######################################################
 166 # Setting the productname and productversion
 167 #######################################################
 168
 169 sub set_productname_and_productversion
 170 {
 171     my ($templatefile, $variableshashref) = @_;
 172
 173     my $infoline = "\nSetting product name and product version in Java template file\n";
 174     push( @installer::globals::logfileinfo, $infoline);
 175
 176     my $productname = $variableshashref->{'PRODUCTNAME'};
 177     my $productversion = $variableshashref->{'PRODUCTVERSION'};
 178
 179     for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
 180     {
 181         ${$templatefile}[$i] =~ s/\{PRODUCTNAME\}/$productname/g;
 182         ${$templatefile}[$i] =~ s/\{PRODUCTVERSION\}/$productversion/g;
 183     }
 184
 185     $infoline = "End of: Setting product name and product version in Java template file\n\n";
 186     push( @installer::globals::logfileinfo, $infoline);
 187 }
 188
 189 #######################################################
 190 # Setting the localized Module name and description
 191 #######################################################
 192
 193 sub set_component_name_and_description
 194 {
 195     my ($templatefile, $modulesarrayref, $onelanguage) = @_;
 196
 197     my $infoline = "\nSetting component names and description in Java template file\n";
 198     push( @installer::globals::logfileinfo, $infoline);
 199
 200     for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
 201     {
 202         # OOO_gid_Module_Prg_Wrt_Name
 203         # OOO_gid_Module_Prg_Wrt_Description
 204
 205         my $oneline = ${$templatefile}[$i];
 206         my $oldstring = "";
 207         my $gid = "";
 208         my $type = "";
 209
 210         if ( $oneline =~ /\b(OOO_gid_\w+)\b/ )
 211         {
 212             $oldstring = $1;
 213
 214             $infoline = "Found: $oldstring\n";
 215             push( @installer::globals::logfileinfo, $infoline);
 216
 217             if ( $oldstring =~ /^\s*OOO_(gid_\w+)_(\w+?)\s*$/ )
 218             {
 219                 $gid = $1;
 220                 $type = $2;
 221             }
 222
 223             my $newstring = get_module_name_description($modulesarrayref, $onelanguage, $gid, $type);
 224
 225             $infoline = "\tReplacing (language $onelanguage): OLDSTRING: $oldstring NEWSTRING $newstring\n";
 226             push( @installer::globals::logfileinfo, $infoline);
 227
 228             ${$templatefile}[$i] =~ s/$oldstring/$newstring/;   # always substitute, even if $newstring eq ""
 229         }
 230     }
 231
 232     $infoline = "End of: Setting component names and description in Java template file\n\n";
 233     push( @installer::globals::logfileinfo, $infoline);
 234 }
 235
 236 #######################################################
 237 # Translating the Java file
 238 #######################################################
 239
 240 sub translate_javafile
 241 {
 242     my ($templatefile, $languagefile, $onelanguage) = @_;
 243
 244     for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
 245     {
 246         my @allstrings = ();
 247
 248         my $oneline = ${$templatefile}[$i];
 249
 250         while ( $oneline =~ /\b(OOO_\w+)\b/ )
 251         {
 252             my $replacestring = $1;
 253             push(@allstrings, $replacestring);
 254             $oneline =~ s/$replacestring//;
 255         }
 256
 257         my $oldstring;
 258
 259         foreach $oldstring (@allstrings)
 260         {
 261             my $language_block = get_language_block_from_language_file($oldstring, $languagefile);
 262             my $newstring = get_language_string_from_language_block($language_block, $onelanguage, $oldstring);
 263
 264             $newstring =~ s/\"/\\\"/g;  # masquerading the "
 265             $newstring =~ s/\\\\\"/\\\"/g;      # unmasquerading if \" was converted to \\"     (because " was already masked)
 266
 267             # if (!( $newstring eq "" )) { ${$idtfile}[$i] =~ s/$oldstring/$newstring/; }
 268             ${$templatefile}[$i] =~ s/$oldstring/$newstring/;   # always substitute, even if $newstring eq ""
 269         }
 270     }
 271 }
 272
 273 ###########################################################
 274 # Returning the license file name for a defined language
 275 ###########################################################
 276
 277 sub get_licensefilesource
 278 {
 279     my ($language, $includepatharrayref) = @_;
 280
 281     my $licensefilename = "LICENSE_" . $language;
 282
 283     my $licenseref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$licensefilename, $includepatharrayref, 0);
 284     if ($$licenseref eq "") { installer::exiter::exit_program("ERROR: Could not find License file $licensefilename!", "get_licensefilesource"); }
 285
 286     my $infoline = "Found licensefile $licensefilename: $$licenseref \n";
 287     push( @installer::globals::logfileinfo, $infoline);
 288
 289     return $$licenseref;
 290 }
 291
 292 #######################################################
 293 # Converting the license string into the
 294 # Java specific encoding.
 295 #######################################################
 296
 297 sub convert_licenstring
 298 {
 299     my ($licensefile, $includepatharrayref, $javadir, $onelanguage) = @_;
 300
 301     my $licensedir = $javadir . $installer::globals::separator . "license";
 302     installer::systemactions::create_directory($licensedir);
 303
 304     # saving the original license file
 305
 306     my $licensefilename = $licensedir . $installer::globals::separator . "licensefile.txt";
 307     installer::files::save_file($licensefilename, $licensefile);
 308
 309     # creating the ulf file from the license file
 310
 311     $licensefilename = $licensedir . $installer::globals::separator . "licensefile.ulf";
 312     my @licensearray = ();
 313
 314     my $section = "\[TRANSLATE\]\n";
 315     push(@licensearray, $section);
 316
 317     for ( my $i = 0; $i <= $#{$licensefile}; $i++ )
 318     {
 319         my $oneline = ${$licensefile}[$i];
 320
 321         if ($i == 0) { $oneline =~ s/^\s*\ï\»\¿//; }
 322
 323         $oneline =~ s/\s*$//;
 324         $oneline =~ s/\"/\\\"/g;        # masquerading the "
 325         $oneline =~ s/\'/\\\'/g;        # masquerading the '
 326
 327         $oneline =~ s/\$\{/\{/g;        # replacement of variables, only {PRODUCTNAME}, not ${PRODUCTNAME}
 328
 329         my $ulfstring = $onelanguage . " = " . "\"" . $oneline . "\"\n";
 330         push(@licensearray, $ulfstring);
 331     }
 332
 333     installer::files::save_file($licensefilename, \@licensearray);
 334
 335     # converting the ulf file to the jlf file with ulfconv
 336
 337     @licensearray = ();
 338
 339     my $converter = "ulfconv";
 340
 341     my $converterref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$converter, $includepatharrayref, 0);
 342     if ($$converterref eq "") { installer::exiter::exit_program("ERROR: Could not find converter $converter!", "convert_licenstring"); }
 343
 344     my $infoline = "Found converter file $converter: $$converterref \n";
 345     push( @installer::globals::logfileinfo, $infoline);
 346
 347     my $systemcall = "$$converterref $licensefilename |";
 348     open (CONV, "$systemcall");
 349     @licensearray = <CONV>;
 350     close (CONV);
 351
 352     $licensefilename = $licensedir . $installer::globals::separator . "licensefile.jlf";
 353     installer::files::save_file($licensefilename, \@licensearray);
 354
 355     # creating the license string from the jlf file
 356
 357     $licensestring = "";
 358
 359     for ( my $i = 1; $i <= $#licensearray; $i++ )       # not the first line!
 360     {
 361         my $oneline = $licensearray[$i];
 362         $oneline =~ s/^\s*$onelanguage\s*\=\s*\"//;
 363         $oneline =~ s/\"\s*$//;
 364         $licensestring = $licensestring . $oneline . "\\n";
 365     }
 366
 367     $infoline = "Systemcall: $systemcall\n";
 368     push( @installer::globals::logfileinfo, $infoline);
 369
 370     if ( $licensestring eq "" )
 371     {
 372         $infoline = "ERROR: Could not convert $licensefilename !\n";
 373         push( @installer::globals::logfileinfo, $infoline);
 374     }
 375
 376     return $licensestring;
 377 }
 378
 379 #######################################################
 380 # Adding the license file into the java file
 381 # In the template java file there are two
 382 # occurences of INSTALLSDK_GUI_LICENSE
 383 # and INSTALLSDK_CONSOLE_LICENSE
 384 #######################################################
 385
 386 sub add_license_file_into_javafile
 387 {
 388     my ( $templatefile, $licensefile, $includepatharrayref, $javadir, $onelanguage ) = @_;
 389
 390     my $licensestring = convert_licenstring($licensefile, $includepatharrayref, $javadir, $onelanguage);
 391
 392     # saving the licensestring in an ulf file
 393     # converting the file using "ulfconv license.ulf"
 394     # including the new string into the java file
 395
 396     for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
 397     {
 398         ${$templatefile}[$i] =~ s/INSTALLSDK_GUI_LICENSE/$licensestring/;
 399         ${$templatefile}[$i] =~ s/INSTALLSDK_CONSOLE_LICENSE/$licensestring/;
 400     }
 401 }
 402
 403 #######################################################
 404 # Executing one system call
 405 #######################################################
 406
 407 sub make_systemcall
 408 {
 409     my ( $systemcall, $logreturn ) = @_;
 410
 411     my @returns = ();
 412
 413     installer::logger::print_message( "... $systemcall ...\n" );
 414
 415     open (REG, "$systemcall");
 416     while (<REG>) {push(@returns, $_); }
 417     close (REG);
 418
 419     my $returnvalue = $?;       # $? contains the return value of the systemcall
 420
 421     my $infoline = "Systemcall: $systemcall\n";
 422     push( @installer::globals::logfileinfo, $infoline);
 423
 424     if ( $logreturn )
 425     {
 426         for ( my $j = 0; $j <= $#returns; $j++ ) { push( @installer::globals::logfileinfo, "$returns[$j]"); }
 427     }
 428
 429     if ($returnvalue)
 430     {
 431         $infoline = "ERROR: $systemcall\n";
 432         push( @installer::globals::logfileinfo, $infoline);
 433         $error_occured = 1;
 434     }
 435     else
 436     {
 437         $infoline = "SUCCESS: $systemcall\n";
 438         push( @installer::globals::logfileinfo, $infoline);
 439     }
 440
 441     return \@returns;
 442 }
 443
 444 #######################################################
 445 # Setting the class path for the Installer SDK
 446 #######################################################
 447
 448 sub set_classpath_for_install_sdk
 449 {
 450     my ( $directory ) = @_;
 451
 452     my $installsdk = "";
 453     my $solarVersion = "";
 454     my $inPath = "";
 455     my $updMinorExt = "";
 456
 457     if ( defined( $ENV{ 'SOLARVERSION' } ) ) { $solarVersion =  $ENV{'SOLARVERSION'}; }
 458     else { installer::exiter::exit_program("ERROR: Environment variable \"SOLARVERSION\" not set!", "set_classpath_for_install_sdk"); }
 459
 460     if ( defined( $ENV{ 'INPATH' } ) ) { $inPath =  $ENV{'INPATH'}; }
 461     else { installer::exiter::exit_program("ERROR: Environment variable \"INPATH\" not set!", "set_classpath_for_install_sdk"); }
 462
 463     if ( defined( $ENV{ 'UPDMINOREXT' } ) ) { $updMinorExt =  $ENV{'UPDMINOREXT'}; }
 464     else { installer::exiter::exit_program("ERROR: Environment variable \"UPDMINOREXT\" not set!", "set_classpath_for_install_sdk") if ( ! $ENV{UPDATER} ); }
 465
 466     $installsdk = $solarVersion .  $installer::globals::separator . $inPath . $installer::globals::separator . "bin" . $updMinorExt;
 467     $installsdk = $installsdk . $installer::globals::separator . "javainstaller";
 468
 469     if ( $ENV{'INSTALLSDK_SOURCE'} ) { $installsdk = $ENV{'INSTALLSDK_SOURCE'}; }       # overriding the Install SDK with INSTALLSDK_SOURCE
 470
 471     # The variable CLASSPATH has to contain:
 472     # $installsdk/classes:$installsdk/classes/setupsdk.jar:
 473     # $installsdk/classes/parser.jar:$installsdk/classes/jaxp.jar:
 474     # $installsdk/classes/ldapjdk.jar:$directory
 475
 476     my @additional_classpath = ();
 477     push(@additional_classpath, "$installsdk\/classes");
 478     push(@additional_classpath, "$installsdk\/installsdk.jar");
 479     push(@additional_classpath, "$installsdk\/classes\/parser.jar");
 480     push(@additional_classpath, "$installsdk\/classes\/jaxp.jar");
 481     push(@additional_classpath, "$directory");
 482
 483     my $newclasspathstring = "";
 484     my $oldclasspathstring = "";
 485     if ( $ENV{'CLASSPATH'} ) { $oldclasspathstring = $ENV{'CLASSPATH'}; }
 486     else { $oldclasspathstring = "\."; }
 487
 488     for ( my $i = 0; $i <= $#additional_classpath; $i++ )
 489     {
 490         $newclasspathstring = $newclasspathstring . $additional_classpath[$i] . ":";
 491     }
 492
 493     $newclasspathstring = $newclasspathstring . $oldclasspathstring;
 494
 495     $ENV{'CLASSPATH'} = $newclasspathstring;
 496
 497     my $infoline = "Setting CLASSPATH to $ENV{'CLASSPATH'}\n";
 498     push( @installer::globals::logfileinfo, $infoline);
 499 }
 500
 501 #######################################################
 502 # Setting the class file name in the Java locale file
 503 #######################################################
 504
 505 sub set_classfilename
 506 {
 507     my ($templatefile, $classfilename, $searchstring) = @_;
 508
 509     for ( my $j = 0; $j <= $#{$templatefile}; $j++ )
 510     {
 511         if ( ${$templatefile}[$j] =~ /\Q$searchstring\E/ )
 512         {
 513             ${$templatefile}[$j] =~ s/$searchstring/$classfilename/;
 514             last;
 515         }
 516     }
 517 }
 518
 519 #######################################################
 520 # Substituting one variable in the xml file
 521 #######################################################
 522
 523 sub replace_one_variable
 524 {
 525     my ($xmlfile, $variable, $searchstring) = @_;
 526
 527     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
 528     {
 529         ${$xmlfile}[$i] =~ s/\$\{$searchstring\}/$variable/g;
 530     }
 531 }
 532
 533 #######################################################
 534 # Substituting the variables in the xml file
 535 #######################################################
 536
 537 sub substitute_variables
 538 {
 539     my ($xmlfile, $variableshashref) = @_;
 540
 541     my $key;
 542
 543     foreach $key (keys %{$variableshashref})
 544     {
 545         my $value = $variableshashref->{$key};
 546         replace_one_variable($xmlfile, $value, $key);
 547     }
 548 }
 549
 550 ##########################################################
 551 # Finding the line number in xml file of a special
 552 # component
 553 ##########################################################
 554
 555 sub find_component_line
 556 {
 557     my ($xmlfile, $componentname) = @_;
 558
 559     my $linenumber = 0;
 560
 561     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
 562     {
 563         if ( ${$xmlfile}[$i] =~ /name\s*\=\'\s*$componentname/ )
 564         {
 565             $linenumber = $i;
 566             last;
 567         }
 568     }
 569
 570     return $linenumber;
 571 }
 572
 573 ##########################################################
 574 # Removing one package from the xml file
 575 ##########################################################
 576
 577 sub remove_package
 578 {
 579     my ($xmlfile, $packagename) = @_;
 580
 581     my $searchstring = $packagename;
 582     if ( $searchstring =~ /\-(\S+?)\s*$/ ) { $searchstring = $1; } # "SUNW%PRODUCTNAME-mailcap" -> "mailcap"
 583
 584     my $packagestring = "";
 585     my $namestring = "";
 586     my $infoline = "";
 587
 588     if ( $installer::globals::issolarispkgbuild )
 589     {
 590         $packagestring = "\<pkgunit";
 591         $namestring = "pkgName";
 592     }
 593     elsif ( $installer::globals::islinuxrpmbuild )
 594     {
 595         $packagestring = "\<rpmunit";
 596         $namestring = "rpmUniqueName";
 597     }
 598
 599     my $removed_packge = 0;
 600
 601     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
 602     {
 603         if ( ${$xmlfile}[$i] =~ /^\s*\Q$packagestring\E/ )
 604         {
 605             # this is a package, but is it the correct one?
 606
 607             my $do_delete = 0;
 608             my $linecounter = 1;
 609             my $startline = $i+1;
 610             my $line = ${$xmlfile}[$startline];
 611             if (($line =~ /^\s*\Q$namestring\E\s*\=/) && ($line =~ /\-\Q$searchstring\E/)) { $do_delete = 1; }
 612
 613             # but not deleting fonts package in language packs
 614             if ( $line =~ /-ONELANGUAGE-/ ) { $do_delete = 0; }
 615
 616             my $endcounter = 0;
 617
 618             while ((!( $line =~ /\/\>/ )) && ( $startline <= $#{$xmlfile} ))
 619             {
 620                 $linecounter++;
 621                 $startline++;
 622                 $line = ${$xmlfile}[$startline];
 623                 if (($line =~ /^\s*\Q$namestring\E\s*\=/) && ($line =~ /\-\Q$searchstring\E/)) { $do_delete = 1; }
 624             }
 625
 626             $linecounter = $linecounter + 1;
 627
 628             if ( $do_delete )
 629             {
 630                 my $infoline = "\tReally removing package $packagename from xml file.\n";
 631                 push( @installer::globals::logfileinfo, $infoline);
 632                 splice(@{$xmlfile},$i, $linecounter);   # removing $linecounter lines, beginning in line $i
 633                 $removed_packge = 1;
 634                 last;
 635             }
 636         }
 637     }
 638
 639     if ( $removed_packge )
 640     {
 641         $infoline = "Package $packagename successfully removed from xml file.\n";
 642         push( @installer::globals::logfileinfo, $infoline);
 643     }
 644     else
 645     {
 646         $infoline = "Did not find package $packagename in xml file.\n";
 647         push( @installer::globals::logfileinfo, $infoline);
 648     }
 649
 650 }
 651
 652 ##########################################################
 653 # Removing one component from the xml file
 654 ##########################################################
 655
 656 sub remove_component
 657 {
 658     my ($xmlfile, $componentname) = @_;
 659
 660     my @removed_lines = ();
 661
 662     push(@removed_lines, "\n");
 663
 664     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
 665     {
 666         if ( ${$xmlfile}[$i] =~ /name\s*\=\'\s*$componentname/ )
 667         {
 668             # Counting the lines till the second "</component>"
 669
 670             push(@removed_lines, ${$xmlfile}[$i]);
 671             my $linecounter = 1;
 672             my $startline = $i+1;
 673             my $line = ${$xmlfile}[$startline];
 674             push(@removed_lines, $line);
 675             my $endcounter = 0;
 676
 677             while ((!( $line =~ /^\s*\<\/component\>\s*$/ )) && ( $startline <= $#{$xmlfile} ))
 678             {
 679                 $linecounter++;
 680                 $startline++;
 681                 $line = ${$xmlfile}[$startline];
 682                 push(@removed_lines, $line);
 683             }
 684
 685             $linecounter = $linecounter + 2;     # last line and following empty line
 686
 687             splice(@{$xmlfile},$i, $linecounter);       # removing $linecounter lines, beginning in line $i
 688             last;
 689         }
 690     }
 691
 692     return \@removed_lines;
 693 }
 694
 695 ##########################################################
 696 # If this is an installation set without language packs
 697 # the language pack module can be removed
 698 ##########################################################
 699
 700 sub remove_languagepack_from_xmlfile
 701 {
 702     my ($xmlfile) = @_;
 703
 704     # Component begins with "<component selected="true" name='module_languagepacks' componentVersion="${PRODUCTVERSION}">"
 705     # and ends with "</component>" (the second "</component>" !)
 706
 707     remove_component($xmlfile, "languagepack_DEFAULT");
 708     remove_component($xmlfile, "languagepack_ONELANGUAGE");
 709     remove_component($xmlfile, "module_languagepacks");
 710 }
 711
 712 ##########################################################
 713 # Duplicating a component
 714 ##########################################################
 715
 716 sub duplicate_component
 717 {
 718     my ( $arrayref ) = @_;
 719
 720     @newarray = ();
 721
 722     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
 723     {
 724         push(@newarray, ${$arrayref}[$i]);
 725     }
 726
 727     return \@newarray;
 728 }
 729
 730 ##########################################################
 731 # Including a component into the xml file
 732 # at a specified line
 733 ##########################################################
 734
 735 sub include_component_at_specific_line
 736 {
 737     my ($xmlfile, $unit, $line) = @_;
 738
 739     splice(@{$xmlfile},$line, 0, @{$unit});
 740 }
 741
 742 ##########################################################
 743 # Font packages do not exist for all languages.
 744 ##########################################################
 745
 746 sub remove_font_package_from_unit
 747 {
 748     my ( $unitcopy, $onelanguage ) = @_;
 749
 750     my $searchstring = "-fonts";
 751
 752     my $packagestring = "";
 753     my $namestring = "";
 754
 755     if ( $installer::globals::issolarispkgbuild )
 756     {
 757         $packagestring = "\<pkgunit";
 758         $namestring = "pkgName";
 759     }
 760     elsif ( $installer::globals::islinuxrpmbuild )
 761     {
 762         $packagestring = "\<rpmunit";
 763         $namestring = "rpmUniqueName";
 764     }
 765
 766     for ( my $i = 0; $i <= $#{$unitcopy}; $i++ )
 767     {
 768         if ( ${$unitcopy}[$i] =~ /^\s*\Q$packagestring\E/ )
 769         {
 770             # this is a package, but is it the correct one?
 771
 772             my $do_delete = 0;
 773             my $linecounter = 1;
 774             my $startline = $i+1;
 775             my $line = ${$unitcopy}[$startline];
 776             if (($line =~ /^\s*\Q$namestring\E\s*\=/) && ($line =~ /\Q$searchstring\E/)) { $do_delete = 1; }
 777
 778             my $endcounter = 0;
 779
 780             while ((!( $line =~ /\/\>/ )) && ( $startline <= $#{$unitcopy} ))
 781             {
 782                 $linecounter++;
 783                 $startline++;
 784                 $line = ${$unitcopy}[$startline];
 785                 if (($line =~ /^\s*\Q$namestring\E\s*\=/) && ($line =~ /\Q$searchstring\E/)) { $do_delete = 1; }
 786             }
 787
 788             $linecounter = $linecounter + 1;
 789
 790             if ( $do_delete )
 791             {
 792                 splice(@{$unitcopy},$i, $linecounter);  # removing $linecounter lines, beginning in line $i
 793                 last;
 794             }
 795         }
 796     }
 797 }
 798
 799 ##########################################################
 800 # If this is an installation set with language packs,
 801 # modules for each language pack have to be created
 802 # dynamically
 803 ##########################################################
 804
 805 sub duplicate_languagepack_in_xmlfile
 806 {
 807     my ($xmlfile, $languagesarrayref) = @_;
 808
 809     my $unit = remove_component($xmlfile, "languagepack_ONELANGUAGE");
 810     my $startline = find_component_line($xmlfile, "module_languagepacks");
 811     my $infoline = "";
 812     $startline = $startline + 1;
 813
 814     for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ )
 815     {
 816         my $onelanguage = ${$languagesarrayref}[$i];
 817         my $unitcopy = duplicate_component($unit);
 818
 819         # replacing string ONELANGUAGE in the unit copy
 820         for ( my $j = 0; $j <= $#{$unitcopy}; $j++ ) { ${$unitcopy}[$j] =~ s/ONELANGUAGE/$onelanguage/g; }
 821
 822         # including the unitcopy into the xml file
 823         include_component_at_specific_line($xmlfile, $unitcopy, $startline);
 824         $startline = $startline + $#{$unitcopy} + 1;
 825     }
 826
 827     # adding the default language as language pack, too
 828     $unit = remove_component($xmlfile, "languagepack_DEFAULT");
 829     $startline = find_component_line($xmlfile, "module_languagepacks");
 830     $startline = $startline + 1;
 831
 832     $onelanguage = ${$languagesarrayref}[0];
 833     $unitcopy = duplicate_component($unit);
 834
 835     # replacing string DEFAULT in the unit copy
 836     for ( my $j = 0; $j <= $#{$unitcopy}; $j++ ) { ${$unitcopy}[$j] =~ s/DEFAULT/$onelanguage/g; }
 837
 838     # including the unitcopy into the xml file
 839     include_component_at_specific_line($xmlfile, $unitcopy, $startline);
 840     $startline = $startline + $#{$unitcopy} + 1;
 841 }
 842
 843 #######################################################
 844 # Removing empty packages from xml file. The names
 845 # are stored in @installer::globals::emptypackages
 846 #######################################################
 847
 848 sub remove_empty_packages_in_xmlfile
 849 {
 850     my ($xmlfile) = @_;
 851
 852     for ( my $i = 0; $i <= $#installer::globals::emptypackages; $i++ )
 853     {
 854         my $packagename = $installer::globals::emptypackages[$i];
 855         my $infoline = "Try to remove package $packagename from xml file.\n";
 856         push( @installer::globals::logfileinfo, $infoline);
 857         remove_package($xmlfile, $packagename);
 858     }
 859 }
 860
 861 #######################################################
 862 # Preparing the language packs in the xml file
 863 #######################################################
 864
 865 sub prepare_language_pack_in_xmlfile
 866 {
 867     my ($xmlfile, $languagesarrayref) = @_;
 868
 869     # if ( ! $installer::globals::is_unix_multi )
 870     # {
 871     #   remove_languagepack_from_xmlfile($xmlfile);
 872     # }
 873     # else
 874     # {
 875         duplicate_languagepack_in_xmlfile($xmlfile, $languagesarrayref);
 876     # }
 877
 878 }
 879
 880 #######################################################
 881 # Returning a rpm unit from a xml file
 882 #######################################################
 883
 884 sub get_rpm_unit_from_xmlfile
 885 {
 886     my ($rpmname, $xmlfile) = @_;
 887
 888     my $infoline = "Searching for $rpmname in xml file.\n";
 889     push( @installer::globals::logfileinfo, $infoline);
 890
 891     my @rpmunit = ();
 892     my $includeline = 0;
 893     my $record = 0;
 894     my $foundrpm = 0;
 895
 896     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
 897     {
 898         my $oneline = ${$xmlfile}[$i];
 899
 900         if ( $oneline =~ /^\s*\<rpmunit/ ) { $record = 1; }
 901
 902         if ( $record ) { push(@rpmunit, $oneline); }
 903
 904         if ( $oneline =~ /^\s*rpmUniqueName\s*=\s*\"\Q$rpmname\E\"\s*$/ ) { $foundrpm = 1; }
 905
 906         if (( $record ) && ( $oneline =~ /\/\>\s*$/ )) { $record = 0; }
 907
 908         if (( ! $foundrpm ) && ( ! $record )) { @rpmunit = (); }
 909
 910         if (( $foundrpm ) && ( ! $record )) { $includeline = $i + 1; }
 911
 912         if (( $foundrpm ) && ( ! $record )) { last; }
 913     }
 914
 915     if ( ! $foundrpm ) { installer::exiter::exit_program("ERROR: Did not find rpmunit $rpmname in xml file!", "get_rpm_unit_from_xmlfile"); }
 916
 917     $infoline = "Found $rpmname in xml file. Returning block lines: $#rpmunit + 1. Includeline: $includeline \n";
 918     push( @installer::globals::logfileinfo, $infoline);
 919
 920     return (\@rpmunit, $includeline);
 921 }
 922
 923 #######################################################
 924 # Exchanging package names in xml file
 925 #######################################################
 926
 927 sub exchange_name_in_rpmunit
 928 {
 929     my ($rpmunit, $oldpackagename, $newpackagename) = @_;
 930
 931     for ( my $i = 0; $i <= $#{$rpmunit}; $i++ )
 932     {
 933         ${$rpmunit}[$i] =~ s/$oldpackagename/$newpackagename/;
 934     }
 935 }
 936
 937 #######################################################
 938 # Preparing link RPMs in the xml file
 939 #######################################################
 940
 941 sub prepare_linkrpm_in_xmlfile
 942 {
 943     my ($xmlfile, $rpmlist) = @_;
 944
 945     for ( my $i = 0; $i <= $#{$rpmlist}; $i++ )
 946     {
 947         my $oldpackagename = "";
 948         my $newpackagename = "";
 949
 950         my $rpmline = ${$rpmlist}[$i];
 951
 952         my $infoline = "Preparing link/patch RPM: $rpmline\n";
 953         push( @installer::globals::logfileinfo, $infoline);
 954
 955         if ( $rpmline =~ /^\s*(\S.*?\S)\s+(\S.*?\S)\s*$/ )
 956         {
 957             $oldpackagename = $1;
 958             $newpackagename = $2;
 959         }
 960
 961         my ($rpmunit, $includeline) = get_rpm_unit_from_xmlfile($oldpackagename, $xmlfile);
 962         exchange_name_in_rpmunit($rpmunit, $oldpackagename, $newpackagename);
 963         include_component_at_specific_line($xmlfile, $rpmunit, $includeline);
 964     }
 965 }
 966
 967 #######################################################################
 968 # Removing w4w filter module from xml file for Solaris x86 and Linux
 969 #######################################################################
 970
 971 sub remove_w4w_from_xmlfile
 972 {
 973     my ($xmlfile) = @_;
 974
 975     # Component begins with "<component selected='true' name='gid_Module_Prg_Wrt_Flt_W4w' componentVersion="8">"
 976     # and ends with "</component>"
 977
 978     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
 979     {
 980         if ( ${$xmlfile}[$i] =~ /name\s*\=\'\s*gid_Module_Prg_Wrt_Flt_W4w/ )
 981         {
 982             # Counting the lines till "</component>"
 983
 984             my $linecounter = 1;
 985             my $startline = $i+1;
 986             my $line = ${$xmlfile}[$startline];
 987
 988             while ((!( $line =~ /^\s*\<\/component\>\s*$/ )) && ( $startline <= $#{$xmlfile} ))
 989             {
 990                 $linecounter++;
 991                 $startline++;
 992                 $line = ${$xmlfile}[$startline];
 993             }
 994
 995             $linecounter = $linecounter + 2;     # last line and following empty line
 996
 997             splice(@{$xmlfile},$i, $linecounter);       # removing $linecounter lines, beginning in line $i
 998             last;
 999         }
1000     }
1001 }
1002
1003 #######################################################################
1004 # Removing module from xml file, if not defined in scp
1005 #######################################################################
1006
1007 sub remove_scpgid_from_xmlfile
1008 {
1009     my ($xmlfile, $scpgid) = @_;
1010
1011     # Component begins with "<component selected='true' name='$scpgid' componentVersion="8">"
1012     # and ends with "</component>"
1013
1014     my $successfully_removed = 0;
1015
1016     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1017     {
1018         if ( ${$xmlfile}[$i] =~ /name\s*\=\'\s*\Q$scpgid\E/ )
1019         {
1020             # Counting the lines till "</component>"
1021
1022             my $linecounter = 1;
1023             my $startline = $i+1;
1024             my $line = ${$xmlfile}[$startline];
1025
1026             while ((!( $line =~ /^\s*\<\/component\>\s*$/ )) && ( $startline <= $#{$xmlfile} ))
1027             {
1028                 $linecounter++;
1029                 $startline++;
1030                 $line = ${$xmlfile}[$startline];
1031             }
1032
1033             $linecounter = $linecounter + 2;     # last line and following empty line
1034
1035             splice(@{$xmlfile},$i, $linecounter);       # removing $linecounter lines, beginning in line $i
1036             $successfully_removed = 1;
1037             last;
1038         }
1039     }
1040
1041     my $infoline = "";
1042     if ($successfully_removed)
1043     {
1044         $infoline = "Module $scpgid successfully removed from xml file.\n";
1045         push( @installer::globals::logfileinfo, $infoline);
1046     }
1047     else
1048     {
1049         $infoline = "Module $scpgid not found in xml file (no problem).\n";
1050         push( @installer::globals::logfileinfo, $infoline);
1051     }
1052 }
1053
1054 #######################################################################
1055 # Special mechanism for removing modules for xml file, if they are
1056 # not defined in scp (introduced for onlineupdate module).
1057 #######################################################################
1058
1059 sub remove_module_if_not_defined
1060 {
1061     my ($xmlfile, $modulesarrayref, $scpgid) = @_;
1062
1063     my $infoline = "Checking existence of $scpgid in scp definition\n";
1064     push( @installer::globals::logfileinfo, $infoline);
1065
1066     my $found = 0;
1067
1068     for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
1069     {
1070         my $onemodule = ${$modulesarrayref}[$i];
1071         if ( $onemodule->{'gid'} eq $scpgid ) { $found = 1; }
1072         if ( $found ) { last; }
1073     }
1074
1075     if ( ! $found )
1076     {
1077         $infoline = "Module $scpgid not found -> Removing from xml file.\n";
1078         push( @installer::globals::logfileinfo, $infoline);
1079         remove_scpgid_from_xmlfile($xmlfile, $scpgid);
1080     }
1081 }
1082
1083 ###########################################################
1084 # Preparing the package subdirectory
1085 ###########################################################
1086
1087 sub create_empty_packages
1088 {
1089     my ( $xmlfile ) = @_;
1090
1091     if ( $installer::globals::issolarispkgbuild )
1092     {
1093         my $path = "";
1094
1095         for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1096         {
1097             if ( ${$xmlfile}[$i] =~ /pkgRelativePath\s*\=\s*\'(.*?)\'\s*$/ )
1098             {
1099                 $path = $1;
1100                 installer::systemactions::create_directory_structure($path);
1101                 last;   # only creating one path
1102             }
1103         }
1104
1105         for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1106         {
1107             if ( ${$xmlfile}[$i] =~ /pkgName\s*\=\s*\'(.*?)\'\s*$/ )
1108             {
1109                 my $pkgname = $1;
1110                 if ( $path ne "" ) { $pkgname = $path . $installer::globals::separator . $pkgname; }
1111                 installer::systemactions::create_directory_structure($pkgname);
1112             }
1113         }
1114     }
1115
1116     # "-novalidate" does not work for Linux RPMs
1117
1118     if ( $installer::globals::islinuxrpmbuild )
1119     {
1120         for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1121         {
1122             if ( ${$xmlfile}[$i] =~ /rpmPath\s*\=\s*\"(.*?)\"\s*$/ )
1123             {
1124                 my $rpmpath = $1;
1125                 my $path = "";
1126
1127                 if ( $rpmpath =~ /^\s*(.*)\/(.*?)\s*$/ )
1128                 {
1129                     $path = $1;
1130                 }
1131
1132                 if ( $path ne "" ) { installer::systemactions::create_directory_structure($path); }
1133
1134                 my $systemcall = "touch $rpmpath";      # creating empty rpm
1135                 system($systemcall);
1136             }
1137         }
1138     }
1139 }
1140
1141 ###########################################################
1142 # Reading the archive file name from the xml file
1143 ###########################################################
1144
1145 sub get_archivefilename
1146 {
1147     my ( $xmlfile ) = @_;
1148
1149     my $archivefilename = "";
1150
1151     for ( my $j = 0; $j <= $#{$xmlfile}; $j++ )
1152     {
1153         if ( ${$xmlfile}[$j] =~ /archiveFileName\s*=\s*\'(.*?)\'/ )
1154         {
1155             $archivefilename = $1;
1156             last;
1157         }
1158     }
1159
1160     return $archivefilename;
1161 }
1162
1163 #######################################################
1164 # Copying the loader locally
1165 #######################################################
1166
1167 sub copy_setup_locally
1168 {
1169     my ($includepatharrayref, $loadername, $newname) = @_;
1170
1171     my $loadernameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$loadername, $includepatharrayref, 0);
1172
1173     if ($$loadernameref eq "") { installer::exiter::exit_program("ERROR: Could not find Java loader $loadername!", "copy_setup_locally"); }
1174
1175     installer::systemactions::copy_one_file($$loadernameref, $newname);
1176     my $localcall = "chmod 775 $newname \>\/dev\/null 2\>\&1";
1177     system($localcall);
1178 }
1179
1180
1181 #######################################################
1182 # Copying the loader into the installation set
1183 #######################################################
1184
1185 sub put_loader_into_installset
1186 {
1187     my ($installdir, $filename) = @_;
1188
1189     my $installname = $installdir . $installer::globals::separator . $filename;
1190
1191     installer::systemactions::copy_one_file($filename, $installname);
1192
1193     my $localcall = "chmod 775 $installname \>\/dev\/null 2\>\&1";
1194     system($localcall);
1195 }
1196
1197 #################################################################
1198 # Setting for Solaris the package names in the Java translation
1199 # file. The name is used for the
1200 # This name is displayed tools like prodreg.
1201 # Unfortunately this name in the component is also used
1202 # in the translation template file for the module name
1203 # and module description translations.
1204 #################################################################
1205
1206 sub replace_component_name_in_java_file
1207 {
1208     my ($alljavafiles, $oldname, $newname) = @_;
1209
1210     # The new name must not contain white spaces
1211
1212     $newname =~ s/ /\_/g;
1213
1214     for ( my $i = 0; $i <= $#{$alljavafiles}; $i++ )
1215     {
1216         my $javafilename = ${$alljavafiles}[$i];
1217         my $javafile = installer::files::read_file($javafilename);
1218
1219         my $oldstring = "ComponentDescription-" . $oldname;
1220         my $newstring = "ComponentDescription-" . $newname;
1221
1222         for ( my $j = 0; $j <= $#{$javafile}; $j++ ) { ${$javafile}[$j] =~ s/\b$oldstring\b/$newstring/; }
1223
1224         $oldstring = $oldname . "-install-DisplayName";
1225         $newstring = $newname . "-install-DisplayName";
1226
1227         for ( my $j = 0; $j <= $#{$javafile}; $j++ ) { ${$javafile}[$j] =~ s/\b$oldstring\b/$newstring/; }
1228
1229         $oldstring = $oldname . "-uninstall-DisplayName";
1230         $newstring = $newname . "-uninstall-DisplayName";
1231
1232         for ( my $j = 0; $j <= $#{$javafile}; $j++ ) { ${$javafile}[$j] =~ s/\b$oldstring\b/$newstring/; }
1233
1234         installer::files::save_file($javafilename, $javafile);
1235         $infoline = "Changes in Java file: $javafilename : $oldname \-\> $newname\n";
1236         push( @installer::globals::logfileinfo, $infoline);
1237     }
1238 }
1239
1240 #################################################################
1241 # Some module names are not defined in the scp project.
1242 # The names for this modules are searched in the base Java
1243 # translation file.
1244 #################################################################
1245
1246 sub get_module_name_from_basejavafile
1247 {
1248     my ($componentname, $javatemplateorigfile, $ulffile) = @_;
1249
1250     my $searchname = $componentname . "-install-DisplayName";
1251     my $modulename = "";
1252     my $replacename = "";
1253
1254     # line content: { "coremodule-install-DisplayName", "OOO_INSTALLSDK_117" },
1255
1256     for ( my $i = 0; $i <= $#{$javatemplateorigfile}; $i++ )
1257     {
1258         if ( ${$javatemplateorigfile}[$i] =~ /\"\s*\Q$searchname\E\s*\"\s*\,\s*\"\s*(.*?)\s*\"\s*\}\s*\,\s*$/ )
1259         {
1260             $replacename = $1;
1261             last;
1262         }
1263     }
1264
1265     if ( $replacename ne "" )
1266     {
1267         my $language_block = get_language_block_from_language_file($replacename, $ulffile);
1268         $modulename = get_language_string_from_language_block($language_block, "en-US", $replacename);
1269     }
1270
1271     return $modulename;
1272 }
1273
1274 #################################################################
1275 # Setting for Solaris the package names in the xml file.
1276 # This name is displayed tools like prodreg.
1277 # Unfortunately this name in the component is also used
1278 # in the translation template file for the module name
1279 # and module description translations.
1280 #################################################################
1281
1282 sub replace_component_names
1283 {
1284     my ($xmlfile, $templatefilename, $modulesarrayref, $javatemplateorigfile, $ulffile) = @_;
1285
1286     # path in which all java languages files are located
1287
1288     my $javafilesdir = $templatefilename;
1289     installer::pathanalyzer::get_path_from_fullqualifiedname(\$javafilesdir);
1290     my $alljavafiles = installer::systemactions::find_file_with_file_extension("java", $javafilesdir);
1291     for ( my $i = 0; $i <= $#{$alljavafiles}; $i++ ) { ${$alljavafiles}[$i] = $javafilesdir . ${$alljavafiles}[$i]; }
1292
1293     # analyzing the xml file
1294
1295     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1296     {
1297         my $newstring = "";
1298         my $componentname = "";
1299
1300         if ( ${$xmlfile}[$i] =~ /\bcomponent\b.*\bname\s*\=\'\s*(.*?)\s*\'/ )
1301         {
1302             $componentname = $1;
1303
1304             # Getting module name from the scp files in $modulesarrayref
1305
1306             my $onelanguage = "en-US";
1307             my $gid = $componentname;
1308             my $type = "Name";
1309
1310             my $modulename = "";
1311             $modulename = get_module_name_description($modulesarrayref, $onelanguage, $gid, $type);
1312
1313             if ( $modulename eq "" )
1314             {
1315                 $infoline = "Info: Modulename for $gid not defined in modules collector. Looking in Java ulf file.\n";
1316                 push( @installer::globals::logfileinfo, $infoline);
1317             }
1318
1319             if ( $modulename eq "" ) # the modulename can also be set in the Java ulf file
1320             {
1321                 $modulename = get_module_name_from_basejavafile($componentname, $javatemplateorigfile, $ulffile);
1322             }
1323
1324             if ( $modulename ne "" )    # only do something, if the modulename was found
1325             {
1326                 ${$xmlfile}[$i] =~ s/$componentname/$modulename/;
1327
1328                 $infoline = "Replacement in xml file (Solaris): $componentname \-\> $modulename\n";
1329                 push( @installer::globals::logfileinfo, $infoline);
1330
1331                 # Replacement has to be done in all Java language files
1332                 replace_component_name_in_java_file($alljavafiles, $componentname, $modulename);
1333             }
1334
1335             if ( $modulename eq "" ) # the modulename can also be set in the Java ulf file
1336             {
1337                 $infoline = "WARNING: No replacement in xml file for component: $componentname\n";
1338                 push( @installer::globals::logfileinfo, $infoline);
1339             }
1340         }
1341     }
1342 }
1343
1344 #############################################################################
1345 # Collecting all packages or rpms located in the installation directory
1346 #############################################################################
1347
1348 sub get_all_packages_in_installdir
1349 {
1350     my ($installdir, $subdir) = @_;
1351
1352     my $infoline = "";
1353
1354     my @allrpms = ();   # not needed for Solaris at the moment
1355     my $allrpms = \@allrpms;
1356
1357     $installdir =~ s/\Q$installer::globals::separator\E\s*$//;
1358     my $directory = $installdir . $installer::globals::separator . $subdir;
1359     $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1360
1361     if ( $installer::globals::islinuxrpmbuild )
1362     {
1363         $allrpms = installer::systemactions::find_file_with_file_extension("rpm", $directory);
1364
1365         # collecting rpms with the complete path
1366
1367         for ( my $i = 0; $i <= $#{$allrpms}; $i++ )
1368         {
1369             ${$allrpms}[$i] = $directory . $installer::globals::separator . ${$allrpms}[$i];
1370             $infoline = "Found RPM: ${$allrpms}[$i]\n";
1371             push( @installer::globals::logfileinfo, $infoline);
1372         }
1373     }
1374
1375     return $allrpms;
1376 }
1377
1378 #######################################################
1379 # Adding the values of the array
1380 #######################################################
1381
1382 sub do_sum
1383 {
1384     my ( $allnumbers ) = @_;
1385
1386     my $sum = 0;
1387
1388     for ( my $i = 0; $i <= $#{$allnumbers}; $i++ )
1389     {
1390         $sum = $sum + ${$allnumbers}[$i];
1391     }
1392
1393     return $sum;
1394 }
1395
1396 #######################################################
1397 # Setting the filesize for the RPMs in the xml file
1398 #######################################################
1399
1400 sub set_filesize_in_xmlfile
1401 {
1402     my ($filesize, $rpmname, $xmlfile) = @_;
1403
1404     my $infoline = "";
1405     my $foundrpm = 0;
1406     my $filesizeset = 0;
1407
1408     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1409     {
1410         my $line = ${$xmlfile}[$i];
1411
1412         # searching for "rpmPath="RPMS/${UNIXPRODUCTNAME}-core01-${PACKAGEVERSION}-${PACKAGEREVISION}.i586.rpm""
1413
1414         if (( $line =~ /rpmPath\s*=/ ) && ( $line =~ /\Q$rpmname\E\"\s*$/ ))
1415         {
1416             $foundrpm = 1;
1417
1418             my $number = $i;
1419             $number++;
1420
1421             while ( ! ( ${$xmlfile}[$number] =~ /\/\>\s*$/ ))
1422             {
1423                 if ( ${$xmlfile}[$number] =~ /FILESIZEPLACEHOLDER/ )
1424                 {
1425                     ${$xmlfile}[$number] =~ s/FILESIZEPLACEHOLDER/$filesize/;
1426                     $filesizeset = 1;
1427                     $infoline = "Setting filesize for $rpmname : $filesize\n";
1428                     push( @installer::globals::logfileinfo, $infoline);
1429                     last;
1430                 }
1431
1432                 $number++;
1433             }
1434
1435             last;
1436         }
1437     }
1438
1439     if ( ! $foundrpm )
1440     {
1441         $infoline = "ERROR: Did not find $rpmname in xml file !\n";
1442         push( @installer::globals::logfileinfo, $infoline);
1443     }
1444
1445     if ( ! $filesizeset )
1446     {
1447         $infoline = "ERROR: Did not set filesize for $rpmname in xml file !\n";
1448         push( @installer::globals::logfileinfo, $infoline);
1449     }
1450 }
1451
1452 ############################################################
1453 # Collecting all rpmUniqueName in xml file.
1454 ############################################################
1455
1456 sub collect_uniquenames_in_xmlfile
1457 {
1458     my ($xmlfile) = @_;
1459
1460     my @rpmuniquenames = ();
1461
1462     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1463     {
1464         my $oneline = ${$xmlfile}[$i];
1465
1466         if ( $oneline =~ /^\s*rpmUniqueName\s*\=\s*\"(.*)\"\s*$/ )
1467         {
1468             my $rpmuniquename = $1;
1469             push(@rpmuniquenames, $rpmuniquename)
1470         }
1471     }
1472
1473     return \@rpmuniquenames;
1474 }
1475
1476 ############################################################
1477 # Searching for the corresponding rpm, that fits to
1478 # the unique rpm name.
1479 # Simple mechanism: The name of the rpm starts with the
1480 # unique rpm name followed by a "-".
1481 ############################################################
1482
1483 sub find_rpmname_to_uniquename
1484 {
1485     my ($uniquename, $listofpackages) = @_;
1486
1487     my @all_correct_rpms = ();
1488     my $infoline = "";
1489
1490     # special handling for java RPMs, which have a very strange naming schema
1491     my $localuniquename = $uniquename;
1492     if ( $uniquename =~ /^\s*jre\-/ ) { $localuniquename = "jre"; }
1493
1494     for ( my $i = 0; $i <= $#{$listofpackages}; $i++ )
1495     {
1496         my $completerpmname = ${$listofpackages}[$i];
1497         my $rpmname = $completerpmname;
1498         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$rpmname);
1499
1500         if ( $rpmname =~ /^\s*\Q$localuniquename\E\-\d/ ) { push(@all_correct_rpms, $rpmname); }
1501     }
1502
1503     # @all_correct_rpms has to contain exactly one value
1504
1505     if ( $#all_correct_rpms > 0 )
1506     {
1507         my $number = $#all_correct_rpms + 1;
1508         $infoline = "There are $number RPMs for the unique name \"$uniquename\" :\n";
1509         push( @installer::globals::logfileinfo, $infoline);
1510         my $allrpmstring = "";
1511         for ( my $i = 0; $i <= $#all_correct_rpms; $i++ ) { $allrpmstring = $allrpmstring . $all_correct_rpms[$i] . "\n"; }
1512         push( @installer::globals::logfileinfo, $allrpmstring);
1513         installer::exiter::exit_program("ERROR: Found $number RPMs that start with unique name \"$uniquename\". Only one allowed!", "find_rpmname_to_uniquename");
1514     }
1515
1516     if ( $#all_correct_rpms < 0 )
1517     {
1518         $infoline = "There is no rpm for the unique name \"$uniquename\"\n";
1519         push( @installer::globals::logfileinfo, $infoline);
1520         installer::exiter::exit_program("ERROR: There is no RPM that start with unique name \"$uniquename\"!", "find_rpmname_to_uniquename");
1521     }
1522
1523     if ( $#all_correct_rpms == 0 )
1524     {
1525         $infoline = "Found one rpm for the unique name \"$uniquename\" : $all_correct_rpms[0]\n";
1526         push( @installer::globals::logfileinfo, $infoline);
1527     }
1528
1529     return $all_correct_rpms[0];
1530 }
1531
1532 #######################################################
1533 # Including the complete RPM name into the xml file
1534 #######################################################
1535
1536 sub set_rpmname_into_xmlfile
1537 {
1538     my ($rpmname, $uniquename, $xmlfile) = @_;
1539
1540     my $foundrpm = 0;
1541     my $rpmnameset = 0;
1542
1543     for ( my $i = 0; $i <= $#{$xmlfile}; $i++ )
1544     {
1545         my $oneline = ${$xmlfile}[$i];
1546
1547         if ( $oneline =~ /^\s*rpmUniqueName\s*\=\s*\"\Q$uniquename\E\"\s*$/ )
1548         {
1549             $foundrpm = 1;
1550
1551             my $number = $i;
1552             $number++;
1553
1554             while ( ! ( ${$xmlfile}[$number] =~ /\/\>\s*$/ ))
1555             {
1556                 if ( ${$xmlfile}[$number] =~ /RPMFILENAMEPLACEHOLDER/ )
1557                 {
1558                     ${$xmlfile}[$number] =~ s/RPMFILENAMEPLACEHOLDER/$rpmname/;
1559                     $rpmnameset = 1;
1560                     $infoline = "Setting RPM name for $uniquename : $rpmname\n";
1561                     push( @installer::globals::logfileinfo, $infoline);
1562                     last;
1563                 }
1564
1565                 $number++;
1566             }
1567
1568             last;
1569         }
1570     }
1571
1572     if ( ! $foundrpm )
1573     {
1574         $infoline = "ERROR: Did not find $rpmname in xml file !\n";
1575         push( @installer::globals::logfileinfo, $infoline);
1576     }
1577
1578     if ( ! $rpmnameset )
1579     {
1580         $infoline = "ERROR: Did not set rpm name for $uniquename in xml file !\n";
1581         push( @installer::globals::logfileinfo, $infoline);
1582     }
1583
1584 }
1585
1586 ############################################################
1587 # Including the rpm path dynamically into the xml file.
1588 # This is introduced, because system integration has
1589 # variable PackageVersion and PackageRevision in xml file.
1590 ############################################################
1591
1592 sub put_rpmpath_into_xmlfile
1593 {
1594     my ($xmlfile, $listofpackages) = @_;
1595
1596     my $infoline = "";
1597
1598     my $alluniquenames = collect_uniquenames_in_xmlfile($xmlfile);
1599
1600     my $number = $#{$listofpackages} + 1;
1601     $infoline = "Number of packages in installation set: $number\n";
1602     push( @installer::globals::logfileinfo, $infoline);
1603     $number = $#{$alluniquenames} + 1;
1604     $infoline = "Number of unique RPM names in xml file: $number\n";
1605     push( @installer::globals::logfileinfo, $infoline);
1606
1607     $infoline = "\nPackages in installation set:\n";
1608     push( @installer::globals::logfileinfo, $infoline);
1609     for ( my $i = 0; $i <= $#{$listofpackages}; $i++ )
1610     {
1611         $infoline = "${$listofpackages}[$i]\n";
1612         push( @installer::globals::logfileinfo, $infoline);
1613     }
1614
1615     $infoline = "\nUnique RPM names in xml file:\n";
1616     push( @installer::globals::logfileinfo, $infoline);
1617     for ( my $i = 0; $i <= $#{$alluniquenames}; $i++ )
1618     {
1619         $infoline = "${$alluniquenames}[$i]\n";
1620         push( @installer::globals::logfileinfo, $infoline);
1621     }
1622
1623     if ( $#{$alluniquenames} != $#{$listofpackages} ) { installer::exiter::exit_program("ERROR: xml file contains $#{$alluniquenames} unique names, but there are $#{$listofpackages} packages in installation set!", "put_rpmpath_into_xmlfile"); }
1624
1625     for ( my $i = 0; $i <= $#{$alluniquenames}; $i++ )
1626     {
1627         my $uniquename = ${$alluniquenames}[$i];
1628         my $rpmname = find_rpmname_to_uniquename($uniquename, $listofpackages);
1629         set_rpmname_into_xmlfile($rpmname, $uniquename, $xmlfile);
1630     }
1631 }
1632
1633 #######################################################
1634 # Including the file size of the rpms into the
1635 # xml file
1636 #######################################################
1637
1638 sub put_filesize_into_xmlfile
1639 {
1640     my ($xmlfile, $listofpackages) = @_;
1641
1642     my $infoline = "";
1643
1644     for ( my $i = 0; $i <= $#{$listofpackages}; $i++ )
1645     {
1646         my $completerpmname = ${$listofpackages}[$i];
1647         my $rpmname = $completerpmname;
1648         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$rpmname);
1649
1650         if ( ! $installer::globals::rpmquerycommand ) { installer::exiter::exit_program("ERROR: rpm not found for querying packages!", "put_filesize_into_xmlfile"); }
1651         my $systemcall = "$installer::globals::rpmquerycommand -qp --queryformat \"\[\%\{FILESIZES\}\\n\]\" $completerpmname 2\>\&1 |";
1652         my $rpmout = make_systemcall($systemcall, 0);
1653         my $filesize = do_sum($rpmout);
1654
1655         $infoline = "Filesize $rpmname : $filesize\n";
1656         push( @installer::globals::logfileinfo, $infoline);
1657
1658         set_filesize_in_xmlfile($filesize, $rpmname, $xmlfile);
1659     }
1660 }
1661
1662 #######################################################
1663 # Creating the java installer class file dynamically
1664 #######################################################
1665
1666 sub create_java_installer
1667 {
1668     my ( $installdir, $newdir, $languagestringref, $languagesarrayref, $allvariableshashref, $includepatharrayref, $modulesarrayref ) = @_;
1669
1670     installer::logger::include_header_into_logfile("Creating Java installer:");
1671
1672     my $infoline = "";
1673
1674     # collecting all packages or rpms located in the installation directory
1675     my $listofpackages = get_all_packages_in_installdir($installdir, $newdir);
1676
1677     # creating the directory
1678     my $javadir = installer::systemactions::create_directories("javainstaller", $languagestringref);
1679     $javadir =~ s/\/\s*$//;
1680 #       push(@installer::globals::removedirs, $javadir);
1681
1682     # copying the content from directory install_sdk into the java directory
1683
1684     my $projectroot = "";
1685     if ( $ENV{'PRJ'} ) { $projectroot = $ENV{'PRJ'}; }
1686     else { installer::exiter::exit_program("ERROR: Environment variable PRJ not set", "create_java_installer"); }
1687
1688     $projectroot =~ s/\/\s*$//;
1689     my $sourcedir = "$projectroot/inc_global/unix/install_sdk";
1690     installer::systemactions::copy_complete_directory_without_cvs($sourcedir, $javadir);
1691
1692     # determining the java template file
1693
1694     my $templatefilename = $javadir . $installer::globals::separator . "locale/resources/MyResources_template.java";
1695
1696     # Saving the content of the template file. It is used in the xml files
1697
1698     my $javatemplateorigfile = installer::files::read_file($templatefilename);
1699
1700     # determining the ulf language file
1701
1702     # my $ulffilename = "installsdk.ulf";
1703     my $ulffilename = "installsdk.jlf";
1704     $ulffilename = $installer::globals::javalanguagepath . $installer::globals::separator . $ulffilename;
1705     my $ulffile = installer::files::read_file($ulffilename);
1706
1707     $infoline = "\nReading ulf file: $ulffilename\n";
1708     push( @installer::globals::logfileinfo, $infoline);
1709
1710     $infoline = "Translating the Java template file\n";
1711     push( @installer::globals::logfileinfo, $infoline);
1712
1713     for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ )
1714     {
1715         my $onelanguage = ${$languagesarrayref}[$i];
1716
1717         # replacing all strings in the Java file with content of ulf files
1718
1719         my $templatefile = installer::files::read_file($templatefilename);
1720
1721         set_component_name_and_description($templatefile, $modulesarrayref, $onelanguage);
1722         translate_javafile($templatefile, $ulffile, $onelanguage);
1723
1724         # adding the license file into the Java file
1725
1726         my $licensefilesource = get_licensefilesource($onelanguage, $includepatharrayref);
1727         my $licensefile = installer::files::read_file($licensefilesource);
1728         add_license_file_into_javafile($templatefile, $licensefile, $includepatharrayref, $javadir, $onelanguage);
1729
1730         # setting productname and productversion
1731
1732         set_productname_and_productversion($templatefile, $allvariableshashref);
1733
1734         # setting the class name in the java file ( "MyResources_TEMPLATE" -> "MyResources_en" )
1735
1736         # if ( $onelanguage =~ /^\s*(\w+)\-(\w+)\s*$/ ) { $onelanguage = $1; }
1737         $onelanguage =~ s/en-US/en/;    # java file name and class name contain only "_en"
1738         $onelanguage =~ s/\-/\_/;               # "pt-BR" -> "pt_BR"
1739         my $classfilename = "MyResources_" . $onelanguage;
1740         set_classfilename($templatefile, $classfilename, "MyResources_TEMPLATE");
1741
1742         # saving the new file
1743
1744         my $newfilename = $templatefilename;
1745         $newfilename =~ s/_template\.java\s*$/_$onelanguage\.java/;
1746
1747         installer::files::save_file($newfilename, $templatefile);
1748
1749         $infoline = "Saving Java file: $newfilename\n";
1750         push( @installer::globals::logfileinfo, $infoline);
1751     }
1752
1753     # renaming one language java file to "MyResources.java"
1754
1755     my $baselanguage = installer::languages::get_default_language($languagesarrayref);
1756     $baselanguage =~ s/\-/\_/;          # "pt-BR" -> "pt_BR"
1757     $baselanguage =~ s/en_US/en/;       # java file name and class name contain only "_en"
1758     # if ( $baselanguage =~ /^\s*(\w+)\-(\w+)\s*$/ ) { $baselanguage = $1; }     # java file name and class name contain only "_en"
1759     # $baselanguage =~ s/en-US/en/;      # java file name and class name contain only "_en"
1760     my $baselanguagefilename = $javadir . $installer::globals::separator . "locale/resources/MyResources_" . $baselanguage . "\.java";
1761     my $basedestfilename = $javadir . $installer::globals::separator . "locale/resources/MyResources.java";
1762     installer::systemactions::copy_one_file($baselanguagefilename, $basedestfilename);
1763
1764     # setting the class file name also for the base class
1765
1766     my $basetemplatefile = installer::files::read_file($basedestfilename);
1767     my $oldclassfilename = $baselanguagefilename;
1768     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$oldclassfilename);
1769     $oldclassfilename =~ s/\.java//;
1770     my $newclassfilename = $basedestfilename;
1771     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$newclassfilename);
1772     $newclassfilename =~ s/\.java//;
1773
1774     set_classfilename($basetemplatefile, $newclassfilename, $oldclassfilename);
1775
1776     installer::files::save_file($basedestfilename, $basetemplatefile);
1777
1778     $infoline = "Created base Java file: $basedestfilename\n";
1779     push( @installer::globals::logfileinfo, $infoline);
1780
1781     # deleting the template file
1782
1783     unlink($templatefilename);
1784
1785     $infoline = "Deleted template Java resource file: $templatefilename\n";
1786     push( @installer::globals::logfileinfo, $infoline);
1787
1788     # changing into Java directory
1789
1790     my $from = cwd();
1791
1792     chdir($javadir);
1793
1794     $infoline = "Changing into directory: $javadir\n";
1795     push( @installer::globals::logfileinfo, $infoline);
1796
1797     # preparing the xml file
1798
1799     my $xmlfilename = "";
1800     my $subdir = "";
1801
1802     if ( $installer::globals::issolarispkgbuild )
1803     {
1804         $xmlfilename = "pkgUnit.xml";
1805     }
1806     elsif ( $installer::globals::islinuxrpmbuild )
1807     {
1808         $xmlfilename = "rpmUnit.xml";
1809     }
1810     else
1811     {
1812         installer::exiter::exit_program("ERROR: No platform for Install SDK", "create_java_installer");
1813     }
1814
1815     # reading, editing and saving the xmlfile
1816
1817     my $xmlfile = installer::files::read_file($xmlfilename);
1818     prepare_language_pack_in_xmlfile($xmlfile, $languagesarrayref);
1819     my $xmlfilename2 = $xmlfilename . ".test2";
1820     installer::files::save_file($xmlfilename2, $xmlfile);
1821     remove_empty_packages_in_xmlfile($xmlfile);
1822     my $xmlfilename3 = $xmlfilename . ".test3";
1823     installer::files::save_file($xmlfilename3, $xmlfile);
1824     substitute_variables($xmlfile, $allvariableshashref);
1825     if (( $installer::globals::islinuxrpmbuild ) && ( $#installer::globals::linkrpms > -1 )) { prepare_linkrpm_in_xmlfile($xmlfile,\@installer::globals::linkrpms); }
1826     if ( $installer::globals::issolarisx86build || $installer::globals::islinuxbuild ) { remove_w4w_from_xmlfile($xmlfile); }
1827     remove_module_if_not_defined($xmlfile, $modulesarrayref, "gid_Module_Optional_Onlineupdate");
1828     replace_component_names($xmlfile, $templatefilename, $modulesarrayref, $javatemplateorigfile, $ulffile);
1829     my $xmlfilename4 = $xmlfilename . ".test4";
1830     installer::files::save_file($xmlfilename4, $xmlfile);
1831     if ( $installer::globals::islinuxrpmbuild ) { put_rpmpath_into_xmlfile($xmlfile, $listofpackages); }
1832     if ( $installer::globals::islinuxrpmbuild ) { put_filesize_into_xmlfile($xmlfile, $listofpackages); }
1833     installer::files::save_file($xmlfilename, $xmlfile);
1834     $infoline = "Saving xml file: $xmlfilename\n";
1835     push( @installer::globals::logfileinfo, $infoline);
1836
1837     # Setting the classpath and starting compiler
1838
1839     set_classpath_for_install_sdk($javadir);
1840
1841     # creating class files:
1842     # language class file, dialog class files, installer class file
1843
1844     my $jdkpath = "";
1845     if ( $ENV{'JDKPATH'} ) { $jdkpath = $ENV{'JDKPATH'}; }
1846
1847     my $javac = "javac";
1848     if ( $jdkpath ) { $javac = $jdkpath . $installer::globals::separator . $javac; }
1849
1850     my $systemcall = "$javac locale\/resources\/\*\.java 2\>\&1 |";
1851     make_systemcall($systemcall, 1);
1852
1853     $systemcall = "$javac com\/sun\/staroffice\/install\/\*\.java 2\>\&1 |";
1854     make_systemcall($systemcall, 1);
1855
1856     # making subdirectory creating empty packages
1857     create_empty_packages($xmlfile);
1858
1859     # Copy "jresetup" from solver locally to include it into the classfile
1860     # Copy "jresetup" from solver to installdir
1861
1862     my $setupname = "jresetup";
1863     my $newname = "setup";
1864     copy_setup_locally($includepatharrayref, $setupname, $newname);
1865
1866     my $java = "java";
1867     if ( $jdkpath ) { $java = $jdkpath . $installer::globals::separator . $java; }
1868
1869     $systemcall = "$java com.sun.setup.builder.InstallBuilder $xmlfilename -novalidate 2\>\&1 |";
1870     make_systemcall($systemcall, 1);
1871
1872     # copying the newly created classfile into the installation set
1873
1874     my $archivefilename = get_archivefilename($xmlfile);
1875     $archivefilename = $archivefilename . ".class";
1876
1877     if ( ! -f $archivefilename ) { installer::exiter::exit_program("ERROR: Could not find Java class file $archivefilename!", "create_java_installer"); }
1878
1879     installer::systemactions::copy_one_file($archivefilename, $installdir);
1880
1881     # Adding the loader into the installation set. The name of the loader is setup.
1882     put_loader_into_installset($installdir, $newname);
1883
1884     chdir($from);
1885
1886     $infoline = "Changing into directory: $from\n";
1887     push( @installer::globals::logfileinfo, $infoline);
1888 }
1889
1890 1;