commit for archiving

Perl/bin/ap-update-html

@@ -0,0 +1,51 @@
+#!/usr/bin/perl -w
+
+my %opt;
+if (@ARGV) {
+    require Getopt::Long;
+    Getopt::Long::GetOptions(
+        \%opt,
+	'force',
+	'verbose',
+    ) || usage();
+    usage() if @ARGV;
+
+    sub usage {
+	(my $progname = $0) =~ s,.*[/\\],,;
+	die "Usage: $progname [--force] [--verbose]\n";
+    }
+}
+
+use ActivePerl::DocTools ();
+ActivePerl::DocTools::UpdateHTML(raise_error => 1, %opt);
+
+__END__
+
+=head1 NAME
+
+ap-update-html - Regenerate any out-of-date HTML
+
+=head1 SYNOPSIS
+
+B<ap-update-html> [ B<--force> ] [ B<--verbose> ]
+
+=head1 DESCRIPTION
+
+If new modules has been installed then they might not have had their
+documentation converted to HTML yet.  This script will bring the HTML
+up-to-date with what modules are installed.
+
+The following command line options are recognized:
+
+=over
+
+=item B<--force>
+
+Force HTML documents to be regenerated even if they appear to be
+up-to-date.
+
+=item B<--verbose>
+
+Print noise about what's done while running.
+
+=back