1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
## wiki.cgi --- This is SuikaWiki, yet another WikiEngine |
## wiki.cgi --- This is SuikaWiki, yet another WikiEngine |
3 |
|
$0 = ''.$0; |
4 |
use strict; |
use strict; |
5 |
use CGI::Carp qw(fatalsToBrowser); |
use CGI::Carp qw(fatalsToBrowser); |
|
our $VERSION = do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
|
6 |
require 'wikidata/suikawiki-config.ph'; ## the site configuration script |
require 'wikidata/suikawiki-config.ph'; ## the site configuration script |
7 |
require 'suikawiki.pl'; ## the main script |
require 'suikawiki.pl'; ## the main script |
8 |
|
|
9 |
|
package SuikaWiki; |
10 |
|
our $VERSION = '2.2'; |
11 |
|
|
12 |
=head1 NAME |
=head1 NAME |
13 |
|
|
14 |
wiki.cgi --- SuikaWiki: Yet yet another WikiEngine |
wiki.cgi --- SuikaWiki: Yet yet another WikiEngine |