#!/usr/bin/perl -w
#
# Script: patchpage
#
# Description: Builds HTML page listing patches
# (Must be unpacked for README links)
# Todo: add links to original tar files
# Support SunSolve links instead
#
# Author: Ade Rixon, ar@rsi.co.uk
#
# History: v1.0, 3/8/95
# 1.1, 25/9/98
#
# EDIT:
$patchdirs = "/usr/local/src/patches/sol*"; # dirs where patches are stored
# descriptive field in patch README to use
$descfield = "Synopsis: ";
# default HTML output file (change with arg)
$htmlfile = "patches.html";
# get filename argument or use default
$htmlfile = $ARGV[0] ? $ARGV[0] : $htmlfile;
open (HTMLFILE, ">$htmlfile") or die "Couldn't open $htmlfile for writing: $!\n";
# output header (change this if you want)
print HTMLFILE <<"EndOfHeader";
Solaris patches
Current patches for Solaris
These are the currently available patches for Solaris. Apply the Sun
recommended patches on all machines. For the others, you should use your own
judgement based on whether the machine is a client, server, user
workstation, etc. The links point directly to the README files for each
patch. More information about patches is on the SunSolve server.
EndOfHeader
# do each patch dir
foreach $patchdir (<${patchdirs}>)
{
print HTMLFILE <<"PatchDirHead";
PatchDirHead
# process patch dir
foreach $patch ( `cd $patchdir; ls -d *-??` )
{
$synopsis = "No synopsis available";
chop $patch;
# find a README file (first one)
@readme=<$patchdir/$patch/README*>;
# print join(" ", @readme), "\n";
if (@readme) # was there one?
{
# get description from README
open(README, "$readme[0]") || die "Couldn't open $readme: $!\n";
while ()
{
if (/^$descfield/)
{
$synopsis = $_;
$synopsis = substr($synopsis, length($descfield));
chop $synopsis;
last;
}
}
close README;
# link to README file
print HTMLFILE "- ";
print HTMLFILE "$patch ";
}
else # no README
{
print HTMLFILE "$patch ";
}
print HTMLFILE "($synopsis)\n";
}
print HTMLFILE "\n
\n\n";
}
# output program name and time of run
print HTMLFILE "Generated by " . $0 . " on " . localtime(time) . "\n";
# output footer (change to suit)
print HTMLFILE <<"EndOfFooter";
Written by Ade Rixon
ar\@rsi.co.uk
EndOfFooter
close HTMLFILE;
#chmod(0755, $htmlfile); # if HTML needs parsing