diff options
Diffstat (limited to 'buildtools/makecat')
-rwxr-xr-x | buildtools/makecat | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/buildtools/makecat b/buildtools/makecat new file mode 100755 index 00000000..3a77a2a6 --- /dev/null +++ b/buildtools/makecat @@ -0,0 +1,18 @@ +#!/usr/bin/perl -w + +use strict; + +my $TRUE=1; my $FALSE = 0; + +foreach my $htmlfilename (@ARGV) { + if ($htmlfilename =~ m{ (.*) \.html $ }x) { + my $basename = $1; + + my $catfilename = "$basename.1"; + + print ("Converting $htmlfilename to $catfilename...\n"); + system("lynx -dump $htmlfilename >$catfilename"); + } else { + print ("Filename '$htmlfilename' doesn't end in 'html'. Skipping.\n"); + } +} |