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	wakaba	1.58	#!/usr/bin/perl
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.58	1; # $Date: 2004/02/01 12:33:27 $