modules/installer/javainstaller.pm

23 package installer::javainstaller;
26 use installer::exiter;
27 use installer::files;
28 use installer::globals;
29 use installer::languages;
30 use installer::pathanalyzer;
31 use installer::scriptitems;
32 use installer::systemactions;
33 use installer::worker;
34 use installer::logger;
165 	$installer::logger::Lang->print("\n");
166 …$installer::logger::Lang->print("Setting product name and product version in Java template file\n"…
178 	$installer::logger::Lang->print($infoline);
189 	$installer::logger::Lang->print("\n");
190 	$installer::logger::Lang->print("Setting component names and description in Java template file\n");
207 			$installer::logger::Lang->print($infoline);
218 			$installer::logger::Lang->print($infoline);
225 	$installer::logger::Lang->print($infoline);
275 …my $licenseref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$licensefil…
276 …if ($$licenseref eq "") { installer::exiter::exit_program("ERROR: Could not find License file $lic…
279 	$installer::logger::Lang->print($infoline);
293 	my $licensedir = $javadir . $installer::globals::separator . "license";
294 	installer::systemactions::create_directory($licensedir);
298 	my $licensefilename = $licensedir . $installer::globals::separator . "licensefile.txt";
299 	installer::files::save_file($licensefilename, $licensefile);
303 	$licensefilename = $licensedir . $installer::globals::separator . "licensefile.ulf";
325 	installer::files::save_file($licensefilename, \@licensearray);
333 …my $converterref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$converte…
334 …if ($$converterref eq "") { installer::exiter::exit_program("ERROR: Could not find converter $conv…
337 	$installer::logger::Lang->print($infoline);
344 	$licensefilename = $licensedir . $installer::globals::separator . "licensefile.jlf";
345 	installer::files::save_file($licensefilename, \@licensearray);
360 	$installer::logger::Lang->print($infoline);
365 		$installer::logger::Lang->print($infoline);
405     $installer::logger::Info->printf("... %s ...\n", $systemcall);
414 	$installer::logger::Lang->print($infoline);
420             $installer::logger::Lang->printf($line);
427 		$installer::logger::Lang->print($infoline);
433 		$installer::logger::Lang->print($infoline);
453 …else { installer::exiter::exit_program("ERROR: Environment variable \"SOLARVERSION\" not set!", "s…
456 …else { installer::exiter::exit_program("ERROR: Environment variable \"INPATH\" not set!", "set_cla…
460 …$installsdk = $solarVersion .  $installer::globals::separator . $inPath . $installer::globals::sep…
461 	$installsdk = $installsdk . $installer::globals::separator . "javainstaller";
492 	$installer::logger::Lang->print($infoline);
582 	if ( $installer::globals::issolarispkgbuild )
587 	elsif ( $installer::globals::islinuxrpmbuild )
625 				$installer::logger::Lang->print($infoline);
636 		$installer::logger::Lang->print($infoline);
641 		$installer::logger::Lang->print($infoline);
749 	if ( $installer::globals::issolarispkgbuild )
754 	elsif ( $installer::globals::islinuxrpmbuild )
846 	for ( my $i = 0; $i <= $#installer::globals::emptypackages; $i++ )
848 		my $packagename = $installer::globals::emptypackages[$i];
850 		$installer::logger::Lang->print($infoline);
883 	$installer::logger::Lang->print($infoline);
909 …if ( ! $foundrpm ) { installer::exiter::exit_program("ERROR: Did not find rpmunit $rpmname in xml …
912 	$installer::logger::Lang->print($infoline);
947 		$installer::logger::Lang->print($infoline);
1039 		$installer::logger::Lang->print($infoline);
1044 		$installer::logger::Lang->print($infoline);
1058 	$installer::logger::Lang->print($infoline);
1072 		$installer::logger::Lang->print($infoline);
1085 	if ( $installer::globals::issolarispkgbuild )
1094 				installer::systemactions::create_directory_structure($path);
1104 				if ( $path ne "" ) { $pkgname = $path . $installer::globals::separator . $pkgname; }
1105 				installer::systemactions::create_directory_structure($pkgname);
1112 	if ( $installer::globals::islinuxrpmbuild )
1126 				if ( $path ne "" ) { installer::systemactions::create_directory_structure($path); }
1165 …my $loadernameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$loadern…
1167 …if ($$loadernameref eq "") { installer::exiter::exit_program("ERROR: Could not find Java loader $l…
1169 	installer::systemactions::copy_one_file($$loadernameref, $newname);
1183 	my $installname = $installdir . $installer::globals::separator . $filename;
1185 	installer::systemactions::copy_one_file($filename, $installname);
1211 		my $javafile = installer::files::read_file($javafilename);
1228 		installer::files::save_file($javafilename, $javafile);
1230 		$installer::logger::Lang->print($infoline);
1283 	installer::pathanalyzer::get_path_from_fullqualifiedname(\$javafilesdir);
1284 	my $alljavafiles = installer::systemactions::find_file_with_file_extension("java", $javafilesdir);
1310 				$installer::logger::Lang->print($infoline);
1323 				$installer::logger::Lang->print($infoline);
1332 				$installer::logger::Lang->print($infoline);
1351 	$installdir =~ s/\Q$installer::globals::separator\E\s*$//;
1352 	my $directory = $installdir . $installer::globals::separator . $subdir;
1353 	$directory =~ s/\Q$installer::globals::separator\E\s*$//;
1355 	if ( $installer::globals::islinuxrpmbuild )
1357 		$allrpms = installer::systemactions::find_file_with_file_extension("rpm", $directory);
1363 			${$allrpms}[$i] = $directory . $installer::globals::separator . ${$allrpms}[$i];
1365 			$installer::logger::Lang->print($infoline);
1422 					$installer::logger::Lang->print($infoline);
1436 		$installer::logger::Lang->print($infoline);
1442 		$installer::logger::Lang->print($infoline);
1492 		installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$rpmname);
1503 		$installer::logger::Lang->print($infoline);
1506 		$installer::logger::Lang->print($allrpmstring);
1507 …installer::exiter::exit_program("ERROR: Found $number RPMs that start with unique name \"$uniquena…
1513 		$installer::logger::Lang->print($infoline);
1514 …installer::exiter::exit_program("ERROR: There is no RPM that start with unique name \"$uniquename\…
1520 		$installer::logger::Lang->print($infoline);
1555 					$installer::logger::Lang->print($infoline);
1569 		$installer::logger::Lang->print($infoline);
1575 		$installer::logger::Lang->print($infoline);
1596 	$installer::logger::Lang->print($infoline);
1599 	$installer::logger::Lang->print($infoline);
1601 	$installer::logger::Lang->print("Packages in installation set:\n");
1604 		$installer::logger::Lang->print(${$listofpackages}[$i] . "\n");
1607 	$installer::logger::Lang->print("\n");
1608 	$installer::logger::Lang->print("Unique RPM names in xml file:\n");
1612 		$installer::logger::Lang->print($infoline);
1615 …if ( $#{$alluniquenames} != $#{$listofpackages} ) { installer::exiter::exit_program("ERROR: xml fi…
1640 		installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$rpmname);
1642 …if ( ! $installer::globals::rpmquerycommand ) { installer::exiter::exit_program("ERROR: rpm not fo…
1643 …my $systemcall = "$installer::globals::rpmquerycommand -qp --queryformat \"\[\%\{FILESIZES\}\\n\]\…
1648 		$installer::logger::Lang->print($infoline);
1662 	installer::logger::include_header_into_logfile("Creating Java installer:");
1670 	my $javadir = installer::systemactions::create_directories("javainstaller", $languagestringref);
1678 …else { installer::exiter::exit_program("ERROR: Environment variable PRJ not set", "create_java_ins…
1682 	installer::systemactions::copy_complete_directory_without_cvs($sourcedir, $javadir);
1686 …my $templatefilename = $javadir . $installer::globals::separator . "locale/resources/MyResources_t…
1690 	my $javatemplateorigfile = installer::files::read_file($templatefilename);
1696 …$ulffilename = $installer::globals::javalanguagepath . $installer::globals::separator . $ulffilena…
1697 	my $ulffile = installer::files::read_file($ulffilename);
1699 	$installer::logger::Lang->print("\n");
1700 	$installer::logger::Lang->print("Reading ulf file: $ulffilename\n");
1703 	$installer::logger::Lang->print($infoline);
1711 		my $templatefile = installer::files::read_file($templatefilename);
1719 		my $licensefile = installer::files::read_file($licensefilesource);
1739 		installer::files::save_file($newfilename, $templatefile);
1742 		$installer::logger::Lang->print($infoline);
1747 	my $baselanguage = installer::languages::get_default_language($languagesarrayref);
1752 …my $baselanguagefilename = $javadir . $installer::globals::separator . "locale/resources/MyResourc…
1753 …my $basedestfilename = $javadir . $installer::globals::separator . "locale/resources/MyResources.j…
1754 	installer::systemactions::copy_one_file($baselanguagefilename, $basedestfilename);
1758 	my $basetemplatefile = installer::files::read_file($basedestfilename);
1760 	installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$oldclassfilename);
1763 	installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$newclassfilename);
1768 	installer::files::save_file($basedestfilename, $basetemplatefile);
1771 	$installer::logger::Lang->print($infoline);
1778 	$installer::logger::Lang->print($infoline);
1787 	$installer::logger::Lang->print($infoline);
1794 	if ( $installer::globals::issolarispkgbuild )
1798 	elsif ( $installer::globals::islinuxrpmbuild )
1804 		installer::exiter::exit_program("ERROR: No platform for Install SDK", "create_java_installer");
1809 	my $xmlfile = installer::files::read_file($xmlfilename);
1812 	installer::files::save_file($xmlfilename2, $xmlfile);
1815 	installer::files::save_file($xmlfilename3, $xmlfile);
1817 …if (( $installer::globals::islinuxrpmbuild ) && ( $#installer::globals::linkrpms > -1 )) { prepare…
1818 …if ( $installer::globals::issolarisx86build || $installer::globals::islinuxbuild ) { remove_w4w_fr…
1822 	installer::files::save_file($xmlfilename4, $xmlfile);
1823 …if ( $installer::globals::islinuxrpmbuild ) { put_rpmpath_into_xmlfile($xmlfile, $listofpackages);…
1824 …if ( $installer::globals::islinuxrpmbuild ) { put_filesize_into_xmlfile($xmlfile, $listofpackages)…
1825 	installer::files::save_file($xmlfilename, $xmlfile);
1827 	$installer::logger::Lang->print($infoline);
1840 	if ( $jdkpath ) { $javac = $jdkpath . $installer::globals::separator . $javac; }
1859 	if ( $jdkpath ) { $java = $jdkpath . $installer::globals::separator . $java; }
1869 …if ( ! -f $archivefilename ) { installer::exiter::exit_program("ERROR: Could not find Java class f…
1871 	installer::systemactions::copy_one_file($archivefilename, $installdir);
1879 	$installer::logger::Lang->print($infoline);