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