Ignore *.exe
[awesomized/libmemcached] / 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();