modules/installer/control.pm

19 package installer::control;
22 use installer::converter;
23 use installer::exiter;
24 use installer::files;
25 use installer::globals;
26 use installer::pathanalyzer;
27 use installer::scriptitems;
28 use installer::systemactions;
41         installer::logger::print_message( "... searching $onefile ..." );
43 …my $fileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$onefi…
48             installer::logger::print_error( "$onefile not found\n" );
52             installer::logger::print_message( "\tFound: $$fileref\n" );
58 …installer::exiter::exit_program("ERROR: Could not find all needed files in path!", "check_needed_f…
76     my $local_pathseparator = $installer::globals::pathseparator;
87 …my $patharrayref = installer::converter::convert_stringlist_into_array(\$pathvariable, $local_path…
89     $installer::globals::patharray = $patharrayref;
93     if (($installer::globals::iswin) && ($installer::globals::iswindowsbuild))
97     elsif ($installer::globals::iswin)
108         installer::logger::print_message( "... searching $onefile ..." );
110 …my $fileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic(\$onefi…
115             installer::logger::print_error( "$onefile not found\n" );
119             installer::logger::print_message( "\tFound: $$fileref\n" );
121             if ( $onefile eq "msitran.exe" ) { $installer::globals::msitranpath = $$fileref; }
127 …installer::exiter::exit_program("ERROR: Could not find all needed files in path!", "check_system_p…
132     if (( $installer::globals::call_epm ) && (!($installer::globals::iswindowsbuild)))
135 …my $fileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$onefile, $pat…
138             $installer::globals::epm_in_path = 1;
146             $installer::globals::epm_path = $$fileref;
171         push( @installer::globals::globallogfileinfo, $infoline);
176         push( @installer::globals::globallogfileinfo, $infoline);
190         push( @installer::globals::globallogfileinfo, $infoline);
205         push( @installer::globals::globallogfileinfo, $infoline);
224     my $infoline = "Tested version: " . $installer::globals::controlledmakecabversion . "\n";
225     push( @installer::globals::globallogfileinfo, $infoline);
231         if ( $makecabversion < $installer::globals::controlledmakecabversion )
233 …installer::exiter::exit_program("makecab.exe too old. Found version: \"$makecabversion\", required…
239         push( @installer::globals::globallogfileinfo, $infoline);
272             installer::logger::print_error( "$key not set in environment\n" );
279 …installer::exiter::exit_program("ERROR: Environment variable not set!", "check_system_environment"…
377     installer::logger::include_header_into_logfile("Summary:");
383         installer::logger::print_message( "$line", $force );
384         push( @installer::globals::logfileinfo, $line);
385         push( @installer::globals::errorlogfileinfo, $line);
400 …if ( ! -f $installer::globals::lcidlistname ) { installer::exiter::exit_program("ERROR: Did not fi…
402     my $infoline = "Found LCID file: $installer::globals::lcidlistname\n";
403     push(@installer::globals::globallogfileinfo, $infoline);
405     my $lcidlist = installer::files::read_file($installer::globals::lcidlistname);
425 …installer::exiter::exit_program("ERROR: Wrong syntax in Windows LCID list $installer::globals::lci…
428     $installer::globals::msilanguage = \%msilanguage;
449 …if (( $onefile->{'Name'} =~ /\.oxt\s*$/ ) && ( $onefile->{'Dir'} eq $installer::globals::extension…
451 …installer::exiter::exit_program("There is currently only for Linux (RPM) and Windows a reliable me…
465 …  if ( $allvariables->{'ADDSYSTEMINTEGRATION'} ) { $installer::globals::addsystemintegration = 1; }
467     if ( $installer::globals::languagepack ) { $installer::globals::addsystemintegration = 0; }
468     if ( $installer::globals::helppack ) { $installer::globals::addsystemintegration = 0; }
470 …my $infoline = "Value of \$installer::globals::addsystemintegration: $installer::globals::addsyste…
471     push( @installer::globals::globallogfileinfo, $infoline);