#!/usr/bin/perl5.8.7
BEGIN { $0 = ''.$0 }
use strict;
use lib qw(lib);
use CGI::Carp qw(fatalsToBrowser);

## Configuration script
require 'wikidata/suikawiki-config.ph';

## WikiDriver main module
require 'suikawiki.pl';

=head1 NAME

wiki.cgi - SuikaWiki: Yet yet another WikiEngine - HTTP CGI Script Driver

=head1 DESCRIPTION

This is a boot script for SuikaWiki HTTP CGI Script Driver (SWHCS).
Actual driving of WikiEngine is coded in C<lib/suikawiki.pl>.
Options such as WikiDB directories can be specified in C<wikidata/suikawiki.ph>.

This file is part of SuikaWiki.

=head1 SYNOPSIS

  $ telnet www.example.net 80<Enter>
  GET /path/to/wiki/cgi/script?WikiName HTTP/1.1<Enter>
  Host: www.example.net<Enter>
  <Enter>

Future version of SuikaWiki will accept "Accept: text/plain" HTTP
request header field.

=head1 SEE ALSO

<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>,
<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SWHCS>,
C<lib/suikawiki.pl>,
C<wikidata/suikawiki-config.ph>

=head1 LICENSE

Copyright 2002-2004 Wakaba <w@suika.fam.cx>.  All rights reserved.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1; # $Date: 2008/10/11 09:18:56 $