solenv/bin/modules/installer/windows/msp.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: msp.pm,v $
  10 #
  11 # $Revision: 1.1.2.4 $
  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::msp;
  33
  34 use installer::control;
  35 use installer::converter;
  36 use installer::exiter;
  37 use installer::files;
  38 use installer::globals;
  39 use installer::logger;
  40 use installer::pathanalyzer;
  41 use installer::systemactions;
  42 use installer::windows::admin;
  43 use installer::windows::idtglobal;
  44 use installer::windows::update;
  45
  46 #################################################################################
  47 # Making all required administrative installations
  48 #################################################################################
  49
  50 sub install_installation_sets
  51 {
  52     my ($installationdir) = @_;
  53
  54     # Finding the msi database in the new installation set, that is located in $installationdir
  55
  56     my $msifiles = installer::systemactions::find_file_with_file_extension("msi", $installationdir);
  57
  58     if ( $#{$msifiles} < 0 ) { installer::exiter::exit_program("ERROR: Did not find msi database in directory $installationdir", "create_msp_patch"); }
  59     if ( $#{$msifiles} > 0 ) { installer::exiter::exit_program("ERROR: Did find more than one msi database in directory $installationdir", "create_msp_patch"); }
  60
  61     my $newinstallsetdatabasepath = $installationdir . $installer::globals::separator . ${$msifiles}[0];
  62     my $oldinstallsetdatabasepath = $installer::globals::updatedatabasepath;
  63
  64     # Creating temp directory again
  65     installer::systemactions::create_directory_structure($installer::globals::temppath);
  66
  67     # Creating old installation directory
  68     my $dirname = "admin";
  69     my $installpath = $installer::globals::temppath . $installer::globals::separator . $dirname;
  70     if ( ! -d $installpath) { installer::systemactions::create_directory($installpath); }
  71
  72     my $oldinstallpath = $installpath . $installer::globals::separator . "old";
  73     my $newinstallpath = $installpath . $installer::globals::separator . "new";
  74
  75     if ( ! -d $oldinstallpath) { installer::systemactions::create_directory($oldinstallpath); }
  76     if ( ! -d $newinstallpath) { installer::systemactions::create_directory($newinstallpath); }
  77
  78     my $olddatabase = installer::windows::admin::make_admin_install($oldinstallsetdatabasepath, $oldinstallpath);
  79     my $newdatabase = installer::windows::admin::make_admin_install($newinstallsetdatabasepath, $newinstallpath);
  80
  81     if ( $^O =~ /cygwin/i ) {
  82         $olddatabase = qx{cygpath -w "$olddatabase"};
  83         $olddatabase =~ s/\s*$//g;
  84         $newdatabase = qx{cygpath -w "$newdatabase"};
  85         $newdatabase =~ s/\s*$//g;
  86     }
  87
  88     return ($olddatabase, $newdatabase);
  89 }
  90
  91 #################################################################################
  92 # Extracting all tables from a pcp file
  93 #################################################################################
  94
  95 sub extract_all_tables_from_pcpfile
  96 {
  97     my ($fullpcpfilepath, $workdir) = @_;
  98
  99     my $msidb = "msidb.exe";    # Has to be in the path
 100     my $infoline = "";
 101     my $systemcall = "";
 102     my $returnvalue = "";
 103     my $extraslash = "";                # Has to be set for non-ActiveState perl
 104
 105     my $localfullpcpfile = $fullpcpfilepath;
 106     my $localworkdir = $workdir;
 107
 108     if ( $^O =~ /cygwin/i ) {
 109         # msidb.exe really wants backslashes. (And double escaping because system() expands the string.)
 110         $localfullpcpfile =~ s/\//\\\\/g;
 111         $localworkdir =~ s/\//\\\\/g;
 112         $extraslash = "\\";
 113     }
 114
 115     # Export of all tables by using "*"
 116
 117     $systemcall = $msidb . " -d " . $localfullpcpfile . " -f " . $localworkdir . " -e " . $extraslash . "*";
 118     $returnvalue = system($systemcall);
 119
 120     $infoline = "Systemcall: $systemcall\n";
 121     push( @installer::globals::logfileinfo, $infoline);
 122
 123     if ($returnvalue)
 124     {
 125         $infoline = "ERROR: Could not execute $systemcall !\n";
 126         push( @installer::globals::logfileinfo, $infoline);
 127         installer::exiter::exit_program("ERROR: Could not exclude tables from pcp file: $fullpcpfilepath !", "extract_all_tables_from_msidatabase");
 128     }
 129     else
 130     {
 131         $infoline = "Success: Executed $systemcall successfully!\n";
 132         push( @installer::globals::logfileinfo, $infoline);
 133     }
 134 }
 135
 136 #################################################################################
 137 # Include tables into a pcp file
 138 #################################################################################
 139
 140 sub include_tables_into_pcpfile
 141 {
 142     my ($fullpcpfilepath, $workdir, $tables) = @_;
 143
 144     my $msidb = "msidb.exe";    # Has to be in the path
 145     my $infoline = "";
 146     my $systemcall = "";
 147     my $returnvalue = "";
 148
 149     # Make all table 8+3 conform
 150     my $alltables = installer::converter::convert_stringlist_into_array(\$tables, " ");
 151
 152     for ( my $i = 0; $i <= $#{$alltables}; $i++ )
 153     {
 154         my $tablename = ${$alltables}[$i];
 155         $tablename =~ s/\s*$//;
 156         my $namelength = length($tablename);
 157         if ( $namelength > 8 )
 158         {
 159             my $newtablename = substr($tablename, 0, 8);        # name, offset, length
 160             my $oldfile = $workdir . $installer::globals::separator . $tablename . ".idt";
 161             my $newfile = $workdir . $installer::globals::separator . $newtablename . ".idt";
 162             if ( -f $newfile ) { unlink $newfile; }
 163             installer::systemactions::copy_one_file($oldfile, $newfile);
 164         }
 165     }
 166
 167     # Import of tables
 168
 169     my $localworkdir = $workdir;
 170     my $localfullpcpfilepath = $fullpcpfilepath;
 171
 172     if ( $^O =~ /cygwin/i ) {
 173         # msidb.exe really wants backslashes. (And double escaping because system() expands the string.)
 174         $localfullpcpfilepath =~ s/\//\\\\/g;
 175         $localworkdir =~ s/\//\\\\/g;
 176     }
 177
 178     $systemcall = $msidb . " -d " . $localfullpcpfilepath . " -f " . $localworkdir . " -i " . $tables;
 179
 180     $returnvalue = system($systemcall);
 181
 182     $infoline = "Systemcall: $systemcall\n";
 183     push( @installer::globals::logfileinfo, $infoline);
 184
 185     if ($returnvalue)
 186     {
 187         $infoline = "ERROR: Could not execute $systemcall !\n";
 188         push( @installer::globals::logfileinfo, $infoline);
 189         installer::exiter::exit_program("ERROR: Could not include tables into pcp file: $fullpcpfilepath !", "include_tables_into_pcpfile");
 190     }
 191     else
 192     {
 193         $infoline = "Success: Executed $systemcall successfully!\n";
 194         push( @installer::globals::logfileinfo, $infoline);
 195     }
 196 }
 197
 198 #################################################################################
 199 # Calling msimsp.exe
 200 #################################################################################
 201
 202 sub execute_msimsp
 203 {
 204     my ($fullpcpfilename, $mspfilename, $localmspdir) = @_;
 205
 206     my $msimsp = "msimsp.exe";  # Has to be in the path
 207     my $infoline = "";
 208     my $systemcall = "";
 209     my $returnvalue = "";
 210     my $logfilename = $localmspdir . $installer::globals::separator . "msimsp.log";
 211
 212     # Using a specific temp for each msimsp.exe process
 213     # Creating temp directory again (should already have happened)
 214     installer::systemactions::create_directory_structure($installer::globals::temppath);
 215
 216     # Creating old installation directory
 217     my $dirname = "msimsptemp";
 218     my $msimsptemppath = $installer::globals::temppath . $installer::globals::separator . $dirname;
 219     if ( ! -d $msimsptemppath) { installer::systemactions::create_directory($msimsptemppath); }
 220
 221     # r:\msvc9p\PlatformSDK\v6.1\bin\msimsp.exe -s c:\patch\hotfix_qfe1.pcp -p c:\patch\patch_ooo3_m2_m3.msp -l c:\patch\patch_ooo3_m2_m3.log
 222
 223     if ( -f $logfilename ) { unlink $logfilename; }
 224
 225     my $localfullpcpfilename = $fullpcpfilename;
 226     my $localmspfilename = $mspfilename;
 227     my $locallogfilename = $logfilename;
 228     my $localmsimsptemppath = $msimsptemppath;
 229
 230     if ( $^O =~ /cygwin/i ) {
 231         # msimsp.exe really wants backslashes. (And double escaping because system() expands the string.)
 232         $localfullpcpfilename =~ s/\//\\\\/g;
 233         $locallogfilename =~ s/\//\\\\/g;
 234
 235         $localmspfilename =~ s/\\/\\\\/g; # path already contains backslash
 236         # $localmspfilename =~ s/\//\\\\/g;
 237
 238         $localmsimsptemppath = qx{cygpath -w "$localmsimsptemppath"};
 239         $localmsimsptemppath =~ s/\\/\\\\/g;
 240         $localmsimsptemppath =~ s/\s*$//g;
 241     }
 242
 243     $systemcall = $msimsp . " -s " . $localfullpcpfilename . " -p " . $localmspfilename . " -l " . $locallogfilename . " -f " . $localmsimsptemppath;
 244     installer::logger::print_message( "... $systemcall ...\n" );
 245
 246     $returnvalue = system($systemcall);
 247
 248     $infoline = "Systemcall: $systemcall\n";
 249     push( @installer::globals::logfileinfo, $infoline);
 250
 251     if ($returnvalue)
 252     {
 253         $infoline = "ERROR: Could not execute $systemcall !\n";
 254         push( @installer::globals::logfileinfo, $infoline);
 255         installer::exiter::exit_program("ERROR: Could not execute $systemcall !", "execute_msimsp");
 256     }
 257     else
 258     {
 259         $infoline = "Success: Executed $systemcall successfully!\n";
 260         push( @installer::globals::logfileinfo, $infoline);
 261     }
 262
 263     return $logfilename;
 264 }
 265
 266 ####################################################################
 267 # Checking existence and saving all tables, that need to be edited
 268 ####################################################################
 269
 270 sub check_and_save_tables
 271 {
 272     my ($tablelist, $workdir) = @_;
 273
 274     my $tables = installer::converter::convert_stringlist_into_array(\$tablelist, " ");
 275
 276     for ( my $i = 0; $i <= $#{$tables}; $i++ )
 277     {
 278         my $filename = ${$tables}[$i];
 279         $filename =~ s/\s*$//;
 280         my $fullfilename = $workdir . $installer::globals::separator . $filename . ".idt";
 281
 282         if ( ! -f $fullfilename ) { installer::exiter::exit_program("ERROR: Required idt file could not be found: \"$fullfilename\"!", "check_and_save_tables"); }
 283
 284         my $savfilename = $fullfilename . ".sav";
 285         installer::systemactions::copy_one_file($fullfilename, $savfilename);
 286     }
 287 }
 288
 289 ####################################################################
 290 # Setting the languages for the service packs
 291 ####################################################################
 292
 293 sub create_langstring
 294 {
 295     my ( $languagesarrayref ) = @_;
 296
 297     my $langstring = "";
 298     for ( my $i = 0; $i <= $#{$languagesarrayref}; $i++ ) { $langstring = $langstring . "_" . ${$languagesarrayref}[$i]; }
 299
 300     return $langstring;
 301 }
 302
 303 ####################################################################
 304 # Setting the name of the msp database
 305 ####################################################################
 306
 307 sub set_mspfilename
 308 {
 309     my ($allvariables, $mspdir, $languagesarrayref) = @_;
 310
 311     my $databasename = $allvariables->{'PRODUCTNAME'};
 312     $databasename = lc($databasename);
 313     $databasename =~ s/\.//g;
 314     $databasename =~ s/\-//g;
 315     $databasename =~ s/\s//g;
 316
 317     if ( $allvariables->{'MSPPRODUCTVERSION'} ) { $databasename = $databasename . $allvariables->{'MSPPRODUCTVERSION'}; }
 318
 319     # possibility to overwrite the name with variable DATABASENAME
 320     # if ( $allvariables->{'DATABASENAME'} ) { $databasename = $allvariables->{'DATABASENAME'}; }
 321
 322     # Adding patch info to database name
 323     # if ( $installer::globals::buildid ) { $databasename = $databasename . "_" . $installer::globals::buildid; }
 324
 325     # if ( $allvariables->{'VENDORPATCHVERSION'} ) { $databasename = $databasename . "_" . $allvariables->{'VENDORPATCHVERSION'}; }
 326
 327
 328     if (( $allvariables->{'SERVICEPACK'} ) && ( $allvariables->{'SERVICEPACK'} == 1 ))
 329     {
 330         my $windowspatchlevel = 0;
 331         if ( $allvariables->{'MSPPATCHLEVEL'} ) { $windowspatchlevel = $allvariables->{'MSPPATCHLEVEL'}; }
 332         $databasename = $databasename . "_servicepack_" . $windowspatchlevel;
 333         my $languagestring = create_langstring($languagesarrayref);
 334         $databasename = $databasename . $languagestring;
 335     }
 336     else
 337     {
 338         my $hotfixaddon = "hotfix_";
 339         $hotfixaddon = $hotfixaddon . $installer::globals::buildid;
 340         my $cwsname = "";
 341         if ( $ENV{'CWS_WORK_STAMP'} ) { $hotfixaddon = $ENV{'CWS_WORK_STAMP'}; }
 342         if ( $allvariables->{'OVERWRITE_CWSNAME'} ) { $hotfixaddon = $allvariables->{'OVERWRITE_CWSNAME'}; }
 343         $databasename = $databasename . "_" . $hotfixaddon;
 344     }
 345
 346     $databasename = $databasename . ".msp";
 347
 348     my $fullmspname = $mspdir . $installer::globals::separator . $databasename;
 349
 350     if ( $^O =~ /cygwin/i ) { $fullmspname =~ s/\//\\/g; }
 351
 352     return $fullmspname;
 353 }
 354
 355 ####################################################################
 356 # Editing table Properties
 357 ####################################################################
 358
 359 sub change_properties_table
 360 {
 361     my ($localmspdir, $mspfilename) = @_;
 362
 363     my $infoline = "Changing content of table \"Properties\"\n";
 364     push( @installer::globals::logfileinfo, $infoline);
 365
 366     my $filename = $localmspdir . $installer::globals::separator . "Properties.idt";
 367     if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file \"$filename\" !", "change_properties_table"); }
 368
 369     my $filecontent = installer::files::read_file($filename);
 370
 371
 372     my $guidref = installer::windows::msiglobal::get_guid_list(1, 1);
 373     ${$guidref}[0] =~ s/\s*$//;         # removing ending spaces
 374     my $patchcode = "\{" . ${$guidref}[0] . "\}";
 375
 376     # Setting "PatchOutputPath"
 377     my $found_patchoutputpath = 0;
 378     my $found_patchguid = 0;
 379
 380     for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
 381     {
 382         if ( ${$filecontent}[$i] =~ /^\s*PatchOutputPath\t(.*?)\s*$/ )
 383         {
 384             my $oldvalue = $1;
 385             ${$filecontent}[$i] =~ s/\Q$oldvalue\E/$mspfilename/;
 386             $found_patchoutputpath = 1;
 387         }
 388
 389         if ( ${$filecontent}[$i] =~ /^\s*PatchGUID\t(.*?)\s*$/ )
 390         {
 391             my $oldvalue = $1;
 392             ${$filecontent}[$i] =~ s/\Q$oldvalue\E/$patchcode/;
 393             $found_patchguid = 1;
 394         }
 395     }
 396
 397     if ( ! $found_patchoutputpath )
 398     {
 399         my $newline = "PatchOutputPath\t$mspfilename\n";
 400         push(@{$filecontent}, $newline);
 401     }
 402
 403     if ( ! $found_patchguid )
 404     {
 405         my $newline = "PatchGUID\t$patchcode\n";
 406         push(@{$filecontent}, $newline);
 407     }
 408
 409     # saving file
 410     installer::files::save_file($filename, $filecontent);
 411 }
 412
 413 ####################################################################
 414 # Editing table TargetImages
 415 ####################################################################
 416
 417 sub change_targetimages_table
 418 {
 419     my ($localmspdir, $olddatabase) = @_;
 420
 421     my $infoline = "Changing content of table \"TargetImages\"\n";
 422     push( @installer::globals::logfileinfo, $infoline);
 423
 424     my $filename = $localmspdir . $installer::globals::separator . "TargetImages.idt";
 425     if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file \"$filename\" !", "change_targetimages_table"); }
 426
 427     my $filecontent = installer::files::read_file($filename);
 428     my @newcontent = ();
 429
 430     # Copying the header
 431     for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) { if ( $i < 3 ) { push(@newcontent, ${$filecontent}[$i]); } }
 432
 433     #Adding all targets
 434     my $newline = "T1\t$olddatabase\t\tU1\t1\t0x00000922\t1\n";
 435     push(@newcontent, $newline);
 436
 437     # saving file
 438     installer::files::save_file($filename, \@newcontent);
 439 }
 440
 441 ####################################################################
 442 # Editing table UpgradedImages
 443 ####################################################################
 444
 445 sub change_upgradedimages_table
 446 {
 447     my ($localmspdir, $newdatabase) = @_;
 448
 449     my $infoline = "Changing content of table \"UpgradedImages\"\n";
 450     push( @installer::globals::logfileinfo, $infoline);
 451
 452     my $filename = $localmspdir . $installer::globals::separator . "UpgradedImages.idt";
 453     if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file \"$filename\" !", "change_upgradedimages_table"); }
 454
 455     my $filecontent = installer::files::read_file($filename);
 456     my @newcontent = ();
 457
 458     # Copying the header
 459     for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) { if ( $i < 3 ) { push(@newcontent, ${$filecontent}[$i]); } }
 460
 461     # Syntax: Upgraded MsiPath PatchMsiPath SymbolPaths Family
 462
 463     # default values
 464     my $upgraded = "U1";
 465     my $msipath = $newdatabase;
 466     my $patchmsipath = "";
 467     my $symbolpaths = "";
 468     my $family = "22334455";
 469
 470     if ( $#{$filecontent} >= 3 )
 471     {
 472         my $line = ${$filecontent}[3];
 473         if ( $line =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
 474         {
 475             $upgraded = $1;
 476             $patchmsipath = $3;
 477             $symbolpaths = $4;
 478             $family = $5;
 479         }
 480     }
 481
 482     #Adding sequence line, saving PatchFamily
 483     my $newline = "$upgraded\t$msipath\t$patchmsipath\t$symbolpaths\t$family\n";
 484     push(@newcontent, $newline);
 485
 486     # saving file
 487     installer::files::save_file($filename, \@newcontent);
 488 }
 489
 490 ####################################################################
 491 # Editing table ImageFamilies
 492 ####################################################################
 493
 494 sub change_imagefamilies_table
 495 {
 496     my ($localmspdir) = @_;
 497
 498     my $infoline = "Changing content of table \"ImageFamilies\"\n";
 499     push( @installer::globals::logfileinfo, $infoline);
 500
 501     my $filename = $localmspdir . $installer::globals::separator . "ImageFamilies.idt";
 502     if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file \"$filename\" !", "change_imagefamilies_table"); }
 503
 504     my $filecontent = installer::files::read_file($filename);
 505     my @newcontent = ();
 506
 507     # Copying the header
 508     for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) { if ( $i < 3 ) { push(@newcontent, ${$filecontent}[$i]); } }
 509
 510     # Syntax: Family MediaSrcPropName MediaDiskId FileSequenceStart DiskPrompt VolumeLabel
 511     # "FileSequenceStart has to be set
 512
 513     # Default values:
 514
 515     my $family = "22334455";
 516     my $mediasrcpropname = "MediaSrcPropName";
 517     my $mediadiskid = "2";
 518     my $filesequencestart = get_filesequencestart();
 519     my $diskprompt = "";
 520     my $volumelabel = "";
 521
 522     if ( $#{$filecontent} >= 3 )
 523     {
 524         my $line = ${$filecontent}[3];
 525         if ( $line =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
 526         {
 527             $family = $1;
 528             $mediasrcpropname = $2;
 529             $mediadiskid = $3;
 530             $diskprompt = $5;
 531             $volumelabel = $6;
 532         }
 533     }
 534
 535     #Adding sequence line
 536     my $newline = "$family\t$mediasrcpropname\t$mediadiskid\t$filesequencestart\t$diskprompt\t$volumelabel\n";
 537     push(@newcontent, $newline);
 538
 539     # saving file
 540     installer::files::save_file($filename, \@newcontent);
 541 }
 542
 543 ####################################################################
 544 # Setting start sequence for patch
 545 ####################################################################
 546
 547 sub get_filesequencestart
 548 {
 549     my $sequence = 1000;  # default
 550
 551     if ( $installer::globals::updatelastsequence ) { $sequence = $installer::globals::updatelastsequence + 500; }
 552
 553     return $sequence;
 554 }
 555
 556 ####################################################################
 557 # Setting time value into pcp file
 558 # Format mm/dd/yyyy hh:mm
 559 ####################################################################
 560
 561 sub get_patchtime_value
 562 {
 563     # Syntax: 8/8/2008 11:55
 564     my $minute = (localtime())[1];
 565     my $hour = (localtime())[2];
 566     my $day = (localtime())[3];
 567     my $month = (localtime())[4];
 568     my $year = 1900 + (localtime())[5];
 569
 570     $month++; # zero based month
 571     if ( $minute  < 10 ) { $minute = "0" . $minute; }
 572     if ( $hour  < 10 ) { $hour = "0" . $hour; }
 573
 574     my $timestring = $month . "/" . $day . "/" . $year . " " . $hour . ":" . $minute;
 575
 576     return $timestring;
 577 }
 578
 579 #################################################################################
 580 # Checking, if this is the correct database.
 581 #################################################################################
 582
 583 sub correct_langs
 584 {
 585     my ($langs, $languagestringref) = @_;
 586
 587     my $correct_langs = 0;
 588
 589     # Comparing $langs with $languagestringref
 590
 591     my $langlisthash = installer::converter::convert_stringlist_into_hash(\$langs, ",");
 592     my $langstringhash = installer::converter::convert_stringlist_into_hash($languagestringref, "_");
 593
 594     my $not_included = 0;
 595     foreach my $onelang ( keys %{$langlisthash} )
 596     {
 597         if ( ! exists($langstringhash->{$onelang}) )
 598         {
 599             $not_included = 1;
 600             last;
 601         }
 602     }
 603
 604     if ( ! $not_included )
 605     {
 606         foreach my $onelanguage ( keys %{$langstringhash} )
 607         {
 608             if ( ! exists($langlisthash->{$onelanguage}) )
 609             {
 610                 $not_included = 1;
 611                 last;
 612             }
 613         }
 614
 615         if ( ! $not_included ) { $correct_langs = 1; }
 616     }
 617
 618     return $correct_langs;
 619 }
 620
 621 #################################################################################
 622 # Searching for the path to the reference database for this special product.
 623 #################################################################################
 624
 625 sub get_patchid_from_list
 626 {
 627     my ($filecontent, $languagestringref, $filename) = @_;
 628
 629     my $patchid = "";
 630
 631     for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
 632     {
 633         my $line = ${$filecontent}[$i];
 634         if ( $line =~ /^\s*$/ ) { next; } # empty line
 635         if ( $line =~ /^\s*\#/ ) { next; } # comment line
 636
 637         if ( $line =~ /^\s*(.+?)\s*=\s*(.+?)\s*$/ )
 638         {
 639             my $langs = $1;
 640             my $localpatchid = $2;
 641
 642             if ( correct_langs($langs, $languagestringref) )
 643             {
 644                 $patchid = $localpatchid;
 645                 last;
 646             }
 647         }
 648         else
 649         {
 650             installer::exiter::exit_program("ERROR: Wrong syntax in file: $filename! Line: \"$line\"", "get_patchid_from_list");
 651         }
 652     }
 653
 654     return $patchid;
 655 }
 656
 657 ####################################################################
 658 # Editing table PatchMetadata
 659 ####################################################################
 660
 661 sub change_patchmetadata_table
 662 {
 663     my ($localmspdir, $allvariables, $languagestringref) = @_;
 664
 665     my $infoline = "Changing content of table \"PatchMetadata\"\n";
 666     push( @installer::globals::logfileinfo, $infoline);
 667
 668     my $filename = $localmspdir . $installer::globals::separator . "PatchMetadata.idt";
 669     if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file \"$filename\" !", "change_patchmetadata_table"); }
 670
 671     my $filecontent = installer::files::read_file($filename);
 672     my @newcontent = ();
 673
 674     # Syntax: Company Property Value
 675     # Interesting properties: "Classification" and "CreationTimeUTC"
 676
 677     my $classification_set = 0;
 678     my $creationtime_set = 0;
 679     my $targetproductname_set = 0;
 680     my $manufacturer_set = 0;
 681     my $displayname_set = 0;
 682     my $description_set = 0;
 683     my $allowremoval_set = 0;
 684
 685     my $defaultcompany = "";
 686
 687     my $classificationstring = "Classification";
 688     my $classificationvalue = "Hotfix";
 689     if (( $allvariables->{'SERVICEPACK'} ) && ( $allvariables->{'SERVICEPACK'} == 1 )) { $classificationvalue = "ServicePack"; }
 690
 691     my $allowremovalstring = "AllowRemoval";
 692     my $allowremovalvalue = "1";
 693     if (( exists($allvariables->{'MSPALLOWREMOVAL'}) ) && ( $allvariables->{'MSPALLOWREMOVAL'} == 0 )) { $allowremovalvalue = 0; }
 694
 695     my $timestring = "CreationTimeUTC";
 696     # Syntax: 8/8/2008 11:55
 697     my $timevalue = get_patchtime_value();
 698
 699     my $targetproductnamestring = "TargetProductName";
 700     my $targetproductnamevalue = $allvariables->{'PRODUCTNAME'};
 701     if ( $allvariables->{'PROPERTYTABLEPRODUCTNAME'} ) { $targetproductnamevalue = $allvariables->{'PROPERTYTABLEPRODUCTNAME'}; }
 702
 703     my $manufacturerstring = "ManufacturerName";
 704     my $manufacturervalue = "OpenOffice.org";
 705     if ( $installer::globals::longmanufacturer ) { $manufacturervalue = $installer::globals::longmanufacturer; }
 706
 707     my $displaynamestring = "DisplayName";
 708     my $descriptionstring = "Description";
 709     my $displaynamevalue = "";
 710     my $descriptionvalue = "";
 711
 712     my $base = $allvariables->{'PRODUCTNAME'} . " " . $allvariables->{'PRODUCTVERSION'};
 713     if ( $installer::globals::languagepack ) { $base = $targetproductnamevalue; }
 714
 715     my $windowspatchlevel = 0;
 716     if ( $allvariables->{'WINDOWSPATCHLEVEL'} ) { $windowspatchlevel = $allvariables->{'WINDOWSPATCHLEVEL'}; }
 717
 718     my $displayaddon = "";
 719     if ( $allvariables->{'PATCHDISPLAYADDON'} ) { $displayaddon = $allvariables->{'PATCHDISPLAYADDON'}; }
 720
 721     my $cwsname = "";
 722     if ( $ENV{'CWS_WORK_STAMP'} ) { $cwsname = $ENV{'CWS_WORK_STAMP'}; }
 723     if (( $cwsname ne "" ) && ( $allvariables->{'OVERWRITE_CWSNAME'} )) { $cwsname = $allvariables->{'OVERWRITE_CWSNAME'}; }
 724
 725     my $patchsequence = get_patchsequence($allvariables);
 726
 727     if (( $allvariables->{'SERVICEPACK'} ) && ( $allvariables->{'SERVICEPACK'} == 1 ))
 728     {
 729         $displaynamevalue = $base . " ServicePack " . $windowspatchlevel . " " . $patchsequence . " Build: " . $installer::globals::buildid;
 730         $descriptionvalue = $base . " ServicePack " . $windowspatchlevel . " " . $patchsequence . " Build: " . $installer::globals::buildid;
 731     }
 732     else
 733     {
 734         $displaynamevalue = $base . " Hotfix " . $cwsname . " " . $displayaddon . " " . $patchsequence . " Build: " . $installer::globals::buildid;
 735         $descriptionvalue = $base . " Hotfix " . $cwsname . " " . $displayaddon . " " . $patchsequence . " Build: " . $installer::globals::buildid;
 736         $displaynamevalue =~ s/    / /g;
 737         $descriptionvalue =~ s/    / /g;
 738         $displaynamevalue =~ s/   / /g;
 739         $descriptionvalue =~ s/   / /g;
 740         $displaynamevalue =~ s/  / /g;
 741         $descriptionvalue =~ s/  / /g;
 742     }
 743
 744     if ( $allvariables->{'MSPPATCHNAMELIST'} )
 745     {
 746         my $patchnamelistfile = $allvariables->{'MSPPATCHNAMELIST'};
 747         $patchnamelistfile = $installer::globals::idttemplatepath  . $installer::globals::separator . $patchnamelistfile;
 748         if ( ! -f $patchnamelistfile ) { installer::exiter::exit_program("ERROR: Could not find file \"$patchnamelistfile\".", "change_patchmetadata_table"); }
 749         my $filecontent = installer::files::read_file($patchnamelistfile);
 750
 751         # Get name and path of reference database
 752         my $patchid = get_patchid_from_list($filecontent, $languagestringref, $patchnamelistfile);
 753
 754         if ( $patchid eq "" ) { installer::exiter::exit_program("ERROR: Could not find file patchid in file \"$patchnamelistfile\" for language(s) \"$$languagestringref\".", "change_patchmetadata_table"); }
 755
 756         # Setting language specific patch id
 757     }
 758
 759     for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
 760     {
 761         if ( ${$filecontent}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\s*$/ )
 762         {
 763             my $company = $1;
 764             my $property = $2;
 765             my $value = $3;
 766
 767             if ( $property eq $classificationstring )
 768             {
 769                 ${$filecontent}[$i] = "$company\t$property\t$classificationvalue\n";
 770                 $classification_set = 1;
 771             }
 772
 773             if ( $property eq $allowremovalstring )
 774             {
 775                 ${$filecontent}[$i] = "$company\t$property\t$allowremovalvalue\n";
 776                 $allowremoval_set = 1;
 777             }
 778
 779             if ( $property eq $timestring )
 780             {
 781                 ${$filecontent}[$i] = "$company\t$property\t$timevalue\n";
 782                 $creationtime_set = 1;
 783             }
 784
 785             if ( $property eq $targetproductnamestring )
 786             {
 787                 ${$filecontent}[$i] = "$company\t$property\t$targetproductnamevalue\n";
 788                 $targetproductname_set = 1;
 789             }
 790
 791             if ( $property eq $manufacturerstring )
 792             {
 793                 ${$filecontent}[$i] = "$company\t$property\t$manufacturervalue\n";
 794                 $manufacturer_set = 1;
 795             }
 796
 797             if ( $property eq $displaynamestring )
 798             {
 799                 ${$filecontent}[$i] = "$company\t$property\t$displaynamevalue\n";
 800                 $displayname_set = 1;
 801             }
 802
 803             if ( $property eq $descriptionstring )
 804             {
 805                 ${$filecontent}[$i] = "$company\t$property\t$descriptionvalue\n";
 806                 $description_set = 1;
 807             }
 808         }
 809
 810         push(@newcontent, ${$filecontent}[$i]);
 811     }
 812
 813     if ( ! $classification_set )
 814     {
 815         my $line = "$defaultcompany\t$classificationstring\t$classificationvalue\n";
 816         push(@newcontent, $line);
 817     }
 818
 819     if ( ! $allowremoval_set )
 820     {
 821         my $line = "$defaultcompany\t$classificationstring\t$allowremovalvalue\n";
 822         push(@newcontent, $line);
 823     }
 824
 825     if ( ! $allowremoval_set )
 826     {
 827         my $line = "$defaultcompany\t$classificationstring\t$allowremovalvalue\n";
 828         push(@newcontent, $line);
 829     }
 830
 831     if ( ! $creationtime_set )
 832     {
 833         my $line = "$defaultcompany\t$timestring\t$timevalue\n";
 834         push(@newcontent, $line);
 835     }
 836
 837     if ( ! $targetproductname_set )
 838     {
 839         my $line = "$defaultcompany\t$targetproductnamestring\t$targetproductnamevalue\n";
 840         push(@newcontent, $line);
 841     }
 842
 843     if ( ! $manufacturer_set )
 844     {
 845         my $line = "$defaultcompany\t$manufacturerstring\t$manufacturervalue\n";
 846         push(@newcontent, $line);
 847     }
 848
 849     if ( ! $displayname_set )
 850     {
 851         my $line = "$defaultcompany\t$displaynamestring\t$displaynamevalue\n";
 852         push(@newcontent, $line);
 853     }
 854
 855     if ( ! $description_set )
 856     {
 857         my $line = "$defaultcompany\t$descriptionstring\t$descriptionvalue\n";
 858         push(@newcontent, $line);
 859     }
 860
 861     # saving file
 862     installer::files::save_file($filename, \@newcontent);
 863 }
 864
 865 ####################################################################
 866 # Editing table PatchSequence
 867 ####################################################################
 868
 869 sub change_patchsequence_table
 870 {
 871     my ($localmspdir, $allvariables) = @_;
 872
 873     my $infoline = "Changing content of table \"PatchSequence\"\n";
 874     push( @installer::globals::logfileinfo, $infoline);
 875
 876     my $filename = $localmspdir . $installer::globals::separator . "PatchSequence.idt";
 877     if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file \"$filename\" !", "change_patchsequence_table"); }
 878
 879     my $filecontent = installer::files::read_file($filename);
 880     my @newcontent = ();
 881
 882     # Copying the header
 883     for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) { if ( $i < 3 ) { push(@newcontent, ${$filecontent}[$i]); } }
 884
 885     # Syntax: PatchFamily Target Sequence Supersede
 886
 887     my $patchfamily = "SO";
 888     my $target = "";
 889     my $patchsequence = get_patchsequence($allvariables);
 890     my $supersede = get_supersede($allvariables);
 891
 892     if ( $#{$filecontent} >= 3 )
 893     {
 894         my $line = ${$filecontent}[3];
 895         if ( $line =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\s$/ )
 896         {
 897             $patchfamily = $1;
 898             $target = $2;
 899         }
 900     }
 901
 902     #Adding sequence line, saving PatchFamily
 903     my $newline = "$patchfamily\t$target\t$patchsequence\t$supersede\n";
 904     push(@newcontent, $newline);
 905
 906     # saving file
 907     installer::files::save_file($filename, \@newcontent);
 908 }
 909
 910 ####################################################################
 911 # Setting supersede, "0" for Hotfixes, "1" for ServicePack
 912 ####################################################################
 913
 914 sub get_supersede
 915 {
 916     my ( $allvariables ) = @_;
 917
 918     my $supersede = 0;  # if not defined, this is a Hotfix
 919
 920     if (( $allvariables->{'SERVICEPACK'} ) && ( $allvariables->{'SERVICEPACK'} == 1 )) { $supersede = 1; }
 921
 922     return $supersede;
 923 }
 924
 925 ####################################################################
 926 # Setting the sequence of the patch
 927 ####################################################################
 928
 929 sub get_patchsequence
 930 {
 931     my ( $allvariables ) = @_;
 932
 933     my $patchsequence = "1.0";
 934
 935     if ( ! $allvariables->{'PACKAGEVERSION'} ) { installer::exiter::exit_program("ERROR: PACKAGEVERSION must be set for msp patch creation!", "get_patchsequence"); }
 936
 937     my $packageversion = $allvariables->{'PACKAGEVERSION'};
 938
 939     if ( $packageversion =~ /^\s*(\d+)\.(\d+)\.(\d+)\s*$/ )
 940     {
 941         my $major = $1;
 942         my $minor = $2;
 943         my $micro = $3;
 944         my $concat = 100 * $minor + $micro;
 945         $packageversion = $major . "\." . $concat;
 946     }
 947     my $vendornumber = 0;
 948     if ( $allvariables->{'VENDORPATCHVERSION'} ) { $vendornumber = $allvariables->{'VENDORPATCHVERSION'}; }
 949     $patchsequence = $packageversion . "\." . $installer::globals::buildid . "\." . $vendornumber;
 950
 951     if ( $allvariables->{'PATCHSEQUENCE'} ) { $patchsequence = $allvariables->{'PATCHSEQUENCE'}; }
 952
 953     return $patchsequence;
 954 }
 955
 956 ####################################################################
 957 # Editing all tables from pcp file, that need to be edited
 958 ####################################################################
 959
 960 sub edit_tables
 961 {
 962     my ($tablelist, $localmspdir, $olddatabase, $newdatabase, $mspfilename, $allvariables, $languagestringref) = @_;
 963
 964     # table list contains:      my $tablelist = "Properties TargetImages UpgradedImages ImageFamilies PatchMetadata PatchSequence";
 965
 966     change_properties_table($localmspdir, $mspfilename);
 967     change_targetimages_table($localmspdir, $olddatabase);
 968     change_upgradedimages_table($localmspdir, $newdatabase);
 969     change_imagefamilies_table($localmspdir);
 970     change_patchmetadata_table($localmspdir, $allvariables, $languagestringref);
 971     change_patchsequence_table($localmspdir, $allvariables);
 972 }
 973
 974 #################################################################################
 975 # Checking, if this is the correct database.
 976 #################################################################################
 977
 978 sub correct_patch
 979 {
 980     my ($product, $pro, $langs, $languagestringref) = @_;
 981
 982     my $correct_patch = 0;
 983
 984     # Comparing $product with $installer::globals::product and
 985     # $pro with $installer::globals::pro and
 986     # $langs with $languagestringref
 987
 988     my $product_is_good = 0;
 989
 990     my $localproduct = $installer::globals::product;
 991     if ( $installer::globals::languagepack ) { $localproduct = $localproduct . "LanguagePack"; }
 992
 993     if ( $product eq $localproduct ) { $product_is_good = 1; }
 994
 995     if ( $product_is_good )
 996     {
 997         my $pro_is_good = 0;
 998
 999         if ((( $pro eq "pro" ) && ( $installer::globals::pro )) || (( $pro eq "nonpro" ) && ( ! $installer::globals::pro ))) { $pro_is_good = 1; }
1000
1001         if ( $pro_is_good )
1002         {
1003             my $langlisthash = installer::converter::convert_stringlist_into_hash(\$langs, ",");
1004             my $langstringhash = installer::converter::convert_stringlist_into_hash($languagestringref, "_");
1005
1006             my $not_included = 0;
1007             foreach my $onelang ( keys %{$langlisthash} )
1008             {
1009                 if ( ! exists($langstringhash->{$onelang}) )
1010                 {
1011                     $not_included = 1;
1012                     last;
1013                 }
1014             }
1015
1016             if ( ! $not_included )
1017             {
1018                 foreach my $onelanguage ( keys %{$langstringhash} )
1019                 {
1020                     if ( ! exists($langlisthash->{$onelanguage}) )
1021                     {
1022                         $not_included = 1;
1023                         last;
1024                     }
1025                 }
1026
1027                 if ( ! $not_included ) { $correct_patch = 1; }
1028             }
1029         }
1030     }
1031
1032     return $correct_patch;
1033 }
1034
1035 #################################################################################
1036 # Searching for the path to the required patch for this special product.
1037 #################################################################################
1038
1039 sub get_requiredpatchfile_from_list
1040 {
1041     my ($filecontent, $languagestringref, $filename) = @_;
1042
1043     my $patchpath = "";
1044
1045     for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
1046     {
1047         my $line = ${$filecontent}[$i];
1048         if ( $line =~ /^\s*$/ ) { next; } # empty line
1049         if ( $line =~ /^\s*\#/ ) { next; } # comment line
1050
1051         if ( $line =~ /^\s*(.+?)\s*\t+\s*(.+?)\s*\t+\s*(.+?)\s*\t+\s*(.+?)\s*$/ )
1052         {
1053             my $product = $1;
1054             my $pro = $2;
1055             my $langs = $3;
1056             my $path = $4;
1057
1058             if (( $pro ne "pro" ) && ( $pro ne "nonpro" )) { installer::exiter::exit_program("ERROR: Wrong syntax in file: $filename. Only \"pro\" or \"nonpro\" allowed in column 1! Line: \"$line\"", "get_databasename_from_list"); }
1059
1060             if ( correct_patch($product, $pro, $langs, $languagestringref) )
1061             {
1062                 $patchpath = $path;
1063                 last;
1064             }
1065         }
1066         else
1067         {
1068             installer::exiter::exit_program("ERROR: Wrong syntax in file: $filename! Line: \"$line\"", "get_requiredpatchfile_from_list");
1069         }
1070     }
1071
1072     return $patchpath;
1073 }
1074
1075 ##################################################################
1076 # Converting unicode file to ascii
1077 # to be more precise: uft-16 little endian to ascii
1078 ##################################################################
1079
1080 sub convert_unicode_to_ascii
1081 {
1082     my ( $filename ) = @_;
1083
1084     my @localfile = ();
1085
1086     my $savfilename = $filename . "_before.unicode";
1087     installer::systemactions::copy_one_file($filename, $savfilename);
1088
1089 #       open( IN, "<:utf16", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_unicode_to_ascii");
1090 #       open( IN, "<:para:crlf:uni", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_unicode_to_ascii");
1091     open( IN, "<:encoding(UTF16-LE)", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_unicode_to_ascii");
1092 #       open( IN, "<:encoding(UTF-8)", $filename ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "convert_unicode_to_ascii");
1093     while ( $line = <IN> ) {
1094         push @localfile, $line;
1095     }
1096     close( IN );
1097
1098     if ( open( OUT, ">", $filename ) )
1099     {
1100         print OUT @localfile;
1101         close(OUT);
1102     }
1103 }
1104
1105 ####################################################################
1106 # Analyzing the log file created by msimsp.exe to find all
1107 # files included into the patch.
1108 ####################################################################
1109
1110 sub analyze_msimsp_logfile
1111 {
1112     my ($logfile, $filesarray) = @_;
1113
1114     # Reading log file after converting from utf-16 (LE) to ascii
1115     convert_unicode_to_ascii($logfile);
1116     my $logfilecontent = installer::files::read_file($logfile);
1117
1118     # Creating hash from $filesarray: unique file name -> destination of file
1119     my %filehash = ();
1120     my %destinationcollector = ();
1121
1122     for ( my $i = 0; $i <= $#{$filesarray}; $i++ )
1123     {
1124         my $onefile = ${$filesarray}[$i];
1125
1126         # Only collecting files with "uniquename" and "destination"
1127         if (( exists($onefile->{'uniquename'}) ) && ( exists($onefile->{'uniquename'}) ))
1128         {
1129             my $uniquefilename = $onefile->{'uniquename'};
1130             my $destpath = $onefile->{'destination'};
1131             $filehash{$uniquefilename} = $destpath;
1132         }
1133     }
1134
1135     # Analyzing log file of msimsp.exe, finding all changed files
1136     # and searching all destinations of unique file names.
1137     # Content in log file: "INFO File Key: <file key> is modified"
1138     # Collecting content in @installer::globals::patchfilecollector
1139
1140     for ( my $i = 0; $i <= $#{$logfilecontent}; $i++ )
1141     {
1142         if ( ${$logfilecontent}[$i] =~ /Key\:\s*(.*?) is modified\s*$/ )
1143         {
1144             my $filekey = $1;
1145             if ( exists($filehash{$filekey}) ) { $destinationcollector{$filehash{$filekey}} = 1; }
1146             else { installer::exiter::exit_program("ERROR: Could not find file key \"$filekey\" in file collector.", "analyze_msimsp_logfile"); }
1147         }
1148     }
1149
1150     foreach my $onedest ( sort keys %destinationcollector ) { push(@installer::globals::patchfilecollector, "$onedest\n"); }
1151
1152 }
1153
1154 ####################################################################
1155 # Creating msp patch files for Windows
1156 ####################################################################
1157
1158 sub create_msp_patch
1159 {
1160     my ($installationdir, $includepatharrayref, $allvariables, $languagestringref, $languagesarrayref, $filesarray) = @_;
1161
1162     my $force = 1; # print this message even in 'quiet' mode
1163     installer::logger::print_message( "\n******************************************\n" );
1164     installer::logger::print_message( "... creating msp installation set ...\n", $force );
1165     installer::logger::print_message( "******************************************\n" );
1166
1167     $installer::globals::creating_windows_installer_patch = 1;
1168
1169     my @needed_files = ("msimsp.exe");  # only required for patch creation process
1170     installer::control::check_needed_files_in_path(\@needed_files);
1171
1172     installer::logger::include_header_into_logfile("Creating msp installation sets:");
1173
1174     my $firstdir = $installationdir;
1175     installer::pathanalyzer::get_path_from_fullqualifiedname(\$firstdir);
1176
1177     my $lastdir = $installationdir;
1178     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$lastdir);
1179
1180     if ( $lastdir =~ /\./ ) { $lastdir =~ s/\./_msp_inprogress\./ }
1181     else { $lastdir = $lastdir . "_msp_inprogress"; }
1182
1183     # Removing existing directory "_native_packed_inprogress" and "_native_packed_witherror" and "_native_packed"
1184
1185     my $mspdir = $firstdir . $lastdir;
1186     if ( -d $mspdir ) { installer::systemactions::remove_complete_directory($mspdir); }
1187
1188     my $olddir = $mspdir;
1189     $olddir =~ s/_inprogress/_witherror/;
1190     if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
1191
1192     $olddir = $mspdir;
1193     $olddir =~ s/_inprogress//;
1194     if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
1195
1196     # Creating the new directory for new installation set
1197     installer::systemactions::create_directory($mspdir);
1198
1199     $installer::globals::saveinstalldir = $mspdir;
1200
1201     installer::logger::include_timestamp_into_logfile("\nPerformance Info: Starting product installation");
1202
1203     # Installing both installation sets
1204     installer::logger::print_message( "... installing products ...\n" );
1205     my ($olddatabase, $newdatabase) = install_installation_sets($installationdir);
1206
1207     installer::logger::include_timestamp_into_logfile("\nPerformance Info: Starting pcp file creation");
1208
1209     # Create pcp file
1210     installer::logger::print_message( "... creating pcp file ...\n" );
1211
1212     my $localmspdir = installer::systemactions::create_directories("msp", $languagestringref);
1213
1214     if ( ! $allvariables->{'PCPFILENAME'} ) { installer::exiter::exit_program("ERROR: Property \"PCPFILENAME\" has to be defined.", "create_msp_patch"); }
1215     my $pcpfilename = $allvariables->{'PCPFILENAME'};
1216
1217     if ( $installer::globals::languagepack ) { $pcpfilename =~ s/.pcp\s*$/languagepack.pcp/; }
1218
1219     # Searching the pcp file in the include pathes
1220     my $fullpcpfilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$pcpfilename, $includepatharrayref, 1);
1221     if ( $$fullpcpfilenameref eq "" ) { installer::exiter::exit_program("ERROR: pcp file not found: $pcpfilename !", "create_msp_patch"); }
1222     my $fullpcpfilenamesource = $$fullpcpfilenameref;
1223
1224     # Copying pcp file
1225     my $fullpcpfilename = $localmspdir . $installer::globals::separator . $pcpfilename;
1226     installer::systemactions::copy_one_file($fullpcpfilenamesource, $fullpcpfilename);
1227
1228     #  a. Extracting tables from msi database: msidb.exe -d <msifile> -f <directory> -e File Media, ...
1229     #  b. Changing content of msi database in tables: File, Media, Directory, FeatureComponent
1230     #  c. Including tables into msi database: msidb.exe -d <msifile> -f <directory> -i File Media, ...
1231
1232     # Unpacking tables from pcp file
1233     extract_all_tables_from_pcpfile($fullpcpfilename, $localmspdir);
1234
1235     # Tables, that need to be edited
1236     my $tablelist = "Properties TargetImages UpgradedImages ImageFamilies PatchMetadata PatchSequence"; # required tables
1237
1238     # Saving all tables
1239     check_and_save_tables($tablelist, $localmspdir);
1240
1241     # Setting the name of the new msp file
1242     my $mspfilename = set_mspfilename($allvariables, $mspdir, $languagesarrayref);
1243
1244     # Editing tables
1245     edit_tables($tablelist, $localmspdir, $olddatabase, $newdatabase, $mspfilename, $allvariables, $languagestringref);
1246
1247     # Adding edited tables into pcp file
1248     include_tables_into_pcpfile($fullpcpfilename, $localmspdir, $tablelist);
1249
1250     # Start msimsp.exe
1251     installer::logger::include_timestamp_into_logfile("\nPerformance Info: Starting msimsp.exe");
1252     my $msimsplogfile = execute_msimsp($fullpcpfilename, $mspfilename, $localmspdir);
1253
1254     # Copy final installation set next to msp file
1255     installer::logger::include_timestamp_into_logfile("\nPerformance Info: Copying installation set");
1256     installer::logger::print_message( "... copying installation set ...\n" );
1257
1258     my $oldinstallationsetpath = $installer::globals::updatedatabasepath;
1259
1260     if ( $^O =~ /cygwin/i ) { $oldinstallationsetpath =~ s/\\/\//g; }
1261
1262     installer::pathanalyzer::get_path_from_fullqualifiedname(\$oldinstallationsetpath);
1263     installer::systemactions::copy_complete_directory($oldinstallationsetpath, $mspdir);
1264
1265     # Copying additional patches into the installation set, if required
1266     if (( $allvariables->{'ADDITIONALREQUIREDPATCHES'} ) && ( $allvariables->{'ADDITIONALREQUIREDPATCHES'} ne "" ) && ( ! $installer::globals::languagepack ))
1267     {
1268         my $filename = $allvariables->{'ADDITIONALREQUIREDPATCHES'};
1269
1270         my $fullfilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 1);
1271         if ( $$fullfilenameref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file with required patches, although it is defined: $filename !", "create_msp_patch"); }
1272         my $fullfilename = $$fullfilenameref;
1273
1274         # Reading list file
1275         my $listfile = installer::files::read_file($fullfilename);
1276
1277         # Get name and path of reference database
1278         my $requiredpatchfile = get_requiredpatchfile_from_list($listfile, $languagestringref, $fullfilename);
1279         if ( $requiredpatchfile eq "" ) { installer::exiter::exit_program("ERROR: Could not find path to required patch in file $fullfilename for language(s) $$languagestringref!", "create_msp_patch"); }
1280
1281         # Copying patch file
1282         installer::systemactions::copy_one_file($requiredpatchfile, $mspdir);
1283         # my $infoline = "Copy $requiredpatchfile to $mspdir\n";
1284         # push( @installer::globals::logfileinfo, $infoline);
1285     }
1286
1287     # Find all files included into the patch
1288     # Analyzing the msimsp log file $msimsplogfile
1289     analyze_msimsp_logfile($msimsplogfile, $filesarray);
1290
1291     # Done
1292     installer::logger::include_timestamp_into_logfile("\nPerformance Info: msp creation done");
1293
1294     return $mspdir;
1295 }
1296
1297 1;