1 |
wakaba |
1.59 |
#!/usr/bin/perl5.8.7 |
2 |
wakaba |
1.56 |
BEGIN { $0 = ''.$0 } |
3 |
wakaba |
1.16 |
use strict; |
4 |
wakaba |
1.57 |
use lib qw(lib); |
5 |
wakaba |
1.16 |
use CGI::Carp qw(fatalsToBrowser); |
6 |
wakaba |
1.58 |
|
7 |
|
|
## Configuration script |
8 |
|
|
require 'wikidata/suikawiki-config.ph'; |
9 |
|
|
|
10 |
|
|
## WikiDriver main module |
11 |
wakaba |
1.57 |
require 'suikawiki.pl'; |
12 |
w |
1.43 |
|
13 |
wakaba |
1.16 |
=head1 NAME |
14 |
wakaba |
1.9 |
|
15 |
wakaba |
1.57 |
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 |
w |
1.49 |
|
35 |
|
|
=head1 SEE ALSO |
36 |
|
|
|
37 |
wakaba |
1.57 |
<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 |
wakaba |
1.9 |
|
42 |
wakaba |
1.16 |
=head1 LICENSE |
43 |
wakaba |
1.9 |
|
44 |
wakaba |
1.57 |
Copyright 2002-2004 Wakaba <w@suika.fam.cx>. All rights reserved. |
45 |
wakaba |
1.9 |
|
46 |
wakaba |
1.16 |
This program is free software; you can redistribute it and/or |
47 |
|
|
modify it under the same terms as Perl itself. |
48 |
wakaba |
1.9 |
|
49 |
|
|
=cut |
50 |
wakaba |
1.52 |
|
51 |
wakaba |
1.59 |
1; # $Date: 2004/03/12 04:54:19 $ |