← Back to branch summary

~piotr-sikora/libmemcached/fix-tests-on-openbsd

« back to all changes in this revision

Viewing changes to docs/make_index.pl

Merge in all of build.

Show diffs side-by-side

added added

removed removed

Lines of Context:
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();