#!/usr/bin/perl -w

use strict;
use CGI;

sub main {
  my $cgi = new CGI;

  print $cgi->start_html('Libmemcached Documentation') . "\n";
  print $cgi->h1('Libmemcached Documentation') . "\n";

  print $cgi->a({ href => "libmemcached.html" }, "Introduction to Libmemcached") . $cgi->br() . "\n";
  print $cgi->a({ href => "libmemcached_examples.html" }, "Libmemcached Examples") . $cgi->br() . "\n";
  print $cgi->br() . "\n";
  print $cgi->br() . "\n";

  foreach (@ARGV)
  {
    my $url=  $_;
    my $name= $_;
    $name  =~ s/\.html//g;
    next if $name eq 'index'; 
    next if $name eq 'libmemcached'; 
    next if $name eq 'libmemcached_examples'; 
    print "<li\>" . $cgi->a({ href => $url }, $name) . $cgi->br() . "\n";
  }
  print $cgi->end_html; 
}

main();