msiglobal.pm (894604a0) msiglobal.pm (e01a4f84)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 1568 unchanged lines hidden (view full) ---

1577 $installer::globals::upgradecode
1578 and as variables in the given hash
1579 $allvariableshashref->{'PRODUCTCODE'}
1580 $allvariableshashref->{'UPGRADECODE'}
1581
1582=cut
1583sub set_global_code_variables ($$)
1584{
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 1568 unchanged lines hidden (view full) ---

1577 $installer::globals::upgradecode
1578 and as variables in the given hash
1579 $allvariableshashref->{'PRODUCTCODE'}
1580 $allvariableshashref->{'UPGRADECODE'}
1581
1582=cut
1583sub set_global_code_variables ($$)
1584{
1585 my ($languagesref, $allvariableshashref) = @_;
1585 my ($languagesref, $allvariableshashref) = @_;
1586
1587 my ($source_product_code, $source_upgrade_code) = get_source_codes($languagesref);
1588 my ($target_product_code, $target_upgrade_code) = (undef, undef);
1589
1590 if (defined $source_product_code && defined $source_upgrade_code)
1591 {
1592 if ($installer::globals::is_major_release)
1593 {

--- 31 unchanged lines hidden (view full) ---

1625 else
1626 {
1627 # There is no previous version with which to compare the product code.
1628 # Just create two new uuids.
1629 $target_product_code = "{" . create_guid() . "}";
1630 $target_upgrade_code = "{" . create_guid() . "}";
1631 $installer::logger::Lang->printf("there is no source version => created new guids\n");
1632 }
1586
1587 my ($source_product_code, $source_upgrade_code) = get_source_codes($languagesref);
1588 my ($target_product_code, $target_upgrade_code) = (undef, undef);
1589
1590 if (defined $source_product_code && defined $source_upgrade_code)
1591 {
1592 if ($installer::globals::is_major_release)
1593 {

--- 31 unchanged lines hidden (view full) ---

1625 else
1626 {
1627 # There is no previous version with which to compare the product code.
1628 # Just create two new uuids.
1629 $target_product_code = "{" . create_guid() . "}";
1630 $target_upgrade_code = "{" . create_guid() . "}";
1631 $installer::logger::Lang->printf("there is no source version => created new guids\n");
1632 }
1633
1634 $target_upgrade_code = "{7C35B9AB-2CE3-4C18-BE7C-5B97EA089EB3}";
1633
1634 # Keep the upgrade code constant between versions. Read it from the codes.txt file.
1635 # Note that this handles regular installation sets and language packs.
1636 my $onelanguage = ${$languagesref}[0];
1637 $installer::logger::Lang->printf("reading upgrade code for language %s from %s\n",
1638 $onelanguage,
1639 $installer::globals::codefilename);
1640 if (defined $installer::globals::codefilename)
1641 {
1642 my $code_filename = $installer::globals::codefilename;
1643 installer::files::check_file($code_filename);
1644 my $codefile = installer::files::read_file($code_filename);
1645 my $searchstring = "UPGRADECODE";
1646 my $codeblock = installer::windows::idtglobal::get_language_block_from_language_file(
1647 $searchstring,
1648 $codefile);
1649 $target_upgrade_code = installer::windows::idtglobal::get_language_string_from_language_block(
1650 $codeblock,
1651 $onelanguage,
1652 "");
1653 }
1654 # else use the previously generated upgrade code.
1655
1635 $installer::globals::productcode = $target_product_code;
1636 $installer::globals::upgradecode = $target_upgrade_code;
1637 $allvariableshashref->{'PRODUCTCODE'} = $target_product_code;
1656 $installer::globals::productcode = $target_product_code;
1657 $installer::globals::upgradecode = $target_upgrade_code;
1658 $allvariableshashref->{'PRODUCTCODE'} = $target_product_code;
1638 $allvariableshashref->{'UPGRADECODE'} = $target_upgrade_code;
1659 $allvariableshashref->{'UPGRADECODE'} = $target_upgrade_code;
1639
1660
1640 $installer::logger::Lang->printf("target product code is %s\n", $target_product_code);
1641 $installer::logger::Lang->printf("target upgrade code is %s\n", $target_upgrade_code);
1661 $installer::logger::Lang->printf("target product code is %s\n", $target_product_code);
1662 $installer::logger::Lang->printf("target upgrade code is %s\n", $target_upgrade_code);
1642}
1643
1644
1645
1646
1647###############################################################
1648# Setting the product version used in property table and
1649# upgrade table. Saving in global variable $msiproductversion

--- 156 unchanged lines hidden --- 		1663}
1664
1665
1666
1667
1668###############################################################
1669# Setting the product version used in property table and
1670# upgrade table. Saving in global variable $msiproductversion

--- 156 unchanged lines hidden ---