installer/windows/admin.pm

19 package installer::windows::admin;
22 use installer::exiter;
23 use installer::files;
24 use installer::globals;
25 use installer::pathanalyzer;
26 use installer::systemactions;
27 use installer::worker;
28 use installer::windows::idtglobal;
39     push( @installer::globals::logfileinfo, $infoline);
54     my $expandlogfile = $unpackdir . $installer::globals::separator . "expand.log";
74     push( @installer::globals::logfileinfo, $infoline);
79         push( @installer::globals::logfileinfo, $infoline);
80 …installer::exiter::exit_program("ERROR: Could not extract cabinet file: $mergemodulehash->{'cabine…
85         push( @installer::globals::logfileinfo, $infoline);
111         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$msifilename);
112         my $destdatabasename = $workdir . $installer::globals::separator . $msifilename;
113         installer::systemactions::copy_one_file($localfullmsidatabasepath, $destdatabasename);
132     push( @installer::globals::logfileinfo, $infoline);
137         push( @installer::globals::logfileinfo, $infoline);
138 …installer::exiter::exit_program("ERROR: Could not exclude tables from pcp file: $localfullmsidatab…
143         push( @installer::globals::logfileinfo, $infoline);
261             my $newdir = $fulldir . $installer::globals::separator . $dirname;
307 …if ( ! exists($filehash->{$file}->{'Component'}) ) { installer::exiter::exit_program("ERROR: Did n…
309 …if ( ! exists($componenthash->{$component}) ) { installer::exiter::exit_program("ERROR: Did not fi…
311 …if ( ! exists($fullpathhash->{$dirname}) ) { installer::exiter::exit_program("ERROR: Did not find …
313 …if ( ! exists($filehash->{$file}->{'FileName'}) ) { installer::exiter::exit_program("ERROR: Did no…
316             $destfile = $destdir . $installer::globals::separator . $destfile;
317             my $sourcefile = $unpackdir . $installer::globals::separator . $file;
327 …->{'DefaultDir'}) ) { $subdir = $dirhash->{$dirname}->{'DefaultDir'} . $installer::globals::separa…
334 …         $sourcefile = $localinstalldir . $installer::globals::separator . $subdir . $realfilename;
338 …installer::exiter::exit_program("ERROR: File not found: \"$oldsourcefile\" (or \"$sourcefile\").",…
348                 push(@installer::globals::logfileinfo, $infoline);
349                 installer::exiter::exit_program($infoline, "copy_files_into_directory_structure");
396 …if ( ! -f $msidatabase ) { installer::exiter::exit_program("ERROR: Cannot find file $msidatabase",…
422     push(@installer::globals::logfileinfo, $systemcall);
428         push(@installer::globals::logfileinfo, $infoline);
429         installer::exiter::exit_program($infoline, "write_sis_info");
443 …  installer::logger::print_message( "... installing $databasepath in directory $targetdir ...\n" );
445     my $helperdir = $targetdir . $installer::globals::separator . "installhelper";
446     installer::systemactions::create_directory($helperdir);
458     installer::pathanalyzer::get_path_from_fullqualifiedname(\$installdir);
463     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$databasefilename);
465     my $cabfiles = installer::systemactions::find_file_with_file_extension("cab", $installdir);
467 …if ( $#{$cabfiles} < 0 ) { installer::exiter::exit_program("ERROR: Did not find any cab file in di…
470     my $unpackdir = $helperdir . $installer::globals::separator . "unpack";
471     installer::systemactions::create_directory($unpackdir);
482             $cabfile = $installdir . $installer::globals::separator . ${$cabfiles}[$i];
488     my $filename = $helperdir . $installer::globals::separator . "Directory.idt";
489     my $filecontent = installer::files::read_file($filename);
492     $filename = $helperdir . $installer::globals::separator . "Component.idt";
493     my $componentfilecontent = installer::files::read_file($filename);
496     $filename = $helperdir . $installer::globals::separator . "File.idt";
497     $filecontent = installer::files::read_file($filename);
506     my $msidatabase = $targetdir . $installer::globals::separator . $databasefilename;
507     installer::systemactions::copy_one_file($databasepath, $msidatabase);