status/make_web.pl

   1 #!/usr/bin/perl -w
   2
   3 open COMMANDS, ">commands";
   4
   5 print COMMANDS "0,Class Libraries,index.html,index.src\n";
   6
   7 print COMMANDS "0,Namespace,namespace.html,namespace.src\n";
   8 $files_list = `ls bn`;
   9 @files = split(/\s+/, $files_list);
  10 foreach $file (@files) {
  11         print COMMANDS "1,$file,$file.html,bn/$file\n";
  12 }
  13
  14 print COMMANDS "0,Maintainer,maintainer.html,maintainer.src\n";
  15 $files_list = `ls bm`;
  16 @files = split(/\s+/, $files_list);
  17 foreach $file (@files) {
  18         print COMMANDS "1,$file,$file.html,bm/$file\n";
  19 }
  20
  21 close COMMANDS