mongrel 1.2.0.pre2-x86-mswin32

data/examples/builder.rb

@@ -0,0 +1,29 @@
+require 'mongrel'
+
+class TestPlugin < GemPlugin::Plugin "/handlers"
+  include Mongrel::HttpHandlerPlugin
+
+  def process(request, response)
+    STDERR.puts "My options are: #{options.inspect}"
+    STDERR.puts "Request Was:"
+    STDERR.puts request.params.to_yaml
+  end
+end
+
+config = Mongrel::Configurator.new :host => "127.0.0.1" do
+  load_plugins :includes => ["mongrel"], :excludes => ["rails"]
+  daemonize :cwd => Dir.pwd, :log_file => "mongrel.log", :pid_file => "mongrel.pid"
+  
+  listener :port => 3000 do
+    uri "/app", :handler => plugin("/handlers/testplugin", :test => "that")
+    uri "/app", :handler => Mongrel::DirHandler.new(".")
+    load_plugins :includes => ["mongrel", "rails"]
+  end
+
+  trap("INT") { stop }
+  run
+end
+
+config.join
+
+

data/examples/camping/README

@@ -0,0 +1,3 @@
+To get these examples running, install Camping.
+
+Instructions here: http://code.whytheluckystiff.net/camping/

data/examples/camping/blog.rb

