source: trunk/gsdl/bin/script/convert_toc_dir.pl@ 2815

#! /usr/bin/perl -w

# run convert_toc.pl on any html files found in the directory passed in on
# the command line (or any subdirs).

&recurse($ARGV[0]);

sub recurse {
    my ($dir) = @_;

    if (!-d $dir) {
    print STDERR "ERROR: $dir isn't a directory\n";
    return;
    }

    opendir (DIR, $dir) || die;
    my @files = readdir DIR;
    closedir DIR;

    foreach my $file (@files) {
    next if $file =~ /^\.\.?$/;
    my $fullpath = "$dir/$file";
    if (-d $fullpath) {
        &recurse($fullpath);
    } elsif ($file =~ /\.html?$/i) {
        print STDERR "converting $fullpath\n";
        `convert_toc.pl < $fullpath > $fullpath.new`;
        `mv $fullpath.new $fullpath`;
    }
    }
}