camping 1.1 → 1.2

data/README

@@ -0,0 +1,69 @@
+== Camping, a Microframework
+
+Camping is a web framework which consistently stays at less than 4kb of code.
+You can probably view the complete source code on a single page.  But, you know,
+it's so small that, if you think about it, what can it really do?
+
+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:
+
+  require 'camping'
+  
+  module Camping::Models
+    class Post < Base; belongs_to :user; end
+    class Comment < Base; belongs_to :user; end
+    class User < Base; end
+  end
+
+  module Camping::Controllers
+    class Index < R '/'
+      def get
+        @posts = Post.find :all
+        render :index
+      end
+    end
+  end
+
+  module Camping::Views
+    def layout
+      html do
+        body do
+          self << yield
+        end
+      end
+    end
+
+    def index
+      for post in @posts
+        h1 post.title
+      end
+    end
+  end
+
+  if __FILE__ == $0
+    Camping::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog3.db'
+    Camping::Models::Base.logger = Logger.new('camping.log')
+    Camping.run
+  end
+
+Some things you might have noticed:
+
+* Camping::Models uses ActiveRecord to do its work.  We love ActiveRecord!
+* 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.
+
+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
+web server.  You might have a blog at /blog and a wiki at /wiki.  Each
+self-contained.  But you can certainly share layouts and models by storing them
+in plain Ruby scripts.
+
+Interested yet?  Okay, okay, one step at a time.
+
+== Installation
+
+* <tt>gem install camping</tt>

data/examples/blog/blog.rb

@@ -1,16 +1,30 @@
 #!/usr/bin/env ruby
 
-#$:.unshift File.dirname(__FILE__) + "/../../lib"
+$:.unshift File.dirname(__FILE__) + "/../../lib"
 require 'rubygems'
 require 'camping'
   
-module Camping::Models
+Camping.goes :Blog
+
+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
 
-module Camping::Controllers
+Blog::Models.schema do
+#  create_table :posts, :force => true do |t|
+#    t.column :title, :string, :limit => 255
+#    t.column :body, :text
+#  end
+end
+
+module Blog::Controllers
     class Index < R '/'
         def get
             @posts = Post.find :all
@@ -32,16 +46,20 @@ module Camping::Controllers
         end
     end
 
-    class Info
-        def get
-            pre cookies.inspect
+    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 = Comment.find :all, :conditions => ['post_id = ?', post_id]
+            @comments = Models::Comment.find :all, :conditions => ['post_id = ?', post_id]
             render :view
         end
     end
@@ -64,7 +82,7 @@ module Camping::Controllers
      
     class Comment
         def post
