Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 45 lines (36 sloc) 1.095 kB
#!/usr/bin/perl -w
# Creates HTML versions of the man pages and stores them in the
# local www directory.
#
# NOTE: This has been hard coded to work on one of my development
# systems. It will need to be updated to be more general.
use strict;
my $BACK = "";
my $RMAN = "/rman-3.2/rman";
# rman and www are back different levels depending on
# which branch we are on.
if (-d "../../rman-3.2") {
$BACK = "../../";
} elsif (-d "../../../rman-3.2") {
$BACK = "../../../";
} elsif (-d "../../../../rman-3.2") {
$BACK = "../../../../";
} else {
die "Missing rman directory";
}
die "www not in same dir as rman" unless (-e "${BACK}/www");
print "Cleaning up www directory\n";
system ("rm ${BACK}/www/man/*.html");
print "Building html files\n";
opendir (DIR, ".") or die "Error opening current directory";
while (1) {
my $f = readdir(DIR);
last unless defined ($f);
next if (($f eq ".") || ($f eq ".."));
if ($f =~ /^(.*?)\.1$/) {
$f = $1;
} else {
next;
}
system("${BACK}${RMAN} -f html ${f}.1 > ${BACK}/www/man/${f}.html");
}
Jump to Line
Something went wrong with that request. Please try again.