suikawiki/script/wiki.cgi

#!/usr/bin/perl 
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: 2004/02/01 12:33:27 $
1	#!/usr/bin/perl
2	BEGIN { $0 = ''.$0 }
3	use strict;
4	use lib qw(lib);
5	use CGI::Carp qw(fatalsToBrowser);
6
7	## Configuration script
8	require 'wikidata/suikawiki-config.ph';
9
10	## WikiDriver main module
11	require 'suikawiki.pl';
12
13	=head1 NAME
14
15	wiki.cgi - SuikaWiki: Yet yet another WikiEngine - HTTP CGI Script Driver
16
17	=head1 DESCRIPTION
18
19	This is a boot script for SuikaWiki HTTP CGI Script Driver (SWHCS).
20	Actual driving of WikiEngine is coded in C<lib/suikawiki.pl>.
21	Options such as WikiDB directories can be specified in C<wikidata/suikawiki.ph>.
22
23	This file is part of SuikaWiki.
24
25	=head1 SYNOPSIS
26
27	$ telnet www.example.net 80<Enter>
28	GET /path/to/wiki/cgi/script?WikiName HTTP/1.1<Enter>
29	Host: www.example.net<Enter>
30	<Enter>
31
32	Future version of SuikaWiki will accept "Accept: text/plain" HTTP
33	request header field.
34
35	=head1 SEE ALSO
36
37	<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>,
38	<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SWHCS>,
39	C<lib/suikawiki.pl>,
40	C<wikidata/suikawiki-config.ph>
41
42	=head1 LICENSE
43
44	Copyright 2002-2004 Wakaba <w@suika.fam.cx>. All rights reserved.
45
46	This program is free software; you can redistribute it and/or
47	modify it under the same terms as Perl itself.
48
49	=cut
50
51	1; # $Date: 2004/02/01 12:33:27 $