+required packages

+libxml2 upgrade note

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index dfbe40b..995305e 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -84,9 +84,8 @@ my %pkg=(
                3=>[qw(captive)],
                );
 my %reqpkg=(
-               1=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt          libgnomeui)],
-               2=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt)],
-               3=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline)],
+               1 =>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline libgnomeui)],
+               23=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline)],
                );
 my %version=(
                map(($_=>["0.9.7","0"]),qw(captive captive-lufs captive-install)),
@@ -125,6 +124,8 @@ my($file_base,$text,%args)=@_;
        return a_href $file_base,$text,"size"=>($case==1),%args;
 };
 
+my @libxml2_rh8_pkgs=qw(libxml2-2.5.4-1.i386.rpm libxml2-python-2.5.4-1.i386.rpm libxml2-devel-2.5.4-1.i386.rpm);
+
 my @dist=(
                {
                        "name"=>"Red Hat 9<br />Shrike i386",
@@ -138,7 +139,8 @@ my @dist=(
                                },
                        },
                {
-                       "name"=>"Red Hat 8<br />Psyche i386",
+                       "name"=>"Red Hat 8<br />Psyche i386<br />"
+                                       ."(".a_href("#libxml2_rh8","libxml2 upgrade note").")",
                        "out"=>sub {
                                my($pkg,$version_base,$version_ext)=@_;
                                        my $file="$pkg-$version_base-$version_ext".(!$has_rh8{$pkg} ? "" : "rh8").".i386.rpm";
@@ -146,7 +148,7 @@ my @dist=(
                                        (my $filedev=$file)=~s/^\Q$pkg\E-/${pkg}-devel-/;
                                        $r.="<br />".&$a_href_arch("dist/$filedev",$filedev) if $has_devel{$pkg};
                                        if ($pkg eq "captive-install") {
-                                               for (qw(libxml2-2.5.4-1.i386.rpm libxml2-python-2.5.4-1.i386.rpm libxml2-devel-2.5.4-1.i386.rpm)) {
+                                               for (@libxml2_rh8_pkgs) {
                                                        $r.="<br />".&$a_href_arch('ftp://ftp.redhat.com/pub/redhat/linux/9/en/os/i386/RedHat/RPMS/'.$_,$_)." of Red Hat 9";
                                                        }
                                                }
@@ -211,13 +213,31 @@ for my $dist (@dist) {
                        }
        print "</tr>\n";
        }
-print <<'HERE';
+print "<tr style=\"height: 2ex;\"></tr>\n";
+print "<tr>";
+       print "<td>Package Requirements</td>";
+       for my $case (1,23) {
+               print "<td".($case==23 ? ' colspan="2"' : '').">";
+               print join(", ",map("<span class=\"reqpkg\">$_</span>",@{$reqpkg{$case}}));
+               print "</td>";
+               }
+print "</tr>\n";
+print <<"HERE";
 </table>
-HERE
 
-print vskip "3ex";
+<blockquote>
+       <p><a name="libxml2_rh8"><b><i>Red Hat 8 Psyche</i> upgrade of <i>libxml2</i> package:</b></a>
+       Upgrade only the packages already installed on your system to prevent
+       many dependency requirements - do not use &quot;<code>rpm -U</code>&quot;,
+       use &quot;<code>rpm -F</code>&quot; instead:</p>
+       <blockquote><p class="quote">
+               <code>rpm -F @{[ join(" ",@libxml2_rh8_pkgs) ]}</code>
+       </p></blockquote>
+</blockquote>
+
+@{[ vskip "3ex" ]}
+
 
-print <<"HERE";
 <h1>Installation Notes</h1>
 
 <p>You should first run <b>captive-install-acquire</b> command to check your