@@ -0,0 +1,294 @@
+#!/usr/bin/env ruby
+
+$:.unshift File.dirname(__FILE__) + "/../../lib"
+require 'rubygems'
+require_gem 'camping', '>=1.4'
+require 'camping/session'
+  
+Camping.goes :Blog
+
+module Blog
+    include Camping::Session
+end
+
+module Blog::Models
+    def self.schema(&block)
+        @@schema = block if block_given?
+        @@schema
+    end
+  
+    class Post < Base; belongs_to :user; end
+    class Comment < Base; belongs_to :user; end
+    class User < Base; end
+end
+
+Blog::Models.schema do
+    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
+    class Index < R '/'
+        def get
+            @posts = Post.find :all
+            render :index
+        end
+    end
+     
+    class Add
+        def get
+            unless @state.user_id.blank?
+                @user = User.find @state.user_id
+                @post = Post.new
+            end
+            render :add
+        end
+        def post
+            post = Post.create :title => input.post_title, :body => input.post_body,
+                               :user_id => @state.user_id
+            redirect View, post
+        end
+    end
+
+    class Info < R '/info/(\d+)', '/info/(\w+)/(\d+)', '/info', '/info/(\d+)/(\d+)/(\d+)/([\w-]+)'
+        def get(*args)
+            div do
+                code args.inspect; br; br
+                code ENV.inspect; br
+                code "Link: #{R(Info, 1, 2)}"
+            end
+        end
+    end
+
+    class View < R '/view/(\d+)'
+        def get post_id 
+            @post = Post.find post_id
+            @comments = Models::Comment.find :all, :conditions => ['post_id = ?', post_id]
+            render :view
+        end
+    end
+     
+    class Edit < R '/edit/(\d+)', '/edit'
+        def get post_id 
+            unless @state.user_id.blank?
+                @user = User.find @state.user_id
+            end
+            @post = Post.find post_id
+            render :edit
+        end
+     
+        def post
+            @post = Post.find input.post_id
+            @post.update_attributes :title => input.post_title, :body => input.post_body
+            redirect View, @post
+        end
+    end
+     
+    class Comment
+        def post
+            Models::Comment.create(:username => input.post_username,
+                       :body => input.post_body, :post_id => input.post_id)
+            redirect View, input.post_id
+        end
+    end
+     
+    class Login
+        def post
+            @user = User.find :first, :conditions => ['username = ? AND password = ?', input.username, input.password]
+     
+            if @user
+                @login = 'login success !'
+                @state.user_id = @user.id
+            else
+                @login = 'wrong user name or password'
+            end
+            render :login
+        end
+    end
+     
+    class Logout
+        def get
+            @state.user_id = nil
+            render :logout
+        end
+    end
+     
+    class Style < R '/styles.css'
+        def get
+            @headers["Content-Type"] = "text/css; charset=utf-8"
+            @body = %{
+                body {
+                    font-family: Utopia, Georga, serif;
+                }
+                h1.header {
+                    background-color: #fef;
+                    margin: 0; padding: 10px;
+                }
+                div.content {
+                    padding: 10px;
+                }
+            }
+        end
+    end
+end
+
+module Blog::Views
+
+    def layout
+      html do
+        head do
+          title 'blog'
+          link :rel => 'stylesheet', :type => 'text/css', 
+               :href => '/styles.css', :media => 'screen'
+        end
+        body do
+          h1.header { a 'blog', :href => R(Index) }
+          div.content do
+            self << yield
+          end
+        end
+      end
+    end
+
+    def index
+      if @posts.empty?
+        p 'No posts found.'
+        p { a 'Add', :href => R(Add) }
+      else
+        for post in @posts
+          _post(post)
+        end
+      end
+    end
+
+    def login
+      p { b @login }
+      p { a 'Continue', :href => R(Add) }
+    end
+
+    def logout
+      p "You have been logged out."
+      p { a 'Continue', :href => R(Index) }
+    end
+
+    def add
+      if @user
+        _form(post, :action => R(Add))
+      else
+        _login
+      end
+    end
+
+    def edit
+      if @user
+        _form(post, :action => R(Edit))
+      else
+        _login
+      end
+    end
+
+    def view
+        _post(post)
+
+        p "Comment for this post:"
+        for c in @comments
+          h1 c.username
+          p c.body
+        end
+
+        form :action => R(Comment), :method => 'post' do
+          label 'Name', :for => 'post_username'; br
+          input :name => 'post_username', :type => 'text'; br
+          label 'Comment', :for => 'post_body'; br
+          textarea :name => 'post_body' do; end; br
+          input :type => 'hidden', :name => 'post_id', :value => post.id
+          input :type => 'submit'
+        end
+    end
+
+    # partials
+    def _login
+      form :action => R(Login), :method => 'post' do
+        label 'Username', :for => 'username'; br
+        input :name => 'username', :type => 'text'; br
+
+        label 'Password', :for => 'password'; br
+        input :name => 'password', :type => 'text'; br
+
+        input :type => 'submit', :name => 'login', :value => 'Login'
+      end
+    end
+
+    def _post(post)
+      h1 post.title
+      p post.body
+      p do
+        a "Edit", :href => R(Edit, post)
+        a "View", :href => R(View, post)
+      end
+    end
+
+    def _form(post, opts)
+      p do
+        text "You are logged in as #{@user.username} | "
+        a 'Logout', :href => R(Logout)
+      end
+      form({:method => 'post'}.merge(opts)) do
+        label 'Title', :for => 'post_title'; br
+        input :name => 'post_title', :type => 'text', 
+              :value => post.title; br
+
+        label 'Body', :for => 'post_body'; br
+        textarea post.body, :name => 'post_body'; br
+
+        input :type => 'hidden', :name => 'post_id', :value => post.id
+        input :type => 'submit'
+      end
+    end
+end
+ 
+def Blog.create
+    Camping::Models::Session.create_schema
+    unless Blog::Models::Post.table_exists?
+        ActiveRecord::Schema.define(&Blog::Models.schema)
+    end
+end
+
+if __FILE__ == $0
+  require 'mongrel/camping'
+
+  Blog::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog.db'
+  Blog::Models::Base.logger = Logger.new('camping.log')
+  Blog::Models::Base.threaded_connections=false
+  Blog.create
+  
+  # Use the Configurator as an example rather than Mongrel::Camping.start
+  config = Mongrel::Configurator.new :host => "0.0.0.0" do
+    listener :port => 3002 do
+      uri "/blog", :handler => Mongrel::Camping::CampingHandler.new(Blog)
+      uri "/favicon", :handler => Mongrel::Error404Handler.new("")
+      trap("INT") { stop }
+      run
+    end
+  end
+
+  puts "** Blog example is running at http://localhost:3002/blog"
+  puts "** Default username is `admin', password is `camping'"
+  config.join
+end

data/examples/camping/tepee.rb

