camping 1.2 → 1.3

data/CHANGELOG

@@ -0,0 +1,33 @@
+= 1.3
+=== 28th January, 2006
+
+* bin/camping: an application launcher.
+* <tt>Camping.run(request, response)</tt> now changed to <tt>controller = Camping.run(request, env)</tt>
+* This means outputting the response is the wrapper/server's job.  See bin/camping, you can do a controller.to_s at the least.
+* <tt>Controllers::Base.env</tt> is the new thread-safe home for <tt>ENV</tt>.
+* The input hash now works more like Rails params.  You can call keys
+  like methods or with symbols or strings.
+* Queries are now parsed more like PHP/Rails, in that you can denote
+  structure with brackets: post[user]=_why;post[id]=2
+* Auto-prefix table names, to help prevent name clash.
+* Helpers.errors_for simple validation.
+* Lots of empty :href and :action attributes, a bug.
+* New single-page flipbook RDoc template.
+
+= 1.2
+=== 23rd January, 2006
+
+* Camping.goes allows fresh modules build from all Camping parts.
+* File uploads now supported (multipart/form-data).
+* Helpers.R can rebuild routes.
+* Helpers./ for tracing paths from the root.
+
+= 1.1
+=== 19th January, 2006
+
+* Allowed request and response streams to be passed in, to allow WEBrick and FastCGI support.
+
+= 1.0
+=== 17th January, 2006
+
+* Initial checkin, see announcement at http://redhanded.hobix.com/bits/campingAMicroframework.html.

data/README

@@ -8,17 +8,21 @@ The idea here is to store a complete fledgling web application in a single file
 like many small CGIs.  But to organize it as a Model-View-Controller application
 like Rails does.  You can then easily move it to Rails once you've got it going.
 
-A skeleton might be:
+== A Camping Skeleton
+
+A skeletal Camping blog could look like this:
 
   require 'camping'
   
-  module Camping::Models
+  Camping.goes :Blog
+
+  module Blog::Models
     class Post < Base; belongs_to :user; end
     class Comment < Base; belongs_to :user; end
     class User < Base; end
   end
 
-  module Camping::Controllers
+  module Blog::Controllers
     class Index < R '/'
       def get
         @posts = Post.find :all
@@ -27,7 +31,7 @@ A skeleton might be:
     end
   end
 
-  module Camping::Views
+  module Blog::Views
     def layout
       html do
         body do
@@ -44,9 +48,10 @@ A skeleton might be:
   end
 
   if __FILE__ == $0
-    Camping::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog3.db'
-    Camping::Models::Base.logger = Logger.new('camping.log')
-    Camping.run
+    Blog::Models::Base.establish_connection :adapter => 'sqlite3', 
+        :database => 'blog3.db'
+    Blog::Models::Base.logger = Logger.new('camping.log')
+    puts Blog.run
   end
 
 Some things you might have noticed:
@@ -55,6 +60,16 @@ Some things you might have noticed:
 * Camping::Controllers can be assigned URLs in the class definition.  Neat?
 * Camping::Views describes HTML using pure Ruby.  Markup as Ruby, which we
   call Markaby.
+* You use Camping::goes to make a copy of the Camping framework under your
+  own module name (in this case: <tt>Blog</tt>.)
+
+<b>NOTE:</b> Camping auto-prefixes table names.  If your class is named
+<tt>Blog::Models::Post</tt>, your table will be called <b>blog_posts</b>.
+Since many Camping apps can be attached to a database at once, this helps
+prevent name clash.
+
+(If you want to see the full blog example, check out <tt>examples/blog/blog.rb</tt>
+for the complete code.)
 
 If you want to write larger applications with Camping, you are encouraged to
 split the application into distinct parts which can be mounted at URLs on your
@@ -67,3 +82,45 @@ Interested yet?  Okay, okay, one step at a time.
 == Installation
 
 * <tt>gem install camping</tt>
