solenv/bin/modules/installer/windows/property.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: property.pm,v $
  10 #
  11 # $Revision: 1.31 $
  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::windows::property;
  33
  34 use installer::exiter;
  35 use installer::files;
  36 use installer::globals;
  37 use installer::windows::idtglobal;
  38 use installer::windows::language;
  39
  40 #############################################
  41 # Setting the properties dynamically
  42 # for the table Property.idt
  43 #############################################
  44
  45 sub get_arpcomments_for_property_table
  46 {
  47     my ( $allvariables, $languagestringref ) = @_;
  48
  49     my $name = $allvariables->{'PRODUCTNAME'};
  50     my $version = $allvariables->{'PRODUCTVERSION'};
  51     my $comment = $name . " " . $version;
  52
  53     my $postversionextension = "";
  54     if ( $allvariables->{'POSTVERSIONEXTENSION'} )
  55     {
  56         $postversionextension = $allvariables->{'POSTVERSIONEXTENSION'};
  57         $comment = $comment . " " . $postversionextension;
  58     }
  59
  60     if ( $installer::globals::languagepack ) { $comment = $comment . " " . "Language Pack"; }
  61
  62     if ( $installer::globals::patch )
  63     {
  64         if ( ! $allvariables->{'WINDOWSPATCHLEVEL'} ) { installer::exiter::exit_program("ERROR: No Patch level defined for Windows patch: WINDOWSPATCHLEVEL", "get_arpcomments_for_property_table"); }
  65         my $patchstring = "Product Update" . " " . $allvariables->{'WINDOWSPATCHLEVEL'};
  66         $comment = $comment . " " . $patchstring;
  67     }
  68
  69     my $languagestring = $$languagestringref;
  70     $languagestring =~ s/\_/\,/g;
  71
  72     $comment = $comment . " ($languagestring)";
  73
  74     my $localminor = "";
  75     if ( $installer::globals::updatepack ) { $localminor = $installer::globals::lastminor; }
  76     else { $localminor = $installer::globals::minor; }
  77
  78     my $buildidstring = "(" . $installer::globals::build . $localminor . "(Build:" . $installer::globals::buildid . "))";
  79
  80     # the environment variable CWS_WORK_STAMP is set only in CWS
  81     if ( $ENV{'CWS_WORK_STAMP'} ) { $buildidstring = $buildidstring . "\[CWS\:" . $ENV{'CWS_WORK_STAMP'} . "\]"; }
  82
  83     $comment = $comment . " " . $buildidstring;
  84
  85     return $comment;
  86 }
  87
  88 sub get_installlevel_for_property_table
  89 {
  90     my $installlevel = "100";
  91     return $installlevel;
  92 }
  93
  94 sub get_ischeckforproductupdates_for_property_table
  95 {
  96     my $ischeckforproductupdates = "1";
  97     return $ischeckforproductupdates;
  98 }
  99
 100 sub get_manufacturer_for_property_table
 101 {
 102     return $installer::globals::manufacturer;
 103 }
 104
 105 sub get_productlanguage_for_property_table
 106 {
 107     my ($language) = @_;
 108     my $windowslanguage = installer::windows::language::get_windows_language($language);
 109     return $windowslanguage;
 110 }
 111
 112 sub get_language_string
 113 {
 114     my $langstring = "";
 115
 116     for ( my $i = 0; $i <= $#installer::globals::languagenames; $i++ )
 117     {
 118         $langstring = $langstring . $installer::globals::languagenames[$i] . ", ";
 119     }
 120
 121     $langstring =~ s/\,\s*$//;
 122     $langstring = "(" . $langstring . ")";
 123
 124     return $langstring;
 125 }
 126
 127 sub get_english_language_string
 128 {
 129     my $langstring = "";
 130
 131     # Sorting value not keys, therefore collecting all values
 132     my %helper = ();
 133     foreach my $lang ( keys %installer::globals::all_required_english_languagestrings )
 134     {
 135         $helper{$installer::globals::all_required_english_languagestrings{$lang}} = 1;
 136     }
 137
 138     foreach my $lang ( sort keys %helper )
 139     {
 140         $langstring = $langstring . $lang . ", ";
 141     }
 142
 143     $langstring =~ s/\,\s*$//;
 144     $langstring = "(" . $langstring . ")";
 145
 146     return $langstring;
 147 }
 148
 149 sub get_productname_for_property_table
 150 {
 151     my ( $allvariables ) = @_;
 152
 153     my $name = $allvariables->{'PRODUCTNAME'};
 154     my $version = $allvariables->{'PRODUCTVERSION'};
 155     my $productname = $name . " " . $version;
 156
 157     my $postversionextension = "";
 158     if ( $allvariables->{'POSTVERSIONEXTENSION'} )
 159     {
 160         $postversionextension = $allvariables->{'POSTVERSIONEXTENSION'};
 161         $productname = $productname . " " . $postversionextension;
 162     }
 163
 164     my $productextension = "";
 165     if ( $allvariables->{'PRODUCTEXTENSION'} )
 166     {
 167         $productextension = $allvariables->{'PRODUCTEXTENSION'};
 168         $productname = $productname . " " . $productextension;
 169     }
 170
 171     if ( $installer::globals::languagepack )
 172     {
 173         # my $langstring = get_language_string();       # Example (English, Deutsch)
 174         my $langstring = get_english_language_string(); # New: (English, German)
 175         $productname = $name . " " . $version . " Language Pack" . " " . $langstring;
 176     }
 177
 178     if ( $installer::globals::patch )
 179     {
 180         if ( ! $allvariables->{'WINDOWSPATCHLEVEL'} ) { installer::exiter::exit_program("ERROR: No Patch level defined for Windows patch: WINDOWSPATCHLEVEL", "get_productname_for_property_table"); }
 181         my $patchstring = "Product Update" . " " . $allvariables->{'WINDOWSPATCHLEVEL'};
 182         $productname = $productname . " " . $patchstring;
 183     }
 184
 185     # Saving this name in hash $allvariables for further usage
 186     $allvariables->{'PROPERTYTABLEPRODUCTNAME'} = $productname;
 187     my $infoline = "Defined variable PROPERTYTABLEPRODUCTNAME: $productname\n";
 188     push(@installer::globals::logfileinfo, $infoline);
 189
 190     return $productname;
 191 }
 192
 193 sub get_quickstarterlinkname_for_property_table
 194 {
 195     my ( $allvariables ) = @_;
 196
 197     # no usage of POSTVERSIONEXTENSION for Quickstarter link name!
 198
 199     my $name = $allvariables->{'PRODUCTNAME'};
 200     my $version = $allvariables->{'PRODUCTVERSION'};
 201     my $quickstartername = $name . " " . $version;
 202
 203     my $infoline = "Defined Quickstarter Link name: $quickstartername\n";
 204     push(@installer::globals::logfileinfo, $infoline);
 205
 206     return $quickstartername;
 207 }
 208
 209 sub get_productversion_for_property_table
 210 {
 211     return $installer::globals::msiproductversion;
 212 }
 213
 214 #######################################################
 215 # Setting all feature names as Properties. This is
 216 # required for the Windows patch process.
 217 #######################################################
 218
 219 sub set_featurename_properties_for_patch
 220 {
 221     ($propertyfile) = @_;
 222
 223     for ( my $i = 0; $i <= $#installer::globals::featurecollector; $i++ )
 224     {
 225         my $onepropertyline =  $installer::globals::featurecollector[$i] . "\t" . "1" . "\n";
 226         push(@{$propertyfile}, $onepropertyline);
 227     }
 228
 229 }
 230
 231 #######################################################
 232 # Setting some important properties
 233 # (for finding the product in deinstallation process)
 234 #######################################################
 235
 236 sub set_important_properties
 237 {
 238     my ($propertyfile, $allvariables, $languagestringref) = @_;
 239
 240     # Setting new variables with the content of %PRODUCTNAME and %PRODUCTVERSION
 241     if ( $allvariables->{'PRODUCTNAME'} )
 242     {
 243         my $onepropertyline =  "DEFINEDPRODUCT" . "\t" . $allvariables->{'PRODUCTNAME'} . "\n";
 244         push(@{$propertyfile}, $onepropertyline);
 245     }
 246
 247     if ( $allvariables->{'PRODUCTVERSION'} )
 248     {
 249         my $onepropertyline = "DEFINEDVERSION" . "\t" . $allvariables->{'PRODUCTVERSION'} . "\n";
 250         push(@{$propertyfile}, $onepropertyline);
 251     }
 252
 253     if (( $allvariables->{'PRODUCTNAME'} ) && ( $allvariables->{'PRODUCTVERSION'} ) && ( $allvariables->{'MANUFACTURER'} ) && ( $allvariables->{'PRODUCTCODE'} ))
 254     {
 255         my $onepropertyline = "FINDPRODUCT" . "\t" . "Software\\" . $allvariables->{'MANUFACTURER'} . "\\" . $allvariables->{'PRODUCTNAME'} . $allvariables->{'PRODUCTADDON'} . "\\" . $allvariables->{'PRODUCTVERSION'} . "\\" . $allvariables->{'PRODUCTCODE'} . "\n";
 256         push(@{$propertyfile}, $onepropertyline);
 257     }
 258
 259     if ( $allvariables->{'PRODUCTMAJOR'} )
 260     {
 261         my $onepropertyline = "PRODUCTMAJOR" . "\t" . $allvariables->{'PRODUCTMAJOR'} . "\n";
 262         push(@{$propertyfile}, $onepropertyline);
 263     }
 264
 265     if ( $allvariables->{'PRODUCTMINOR'} )
 266     {
 267         my $onepropertyline = "PRODUCTMINOR" . "\t" . $allvariables->{'PRODUCTMINOR'} . "\n";
 268         push(@{$propertyfile}, $onepropertyline);
 269     }
 270
 271     if ( $allvariables->{'PRODUCTBUILDID'} )
 272     {
 273         my $onepropertyline = "PRODUCTBUILDID" . "\t" . $allvariables->{'PRODUCTBUILDID'} . "\n";
 274         push(@{$propertyfile}, $onepropertyline);
 275     }
 276
 277     if ( $allvariables->{'OOOBASEVERSION'} )
 278     {
 279         my $onepropertyline = "OOOBASEVERSION" . "\t" . $allvariables->{'OOOBASEVERSION'} . "\n";
 280         push(@{$propertyfile}, $onepropertyline);
 281     }
 282
 283     if ( $allvariables->{'URELAYERVERSION'} )
 284     {
 285         my $onepropertyline = "URELAYERVERSION" . "\t" . $allvariables->{'URELAYERVERSION'} . "\n";
 286         push(@{$propertyfile}, $onepropertyline);
 287     }
 288
 289     if ( $allvariables->{'BRANDPACKAGEVERSION'} )
 290     {
 291         my $onepropertyline = "BRANDPACKAGEVERSION" . "\t" . $allvariables->{'BRANDPACKAGEVERSION'} . "\n";
 292         push(@{$propertyfile}, $onepropertyline);
 293     }
 294
 295     if ( $allvariables->{'BASISROOTNAME'} )
 296     {
 297         my $onepropertyline = "BASISROOTNAME" . "\t" . $allvariables->{'BASISROOTNAME'} . "\n";
 298         push(@{$propertyfile}, $onepropertyline);
 299     }
 300
 301     if ( $allvariables->{'PREREQUIREDPATCH'} )
 302     {
 303         my $onepropertyline = "PREREQUIREDPATCH" . "\t" . $allvariables->{'PREREQUIREDPATCH'} . "\n";
 304         push(@{$propertyfile}, $onepropertyline);
 305     }
 306
 307     my $onepropertyline = "IGNOREPREREQUIREDPATCH" . "\t" . "1" . "\n";
 308     push(@{$propertyfile}, $onepropertyline);
 309
 310     $onepropertyline = "DONTOPTIMIZELIBS" . "\t" . "0" . "\n";
 311     push(@{$propertyfile}, $onepropertyline);
 312
 313     if ( $installer::globals::sundirexists )
 314     {
 315         my $onepropertyline = "SUNDIREXISTS" . "\t" . "1" . "\n";
 316         push(@{$propertyfile}, $onepropertyline);
 317     }
 318
 319     if ( $installer::globals::officedirhostname )
 320     {
 321         my $onepropertyline = "OFFICEDIRHOSTNAME" . "\t" . $installer::globals::officedirhostname . "\n";
 322         push(@{$propertyfile}, $onepropertyline);
 323     }
 324
 325     if ( $installer::globals::basisdirhostname )
 326     {
 327         my $onepropertyline = "BASISDIRHOSTNAME" . "\t" . $installer::globals::basisdirhostname . "\n";
 328         push(@{$propertyfile}, $onepropertyline);
 329     }
 330
 331     if ( $installer::globals::uredirhostname )
 332     {
 333         my $onepropertyline = "UREDIRHOSTNAME" . "\t" . $installer::globals::uredirhostname . "\n";
 334         push(@{$propertyfile}, $onepropertyline);
 335     }
 336
 337     if ( $installer::globals::sundirhostname )
 338     {
 339         my $onepropertyline = "SUNDIRHOSTNAME" . "\t" . $installer::globals::sundirhostname . "\n";
 340         push(@{$propertyfile}, $onepropertyline);
 341     }
 342
 343     if ( $installer::globals::desktoplinkexists )
 344     {
 345         my $onepropertyline = "DESKTOPLINKEXISTS" . "\t" . "1" . "\n";
 346         push(@{$propertyfile}, $onepropertyline);
 347
 348         $onepropertyline = "CREATEDESKTOPLINK" . "\t" . "1" . "\n";     # Setting the default
 349         push(@{$propertyfile}, $onepropertyline);
 350     }
 351
 352     if ( $installer::globals::patch )
 353     {
 354         my $onepropertyline = "ISPATCH" . "\t" . "1" . "\n";
 355         push(@{$propertyfile}, $onepropertyline);
 356
 357         $onepropertyline = "SETUP_USED" . "\t" . "0" . "\n";
 358         push(@{$propertyfile}, $onepropertyline);
 359     }
 360
 361     if ( $installer::globals::languagepack )
 362     {
 363         my $onepropertyline = "ISLANGUAGEPACK" . "\t" . "1" . "\n";
 364         push(@{$propertyfile}, $onepropertyline);
 365     }
 366
 367     my $languagesline = "PRODUCTALLLANGUAGES" . "\t" . $$languagestringref . "\n";
 368     push(@{$propertyfile}, $languagesline);
 369
 370     if (( $allvariables->{'PRODUCTEXTENSION'} ) && ( $allvariables->{'PRODUCTEXTENSION'}  eq "Beta" ))
 371     {
 372         my $registryline = "WRITE_REGISTRY" . "\t" . "0" . "\n";
 373         push(@{$propertyfile}, $registryline);
 374         my $betainfoline = "BETAPRODUCT" . "\t" . "1" . "\n";
 375         push(@{$propertyfile}, $betainfoline);
 376     }
 377     elsif ( $allvariables->{'DEVELOPMENTPRODUCT'} )
 378     {
 379         my $registryline = "WRITE_REGISTRY" . "\t" . "0" . "\n";
 380         push(@{$propertyfile}, $registryline);
 381     }
 382     else
 383     {
 384         my $registryline = "WRITE_REGISTRY" . "\t" . "1" . "\n";        # Default: Write complete registry
 385         push(@{$propertyfile}, $registryline);
 386     }
 387
 388     # Adding also used tree conditions for multilayer products.
 389     # These are saved in %installer::globals::usedtreeconditions
 390     foreach my $treecondition (keys %installer::globals::usedtreeconditions)
 391     {
 392         my $onepropertyline = $treecondition . "\t" . "1" . "\n";
 393         push(@{$propertyfile}, $onepropertyline);
 394     }
 395
 396     # No more license dialog for selected products
 397     if ( $allvariables->{'HIDELICENSEDIALOG'} )
 398     {
 399         my $onepropertyline = "HIDEEULA" . "\t" . "1" . "\n";
 400         push(@{$propertyfile}, $onepropertyline);
 401     }
 402
 403     # Setting .NET requirements
 404     if ( $installer::globals::required_dotnet_version ne "" )
 405     {
 406         my $onepropertyline = "REQUIRED_DOTNET_VERSION" . "\t" . $installer::globals::required_dotnet_version . "\n";
 407         push(@{$propertyfile}, $onepropertyline);
 408
 409         $onepropertyline = "DOTNET_SUFFICIENT" . "\t" . "1" . "\n";     # default value for found .NET
 410         push(@{$propertyfile}, $onepropertyline);
 411     }
 412
 413 }
 414
 415 #######################################################
 416 # Setting properties needed for ms file type registration
 417 #######################################################
 418
 419 sub set_ms_file_types_properties
 420 {
 421     my ($propertyfile) = @_;
 422
 423     push(@{$propertyfile}, "REGISTER_PPS"  . "\t" . "0" . "\n");
 424     push(@{$propertyfile}, "REGISTER_PPSX" . "\t" . "0" . "\n");
 425     push(@{$propertyfile}, "REGISTER_PPSM" . "\t" . "0" . "\n");
 426     push(@{$propertyfile}, "REGISTER_PPAM" . "\t" . "0" . "\n");
 427     push(@{$propertyfile}, "REGISTER_PPT"  . "\t" . "0" . "\n");
 428     push(@{$propertyfile}, "REGISTER_PPTX" . "\t" . "0" . "\n");
 429     push(@{$propertyfile}, "REGISTER_PPTM" . "\t" . "0" . "\n");
 430     push(@{$propertyfile}, "REGISTER_POT"  . "\t" . "0" . "\n");
 431     push(@{$propertyfile}, "REGISTER_POTX" . "\t" . "0" . "\n");
 432     push(@{$propertyfile}, "REGISTER_POTM" . "\t" . "0" . "\n");
 433
 434     push(@{$propertyfile}, "REGISTER_DOC"  . "\t" . "0" . "\n");
 435     push(@{$propertyfile}, "REGISTER_DOCX" . "\t" . "0" . "\n");
 436     push(@{$propertyfile}, "REGISTER_DOCM" . "\t" . "0" . "\n");
 437     push(@{$propertyfile}, "REGISTER_DOT"  . "\t" . "0" . "\n");
 438     push(@{$propertyfile}, "REGISTER_DOTX" . "\t" . "0" . "\n");
 439     push(@{$propertyfile}, "REGISTER_DOTM" . "\t" . "0" . "\n");
 440     push(@{$propertyfile}, "REGISTER_RTF"  . "\t" . "0" . "\n");
 441
 442     push(@{$propertyfile}, "REGISTER_XLS"  . "\t" . "0" . "\n");
 443     push(@{$propertyfile}, "REGISTER_XLSX" . "\t" . "0" . "\n");
 444     push(@{$propertyfile}, "REGISTER_XLSM" . "\t" . "0" . "\n");
 445     push(@{$propertyfile}, "REGISTER_XLSB" . "\t" . "0" . "\n");
 446     push(@{$propertyfile}, "REGISTER_XLAM" . "\t" . "0" . "\n");
 447     push(@{$propertyfile}, "REGISTER_XLT"  . "\t" . "0" . "\n");
 448     push(@{$propertyfile}, "REGISTER_XLTX" . "\t" . "0" . "\n");
 449     push(@{$propertyfile}, "REGISTER_XLTM" . "\t" . "0" . "\n");
 450
 451     push(@{$propertyfile}, "REGISTER_NO_MSO_TYPES"  . "\t" . "0" . "\n");
 452     push(@{$propertyfile}, "REGISTER_ALL_MSO_TYPES"  . "\t" . "0" . "\n");
 453 }
 454
 455 ####################################################################################
 456 # Updating the file Property.idt dynamically
 457 # Content:
 458 # Property Value
 459 ####################################################################################
 460
 461 sub update_property_table
 462 {
 463     my ($basedir, $language, $allvariables, $languagestringref) = @_;
 464
 465     my $properyfilename = $basedir . $installer::globals::separator . "Property.idt";
 466
 467     my $propertyfile = installer::files::read_file($properyfilename);
 468
 469     # Getting the new values
 470     # Some values (arpcomments, arpcontacts, ...) are inserted from the Property.mlf
 471
 472     my $arpcomments = get_arpcomments_for_property_table($allvariables, $languagestringref);
 473     my $installlevel = get_installlevel_for_property_table();
 474     my $ischeckforproductupdates = get_ischeckforproductupdates_for_property_table();
 475     my $manufacturer = get_manufacturer_for_property_table();
 476     my $productlanguage = get_productlanguage_for_property_table($language);
 477     my $productname = get_productname_for_property_table($allvariables);
 478     my $productversion = get_productversion_for_property_table();
 479     my $quickstarterlinkname = get_quickstarterlinkname_for_property_table($allvariables);
 480
 481     # Updating the values
 482
 483     for ( my $i = 0; $i <= $#{$propertyfile}; $i++ )
 484     {
 485         ${$propertyfile}[$i] =~ s/\bARPCOMMENTSTEMPLATE\b/$arpcomments/;
 486         ${$propertyfile}[$i] =~ s/\bINSTALLLEVELTEMPLATE\b/$installlevel/;
 487         ${$propertyfile}[$i] =~ s/\bISCHECKFORPRODUCTUPDATESTEMPLATE\b/$ischeckforproductupdates/;
 488         ${$propertyfile}[$i] =~ s/\bMANUFACTURERTEMPLATE\b/$manufacturer/;
 489         ${$propertyfile}[$i] =~ s/\bPRODUCTLANGUAGETEMPLATE\b/$productlanguage/;
 490         ${$propertyfile}[$i] =~ s/\bPRODUCTNAMETEMPLATE\b/$productname/;
 491         ${$propertyfile}[$i] =~ s/\bPRODUCTVERSIONTEMPLATE\b/$productversion/;
 492         ${$propertyfile}[$i] =~ s/\bQUICKSTARTERLINKNAMETEMPLATE\b/$quickstarterlinkname/;
 493     }
 494
 495     # Setting variables into propertytable
 496     set_important_properties($propertyfile, $allvariables, $languagestringref);
 497
 498     # Setting feature names as properties for Windows patch mechanism
 499     if ( $installer::globals::patch ) { set_featurename_properties_for_patch($propertyfile); }
 500
 501     # Setting variables for register for ms file types
 502     set_ms_file_types_properties($propertyfile);
 503
 504     # Saving the file
 505
 506     installer::files::save_file($properyfilename ,$propertyfile);
 507     my $infoline = "Updated idt file: $properyfilename\n";
 508     push(@installer::globals::logfileinfo, $infoline);
 509
 510 }
 511
 512 ####################################################################################
 513 # Setting language specific Properties in file Property.idt dynamically
 514 # Adding:
 515 # is1033 = 1
 516 # isMulti = 1
 517 ####################################################################################
 518
 519 sub set_languages_in_property_table
 520 {
 521     my ($basedir, $languagesarrayref) = @_;
 522
 523     my $properyfilename = $basedir . $installer::globals::separator . "Property.idt";
 524     my $propertyfile = installer::files::read_file($properyfilename);
 525
 526     # Setting the component properties saved in %installer::globals::languageproperties
 527     foreach my $localproperty ( keys %installer::globals::languageproperties )
 528     {
 529         $onepropertyline =  $localproperty . "\t" . $installer::globals::languageproperties{$localproperty} . "\n";
 530         push(@{$propertyfile}, $onepropertyline);
 531     }
 532
 533     # Setting the info about multilingual installation in property "isMulti"
 534
 535     my $propertyname = "isMulti";
 536     my $ismultivalue = 0;
 537
 538     if ( $installer::globals::ismultilingual ) { $ismultivalue = 1; }
 539
 540     my $onepropertyline =  $propertyname . "\t" . $ismultivalue . "\n";
 541     push(@{$propertyfile}, $onepropertyline);
 542
 543     # setting the ARPPRODUCTICON
 544
 545     if ($installer::globals::sofficeiconadded)  # set in shortcut.pm
 546     {
 547         $onepropertyline =  "ARPPRODUCTICON" . "\t" . "soffice.exe" . "\n";
 548         push(@{$propertyfile}, $onepropertyline);
 549     }
 550
 551     # Saving the file
 552
 553     installer::files::save_file($properyfilename ,$propertyfile);
 554     my $infoline = "Added language content into idt file: $properyfilename\n";
 555     push(@installer::globals::logfileinfo, $infoline);
 556
 557 }
 558
 559 ############################################################
 560 # Setting the ProductCode and the UpgradeCode
 561 # into the Property table. Both have to be stored
 562 # in the global file $installer::globals::codefilename
 563 ############################################################
 564
 565 sub set_codes_in_property_table
 566 {
 567     my ($basedir) = @_;
 568
 569     # Reading the property file
 570
 571     my $properyfilename = $basedir . $installer::globals::separator . "Property.idt";
 572     my $propertyfile = installer::files::read_file($properyfilename);
 573
 574     # Updating the values
 575
 576     for ( my $i = 0; $i <= $#{$propertyfile}; $i++ )
 577     {
 578         ${$propertyfile}[$i] =~ s/\bPRODUCTCODETEMPLATE\b/$installer::globals::productcode/;
 579         ${$propertyfile}[$i] =~ s/\bUPGRADECODETEMPLATE\b/$installer::globals::upgradecode/;
 580     }
 581
 582     # Saving the property file
 583
 584     installer::files::save_file($properyfilename ,$propertyfile);
 585     my $infoline = "Added language content into idt file: $properyfilename\n";
 586     push(@installer::globals::logfileinfo, $infoline);
 587
 588 }
 589
 590 ############################################################
 591 # Setting the variable REGKEYPRODPATH, that is used
 592 # by the language packs.
 593 ############################################################
 594
 595 sub set_regkeyprodpath_in_property_table
 596 {
 597     my ($basedir, , $allvariables) = @_;
 598
 599     # Reading the property file
 600
 601     my $properyfilename = $basedir . $installer::globals::separator . "Property.idt";
 602     my $propertyfile = installer::files::read_file($properyfilename);
 603
 604     my $name = $allvariables->{'PRODUCTNAME'};
 605     my $version = $allvariables->{'PRODUCTVERSION'};
 606
 607     my $onepropertyline = "REGKEYPRODPATH" . "\t" . "Software" . "\\" . $installer::globals::manufacturer . "\\". $name;
 608
 609     push(@{$propertyfile}, $onepropertyline);
 610
 611     # Saving the property file
 612
 613     installer::files::save_file($properyfilename ,$propertyfile);
 614     my $infoline = "Added language content into idt file: $properyfilename\n";
 615     push(@installer::globals::logfileinfo, $infoline);
 616
 617 }
 618
 619 ############################################################
 620 # Changing default for MS file type registration
 621 # in Beta products.
 622 ############################################################
 623
 624 sub update_checkbox_table
 625 {
 626     my ($basedir, $allvariables) = @_;
 627
 628     if (( $allvariables->{'PRODUCTEXTENSION'} ) && ( $allvariables->{'PRODUCTEXTENSION'}  eq "Beta" ))
 629     {
 630         my $checkboxfilename = $basedir . $installer::globals::separator . "CheckBox.idt";
 631
 632         if ( -f $checkboxfilename )
 633         {
 634             my $checkboxfile = installer::files::read_file($checkboxfilename);
 635
 636             my $checkboxline = "SELECT_WORD" . "\t" . "0" . "\n";
 637             push(@{$checkboxfile}, $checkboxline);
 638             $checkboxline = "SELECT_EXCEL" . "\t" . "0" . "\n";
 639             push(@{$checkboxfile}, $checkboxline);
 640             $checkboxline = "SELECT_POWERPOINT" . "\t" . "0" . "\n";
 641             push(@{$checkboxfile}, $checkboxline);
 642
 643             # Saving the property file
 644             installer::files::save_file($checkboxfilename ,$checkboxfile);
 645             my $infoline = "Added ms file type defaults into idt file: $checkboxfilename\n";
 646             push(@installer::globals::logfileinfo, $infoline);
 647         }
 648     }
 649 }
 650
 651 1;