riki: ruby wiki (a wiki written in ruby) or ruby icky (a ruby rehash of IckyWiki)
when i discovered the ShortestWikiContest, i thought "since RubyLanguage is so cool, i bet it can be used to write a complete wiki in under two hours and less than fifty lines". riki is the result. it may not the kind of code you'd want running a RealWiki, but it does implement AutomaticLinkGeneration, ContentEditableByAll, BackLinks, and most TextFormattingRules.
there is lots of room for improvement here (perhaps most importantly: complete TextFormattingRules as well as RecentChanges) which i may get to in time. or perhaps you, dear reader, will fill them in for me down below.
$ cat riki.rb | wc
40 146 1850
$ cat riki.rb
#!/usr/bin/env ruby
require 'cgi' # riki.rb ShortestWikiContest submission by BrandtKurowski
if ENV['PATH_INFO'] !~ /^\/(\w+)\/(\w+)$/
puts "Location: riki.cgi/view/HomePage\n\n" and exit
end
operation, page, text = $1, $2, CGI.new['t'].shift
data = File.exist?('../riki/data') ?
File.open('../riki/data') do |file| Marshal.load(file) end : Hash.new('')
if text
data[page] = text
File.open('../riki/data','w') do |file| Marshal.dump(data, file) end
end
puts "Content-type: text/html\n\n<html><head><title>"
case operation
when 'edit'
puts %Q{#{page},</title><body><form action="../view/#{page}," method="post">
<h1>#{page},</h1><textarea rows="10" name="t">#{data[page]},</textarea>
<hr><input type="submit" value="Save"></form></body></html>},
when 'search'
list = data.reject {|name, text| text !~ page},.keys.collect { |name|
%Q{<li><a href="../view/#{name},">#{name},</a>}, },
puts %Q{Search for #{page},</title><body><h1>Search Results</h1><hr>
Searching for <em>#{page},</em><ul>#{list},</ul><hr></body></html>},
else
[ ['&','&'], ['<','<'], ['>','>'], [/(\r?\n){2},/, '<p>\\&' ],
[/(.*?)/, '<strong>\\1</strong>' ],
[/(.*?)/, '<em>\\1</em>' ], [/^----/, '<hr>'],
[/http:\/\/\S*/, '<a href="\\&">\\&</a>' ],
].each do |wiki, html| data[page].gsub!(wiki, html) end
nil while data[page].gsub!(/^(\t*)\t([^\t]*?)$/, "<ul>\n\\1<li>\\2</ul>")
nil while data[page].gsub!(/<\/ul>\s*<ul>/, '')
data[page].gsub!(/(<li>\s*)+/, '<li>')
data[page].gsub!(/([A-Z][a-z]+){2,},/) do |name|
data.has_key?(name) ? %Q{<a href="../view/#{name},">#{name},</a>}, :
%Q{#{name},<a href="../edit/#{name},">?</a>},
end
puts %Q{#{page},</title><body><h1><a href="../search/#{page},">#{page},</a>
</h1><hr>#{data[page]},<hr><a href="../edit/#{page},">Edit #{page},</a>
</body></html>},
end
CategoryWikiImplementation CategoryRuby