#! /usr/bin/perl -w
use strict;

my @series = @ARGV;

sub
dodir()
{
    my $dir = shift;
    my $level = shift || 1;
    my @files = ();
    my @dirs = ();

    return if $dir eq 'source/old' || $dir eq 'docs/fips';

    foreach my $entry ( glob($dir . "/*")) {
	if (-f $entry ) {
	    next unless $entry =~ m/.*\.(html|pdf|txt|png)$/;
	    push @files, $entry;
	} elsif ( -d $entry ) {
	    push @dirs, $entry;
	}
    }

    foreach my $entry ( @files ) {
	$entry =~ s@.*/@@;
	next if $entry eq 'template-file.html';
	print "\t" x $level, $entry, "\n";
    }

    foreach my $entry ( @dirs) {
	$entry =~ s@^\.\/@@;
	next if $entry =~ m/.git|inc|img|bin|blog/;
	my $simple = $entry;
	$simple =~ s@.*/@@;
	print "\n", "\t" x $level, $simple, "/\n";
	next if $entry =~ m/secadv/;
	next if grep { $entry eq "man$_" } @series;
	&dodir($entry, $level + 1);
    }
}

print "/\n";
&dodir('.', 0);
exit(0);