solenv/bin/modules/installer/ziplist.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::ziplist;
  20
  21 use base 'Exporter';
  22
  23 use File::Spec::Functions qw(rel2abs);
  24
  25 use installer::converter;
  26 use installer::exiter;
  27 use installer::files;
  28 use installer::globals;
  29 use installer::logger;
  30 use installer::remover;
  31 use installer::systemactions;
  32
  33 our @EXPORT_OK = qw(read_ziplist);
  34
  35 sub read_ziplist {
  36     my $ziplistname = shift;
  37
  38     installer::logger::globallog("zip list file: $ziplistname");
  39
  40     my $ziplistref = installer::files::read_file($ziplistname);
  41
  42     installer::logger::print_message( "... analyzing $ziplistname ... \n" );
  43
  44     my ($productblockref, $parent) = getproductblock($ziplistref, $installer::globals::product, 1);     # product block from zip.lst
  45
  46     my ($settingsblockref, undef) = getproductblock($productblockref, "Settings", 0);       # settings block from zip.lst
  47     $settingsblockref = analyze_settings_block($settingsblockref);              # select data from settings block in zip.lst
  48
  49     my $allsettingsarrayref = get_settings_from_ziplist($settingsblockref);
  50     my $allvariablesarrayref = get_variables_from_ziplist($settingsblockref);
  51
  52     my ($globalproductblockref, undef) = getproductblock($ziplistref, $installer::globals::globalblock, 0);     # global product block from zip.lst
  53
  54     while (defined $parent) {
  55         my $parentproductblockref;
  56         ($parentproductblockref, $parent) = getproductblock($ziplistref, $parent, 1);
  57         my ($parentsettingsblockref, undef) = getproductblock($parentproductblockref, "Settings", 0);
  58         $parentsettingsblockref = analyze_settings_block($parentsettingsblockref);
  59         my $allparentsettingsarrayref = get_settings_from_ziplist($parentsettingsblockref);
  60         my $allparentvariablesarrayref = get_variables_from_ziplist($parentsettingsblockref);
  61         $allsettingsarrayref =
  62             installer::converter::combine_arrays_from_references_first_win(
  63                 $allsettingsarrayref, $allparentsettingsarrayref)
  64             if $#{$allparentsettingsarrayref} > -1;
  65         $allvariablesarrayref =
  66             installer::converter::combine_arrays_from_references_first_win(
  67                 $allvariablesarrayref, $allparentvariablesarrayref)
  68             if $#{$allparentvariablesarrayref} > -1;
  69     }
  70
  71     if ( @{$globalproductblockref} ) {
  72         my ($globalsettingsblockref, undef) = getproductblock($globalproductblockref, "Settings", 0);       # settings block from zip.lst
  73
  74         $globalsettingsblockref = analyze_settings_block($globalsettingsblockref);              # select data from settings block in zip.lst
  75
  76         my $allglobalsettingsarrayref = get_settings_from_ziplist($globalsettingsblockref);
  77
  78         my $allglobalvariablesarrayref = get_variables_from_ziplist($globalsettingsblockref);
  79
  80         if ( @{$allglobalsettingsarrayref} ) {
  81             $allsettingsarrayref = installer::converter::combine_arrays_from_references_first_win($allsettingsarrayref, $allglobalsettingsarrayref);
  82         }
  83         if ( @{$allglobalvariablesarrayref} ) {
  84             $allvariablesarrayref = installer::converter::combine_arrays_from_references_first_win($allvariablesarrayref, $allglobalvariablesarrayref);
  85         }
  86     }
  87
  88     $allsettingsarrayref = remove_multiples_from_ziplist($allsettingsarrayref);
  89     $allvariablesarrayref = remove_multiples_from_ziplist($allvariablesarrayref);
  90
  91     replace_variables_in_ziplist_variables($allvariablesarrayref);
  92
  93     my $allvariableshashref = installer::converter::convert_array_to_hash($allvariablesarrayref);
  94
  95     set_default_productversion_if_required($allvariableshashref);
  96     add_variables_to_allvariableshashref($allvariableshashref);
  97     overwrite_branding( $allvariableshashref );
  98
  99     return $allsettingsarrayref, $allvariableshashref;
 100 }
 101
 102 #################################################
 103 # Getting data from path file and zip list file
 104 #################################################
 105
 106 sub getproductblock
 107 {
 108     my ($fileref, $search, $inheritance) = @_;
 109
 110     my @searchblock = ();
 111     my $searchexists = 0;
 112     my $record = 0;
 113     my $count = 0;
 114     my $line;
 115     my $inh = $inheritance ? '(?::\s*(\S+)\s*)?' : "";
 116     my $parent;
 117
 118     for ( my $i = 0; $i <= $#{$fileref}; $i++ )
 119     {
 120         $line = ${$fileref}[$i];
 121
 122         if ( $line =~ /^\s*\Q$search\E\s*$inh$/i )      # case insensitive
 123         {
 124             $record = 1;
 125             $searchexists = 1;
 126             $parent = $1 if $inheritance;
 127         }
 128
 129         if ($record)
 130         {
 131             push(@searchblock, $line);
 132         }
 133
 134         if ( ($record) && ($line =~ /\{/) )
 135         {
 136             $count++;
 137         }
 138
 139         if ( ($record) && ($line =~ /\}/) )
 140         {
 141             $count--;
 142         }
 143
 144         if ( ($record) && ($line =~ /\}/) && ( $count == 0 ) )
 145         {
 146             $record = 0;
 147         }
 148     }
 149
 150     if (( ! $searchexists ) && ( $search ne $installer::globals::globalblock ))
 151     {
 152         if ($search eq $installer::globals::product )
 153         {
 154             installer::exiter::exit_program("ERROR: Product $installer::globals::product not defined in $installer::globals::ziplistname", "getproductblock");
 155         }
 156         else    # this is not possible
 157         {
 158             installer::exiter::exit_program("ERROR: Unknown value for $search in getproductblock()", "getproductblock");
 159         }
 160     }
 161
 162     return (\@searchblock, $parent);
 163 }
 164
 165 ###############################################
 166 # Analyzing the settings in the zip list file
 167 ###############################################
 168
 169 sub analyze_settings_block
 170 {
 171     my ($blockref) = @_;
 172
 173     my @newsettingsblock = ();
 174     my $record = 1;
 175     my $counter = 0;
 176
 177     # Allowed values in settings block:
 178     # "Settings", "Variables", "unix" (for destination path and logfile)
 179
 180     # Comment line in settings block begin with "#" or ";"
 181
 182     for ( my $i = 0; $i <= $#{$blockref}; $i++ )
 183     {
 184         my $line = ${$blockref}[$i];
 185         my $nextline = "";
 186
 187         if ( ${$blockref}[$i+1] ) { $nextline = ${$blockref}[$i+1]; }
 188
 189         # removing comment lines
 190
 191         if (($line =~ /^\s*\#/) || ($line =~ /^\s*\;/))
 192         {
 193             next;
 194         }
 195
 196         # complete blocks of unknown strings are not recorded
 197
 198         if ((!($line =~ /^\s*\Q$installer::globals::build\E\s*$/i)) &&
 199             (!($line =~ /^\s*\bSettings\b\s*$/i)) &&
 200             (!($line =~ /^\s*\bVariables\b\s*$/i)) &&
 201             (!($line =~ /^\s*\bunix\b\s*$/i)) &&
 202             ($nextline =~ /^\s*\{\s*$/i))
 203         {
 204             $record = 0;
 205             next;           # continue with next $i
 206         }
 207
 208         if (!( $record ))
 209         {
 210             if ($line =~ /^\s*\{\s*$/i)
 211             {
 212                 $counter++;
 213             }
 214
 215             if ($line =~ /^\s*\}\s*$/i)
 216             {
 217                 $counter--;
 218             }
 219
 220             if ($counter == 0)
 221             {
 222                 $record = 1;
 223                 next;   # continue with next $i
 224             }
 225         }
 226
 227         if ($record)
 228         {
 229             push(@newsettingsblock, $line);
 230         }
 231     }
 232
 233     return \@newsettingsblock;
 234 }
 235
 236 ########################################
 237 # Settings in zip list file
 238 ########################################
 239
 240 sub get_settings_from_ziplist
 241 {
 242     my ($blockref) = @_;
 243
 244     my @allsettings = ();
 245     my $isvariables = 0;
 246     my $counter = 0;
 247     my $variablescounter = 0;
 248
 249     # Take all settings from the settings block
 250     # Do not take the variables from the settings block
 251     # If a setting is defined more than once, take the
 252     # setting with the largest counter (open brackets)
 253
 254     for ( my $i = 0; $i <= $#{$blockref}; $i++ )
 255     {
 256         my $line = ${$blockref}[$i];
 257         my $nextline = "";
 258
 259         if ( ${$blockref}[$i+1] ) { $nextline = ${$blockref}[$i+1]; }
 260
 261         if (($line =~ /^\s*\S+\s*$/i) &&
 262             ($nextline =~ /^\s*\{\s*$/i) &&
 263             (!($line =~ /^\s*Variables\s*$/i)))
 264         {
 265             next;
 266         }
 267
 268         if ($line =~ /^\s*Variables\s*$/i)
 269         {
 270             # This is a block of variables
 271
 272             $isvariables = 1;
 273             next;
 274         }
 275
 276         if ($line =~ /^\s*\{\s*$/i)
 277         {
 278             if ($isvariables)
 279             {
 280                 $variablescounter++;
 281             }
 282             else
 283             {
 284                 $counter++;
 285             }
 286
 287             next;
 288         }
 289
 290         if ($line =~ /^\s*\}\s*$/i)
 291         {
 292             if ($isvariables)
 293             {
 294                 $variablescounter--;
 295
 296                 if ($variablescounter == 0)
 297                 {
 298                     $isvariables = 0;
 299                 }
 300             }
 301             else
 302             {
 303                 $counter--;
 304             }
 305
 306             next;
 307         }
 308
 309         if ($isvariables)
 310         {
 311             next;
 312         }
 313
 314         installer::remover::remove_leading_and_ending_whitespaces(\$line);
 315
 316         $line .= "\t##$counter##\n";
 317
 318         push(@allsettings, $line);
 319     }
 320
 321     return \@allsettings;
 322 }
 323
 324 #######################################
 325 # Variables from zip list file
 326 #######################################
 327
 328 sub get_variables_from_ziplist
 329 {
 330     my ($blockref) = @_;
 331
 332     my @allvariables = ();
 333     my $isvariables = 0;
 334     my $counter = 0;
 335     my $variablescounter = 0;
 336     my $countersum = 0;
 337
 338     # Take all variables from the settings block
 339     # Do not take the other settings from the settings block
 340     # If a variable is defined more than once, take the
 341     # variable with the largest counter (open brackets)
 342
 343     for ( my $i = 0; $i <= $#{$blockref}; $i++ )
 344     {
 345         my $line = ${$blockref}[$i];
 346         my $nextline = ${$blockref}[$i+1];
 347
 348         if ($line =~ /^\s*Variables\s*$/i)
 349         {
 350             # This is a block of variables
 351
 352             $isvariables = 1;
 353             next;
 354         }
 355
 356         if ($line =~ /^\s*\{\s*$/i)
 357         {
 358             if ($isvariables)
 359             {
 360                 $variablescounter++;
 361             }
 362             else
 363             {
 364                 $counter++;
 365             }
 366
 367             next;
 368         }
 369
 370         if ($line =~ /^\s*\}\s*$/i)
 371         {
 372             if ($isvariables)
 373             {
 374                 $variablescounter--;
 375
 376                 if ($variablescounter == 0)
 377                 {
 378                     $isvariables = 0;
 379                 }
 380             }
 381             else
 382             {
 383                 $counter--;
 384             }
 385
 386             next;
 387         }
 388
 389         if (!($isvariables))
 390         {
 391             next;
 392         }
 393
 394         $countersum = $counter + $variablescounter;
 395
 396         installer::remover::remove_leading_and_ending_whitespaces(\$line);
 397
 398         $line .= "\t##$countersum##\n";
 399
 400         push(@allvariables, $line);
 401     }
 402
 403     return \@allvariables;
 404 }
 405
 406 #######################################################################
 407 # Removing multiple variables and settings, defined in zip list file
 408 #######################################################################
 409
 410 sub remove_multiples_from_ziplist
 411 {
 412     my ($blockref) = @_;
 413
 414     # remove all definitions of settings and variables
 415     # that occur more than once in the zip list file.
 416     # Take the one with the most open brackets. This
 417     # number is stored at the end of the string.
 418
 419     my @newarray = ();
 420     my @itemarray = ();
 421     my ($line, $itemname, $itemnumber);
 422
 423     # first collecting all variables and settings names
 424
 425     for ( my $i = 0; $i <= $#{$blockref}; $i++ )
 426     {
 427         $line = ${$blockref}[$i];
 428
 429         if ($line =~ /^\s*\b(\S*)\b\s+.*\#\#\d+\#\#\s*$/i)
 430         {
 431             $itemname = $1;
 432         }
 433
 434         if (! grep {$_ eq $itemname} @itemarray)
 435         {
 436             push(@itemarray, $itemname);
 437         }
 438     }
 439
 440     # and now all $items can be selected with the highest number
 441
 442     for ( my $i = 0; $i <= $#itemarray; $i++ )
 443     {
 444         $itemname = $itemarray[$i];
 445
 446         my $itemnumbermax = 0;
 447         my $printline = "";
 448
 449         for ( my $j = 0; $j <= $#{$blockref}; $j++ )
 450         {
 451             $line = ${$blockref}[$j];
 452
 453             if ($line =~ /^\s*\Q$itemname\E\s+.*\#\#(\d+)\#\#\s*$/)
 454             {
 455                 $itemnumber = $1;
 456
 457                 if ($itemnumber >= $itemnumbermax)
 458                 {
 459                     $printline = $line;
 460                     $itemnumbermax = $itemnumber;
 461                 }
 462             }
 463         }
 464
 465         # removing the ending number from the printline
 466         # and putting it into the array
 467
 468         $printline =~ s/\#\#\d+\#\#//;
 469         installer::remover::remove_leading_and_ending_whitespaces(\$line);
 470         push(@newarray, $printline);
 471     }
 472
 473     return \@newarray;
 474 }
 475
 476 #########################################################
 477 # Reading one variable defined in the zip list file
 478 #########################################################
 479
 480 sub getinfofromziplist
 481 {
 482     my ($blockref, $variable) = @_;
 483
 484     my $searchstring = "";
 485     my $line;
 486
 487     for ( my $i = 0; $i <= $#{$blockref}; $i++ )
 488     {
 489         $line = ${$blockref}[$i];
 490
 491         if ( $line =~ /^\s*\Q$variable\E\s+(.+?)\s*$/ ) # "?" for minimal matching
 492         {
 493             $searchstring = $1;
 494             last;
 495         }
 496     }
 497
 498     return \$searchstring;
 499 }
 500
 501 ####################################################
 502 # Replacing variables in include path
 503 ####################################################
 504
 505 sub replace_all_variables_in_paths
 506 {
 507     my ( $patharrayref, $variableshashref ) = @_;
 508
 509     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 510     {
 511         my $line = ${$patharrayref}[$i];
 512
 513         my $key;
 514
 515         foreach $key (sort { length ($b) <=> length ($a) } keys %{$variableshashref})
 516         {
 517             my $value = $variableshashref->{$key};
 518
 519             if (( $line =~ /\{$key\}/ ) && ( $value eq "" )) { $line = ".\n"; }
 520
 521             $line =~ s/\{\Q$key\E\}/$value/g;
 522         }
 523
 524         ${$patharrayref}[$i] = $line;
 525     }
 526 }
 527
 528 ####################################################
 529 # Replacing minor in include path
 530 ####################################################
 531
 532 sub replace_minor_in_paths
 533 {
 534     my ( $patharrayref ) = @_;
 535
 536     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 537     {
 538         my $line = ${$patharrayref}[$i];
 539
 540         $line =~ s/\.\{minor\}//g;
 541         $line =~ s/\.\{minornonpre\}//g;
 542
 543         ${$patharrayref}[$i] = $line;
 544     }
 545 }
 546
 547 ####################################################
 548 # Replacing packagetype in include path
 549 ####################################################
 550
 551 sub replace_packagetype_in_paths
 552 {
 553     my ( $patharrayref ) = @_;
 554
 555     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 556     {
 557         my $line = ${$patharrayref}[$i];
 558
 559         if (( $installer::globals::installertypedir ) && ( $line =~ /\{pkgtype\}/ ))
 560         {
 561             $line =~ s/\{pkgtype\}/$installer::globals::installertypedir/g;
 562         }
 563
 564         ${$patharrayref}[$i] = $line;
 565     }
 566 }
 567
 568 ####################################################
 569 # Removing ending separators in paths
 570 ####################################################
 571
 572 sub remove_ending_separator
 573 {
 574     my ( $patharrayref ) = @_;
 575
 576     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 577     {
 578         my $line = ${$patharrayref}[$i];
 579
 580         installer::remover::remove_ending_pathseparator(\$line);
 581
 582         $line =~ s/\s*$//;
 583         $line = $line . "\n";
 584
 585         ${$patharrayref}[$i] = $line;
 586     }
 587 }
 588
 589 ####################################################
 590 # Replacing languages in include path
 591 ####################################################
 592
 593 sub replace_languages_in_paths
 594 {
 595     my ( $patharrayref, $languagesref ) = @_;
 596
 597     installer::logger::include_header_into_logfile("Replacing languages in include paths:");
 598
 599     my @patharray = ();
 600     my $infoline = "";
 601
 602     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 603     {
 604         my $line = ${$patharrayref}[$i];
 605
 606         if ( $line =~ /\$\(LANG\)/ )
 607         {
 608             my $originalline = $line;
 609             my $newline = "";
 610
 611             for ( my $j = 0; $j <= $#{$languagesref}; $j++ )
 612             {
 613                 my $language = ${$languagesref}[$j];
 614                 $line =~ s/\$\(LANG\)/$language/g;
 615                 push(@patharray ,$line);
 616                 $newdir = $line;
 617                 $line = $originalline;
 618
 619                 installer::remover::remove_leading_and_ending_whitespaces(\$newline);
 620
 621                 # Is it necessary to refresh the global array, containing all files of all include paths?
 622                 if ( -d $newdir )
 623                 {
 624                     # Checking if $newdir is empty
 625                     if ( ! installer::systemactions::is_empty_dir($newdir) )
 626                     {
 627                         $installer::globals::refresh_includepaths = 1;
 628                         $infoline = "Directory $newdir exists and is not empty. Refreshing global file array is required.\n";
 629                         push( @installer::globals::logfileinfo, $infoline);
 630                     }
 631                     else
 632                     {
 633                         $infoline = "Directory $newdir is empty. No refresh of global file array required.\n";
 634                         push( @installer::globals::logfileinfo, $infoline);
 635                     }
 636                 }
 637                 else
 638                 {
 639                     $infoline = "Directory $newdir does not exist. No refresh of global file array required.\n";
 640                     push( @installer::globals::logfileinfo, $infoline);
 641                 }
 642             }
 643         }
 644         else        # not language dependent include path
 645         {
 646             push(@patharray ,$line);
 647         }
 648     }
 649
 650     return \@patharray;
 651 }
 652
 653 #####################################################
 654 # Collecting all files from all include paths
 655 #####################################################
 656
 657 sub list_all_files_from_include_path
 658 {
 659     my ( $patharrayref) = @_;
 660
 661     installer::logger::include_header_into_logfile("Include paths:");
 662
 663     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 664     {
 665         my $path = ${$patharrayref}[$i];
 666         installer::remover::remove_leading_and_ending_whitespaces(\$path);
 667         my $infoline = "$path\n";
 668         push( @installer::globals::logfileinfo, $infoline);
 669     }
 670
 671     push( @installer::globals::logfileinfo, "\n");
 672
 673     return \@filesarray;
 674 }
 675
 676 #####################################################
 677 # Collecting all files from all include paths
 678 #####################################################
 679
 680 sub set_manufacturer
 681 {
 682     my ($allvariables) = @_;
 683     my $manufacturer;
 684
 685     if( defined $ENV{'OOO_VENDOR'} && $ENV{'OOO_VENDOR'} ne "" )
 686     {
 687         $manufacturer = $ENV{'OOO_VENDOR'};
 688     }
 689     elsif( defined $ENV{'USERNAME'} && $ENV{'USERNAME'} ne "" )
 690     {
 691         $manufacturer = $ENV{'USERNAME'};
 692     }
 693     elsif( defined $ENV{'USER'} && $ENV{'USER'} ne "" )
 694     {
 695         $manufacturer = $ENV{'USER'};
 696     }
 697     else
 698     {
 699         $manufacturer = "default";
 700     }
 701
 702     $installer::globals::manufacturer = $manufacturer;
 703     $installer::globals::longmanufacturer = $manufacturer;
 704
 705     $allvariables->{'MANUFACTURER'} = $installer::globals::manufacturer;
 706 }
 707
 708 ##############################################################
 709 # A ProductVersion has to be defined. If it is not set in
 710 # zip.lst, it is set now to "1"
 711 ##############################################################
 712
 713 sub set_default_productversion_if_required
 714 {
 715     my ($allvariables) = @_;
 716
 717     if (!($allvariables->{'PRODUCTVERSION'}))
 718     {
 719         $allvariables->{'PRODUCTVERSION'} = 1;  # FAKE
 720     }
 721 }
 722
 723 ####################################################
 724 # Removing .. in paths
 725 ####################################################
 726
 727 sub simplify_path
 728 {
 729     my ( $pathref ) = @_;
 730
 731     my $oldpath = $$pathref;
 732
 733     my $change = 0;
 734
 735     while ( $oldpath =~ /(^.*)(\Q$installer::globals::separator\E.*\w+?)(\Q$installer::globals::separator\E\.\.)(\Q$installer::globals::separator\E.*$)/ )
 736     {
 737         my $part1 = $1;
 738         my $part2 = $4;
 739         $oldpath = $part1 . $part2;
 740         $change = 1;
 741     }
 742
 743     if ( $change ) { $$pathref = $oldpath . "\n"; }
 744 }
 745
 746 ####################################################
 747 # Removing ending separators in paths
 748 ####################################################
 749
 750 sub resolve_relative_paths
 751 {
 752     my ( $patharrayref ) = @_;
 753
 754     for my $path ( @{$patharrayref} )
 755     {
 756         $path = rel2abs($path);
 757         simplify_path(\$path);
 758     }
 759 }
 760
 761 ####################################################
 762 # Replacing variables inside zip list variables
 763 # Example: {milestone} to be replaced by
 764 # $installer::globals::lastminor
 765 ####################################################
 766
 767 sub replace_variables_in_ziplist_variables
 768 {
 769     my ($blockref) = @_;
 770
 771     my $milestonevariable = $installer::globals::lastminor;
 772     $milestonevariable =~ s/m//;
 773     $milestonevariable =~ s/s/\./;
 774
 775     my $localminor = $installer::globals::lastminor;
 776     if ( $installer::globals::minor ) { $localminor = $installer::globals::minor; }
 777
 778     for ( my $i = 0; $i <= $#{$blockref}; $i++ )
 779     {
 780         if ($installer::globals::lastminor) { ${$blockref}[$i] =~ s/\{milestone\}/$milestonevariable/; }
 781         else { ${$blockref}[$i] =~ s/\{milestone\}//; }
 782         if ( $localminor ) { ${$blockref}[$i] =~ s/\{minor\}/$localminor/; }
 783         else { ${$blockref}[$i] =~ s/\{minor\}//; }
 784         if ( $installer::globals::buildid ) { ${$blockref}[$i] =~ s/\{buildid\}/$installer::globals::buildid/; }
 785         else { ${$blockref}[$i] =~ s/\{buildid\}//; }
 786         if ( $installer::globals::build ) { ${$blockref}[$i] =~ s/\{buildsource\}/$installer::globals::build/; }
 787         else { ${$blockref}[$i] =~ s/\{build\}//; }
 788     }
 789 }
 790
 791 ###########################################################
 792 # Overwrite branding data in openoffice.lst that is defined in configure
 793 ###########################################################
 794
 795 sub overwrite_branding
 796 {
 797     my ($variableshashref) = @_;
 798     $variableshashref->{'OOOVENDOR'} = $ENV{'OOO_VENDOR'} , if( defined $ENV{'OOO_VENDOR'}  && $ENV{'OOO_VENDOR'} ne "" );
 799     $variableshashref->{'PROGRESSBARCOLOR'} = $ENV{'PROGRESSBARCOLOR'} , if( defined $ENV{'PROGRESSBARCOLOR'}  && $ENV{'PROGRESSBARCOLOR'} ne "" );
 800     $variableshashref->{'PROGRESSSIZE'} = $ENV{'PROGRESSSIZE'} , if( defined $ENV{'PROGRESSSIZE'}  && $ENV{'PROGRESSSIZE'} ne "" );
 801     $variableshashref->{'PROGRESSPOSITION'} = $ENV{'PROGRESSPOSITION'} , if( defined $ENV{'PROGRESSPOSITION'}  && $ENV{'PROGRESSPOSITION'} ne "" );
 802     $variableshashref->{'PROGRESSFRAMECOLOR'} = $ENV{'PROGRESSFRAMECOLOR'} , if( defined $ENV{'PROGRESSFRAMECOLOR'}  && $ENV{'PROGRESSFRAMECOLOR'} ne "" );
 803     $variableshashref->{'PROGRESSTEXTCOLOR'} = $ENV{'PROGRESSTEXTCOLOR'} , if( defined $ENV{'PROGRESSTEXTCOLOR'}  && $ENV{'PROGRESSTEXTCOLOR'} ne "" );
 804     $variableshashref->{'PROGRESSTEXTBASELINE'} = $ENV{'PROGRESSTEXTBASELINE'} , if( defined $ENV{'PROGRESSTEXTBASELINE'}  && $ENV{'PROGRESSTEXTBASELINE'} ne "" );
 805 }
 806
 807 ###########################################################
 808 # Adding the lowercase variables into the variableshashref
 809 ###########################################################
 810
 811 sub add_variables_to_allvariableshashref
 812 {
 813     my ($variableshashref) = @_;
 814
 815     my $lcvariable = lc($variableshashref->{'PRODUCTNAME'});
 816     $variableshashref->{'LCPRODUCTNAME'} = $lcvariable;
 817
 818     if ($variableshashref->{'PRODUCTEXTENSION'})
 819     {
 820         $variableshashref->{'LCPRODUCTEXTENSION'} = "\-" . lc($variableshashref->{'PRODUCTEXTENSION'}); # including the "-" !
 821     }
 822     else
 823     {
 824         $variableshashref->{'LCPRODUCTEXTENSION'} = "";
 825     }
 826
 827     if ( $installer::globals::languagepack ) { $variableshashref->{'PRODUCTADDON'} = $installer::globals::languagepackaddon; }
 828     elsif ( $installer::globals::helppack ) { $variableshashref->{'PRODUCTADDON'} = $installer::globals::helppackaddon; }
 829     else { $variableshashref->{'PRODUCTADDON'} = ""; }
 830
 831     my $localbuild = $installer::globals::build;
 832     if ( $localbuild =~ /^\s*(\w+?)(\d+)\s*$/ ) { $localbuild = $2; }   # using "680" instead of "src680"
 833     $variableshashref->{'PRODUCTMAJOR'} = $localbuild;
 834
 835     my $localminor = "";
 836     if ( $installer::globals::minor ne "" ) { $localminor = $installer::globals::minor; }
 837     else { $localminor = $installer::globals::lastminor; }
 838     if ( $localminor =~ /^\s*\w(\d+)\w*\s*$/ ) { $localminor = $1; }
 839     $variableshashref->{'PRODUCTMINOR'} = $localminor;
 840
 841     $variableshashref->{'PRODUCTBUILDID'} = $installer::globals::buildid;
 842     $variableshashref->{'SYSTEM_LIBEXTTEXTCAT_DATA'} = $ENV{'SYSTEM_LIBEXTTEXTCAT_DATA'} , if( defined $ENV{'SYSTEM_LIBEXTTEXTCAT_DATA'} && $ENV{'SYSTEM_LIBEXTTEXTCAT_DATA'} ne "" );
 843 }
 844
 845 1;