#!/usr/bin/perl # # YukiWikiMini Version 1.0.2 # # ykwkmini.cgi - Yet another WikiWikiWeb clone. # # Copyright (C) 2000,2001,2003,2004 by Hiroshi Yuki. # # http://www.hyuki.com/yukiwiki/ # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # ############################## use strict; my $dbname = 'ykwkmini'; my $thisurl = 'ykwkmini.cgi'; my $frontpage = 'FrontPage'; my $indexpage = 'Index'; my $errorpage = 'Error'; my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)'; #my $kanjicode = 'sjis'; my $editchar = '?'; my $bgcolor = 'white'; my $contenttype = 'Content-type: text/html; charset=utf-8'; my $naviwrite = 'Write'; my $naviedit = 'Edit'; my $naviindex = 'Index'; my $msgdeleted = ' is deleted.'; my $cols = 80; my $rows = 20; my $style = <<'EOD'; EOD ############################## my %form; my %database; #require 'jcode.pl'; &main; exit(0); sub main { &init_form; &sanitize_form; foreach (keys %form) { if (/^($WikiName)$/) { $form{mycmd} = 'read'; $form{mypage} = $1; last; } } unless (dbmopen(%database, $dbname, 0666)) { &print_error("(dbmopen)"); } $_ = $form{mycmd}; if (/^read$/) { &do_read; } elsif (/^write$/) { &do_write; } elsif (/^edit$/) { &do_edit; } elsif (/^index$/) { &do_index; } else { $form{mypage} = $frontpage; &do_read; } dbmclose(%database); } sub do_read { &print_header($form{mypage}, 1); &print_content; &print_footer; } sub do_edit { &print_header($form{mypage}, 0); my $mymsg = &escape($database{$form{mypage}}); print <<"EOD"; EOD &print_footer; } sub do_index { &print_header($indexpage, 0); print qq|

$_

\n|; &print_footer; } sub do_write { if ($form{mymsg}) { $database{$form{mypage}} = $form{mymsg}; &print_header($form{mypage}, 1); &print_content; } else { delete $database{$form{mypage}}; &print_header($form{mypage} . $msgdeleted, 0); } &print_footer; } sub print_error { my $msg = shift; &print_header($errorpage, 0); print "

$msg

"; &print_footer; exit(0); } sub print_header { my ($title, $canedit) = @_; print <<"EOD"; $contenttype $title$style

$title

$frontpage | @{[$canedit ? qq($naviedit | ) : '' ]} $naviindex | YukiWikiMini

EOD } sub print_footer { print ""; } sub escape { my $s = shift; $s =~ s|\r\n|\n|g; $s =~ s|\r|\n|g; $s =~ s|\&|&|g; $s =~ s|<|<|g; $s =~ s|>|>|g; $s =~ s|"|"|g; return $s; } sub print_content { $_ = &escape($database{$form{mypage}}); s! ( ((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://... | ($WikiName) # LocalLinkLikeThis ) ! &make_link($1) !gex; print "

", $_, "

"; } sub make_link { $_ = shift; if (/^(http|https|ftp):/) { return qq|$_|; } elsif (/^(mailto):(.*)/) { return qq|$2|; } elsif ($database{$_}) { return qq|$_|; } else { return qq|$_$editchar|; } } sub init_form { my ($query); if ($ENV{REQUEST_METHOD} =~ /^post$/i) { read(STDIN, $query, $ENV{CONTENT_LENGTH}); } else { $query = $ENV{'QUERY_STRING'}; } my @assocarray = split(/&/, $query); foreach (@assocarray) { my ($property, $value) = split /=/; $value =~ tr/+/ /; $value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg; #&jcode'convert(\$value, $kanjicode); $form{$property} = $value; } } sub sanitize_form { if (defined($form{mypage}) and $form{mypage} !~ /^$WikiName$/) { &print_error("(invalid mypage)"); } }