suikawiki/script/wiki.cgi

#!/usr/bin/perl
# wiki.cgi - This is YukiWiki, yet another Wiki clone.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

use strict;
use lib qw(./lib);
use CGI::Carp qw(fatalsToBrowser);
our $VERSION = do{my @r=(q$Revision: 1.46 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};

require 'wikidata/suikawiki-config.ph';
use Fcntl;
##############################
my %fmt;        ## formatter objects
my %embed_command = (
        searched        => '^\[\[#searched:([^\]]+)\]\]$',
        form    => qr/\[\[\#form(?:\(([A-Za-z0-9-]+)\))?:'((?:[^'\\]|\\.)*)':'((?:[^'\\]|\\.)*)'(?::'((?:[^'\\]|\\.)*)')?\]\]/,
1	wakaba	1.9	#!/usr/bin/perl
2	wakaba	1.16	# wiki.cgi - This is YukiWiki, yet another Wiki clone.
3	wakaba	1.9	#
4	wakaba	1.16	# This program is free software; you can redistribute it and/or
5			# modify it under the same terms as Perl itself.
6
7			use strict;
8	w	1.44	use lib qw(./lib);
9	wakaba	1.16	use CGI::Carp qw(fatalsToBrowser);
10	w	1.47	our $VERSION = do{my @r=(q$Revision: 1.46 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
11	w	1.43
12			require 'wikidata/suikawiki-config.ph';
13	wakaba	1.16	use Fcntl;
14			##############################
15	wakaba	1.31	my %fmt; ## formatter objects
16	wakaba	1.22	my %embed_command = (
17			searched => '^\[\[#searched:([^\]]+)\]\]$',
18	w	1.43	form => qr/\[\[\#form(?:\(([A-Za-z0-9-]+)\))?:'((?:[^'\\]\|\\.))':'((?:[^'\\]\|\\.))'(?::'((?:[^'\\]\|\\.)*)')?\]\]/,
19	wakaba