buildtools/makecat


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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");
    }
}