bin/mk-sitemap

   1 #! /usr/bin/perl -w
   2 use strict;
   3
   4 my @series = @ARGV;
   5
   6 sub
   7 dodir()
   8 {
   9     my $dir = shift;
  10     my $level = shift || 1;
  11     my @files = ();
  12     my @dirs = ();
  13
  14     return if $dir eq 'source/old' || $dir eq 'docs/fips';
  15
  16     foreach my $entry ( glob($dir . "/*")) {
  17         if (-f $entry ) {
  18             next unless $entry =~ m/.*\.(html|pdf|txt|png)$/;
  19             push @files, $entry;
  20         } elsif ( -d $entry ) {
  21             push @dirs, $entry;
  22         }
  23     }
  24
  25     foreach my $entry ( @files ) {
  26         $entry =~ s@.*/@@;
  27         next if $entry eq 'template-file.html';
  28         print "\t" x $level, $entry, "\n";
  29     }
  30
  31     foreach my $entry ( @dirs) {
  32         $entry =~ s@^\.\/@@;
  33         next if $entry =~ m/.git|inc|img|bin|blog/;
  34         my $simple = $entry;
  35         $simple =~ s@.*/@@;
  36         print "\n", "\t" x $level, $simple, "/\n";
  37         next if $entry =~ m/secadv/;
  38         next if grep { $entry eq "man$_" } @series;
  39         &dodir($entry, $level + 1);
  40     }
  41 }
  42
  43 print "/\n";
  44 &dodir('.', 0);
  45 exit(0);