1 |
#!/usr/bin/perl |
#!/usr/bin/perl -d:DProf |
2 |
## wiki.cgi --- This is SuikaWiki, yet another WikiEngine |
BEGIN { $0 = ''.$0 } |
|
|
|
3 |
use strict; |
use strict; |
4 |
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}; |
|
5 |
require 'wikidata/suikawiki-config.ph'; ## the site configuration script |
require 'wikidata/suikawiki-config.ph'; ## the site configuration script |
6 |
require 'suikawiki.pl'; ## the main script |
require 'suikawiki.pl'; ## the main script |
7 |
|
|