+
+Or for the bleeding edge:
+
+* <tt>gem install camping --source code.whytheluckystiff.net</tt>
+
+You are encourage to install Camping and SQLite3, since it is a small database
+which fits perfectly with our compact bylaws, works well with the examples.
+
+* See http://code.whytheluckystiff.net/camping/wiki/BeAlertWhenOnSqlite3 for instructions.
+
+== Running Camping Apps
+
+The blog example above and most Camping applications look a lot like CGI scripts.
+If you run them from the commandline, you'll probably just see a pile of HTML.
+
+Camping comes with an tool for launching apps from the commandline:
+
+* Run: <tt>camping blog.rb</tt>
+* Visit http://localhost:3301/ to use the app.
+
+== Debugging Camping Apps
+
+If your application isn't working with the <tt>camping</tt> tool, keep in mind
+that the tool expects the following conventions to be used:
+
+1. You must have SQLite3 and SQLite3-ruby installed.  (Once again, please see
+   http://code.whytheluckystiff.net/camping/wiki/BeAlertWhenOnSqlite3 for instructions.)
+2. If your script is called <tt>test.rb</tt>, Camping expects your application to
+   be stored in a module called <tt>Test</tt>.  Case is not imporant, though.  The
+   module can be called <tt>TeSt</tt> or any other permuation.
+3. Your script's postamble (anything enclosed in <tt>if __FILE__ == $0</tt>) will be
+   ignored by the tool, since the tool will create an SQLite3 database at 
+   <tt>~/.camping.db</tt>.  Or, on Windows, <tt>$USER/Application Data/Camping.db</tt>.
+4. If your application's module has a <tt>create</tt> method, it will be executed before
+   the web server starts up.
+
+== The Rules of Thumb
+
+Once you've started writing your own Camping app, I'd highly recommend becoming familiar
+with the Camping Rules of Thumb which are listed on the wiki: 
+http://code.whytheluckystiff.net/camping/wiki/CampingRulesOfThumb
+

data/bin/camping

@@ -0,0 +1,63 @@
+#!/usr/bin/env ruby
+
+# this line prevents other db adapters from being loaded (oci8 was
+# causing some pain.)
+RAILS_CONNECTION_ADAPTERS = %w[sqlite]
+
+require 'stringio'
+require 'webrick/httpserver'
+require 'camping'
+
+(puts <<USAGE; exit) if ARGV.length == 0
+#{File.basename($0)}, the microframework ON-button for ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE}) [#{RUBY_PLATFORM}]
+Usage: #{File.basename($0)} your.camping.rb [your.camping.db]
+USAGE
+
+script, db = ARGV[0..-1]
+
+unless db
+    homes = []
+    homes << File.join( ENV['HOME'], '.camping.db' ) if ENV['HOME']
+    homes << File.join( ENV['APPDATA'], 'Camping.db' ) if ENV['APPDATA']
+    homes.each do |db|
+        break if File.exists?( db )
+    end
+end
+
+Camping::Models::Base.establish_connection :adapter => 'sqlite3', :database => db
+
+# Load the script, locate the module
+def camp_load(script, klass = nil)
+    Object.instance_eval { remove_const klass.name } if klass
+    mtime = File.mtime(script)
+    load script
+    klass = Object.const_get(Object.constants.grep(/^#{File.basename(script)[/^(\w+)/,1]}$/i)[0]) rescue nil
+    klass ||= Camping
+    klass.create if klass.respond_to? :create
+    [klass, mtime]
+end
+
+# Mount the root
+klass, mtime = camp_load( script )
+s = WEBrick::HTTPServer.new(:BindAddress => '0.0.0.0', :Port => 3301)
+s.mount_proc("/") do |req, resp|
+    newtime = File.mtime( script )
+    if newtime > mtime
+        klass, mtime = camp_load( script, klass )
+    end
+    controller = klass.run((req.body and StringIO.new(req.body)), req.meta_vars)
+    resp.status = controller.status
+    controller.headers.each do |k, v|
+        [*v].each do |vi|
+            resp[k] = vi
+        end
+    end
+    resp.body = controller.body
+    nil
+end
+
+# Server up
+trap(:INT) do
+    s.shutdown
+end
+s.start

data/examples/blog/blog.rb

@@ -18,10 +18,24 @@ module Blog::Models
 end
 
 Blog::Models.schema do
-#  create_table :posts, :force => true do |t|
-#    t.column :title, :string, :limit => 255
-#    t.column :body, :text
-#  end
+    create_table :blog_posts, :force => true do |t|
+      t.column :id,       :integer, :null => false
+      t.column :user_id,  :integer, :null => false
+      t.column :title,    :string,  :limit => 255
+      t.column :body,     :text
+    end
+    create_table :blog_users, :force => true do |t|
+      t.column :id,       :integer, :null => false
+      t.column :username, :string
+      t.column :password, :string
+    end
+    create_table :blog_comments, :force => true do |t|
+      t.column :id,       :integer, :null => false
+      t.column :post_id,  :integer, :null => false
+      t.column :username, :string
+      t.column :body,     :text
+    end
+    execute "INSERT INTO blog_users (username, password) VALUES ('admin', 'camping')"
 end
 
 module Blog::Controllers
@@ -34,14 +48,15 @@ module Blog::Controllers
      
     class Add
         def get
-            if cookies.user_id
+            unless cookies.user_id.blank?
                 @session = User.find cookies.user_id
                 @post = Post.new
             end
             render :add
         end
         def post
-            post = Post.create :title => input.post_title, :body => input.post_body
+            post = Post.create :title => input.post_title, :body => input.post_body,
+                               :user_id => @cookies.user_id
             redirect View, post
         end
     end
@@ -66,7 +81,7 @@ module Blog::Controllers
      
     class Edit < R '/edit/(\d+)', '/edit'
         def get post_id 
-            if cookies.user_id
+            unless cookies.user_id.blank?
                 @session = User.find cookies.user_id
             end
             @post = Post.find post_id
@@ -109,10 +124,21 @@ module Blog::Controllers
         end
     end
      
-    class Style < R '/styles.css', '/view/styles.css'
+    class Style < R '/styles.css'
         def get
             @headers["Content-Type"] = "text/css; charset=utf-8"
-            @body = File.read('styles.css')
+            @body = %{
+                body {
+                    font-family: Utopia, Georga, serif;
+                }
+                h1.header {
+                    background-color: #fef;
+                    margin: 0; padding: 10px;
+                }
+                div.content {
+                    padding: 10px;
+                }
+            }
         end
     end
 end
@@ -232,11 +258,15 @@ module Blog::Views
     end
 end
  
-db_exists = File.exists?('blog3.db')
-Blog::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog3.db'
-Blog::Models::Base.logger = Logger.new('camping.log')
-ActiveRecord::Schema.define(&Blog::Models.schema) unless db_exists
+def Blog.create
+    unless Blog::Models::Post.table_exists?
+        ActiveRecord::Schema.define(&Blog::Models.schema)
+    end
+end
 
 if __FILE__ == $0
-    Blog.run
+    Blog::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog.db'
+    Blog::Models::Base.logger = Logger.new('camping.log')
+    Blog.create
+    puts Blog.run
 end

data/examples/campsh/campsh.rb

@@ -0,0 +1,631 @@
+#!/usr/bin/env ruby
+
+$:.unshift File.dirname(__FILE__) + "/../../lib"
+%w(rubygems redcloth camping acts_as_versioned).each { |lib| require lib }
+  
+Camping.goes :CampSh
+
+module CampSh
+    NAME = 'CampCampSh'
+    DESCRIPTION = %{
+        Script your own URL commands, then run these commands through 
+        the proxy with "cmd/CommandName".  All scripts are versioned 
+        and attributed.
+    }
+    VERSION = '0.1'
+    ANON = 'AnonymousCoward'
+
+    begin
+        require 'syntax/convertors/html'
+        SYNTAX = ::Syntax::Convertors::HTML.for_syntax "ruby"
+    rescue LoadError
+    end
+
+    def self.create
+        unless CampSh::Models::Command.table_exists?
+            ActiveRecord::Schema.define do
+                create_table :campsh_commands, :force => true do |t|
+                    t.column :id,         :integer, :null => false
+                    t.column :author,     :string,  :limit => 40
+                    t.column :name,       :string,  :limit => 255
+                    t.column :created_at, :datetime
+                    t.column :doc,        :text
+                    t.column :code,       :text
+                end
+                CampSh::Models::Command.create_versioned_table
+            end
+        end
+    end
+end
+
+module CampSh::Models
+    class Command < Base
+        validates_uniqueness_of :name
+        validates_presence_of :author
+        acts_as_versioned
+    end
+end
+
+module CampSh::Controllers
+    class Index < R '/'
+        def get
+            redirect List
+        end
+    end
+
+    class List
+        def get
+            @cmds = Command.find :all, :order => 'name'
+            @title = "Command List"
+            render :list
+        end
+    end
+
+    class Run < R '/run/(\w+)', '/run/(\w+)/(.+)', '/run/(\w+) (.+)'
+        def get(cmd, args=nil)
+            @cmd = Command.find_by_name(cmd)
+            unless @cmd
+                redirect New, name
+                return
+            end
+
+            args = args.to_s.strip.split(/[\/\s]+/)
+            eval(@cmd.code)
+        end
+    end
+
+    class Authors
+        def get
+            @authors = 
+                Command.find(:all, :order => "author, name").inject({}) do |hsh, cmd|
+                    (hsh[cmd.author] ||= []) << cmd
+                    hsh
+                end
+            @title = "Author"
+            render :authors
+        end
+    end
+
+    class Recent
+        def get
+            @days = 
+                Command.find(:all, :order => "created_at DESC").inject({}) do |hsh, cmd|
+                    (hsh[cmd.created_at.strftime("%B %d, %Y")] ||= []) << cmd
+                    hsh
+                end
+            @title = "Recently Revised"
+            render :recent
+        end
+    end
+
+    class Show < R '/show/(\w+)', '/show/(\w+)/(\d+)', '/cancel_edit/(\w+)'
+        def get(name, version = nil)
+            unless @cmd = Command.find_by_name(name)
+                redirect(Edit, page_name)
+                return
+            end
+            @version = (version.nil? or version == @cmd.version.to_s) ? @cmd : @cmd.versions.find_by_version(version)
+            render :show
+        end
+    end
+
+    class New < R '/new', '/new/(\w+)'
+        def get(name)
+            @cmd = Command.new(:name => name)
+            @title = "Creating #{name}"
+            render :edit
+        end
+        def post
+            @cmd = Command.new(:name => input.cmd)
+            @title = "Creating #{input.cmd}"
+            render :edit
+        end
+    end
+
+    class Edit < R '/edit/(\w+)', '/edit/(\w+)/(\d+)'
+        def get(name, version = nil)
+            @cmd = Command.find_by_name(name)
+            @cmd = @cmd.versions.find_by_version(version) unless version.nil? or version == @cmd.version.to_s
+            @title = "Editing #{name}"
+            @author = cookies.cmd_author or CampSh::ANON
+            render :edit
+        end
+        def post(name)
+            if input.author != CampSh::ANON
+                cookies.cmd_author = input.author
+            end
+            Command.find_or_create_by_name(name).update_attributes(input.command)
+            redirect Show, name
+        end
+    end
+
+    class HowTo 
+        def get
+            @title = "How To"
+            render :howto
+        end
+    end
+
+    class Style < R '/styles.css'
+        def get
+            @headers['Content-Type'] = 'text/css'
+            %Q[
+                h1#pageName, .newWikiWord a, a.existingWikiWord, .newWikiWord a:hover, 
+                #TextileHelp h3 { color: #003B76; }
+
+                #container { width: 720px; }
+
+                #container {
+                    float: none;
+                    margin: 0 auto;
+                    text-align: center;
+                    padding: 2px;
+                    border: solid 2px #999;
+                }
+
+                #content {
+                    margin: 0;
+                    padding: 9px;
+                    text-align: left;
+                    border-top: none;
+                    border: solid 1px #999;
+                    background-color: #eee;
+                }
+
+                body, p, ol, ul, td {
+                    font-family: verdana, arial, helvetica, sans-serif;
+                    font-size:   15px;
+                    line-height: 110%;
+                }
+
+                a { color: #000; }
+
+                .newWikiWord { background-color: #eee; }
+                .newWikiWord a:hover { background-color: white; }
+
+                a:visited { color: #666; }
+                a:hover { color: #fff; background-color:#000; }
+
+                /* a.edit:link, a.edit:visited { color: #DA0006; } */
+
+
+                h1, h2, h3 { color: #333; font-family: georgia, verdana; text-align: center; line-height: 70%; margin-bottom: 0; }
+                h1 { font-size: 28px }
+                h2 { font-size: 22px }
+                h3 { font-size: 19px }
+
+                h1#pageName {
+                    margin: 5px 0px 0px 0px;
+                    padding: 0px 0px 0px 0px;
+                    line-height: 28px;
+                }
+
+                h1#pageName small {
+                    color: grey;
+                    line-height: 10px;
+                    font-size: 10px;
+                    padding: 0px;
+                }
+
+                a.nav, a.nav:link, a.nav:visited { color: #000; }
+                a.nav:hover { color: #fff; background-color:#000; }
+
+                li { margin-bottom: 7px }
+
+                .navigation {
+                    margin-top: 5px;
+                    font-size : 12px;
+                    color: #999;
+                    text-align: center;
+                }
+
+                .navigation a:hover { color: #fff; background-color:#000; }
+
+                .navigation a {
+                    font-size: 11px;
+                    color: black;
+                    font-weight: bold;
+                }
+
+                .navigation small a {
+                    font-weight: normal;
+                    font-size: 11px;
+                }
+
+                .navOn{
+                    font-size: 11px;
+                    color: grey;
+                    font-weight: bold;
+                    text-decoration: none;
+                }
+
+                .help {
+                    font-family: verdana, arial, helvetica, sans-serif;
+                    font-size: 11px;
+                }
+
+                .inputBox {
+                    font-family: verdana, arial, helvetica, sans-serif;
+                    font-size: 11px;
+                    background-color: #eee;
+                    padding: 5px;
+                    margin-bottom: 20px;
+                }
+
+                blockquote {
+                    display: block;
+                    margin: 0px 0px 20px 0px;
+                    padding: 0px 30px;
+                    font-size:11px;
+                    line-height:17px;
+                    font-style: italic;  
+                }
+
+                pre {
+                    background-color: #eee;
+                    padding: 10px;
+                    font-size: 11px;
+                }
+
+                ol.setup {
+                    font-size: 19px;
+                    font-family: georgia, verdana;
+                    padding-left: 25px;
+                }
+
+                ol.setup li {
+                    margin-bottom: 20px
+                }
+
+                .byline {
+                    font-size: 10px;
+                    font-style: italic;  
+                    margin-bottom: 10px;
+                    color: #999;
+                }
+
+                .references {
+                    font-size: 10px;
+                }
+
+                .diffdel {
+                    background: pink;
+                }
+
+                .diffins {
+                    background: lightgreen;
+                }
+
+                #allCommands ul {
+                    list-style: none;
+                }
+
+                #allCommands li {
+                    padding: 1px 4px;
+                }
+
+                #allCommands li:hover {
+                    background-color: white;
+                }
+
+                #allCommands a,
+                #allCommands a:hover,
+                #allCommands a:link,
+                #allCommands a:visited,
+                #allCommands h2 {
+                    color: #369;
+                    background-color: transparent;
+                    font-weight: normal;
+                    font-size: 24px;
+                    text-align: left;
+                }
+
+                #TextileHelp table {
+                    margin-bottom: 0;
+                }
+
+                #TextileHelp table+h3 {
+                    margin-top: 11px;
+                }
+
+                #TextileHelp table td {
+                    font-size: 11px;
+                    padding: 3px;
+                    vertical-align: top;
+                    border-top: 1px dotted #ccc;
+                }
+
+                #TextileHelp table td.arrow {
+                    padding-right: 5px;
+                    padding-left: 10px;
+                    color: #999;
+                }
+
+                #TextileHelp table td.label {
+                    font-weight: bold;
+                    white-space: nowrap;
+                    font-size: 10px;
+                    padding-right: 15px;
+                    color: #000;
+                }
+
+                #TextileHelp h3 {
+                    font-size: 11px;
+                    font-weight: bold;
+                    font-weight: normal;
+                    margin: 0 0 5px 0;
+                    padding: 5px 0 0 0;
+                }
+
+                #TextileHelp p {
+                    font-size: 10px;
+                }
+
+                .rightHandSide {
+                    float: right;
+                    width: 147px;
+                    margin-left: 10px;
+                    padding-left: 20px;
+                    border-left: 1px dotted #ccc;
+                }
+
+                .rightHandSide p {
+                    font-size: 10px;
+                }
+
+                .newsList {
+                margin-top: 20px;
+                }
+
+                .newsList p {
+                margin-bottom:30px
+                }
+
+                .leftHandSide
+                {
+                    float: right;
+                    width: 147px;
+                    margin-left: 10px;
+                    padding-left: 20px;
+                    border-left: 1px dotted #ccc;
+                }
+
+                .leftHandSide p
+                {
+                    font-size: 10px;
+                    margin: 0;
+                    padding: 0;
+                }
+
+                .leftHandSide h2
+                {
+                    font-size: 12px;
+                    margin-bottom: 0;
+                    padding-bottom: 0;
+                }
+
+                .property
+                {
+                    color: grey;
+                    font-size: 9px;
+                    text-align: right;
+                }
+
+                body
+                {
+                    background-color: #ccc;
+                    padding: 0;
+                    margin: 20px;
+                    color: #333;
+                    line-height: 1.5;
+                    font-size: 85%;
+                    /*  hacky hack */
+                    voice-family: "\"}\"";
+                    voice-family: inherit;
+                    font-size: 80%;
+                }
+
+                /* be nice to opera */
+                html>body { font-size: 80%; }
+
+                /* syntax highlighting */
+                .keyword {
+                    font-weight: bold;
+                }
+                .comment {
+                    color: #555;
+                }
+                .string, .number {
+                    color: #396;
+                }
+                .regex {
+                    color: #435;
+                }
+                .ident {
+                    color: #369;
+                }
+                .symbol {
+                    color: #000;
+                }
+                .constant, .class {
+                    color: #630;
+                    font-weight: bold;
+                }
+            ]
+        end
+    end
+
+end
+
+module CampSh::Views
+    def red( str )
+        require 'redcloth'
+        self << RedCloth.new( str ).to_html
+    end
+
+    def layout 
+        html do
+            head do
+                title "CampShell -- #{ @title }"
+                style "@import '#{ self / R(Style) }';", :type => 'text/css'
+            end
+            body do
+                div.container! do
+                    div.content! do
+                        h2 "CampShell"
+                        h1 @title
+                        _navigation
+                        self << yield
+                    end
+                end
+            end
+        end
+    end
+
+    def _navigation
+        form :id => "navigationForm", :class => "navigation", :style => "font-size: 10px" do  
+            a "Command List", :href => R(List), :title => "Alphabetical list of commands", :accesskey => "A"
+            text " | "
+            a "Recently Revised", :href => R(Recent), :title => "Pages sorted by when they were last changed", 
+                                  :accesskey => "U"
+            text " | "
+            a "Authors", :href => R(Authors), :title => "Who wrote what"
+            text " | "
+            a "How To", :href => R(HowTo), :title => "How to use CampShell", :accesskey => "H"
+        end
+    end
+
+    def list
+        div.allCommands! :style => "width: 500px; margin: 0 100px" do
+            form.editForm! :action => R(New), :method => "post" do
+                ul do
+                    if @cmds.each do |cmd|
+                        li do 
+                            h2 { a cmd.name, :href => R(Show, cmd.name) }
+                            red cmd.doc
+                        end
+                    end.empty?
+                        h2 "No commands created yet."
+                    end
+
+                    li do
+                        text "Create command: "
+                        input :type => "text", :name => "cmd", :id=> "newCmd", :value => "shortcut",
+                              :onClick => "this.value == 'shortcut' ? this.value = '' : true"
+                    end
+                end
+            end
+        end
+    end
+
+    def authors
+        ul.authorList! do
+            @authors.each do |author, cmds|
+                li do
+                    strong author
+                    text " worked on: " +
+                        cmds.map { |cmd|
+                            capture { a cmd.name, :href => R(Show, cmd.name) }
+                        }.join(", ")
+                end
+            end
+        end
+    end
+
+    def recent
+        @days.each do |day, cmds|
+            strong day
+            ul do
+                cmds.each do |cmd|
+                    li do
+                        a cmd.name, :href => R(Show, cmd.name)
+                        div.byline "by #{ cmd.author } at #{ cmd.created_at.strftime("%H:%M") }"
+                    end
+                end
+            end
+        end
+    end
+
+    def show
+        h2 "Instructions"
+        red @version.doc
+
+        h2 "Code"
+        if defined? SYNTAX
+            SYNTAX.convert(@version.code)
+        else
+            pre @version.code
+        end
+
+        div.byline "Revised on #{ @version.created_at } by #{ @version.author }"
+
+        div.navigation do
+            a "Edit Page", :href => R(Edit, @version.name, @version.version), 
+                           :class => "navlink", :accesskey => "E"
+            unless @version.version == 1
+                a 'Back in time', :href => R(Show, @version.name, @version.version-1)
+            end
+            unless @version.version == @cmd.version
+                a 'Next',    :href => R(Show, @version.name, @version.version+1)
+                a 'Current', :href => R(Show, @version.name)
+            end
+            small "(#{ @cmd.version.size } revisions)"
+        end
+    end
+
+    def edit
+        form :id => "editForm", :action => R(Edit, @cmd.name), :method => "post", :onSubmit => "cleanAuthorName();" do
+            div :style => "margin: 0 100px;" do
+                h2 "Instructions"
+                textarea @cmd.doc, :name => "command[doc]", :style => "width: 450px; height: 120px"
+
+                h2 "Code"
+                textarea @cmd.code, :name => "command[code]", :style => "width: 450px; height: 380px"
+
+                p do
+                    input :type => "submit", :value => "Save"; text " as "
+                    input :type => "text", :name => "command[author]", :id => "authorName", :value => @author,
+                          :onClick => "this.value == '#{ CampSh::ANON }' ? this.value = '' : true"; text " | "
+                    a "Cancel", :href => "/cancel_edit/#{ @cmd.name }"
+                end
+            end
+
+            script <<-END, :language => "JavaScript1.2"
+                function cleanAuthorName() {
+                    if (document.getElementById('authorName').value == "") {
+                        document.getElementById('authorName').value = '#{ @anon }';
+                    }
+                }
+            END
+        end
+    end
+
+    def howto
+        red %[
+            Here's the rundown on CampShell.  It's wiki-like storage for simple Ruby scripts.  You can then run these scripts from
+            the URL.  So, your job is to fill up CampShell with these commands, some of which can be found
+            "here":http://mousehole.rubyforge.org/wiki/wiki.pl?CampShells.
+
+            h2. Using with Firefox
+
+            For best effect, go to @about:config@ and set @keyword.URL@ to @http://#{env['HTTP_HOST']}#{self./ "/run/"}@. Restart Firefox,
+            you will then be able to run commands directly from the address bar.
+
+            For example:
+
+            * @new google@ will open the page for creating a new @google@ command.
+            * @show google@ will display the documentation for that command once it is saved.
+            * @edit google@ will open the editor for the @google@ command.
+            * @google mousehole commands@ will run the @google@ command with the arguments @mousehole@ and @commands@.
+            * @list all@ or @keyword:list@ displays all commands.
+            * @howto ?@ or @keyword:howto@ shoots you over to this page.
+        ].gsub(/^ +/, '')
+    end
+end
+
+if __FILE__ == $0
+  CampSh::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'campsh.db'
+  CampSh::Models::Base.logger = Logger.new('camping.log')
+  CampSh.create
+  puts CampSh.run
+end