@@ -0,0 +1,149 @@
+#!/usr/bin/ruby
+$:.unshift File.dirname(__FILE__) + "/../../lib"
+%w(rubygems redcloth camping acts_as_versioned).each { |lib| require lib }
+
+Camping.goes :Tepee
+
+module Tepee::Models
+  def self.schema(&block)
+    @@schema = block if block_given?
+    @@schema
+  end
+  
+  class Page < Base
+    PAGE_LINK = /\[\[([^\]|]*)[|]?([^\]]*)\]\]/
+    validates_uniqueness_of :title
+    before_save { |r| r.title = r.title.underscore }
+    acts_as_versioned
+  end
+end
+
+Tepee::Models.schema do 
+  create_table :tepee_pages, :force => true do |t|
+    t.column :title, :string, :limit => 255
+    t.column :body, :text
+  end
+  Tepee::Models::Page.create_versioned_table
+end
+
+module Tepee::Controllers
+  class Index < R '/'
+    def get
+      redirect Show, 'home_page'
+    end
+  end
+
+  class List < R '/list'
+    def get
+      @pages = Page.find :all, :order => 'title'
+      render :list
+    end
+  end
+
+  class Show < R '/s/(\w+)', '/s/(\w+)/(\d+)'
+    def get page_name, version = nil
+      redirect(Edit, page_name, 1) and return unless @page = Page.find_by_title(page_name)
+      @version = (version.nil? or version == @page.version.to_s) ? @page : @page.versions.find_by_version(version)
+      render :show
+    end
+  end
+
+  class Edit < R '/e/(\w+)/(\d+)', '/e/(\w+)'
+    def get page_name, version = nil
+      @page = Page.find_or_create_by_title(page_name)
+      @page = @page.versions.find_by_version(version) unless version.nil? or version == @page.version.to_s
+      render :edit
+    end
+    
+    def post page_name
+      Page.find_or_create_by_title(page_name).update_attributes :body => input.post_body and redirect Show, page_name
+    end
+  end
+end
+
+module Tepee::Views
+  def layout
+    html do
+      head do
+        title 'test'
+      end
+      body do
+        p do
+          small do
+            span "welcome to " ; a 'tepee', :href => "http://code.whytheluckystiff.net/svn/camping/trunk/examples/tepee/"
+            span '. go ' ;       a 'home',  :href => R(Show, 'home_page')
+            span '. list all ' ; a 'pages', :href => R(List)
+          end
+        end
+        div.content do
+          self << yield
+        end
+      end
+    end
+  end
+
+  def show
+    h1 @page.title
+    div { _markup @version.body }
+    p do 
+      a 'edit',    :href => R(Edit, @version.title, @version.version)
+      a 'back',    :href => R(Show, @version.title, @version.version-1) unless @version.version == 1
+      a 'next',    :href => R(Show, @version.title, @version.version+1) unless @version.version == @page.version
+      a 'current', :href => R(Show, @version.title)                     unless @version.version == @page.version
+    end
+  end
+
+  def edit
+    form :method => 'post', :action => R(Edit, @page.title) do
+      p do
+        label 'Body' ; br
+        textarea @page.body, :name => 'post_body', :rows => 50, :cols => 100
+      end
+      
+      p do
+        input :type => 'submit'
+        a 'cancel', :href => R(Show, @page.title, @page.version)
+      end
+    end
+  end
+
+  def list
+    h1 'all pages'
+    ul { @pages.each { |p| li { a p.title, :href => R(Show, p.title) } } }
+  end
+
+  def _markup body
+    return '' if body.blank?
+    body.gsub!(Tepee::Models::Page::PAGE_LINK) do
+      page = title = $1
+      title = $2 unless $2.empty?
+      page = page.gsub /\W/, '_'
+      if Tepee::Models::Page.find(:all, :select => 'title').collect { |p| p.title }.include?(page)
+        %Q{<a href="#{self/R(Show, page)}">#{title}</a>}
+      else
+        %Q{<span>#{title}<a href="#{self/R(Edit, page, 1)}">?</a></span>}
+      end
+    end
+    RedCloth.new(body, [ :hard_breaks ]).to_html
+  end
+end
+
+def Tepee.create
+  unless Tepee::Models::Page.table_exists?
+    ActiveRecord::Schema.define(&Tepee::Models.schema)
+    Tepee::Models::Page.reset_column_information
+  end
+end
+
+if __FILE__ == $0
+  require 'mongrel/camping'
+
+  Tepee::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'tepee.db'
+  Tepee::Models::Base.logger = Logger.new('camping.log')
+  Tepee::Models::Base.threaded_connections=false
+  Tepee.create
+  
+  server = Mongrel::Camping::start("0.0.0.0",3000,"/tepee",Tepee)
+  puts "** Tepee example is running at http://localhost:3000/tepee"
+  server.acceptor.join
+end