-            Comment.create(:username => input.post_username,
+            Models::Comment.create(:username => input.post_username,
                        :body => input.post_body, :post_id => input.post_id)
             redirect View, input.post_id
         end
@@ -99,17 +117,17 @@ module Camping::Controllers
     end
 end
 
-module Camping::Views
+module Blog::Views
 
     def layout
       html do
         head do
           title 'blog'
           link :rel => 'stylesheet', :type => 'text/css', 
-               :href => 'styles.css', :media => 'screen'
+               :href => '/styles.css', :media => 'screen'
         end
         body do
-          h1.header { a 'blog', :href => '/' }
+          h1.header { a 'blog', :href => R(Index) }
           div.content do
             self << yield
           end
@@ -120,7 +138,7 @@ module Camping::Views
     def index
       if @posts.empty?
         p 'No posts found.'
-        p { a 'Add', :href => '/add' }
+        p { a 'Add', :href => R(Add) }
       else
         for post in @posts
           _post(post)
@@ -130,17 +148,17 @@ module Camping::Views
 
     def login
       p { b @login }
-      p { a 'Continue', :href => '/add' }
+      p { a 'Continue', :href => R(Add) }
     end
 
     def logout
       p "You have been logged out."
-      p { a 'Continue', :href => '/' }
+      p { a 'Continue', :href => R(Index) }
     end
 
     def add
       if @session
-        _form(post, :action => '/add')
+        _form(post, :action => R(Add))
       else
         _login
       end
@@ -148,7 +166,7 @@ module Camping::Views
 
     def edit
       if @session
-        _form(post, :action => '/edit')
+        _form(post, :action => R(Edit))
       else
         _login
       end
@@ -163,7 +181,7 @@ module Camping::Views
           p c.body
         end
 
-        form :action => '/comment', :method => 'post' do
+        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
@@ -175,7 +193,7 @@ module Camping::Views
 
     # partials
     def _login
-      form :action => '/login', :method => 'post' do
+      form :action => R(Login), :method => 'post' do
         label 'Username', :for => 'username'; br
         input :name => 'username', :type => 'text'; br
 
@@ -190,15 +208,15 @@ module Camping::Views
       h1 post.title
       p post.body
       p do
-        a "Edit", :href => "/edit/#{post.id}"
-        a "View", :href => "/view/#{post.id}"
+        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 #{@session.username} | "
-        a 'Logout', :href => '/logout'
+        a 'Logout', :href => R(Logout)
       end
       form({:method => 'post'}.merge(opts)) do
         label 'Title', :for => 'post_title'; br
@@ -214,8 +232,11 @@ module Camping::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
+
 if __FILE__ == $0
-    Camping::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog3.db'
-    Camping::Models::Base.logger = Logger.new('camping.log')
-    Camping.run
+    Blog.run
 end

data/examples/charts/charts.rb

@@ -0,0 +1,89 @@
+#!/usr/bin/env ruby
+
+$:.unshift File.dirname(__FILE__) + "/../../lib"
+$:.unshift File.dirname(__FILE__)
+require 'rubygems'
+require 'fileutils'
+require 'camping'
+require 'rvg/rvg'
+require 'pie'
+  
+Camping.goes :Charts
+
+module Charts::Controllers
+  class Index < R '/'
+    def get
+      # find all charts
+      @charts = Dir.glob("charts/*.gif").sort_by{|f|f.match(/(\d+)/)[1].to_i}.reverse
+      
+      # keep only ten charts
+      (@charts[10..-1] || []).each{|f|FileUtils.rm(f,:force => true)}
+      @charts = @charts[0..9]
+      
+      render :index
+    end
+  end
+  
+  class Create < R '/create'
+    def post
+      # get our data
+      slices = input.data.split(',')
+      slices.reject!{|slice| slice !~ /\d+/}
+      slices.map!{|slice| slice.match(/(\d+)/)[1].to_i}
+      slices = [100] if slices.empty?
+      
+      data = slices.map{|slice| {:value => slice, :style => "rgb(#{rand(255)},#{rand(255)},#{rand(255)})"}}
+      
+      # save our chart
+      chart = Pie.new(data)
+      i = Dir.glob("charts/*.gif").map{|f|f.match(/(\d+)/)[1].to_i + 1}.max || 1
+      chart.draw(25).write("charts/#{i}.gif")
+      
+      redirect Index
+    end
+  end
+  
+  class Chart < R '/charts/(.+\.gif)'
+    def get filename
+      @headers["Content-Type"] = "image/gif"
+      
+      @body = File.read("charts/#{filename}")
+    end
+  end
+end
+
+module Charts::Views
+
+  def layout
+    html do
+      head do
+        title 'Charts!'
+      end
+      body do
+        div.content do
+          self << yield
+        end
+      end
+    end
+  end
+
+  def index
+    form(:method => 'post', :action => '/create') do
+      label do
+        input :name => 'data', :type => 'text', :value => '10,20,30'
+      end
+      input :type => 'submit', :value => 'Prepare a chart'
+    end
+    
+    div.charts do
+      @charts.each do |src|
+        img :src => src
+      end
+    end
+  end
+    
+end
+ 
+if __FILE__ == $0
+  Charts.run
+end

data/examples/charts/pie.rb

@@ -0,0 +1,70 @@
+class Pie
+    
+  RADIANS = Math::PI/180
+  MIN_PERCENT = (0.1 / 360.0) * 100
+  MAX_PERCENT = 100 - MIN_PERCENT
+  
+  def initialize(data)
+    @data = data
+  end
+  
+  def draw(size)
+    position = size / 2
+    offset = (size < 20 ? 1 : size / 20)
+    offset = 5 if offset > 5
+    radius = position - offset
+    
+    total = @data.inject(0){|sum, item| sum + item[:value].to_f}
+    percent_scale = 100.0 / total
+
+    full_circle = false
+    angles = [12.5 * 3.6 * RADIANS]
+    slices = []
+    
+    @data.each do |item|
+      percent = percent_scale * item[:value].to_f
+      percent = MIN_PERCENT if percent < MIN_PERCENT
+      if percent > MAX_PERCENT
+        full_circle = item
+      else
+        prev_angle = angles.last
+        angles << prev_angle + (percent * 3.6 * RADIANS)
+        slices << {:start => angles[-2], :end => angles[-1], :style => item[:style]}
+    	end
+    end
+    
+    rvg = Magick::RVG.new(size,size) do |canvas|
+      canvas.background_fill = 'white'
+      
+      # is there a full circle here? then draw it
+      canvas.circle(radius,position,position).styles(:fill => full_circle[:style]) if full_circle
+      
+      # draw the fills of the slices
+      slices.each do |slice|
+        canvas.path(slice_path(position,position,radius,slice[:start],slice[:end])).styles(:fill => slice[:style])
+      end
+      
+      # outline the graph
+      canvas.circle(radius,position,position).styles(:stroke => 'black', :stroke_width => 0.7, :fill => 'transparent')
+      
+      # draw lines between each slice
+      angles[0..-2].each do |a|
+        canvas.line(position, position, position+(Math.sin(a)*radius), position-(Math.cos(a)*radius)).styles(:stroke => 'black', :stroke_width => 0.7, :fill => 'transparent')
+      end
+    end
+    
+    rvg.draw
+
+  end
+  
+protected
+
+  def slice_path(x, y, size, start_angle, end_angle)
+    x_start = x+(Math.sin(start_angle) * size)
+    y_start = y-(Math.cos(start_angle) * size)
+    x_end = x+(Math.sin(end_angle) * size)
+    y_end = y-(Math.cos(end_angle) * size)
+    "M#{x},#{y} L#{x_start},#{y_start} A#{size},#{size} 0, #{end_angle - start_angle >= 50 * 3.6 * RADIANS ? '1' : '0'},1, #{x_end} #{y_end} Z"
+  end
+  
+end

data/examples/charts/start

@@ -0,0 +1,6 @@
+#!/usr/bin/ruby
+require 'webrick/httpserver'
+s = WEBrick::HTTPServer.new(:BindAddress => 'localhost', :Port => 3044)
+s.mount("/", WEBrick::HTTPServlet::CGIHandler, "charts.rb")
+trap( :INT ) { s.shutdown }
+s.start

data/examples/serve

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+#
+# Serves all examples, mounted into Webrick.
+#
+require 'stringio'
+require 'webrick/httpserver'
+
+dir = Dir.pwd
+apps = 
+    Dir['*'].select do |d|
+        Dir.chdir(dir)
+        if File.exists? "#{d}/#{d}.rb"
+            begin
+                Dir.chdir("#{dir}/#{d}")
+                load "#{d}.rb"
+                true
+            rescue Exception => e
+                puts "Camping app `#{d}' will not load: #{e.class} #{e.message}"
+            end
+        end
+    end
+apps.map! do |app|
+    [app, (Object.const_get(Object.constants.grep(/^#{app}$/i)[0]) rescue nil)]
+end
+
+s = WEBrick::HTTPServer.new(:BindAddress => '0.0.0.0', :Port => 3301)
+apps.each do |app, klass|
+    s.mount_proc("/#{app}") do |req, resp|
+        Object.instance_eval do
+            remove_const :ENV
+            const_set :ENV, req.meta_vars
+        end
+        def resp.<<(data)
+            raw_header, body = "#{data}".split(/^[\xd\xa]+/on, 2) 
+
+            begin
+              header = WEBrick::HTTPUtils::parse_header(raw_header)
+              if /^(\d+)/ =~ header['status'][0]
+                self.status = $1.to_i
+                header.delete('status')
+              end
+              header.each{|key, val| self[key] = val.join(", ") }
+            rescue => ex
+              raise WEBrick::HTTPStatus::InternalServerError, ex.message
+            end
+            self.body = body
+        end
+        Dir.chdir("#{dir}/#{app}")
+        klass.run((req.body and StringIO.new(req.body)), resp)
+        Dir.chdir(dir)
+        nil
+    end
+end
+trap(:INT) do
+    s.shutdown
+end
+s.start