git.m6w6.name Git - awesomized/libmemcached/blob - docs/make_index.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use CGI;
   5
   6 sub main {
   7   my $cgi = new CGI;
   8
   9   print $cgi->start_html('Libmemcached Documentation') . "\n";
  10   print $cgi->h1('Libmemcached Documentation') . "\n";
  11
  12   print $cgi->a({ href => "libmemcached.html" }, "Introduction to Libmemcached") . $cgi->br() . "\n";
  13   print $cgi->a({ href => "libmemcached_examples.html" }, "Libmemcached Examples") . $cgi->br() . "\n";
  14   print $cgi->br() . "\n";
  15   print $cgi->br() . "\n";
  16
  17   foreach (@ARGV)
  18   {
  19     my $url=  $_;
  20     my $name= $_;
  21     $name  =~ s/\.html//g;
  22     next if $name eq 'index';
  23     next if $name eq 'libmemcached';
  24     next if $name eq 'libmemcached_examples';
  25     print "<li\>" . $cgi->a({ href => $url }, $name) . $cgi->br() . "\n";
  26   }
  27   print $cgi->end_html;
  28 }
  29
  30 main();