installer/windows/update.pm

19 package installer::windows::update;
21 use installer::converter;
22 use installer::exiter;
23 use installer::files;
24 use installer::globals;
25 use installer::pathanalyzer;
26 use installer::systemactions;
58     push( @installer::globals::logfileinfo, $infoline);
63         push( @installer::globals::logfileinfo, $infoline);
64 …installer::exiter::exit_program("ERROR: Could not exclude tables from msi database: $fulldatabasep…
69         push( @installer::globals::logfileinfo, $infoline);
177     my $allidtfiles = installer::systemactions::find_file_with_file_extension($ext, $workdir);
182         my $longonefilename = $workdir . $installer::globals::separator . $onefilename;
183 …if ( ! -f $longonefilename ) { installer::exiter::exit_program("ERROR: Could not find idt file: $l…
184         my $filecontent = installer::files::read_file($longonefilename);
213     my $localproduct = $installer::globals::product;
214     if ( $installer::globals::languagepack ) { $localproduct = $localproduct . "LanguagePack"; }
215     elsif ( $installer::globals::helppack ) { $localproduct = $localproduct . "HelpPack"; }
223 …if ((( $pro eq "pro" ) && ( $installer::globals::pro )) || (( $pro eq "nonpro" ) && ( ! $installer…
227             my $langlisthash = installer::converter::convert_stringlist_into_hash(\$langs, ",");
228 …  my $langstringhash = installer::converter::convert_stringlist_into_hash($languagestringref, "_");
282 …if (( $pro ne "pro" ) && ( $pro ne "nonpro" )) { installer::exiter::exit_program("ERROR: Wrong syn…
292 …installer::exiter::exit_program("ERROR: Wrong syntax in file: $filename! Line: \"$line\"", "get_da…
310 …if ( ! $allvariables->{'UPDATE_DATABASE_LISTNAME'} ) { installer::exiter::exit_program("ERROR: If …
314 …my $listname = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$listfilename…
315 …if ( $$listname eq "" ) { installer::exiter::exit_program("ERROR: List file not found: $listfilena…
319     my $listfile = installer::files::read_file($completelistname);
327         $installer::globals::updatedatabase = 1;
328 …      installer::logger::print_message( "... update process, using database $databasename ...\n" );
331         $installer::globals::updatedatabasepath = $databasename;
337     push( @installer::globals::logfileinfo, $infoline);
339     if ( $installer::globals::updatedatabase )
341 …if ( ! -f $databasename ) { installer::exiter::exit_program("ERROR: Could not find reference datab…
344         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$msifilename);
346         installer::logger::include_timestamp_into_logfile("Performance Info: readdatabase start");
349 …    my $databasedir = installer::systemactions::create_directories("database", $languagestringref);
352         my $fulldatabasepath = $databasedir . $installer::globals::separator . $msifilename;
353         installer::systemactions::copy_one_file($databasename, $fulldatabasepath);
355 …installer::logger::include_timestamp_into_logfile("Performance Info: readdatabase: before extracti…
360 …installer::logger::include_timestamp_into_logfile("Performance Info: readdatabase: before reading …
406         installer::logger::include_timestamp_into_logfile("Performance Info: readdatabase end");
427             $installer::globals::merge_directory_hash{$1} = 1;
432 …installer::exiter::exit_program("ERROR: Unknown line format in table \"$idtfilename\" (line $linec…
445     installer::logger::include_timestamp_into_logfile("Performance Info: readmergedatabase start");
447 …my $mergemoduledir = installer::systemactions::create_directories("mergedatabase", $languagestring…
456 …if ( ! -f $mergefile ) { installer::exiter::exit_program("ERROR: msm file not found: $filename !",…
460         my $workdir = $mergemoduledir . $installer::globals::separator . $mergegid;
461         if ( ! -d $workdir ) { installer::systemactions::create_directory($workdir); }
463         my $completedest = $workdir . $installer::globals::separator . $filename;
464         installer::systemactions::copy_one_file($completesource, $completedest);
465 …if ( ! -f $completedest ) { installer::exiter::exit_program("ERROR: msm file not found: $completed…
484             $installer::globals::mergemodulefiles{$filetable->{$linenumber}->{'File'}} = 1;
488     installer::logger::include_timestamp_into_logfile("Performance Info: readmergedatabase end");
535 …if ( exists($uniquefilename{$key}) ) { installer::exiter::exit_program("ERROR: Component/FileName …
601     $installer::globals::updatelastsequence = 0;
611 …if ( $lastsequence > $installer::globals::updatelastsequence ) { $installer::globals::updatelastse…
614     $installer::globals::updatesequencecounter = $installer::globals::updatelastsequence;