#!/usr/bin/perl

for $file (@ARGV) {

        open(FILE, "$file") || die "File not found: $file\n";

        $indir = 0;

        while (<FILE>) {

                if (/\<DIR\>/) {
                        $indir = 1;
                } elsif (/\<\/DIR>/) {
                        $indir = 0;
                } elsif ($indir) {
                        if (/\<LI\>\<A HREF=\"([^\"]*)\"\>([^<]*)\<\/A\>/) {
                                $url = $1;
                                $topic = dehtml($2);
                                $primary = $topic;
                                if ( ($topic =~ m/([^,]*), (.*)/)
                                    || ($topic =~ m/([^(]+)\((.*)\)/) ) {
                                        $primary = $1;
                                } 
                                print STDOUT "<item primary=\"$primary\" topic=\"$topic\" url=\"$url\"/>\n";
                        }
                }
        }

        close(FILE);
}

if ($lastindex) {
        print "</$lastindex>\n";
}

sub dehtml
{
        my ( $str ) = @_;

        $str =~ s/\<CODE\>//g;
        $str =~ s/\<\/CODE\>//g;
        $str =~ s/\<TT\>//g;
        $str =~ s/\<\/TT\>//g;

        return $str;
}

# Local Variables:
# mode: perl
# fill-column: 120
# End:
