Lines Matching refs:installer
24 package installer::packagepool;
27 use installer::exiter;
28 use installer::globals;
29 use installer::logger;
30 use installer::pathanalyzer;
31 use installer::worker;
58 $installer::globals::sessionid = $pid . $timer;
59 $installer::globals::sessionidset = 1;
60 $installer::logger::Lang->print("\n");
61 $installer::logger::Lang->print("Pool: Setting session id: $installer::globals::sessionid.\n");
70 …$installer::globals::unpackpath =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending s…
71 …$installer::globals::poolpath = $installer::globals::unpackpath . $installer::globals::separator .…
72 installer::systemactions::create_directory($installer::globals::poolpath);
73 $installer::globals::poolpathset = 1;
107 $installer::logger::Info->print("\n");
108 $installer::logger::Info->print("...... changed length of EPM file\n");
110 push(@installer::globals::epmdifflist, $diffinfo);
123 $installer::logger::Info->print("\n");
124 $installer::logger::Info->print("...... different content in EPM file\n");
126 push(@installer::globals::epmdifflist, $diffinfo);
155 $installer::logger::Info->print("\n");
156 …$installer::logger::Info->printf("...... different number of files in packages. New number: %s, ol…
158 push(@installer::globals::pcfdiffcomment, $infoline);
171 $installer::logger::Info->print("\n") if $first;
172 … $installer::logger::Info->printf("...... file only in one package (A): %s\n", $dest);
174 push(@installer::globals::pcfdiffcomment, $infoline);
187 $installer::logger::Info->print("\n") if $first;
188 … $installer::logger::Info->printf("...... file only in one package (B): %s\n", $dest);
190 push(@installer::globals::pcfdiffcomment, $infoline);
210 $installer::logger::Info->print("\n");
213 $installer::globals::pcfdifflist{$dest} = 1;
214 $installer::logger::Info->printf("...... different file: %s\n", $dest);
218 if ( $installer::globals::iswindowsbuild )
223 $installer::globals::pcfdifflist{$dest} = 1;
224 $installer::logger::Info->print("\n");
225 $installer::logger::Info->printf("...... different file: %s", $dest);
243 $installer::logger::Lang->print("\n");
244 …$installer::logger::Lang->add_timestamp("Calculating content for package content file ($packagenam…
253 …if ( ! $onefile->{'sourcepath'} ) { installer::exiter::exit_program("ERROR: No sourcepath found fo…
256 …if ( ! -f $source ) { installer::exiter::exit_program("ERROR: Sourcefile not found: $source ($onef…
260 if ( $installer::globals::iswindowsbuild ) { $uniquename = $onefile->{'uniquename'};}
268 …if ( exists($globalcontent{$destination}) ) { installer::exiter::exit_program("ERROR: Destination …
272 $installer::logger::Lang->print("\n");
273 …$installer::logger::Lang->add_timestamp("Calculating content for package content file ($packagenam…
302 foreach my $dest (keys %{$installer::globals::newpcfcontent} )
304 …$oneline = "Files:\t$dest\t$installer::globals::newpcfcontent->{$dest}->{'md5sum'}\t$installer::gl…
317 installer::files::save_file($pcffilename, \@content);
332 my $content = installer::files::read_file($pcffilename);
341 $installer::globals::xpdpackageinfo{'RealPackageName'} = $realpackagename;
347 $installer::globals::xpdpackageinfo{'FullPackageName'} = $1;
353 $installer::globals::xpdpackageinfo{'FileSize'} = $1;
359 $installer::globals::xpdpackageinfo{'PkgVersion'} = $1;
365 $installer::globals::xpdpackageinfo{'md5sum'} = $1;
391 …if ( $realpackagename eq "" ) { installer::exiter::exit_program("ERROR: Real package name not foun…
407 …my $checkfilename = $installer::globals::poolpath . $installer::globals::separator . $packagename …
408 …my $lockfilename = $installer::globals::poolpath . $installer::globals::separator . $packagename .…
425 my $timeage = installer::logger::get_file_age($lockfilename);
430 my $timestring = installer::logger::convert_timestring($timeage);
432 $installer::logger::Info->print("\n");
433 $installer::logger::Info->printf("... %s", $infoline);
434 $installer::logger::Lang->print("\n");
435 $installer::logger::Lang->print($infoline);
441 my $filecontent = installer::files::read_file($lockfilename);
443 $waittime = installer::logger::convert_timestring($waittime);
445 $installer::logger::Info->print("\n");
446 $installer::logger::Info->printf("... %s", $infoline);
447 $installer::logger::Lang->print("\n");
448 $installer::logger::Lang->print($infoline);
469 $installer::logger::Lang->print("\n");
470 $installer::logger::Lang->printf(
472 $installer::globals::savelockfilename,
473 $installer::globals::sessionid);
474 $installer::logger::Lang->print("Content of Lock file:\n");
475 foreach my $line ( @{$installer::globals::savelockfilecontent} )
477 $installer::logger::Lang->print($line);
482 $installer::logger::Lang->print("\n");
483 $installer::logger::Lang->printf(
485 $installer::globals::savelockfilename,
486 $installer::globals::sessionid);
502 $installer::globals::savelockfilecontent = installer::files::read_file($filename);
503 $installer::globals::savelockfilename = $filename;
505 …if ( ${$installer::globals::savelockfilecontent}[0] =~ /^\s*\Q$installer::globals::sessionid\E\s+/…
519 … $installer::logger::Lang->printf("Pool problem: Removing package \"%s\" from installation set!\n",
523 …if ( -d $newpackagepath ) { installer::systemactions::remove_complete_directory($newpackagepath, 1…
526 pop(@installer::globals::installsetcontent);
538 $installer::logger::Info->printf("... checking pool package ...\n", $packagename);
540 installer::logger::include_header_into_logfile("Checking package in pool: $packagename");
542 if ( ! $installer::globals::poolpathset ) { installer::packagepool::set_pool_path(); }
543 if ( ! $installer::globals::sessionidset ) { installer::packagepool::set_sessionid(); }
552 $installer::globals::newpcfcontentcalculated = 0;
553 %installer::globals::pcfdifflist = ();
554 @installer::globals::pcfdiffcomment = ();
555 @installer::globals::epmdifflist = ();
558 …my $filename = $installer::globals::poolpath . $installer::globals::separator . $packagename . ".p…
559 …my $checkfilename = $installer::globals::poolpath . $installer::globals::separator . $packagename …
560 …my $lockfilename = $installer::globals::poolpath . $installer::globals::separator . $packagename .…
562 $installer::globals::poolcheckfilename = $checkfilename;
563 $installer::globals::poollockfilename = $lockfilename;
565 …my @checkfilecontent = ("$installer::globals::sessionid $installer::globals::product $$languagestr…
566 …my @lockfilecontent = ("$installer::globals::sessionid $installer::globals::product $$languagestri…
576 if (( $timecounter == 1 ) && ( ! exists($installer::globals::poolshiftedpackages{$packagename}) ))
585 $installer::logger::Info->print("\n");
587 $installer::logger::Info->printf("... %s", $infoline);
588 $installer::logger::Lang->print($infoline);
595 …installer::files::save_file($checkfilename, \@checkfilecontent); # Creating the Lock, to check thi…
596 $installer::globals::processhaspoolcheckfile = 1;
602 $installer::logger::Lang->print($infoline);
611 $installer::logger::Lang->print($infoline);
618 $installer::logger::Lang->print($infoline);
621 $installer::logger::Info->printf("... %s", $infoline);
633 $installer::logger::Info->print("\n");
635 $installer::logger::Info->printf("... %s", $infoline);
636 $installer::logger::Lang->print($infoline);
645 $installer::logger::Info->printf("... Pool: Proceeding, %s was removed.\n", $lockfilename);
653 $installer::globals::newpcfcontent = calculate_current_content($filesinpackage, $packagename);
654 $installer::globals::newpcfcontentcalculated = 1;
660 …my $fullpackage = $installer::globals::poolpath . $installer::globals::separator . $realpackagenam…
661 if ( $installer::globals::issolarisbuild ) { $fullpackage = $fullpackage . ".tar"; }
666 …my $content_is_identical = compare_package_content($oldpcfcontent, $installer::globals::newpcfcont…
669 if (( $content_is_identical ) && ( ! $installer::globals::iswindowsbuild ))
681 $installer::logger::Lang->print($infoline);
682 $installer::logger::Info->printf("... using package from pool\n");
689 $installer::logger::Lang->print($infoline);
690 foreach my $dest ( sort keys %installer::globals::pcfdifflist )
692 $installer::logger::Lang->printf("%s\n", $dest);
694 foreach my $dest ( @installer::globals::pcfdiffcomment )
696 $installer::logger::Lang->printf("%s\n", $dest);
698 foreach my $dest ( @installer::globals::epmdifflist )
700 $installer::logger::Lang->printf("%s\n", $dest);
706 $installer::logger::Lang->print($infoline);
709 $installer::logger::Info->printf("... packaging required\n");
710 …%installer::globals::xpdpackageinfo = (); # reset the filled hash, because the package cannot be u…
713 …installer::files::save_file($lockfilename, \@lockfilecontent); # Creating the Lock, to create thi…
714 $installer::globals::processhaspoollockfile = 1;
721 $installer::logger::Lang->print($infoline);
730 $installer::logger::Lang->print($infoline);
737 $installer::logger::Lang->print($infoline);
750 $installer::logger::Lang->print($infoline);
759 $installer::logger::Lang->print($infoline);
774 $installer::logger::Lang->print($infoline);
787 $installer::logger::Lang->print($infoline);
800 $installer::globals::processhaspoolcheckfile = 0;
802 $installer::logger::Lang->print($infoline);
806 if ( $installer::globals::processhaspoollockfile )
811 $installer::logger::Lang->print($infoline);
820 $installer::logger::Lang->print($infoline);
828 if ( $package_is_up_to_date == 1 ) { $installer::globals::poolpackages{$packagename} = 1; }
836 …foreach my $dest ( sort keys %installer::globals::pcfdifflist ) { push( @packreasons, "\t\t$dest\n…
837 foreach my $dest ( @installer::globals::pcfdiffcomment ) { push( @packreasons, "\t\t$dest"); }
838 foreach my $dest ( @installer::globals::epmdifflist ) { push( @packreasons, "\t\t$dest"); }
846 $installer::globals::createpackages{$packagename} = \@packreasons;
860 …my ($newcontent, $allcontent) = installer::systemactions::find_new_content_in_directory($dir, \@in…
861 @installer::globals::installsetcontent = ();
862 foreach my $element ( @{$allcontent} ) { push(@installer::globals::installsetcontent, $element); }
869 …installer::exiter::exit_program("ERROR: More than one new package in directory $dir ($newpackages)…
873 …installer::exiter::exit_program("ERROR: No new package in directory $dir", "determine_new_packagen…
890 my $fullinstalldir = $installdir . $installer::globals::separator . $subdir;
893 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$realpackagename);
895 …installer::logger::include_header_into_logfile("Adding content into the package pool: $realpackage…
898 if ( ! $installer::globals::newpcfcontentcalculated )
900 $installer::globals::newpcfcontent = calculate_current_content($filesinpackage, $packagename);
901 $installer::globals::newpcfcontentcalculated = 1;
905 my $md5sum = installer::xpdinstaller::get_md5_value($fullrealpackagename);
906 my $filesize = installer::xpdinstaller::get_size_value($fullrealpackagename);
907 my $fullpackagename = installer::xpdinstaller::get_fullpkgname_value($fullrealpackagename);
908 my $pkgversion = installer::xpdinstaller::get_pkgversion_value($fullrealpackagename);
911 …my $pcffilename = $installer::globals::poolpath . $installer::globals::separator . $packagename . …
915 $installer::globals::xpdpackageinfo{'FileSize'} = $filesize;
916 $installer::globals::xpdpackageinfo{'FullPackageName'} = $fullpackagename;
917 $installer::globals::xpdpackageinfo{'md5sum'} = $md5sum;
918 $installer::globals::xpdpackageinfo{'RealPackageName'} = $realpackagename;
919 $installer::globals::xpdpackageinfo{'PkgVersion'} = $pkgversion;
923 $installer::logger::Lang->print($infoline);
930 …$realdestination = $installer::globals::poolpath . $installer::globals::separator . $realpackagena…
931 $uniquedestination = $realdestination . "." . $installer::globals::sessionid;
932 installer::systemactions::copy_one_file($fullrealpackagename, $uniquedestination);
939 my $fulltarfilename = $fullinstalldir . $installer::globals::separator . $tarfilename;
940 …my $size = installer::worker::tar_package($fullinstalldir, $packagename, $tarfilename, $installer:…
941 …if (( ! -f $fulltarfilename ) || ( ! ( $size > 0 ))) { installer::exiter::exit_program("ERROR: Mis…
942 $realdestination = $installer::globals::poolpath . $installer::globals::separator . $tarfilename;
943 $uniquedestination = $realdestination . "." . $installer::globals::sessionid;
944 installer::systemactions::copy_one_file($fulltarfilename, $uniquedestination);
950 if ( ! -f $installer::globals::poollockfilename )
954 …installer::exiter::exit_program("ERROR: Pool lock file \"$installer::globals::poollockfilename\" w…
957 if ( ! process_is_owner($installer::globals::poollockfilename) )
961 …installer::exiter::exit_program("ERROR: Pool lock file \"$installer::globals::poollockfilename\" b…
968 $installer::logger::Lang->print($infoline);
972 if ( ! -f $installer::globals::poollockfilename )
975 …installer::exiter::exit_program("ERROR: Pool lock file \"$installer::globals::poollockfilename\" w…
978 if ( ! process_is_owner($installer::globals::poollockfilename) )
981 …installer::exiter::exit_program("ERROR: Pool lock file \"$installer::globals::poollockfilename\" b…
985 unlink $installer::globals::poollockfilename;
986 $installer::globals::processhaspoollockfile = 0;
987 $infoline = "Pool: Removing file: $installer::globals::poollockfilename\n";
988 $installer::logger::Lang->print($infoline);
1000 $installer::logger::Lang->print($infoline);
1001 my $sourcefile = $installer::globals::poolpath . $installer::globals::separator . $packagename;
1002 if ( $installer::globals::issolarisbuild ) { $sourcefile = $sourcefile . ".tar"; }
1003 …if ( ! -f $sourcefile ) { installer::exiter::exit_program("ERROR: Missing package in package pool:…
1004 my $destination = $installdir . $installer::globals::separator . $subdir;
1005 if ( ! -d $destination ) { installer::systemactions::create_directory($destination); }
1006 my $destinationfile = $destination . $installer::globals::separator . $packagename;
1007 if ( $installer::globals::issolarisbuild ) { $destinationfile = $destinationfile . ".tar"; }
1008 if ( -f $sourcefile ) { installer::systemactions::copy_one_file($sourcefile, $destinationfile); }
1010 if ( $installer::globals::issolarisbuild )
1013 installer::worker::untar_package($destination, $tarfilename, $installer::globals::getuidpath);
1019 push(@installer::globals::installsetcontent, $destinationfile);
1045 installer::logger::include_header_into_logfile("Pool statistics:");
1051 my $pool_packages = get_count(\%installer::globals::poolpackages);
1052 my $created_packages = get_count(\%installer::globals::createpackages);
1055 $installer::logger::Lang->print($infoline);
1057 foreach my $packagename ( sort keys(%installer::globals::poolpackages) )
1060 $installer::logger::Lang->print($infoline);
1063 $installer::logger::Lang->print("\n");
1064 $installer::logger::Lang->print("Number of packages that were created: %s\n", $created_packages);
1066 foreach my $packagename ( sort keys(%installer::globals::createpackages) )
1069 $installer::logger::Lang->print($infoline);
1070 my $reason = $installer::globals::createpackages{$packagename};
1074 $installer::logger::Lang->print($line);