bin/mk-sitemap

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