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