mongo-camping-test.rb

gem 'camping' , '>= 2.0'
gem 'mongo', '= 1.0' #Using 1.0 since MongoMapper explicitly

%w(rack camping mongo mongo_mapper).each { | r | require r}

Camping.goes :MongoTest

module MongoTest
	def self.create
		MongoMapper.connection = Mongo::Connection.new
		MongoMapper.database = 'test'
	end

	module Models
		class Widget
			include MongoMapper::Document
			
			key :code, String
			key :description, String
			key :price, Float
			
			validates_numericality_of :price
			validates_true_for :price, 
				:logic=> lambda { | x | (0.05..9999.99) === x.price }, 
				:message=>"must be in the following range: 0.05 to 9999.99"

			set_collection_name 'widgets'
		end
	end

	module Controllers
		class Index
			def get
				@widgets = Widget.all

				render :index
			end
		end
		
		class AddWidget < R "/widget/new"
			def get
				@widget = Widget.new(:code=>'', :description=>'', :price=>0)
				render :widget_form
			end
			
			def post
				return(redirect('/index')) unless input.widget_code && input.widget_description && input.widget_price
				
				@widget = Widget.create(:code => input.widget_code,
												:description => input.widget_description,
												:price => input.widget_price)
				
				begin
					@widget.save!
					@widgets = Widget.all
					return(render(:index))
				rescue Exception => ex
					@errors = @widget.errors || [ ex.to_s ]
					return(render(:widget_form))
				end

			end
		end
		
		class SearchWidgetByCode < R '/widget/search'
			def get
				render :search_form
			end
			
			def post
				return(redirect('/index')) unless input.widget_code
				
				w = Widget.find_by_code input.widget_code
				@widgets = [ ] 
				@widgets << w if w
				
				render :index
			end
		end
	end
	
	module Views
		def layout
			html do
				head do					   
					style  :type => 'text/css' do
	<<-STYLE				
	body {
		padding:0 0 0 0;
		margin:5px;
		font-family:'Lucida Grande','Lucida Sans Unicode',sans-serif;
		font-size: 0.8em;
		color:#303030;
		background-color: #fbf9b5;
	}

	a {
		color:#303030;
		text-decoration:none;
		border-bottom:1px dotted #505050;
	}

	a:hover {
		color:#303030;
		background: yellow;
		text-decoration:none;
		border-bottom:4px solid orange;
	}

	h1 {
		font-size: 14px;
		color: #cc3300;
	}

	table {
		font-size:0.9em;
		width: 400px;
		}

	tr 
	{
		background:lightgoldenRodYellow;
		vertical-align:top;
	}

	th
	{
		font-size: 0.9em;
		font-weight:bold;
		background:lightBlue none repeat scroll 0 0;
		
		text-align:left;	
	}

	.url
	{
		width: 300px;
	}
		
	STYLE
					end
				end
				
				body do
					self << yield

					a "Home", :href=>"/"
					div.footer! do
						hr
						span.copyright_notice! { "Copyright &copy; 2010 &nbsp; -  #{ a('Philippe Monnet (@techarch)', :href => 'http://blog.monnet-usa.com/') }  " }
					end
				end
			end
		end
	
		def index
			h1 "Widgets"

			if @widgets 
				table do
						tr { th 'id'; th 'Code'; th 'Description'; th 'Price'; }
					@widgets.each do | w |
						tr {  	td w._id; 
								td w.code; 
								td w.description; 
								td w.price;  }
					end
				end
			else
				p "No widgets yets"
			end

			ul do
				li { a "Search", :href => "/widget/search" }
				li { a "Create", :href => "/widget/new" }
			end
		end
		
		def widget_form
			h2 "New Widget"

			if @errors
				h3 "Errors:"
				ol do
					@errors.each do | e |
						li { div "#{e[0]}: #{e[1].join(' ')}" }
					end
				end
			end
			
			form :action => R(AddWidget), :method => 'post' do
			  label 'Code:', :for => 'widget_code'; br
			  input :name => 'widget_code', :type => 'text', :value => @widget.code; br

			  label 'Description:', :for => 'widget_description'; br
			  input :name => 'widget_description', :type => 'text', :value => @widget.description; br

			  label 'Price:', :for => 'widget_price'; br
			  input :name => 'widget_price', :type => 'text', :value => @widget.price.to_s; br
			  
			  input :type => 'submit', :value => 'Save'
			end
		end
		
		def search_form
			h2 "Search"
			p @info if @info
			
			form :action => R(SearchWidgetByCode), :method => 'post' do
			  label 'Code', :for => 'widget_code'; br
			  input :name => 'widget_code', :type => 'text'; br
			  input :type => 'submit', :value => 'Search'
			end
		end
		
	end
end

MongoTest.create