nitro 0.1.2

data/examples/simple/conf/config.rb

@@ -0,0 +1,89 @@
+# = Configuration
+#
+# === Design:
+#
+# Use a separate file for configuration, makes the
+# main file more readable, and allows for reconfiguring
+# (reload) the webapp without restarting the server.
+#
+# FIXME: redesign this!
+#
+# code: gmosx
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: config.rb 89 2004-10-20 12:55:58Z gmosx $
+
+require "n/std"
+require "n/properties"
+require "n/logger"
+require "n/config"
+
+$name = "Simple"
+$root_dir = "simple/root"
+
+# Main logger
+
+$log = Logger.new("simple/logs/app.log", 10); 
+
+# Events logger
+
+$elog = Logger.new("simple/logs/events.log", "weekly"); 
+
+require "n/db"
+require "n/app/cluster"
+require "n/config"
+
+require "simple/conf/requires"
+require "simple/conf/overrides"
+
+$srv_extension_map = {
+	"sx" => ["text/html",
+#			N::App::AutoLoginFilter.new(
+				N::App::PageHandler.new
+#			)
+	],
+	"si" => ["text/html",
+		N::App::PageHandler.new
+	],
+	"rx" => ["text/html",
+#		N::App::AutoLoginFilter.new(
+			N::App::CodeHandler.new
+#		)
+	]
+}
+
+# enable distributed sessions.
+$drb_state = true 
+$drb_lm_server = "druby://:9000"
+$drb_sessions_cluster = "druby://:8001"
+
+module App
+
+# Config
+#
+module Config
+
+	def initialize_sitemap
+	end
+
+	#
+	#
+	def initialize_shaders
+#		$default_shader = N::NilShader.new
+		$default_shader = N::Shader.new("simple", "#{$root_dir}/shader/shader.xsl")
+	end
+
+	def initialize_events
+		$events = $event_manager = N::EventManager.new($elog)
+
+		# Example event:
+		$events.add_handler(
+			"messages/add", "ranking", proc { |user|
+				# nop
+			}
+		)
+	end
+
+end
+
+end # module

data/examples/simple/conf/debug-config.rb

@@ -0,0 +1,53 @@
+# = Debug Configuration
+#
+# Configuration to use while debugging, this is slow.
+#--
+# code:
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: debug-config.rb 84 2004-10-19 13:57:01Z gmosx $
+#++
+
+require "simple/conf/config"
+
+puts "DEBUG configuration\n\n"
+
+# If set to true disables xsl caching. Usefull when debugging xsls.
+
+$reload_xsl = true
+
+# If set to true disables script compilation. Usefull when debugging
+# statically included scripts.
+
+$reload_scripts = true
+
+# Logger (redirect to STDERR)
+
+$log = Logger.new(STDERR); 
+$log.level = Logger::DEBUG
+
+# Events logger
+
+$elog = Logger.new(STDERR); 
+$elog.level = Logger::INFO
+
+# Database
+
+$db = N::Db.new(
+	:address => "localhost",
+	:database => "simple",
+	:user => "postgres",
+	:password => "navelrulez",
+	# gmosx: NEVER set to 1 to avoid deadlocks! 
+	:connection_count => 5
+)
+
+$appsrv_address = "127.0.0.1"
+$appsrv_port = 9090
+$srv_url = "http://127.0.0.1:8080"
+#$srv_url = "http://192.168.0.3:8080"
+
+# gmosx: no error page in debug mode to avoid loops when there
+# is a bug in the handler code or the shader.
+$error_page_url = nil

data/examples/simple/conf/live-config.rb

@@ -0,0 +1,48 @@
+# = Live Configuration
+#
+# Configuration to use in the live server, optimized for speed.
+#
+#--
+# code:
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: live-config.rb 87 2004-10-19 17:27:45Z gmosx $
+#++
+
+require "simple/conf/config"
+
+puts "LIVE configuration\n\n"
+
+# If set to true disables xsl caching. Usefull when debugging xsls.
+
+$reload_xsl = false
+
+# If set to true disables script compilation. Usefull when debugging
+# statically included scripts.
+
+$reload_scripts = false
+
+# Logger
+
+$log.level = Logger::INFO
+
+# Events logger
+
+$elog.level = Logger::INFO
+
+# Database
+
+$db = N::Db.new(
+	:address => "localhost",
+	:database => "simple",
+	:user => "postgres",
+	:password => "navelrulez",
+	:connection_count => 20
+)
+
+$appsrv_address = "127.0.0.1"
+$appsrv_port = 9090
+$srv_url = "http://127.0.0.1:8080"
+#$srv_url = "http://192.168.0.3:8080"
+

data/examples/simple/conf/overrides.rb

@@ -0,0 +1,9 @@
+# = Simple
+#
+# Framework overrides.
+#
+# === Todo:
+#
+# - find a better name for this file.
+
+

data/examples/simple/conf/requires.rb

@@ -0,0 +1,51 @@
+# = Requires all needed files
+#
+# === Design:
+#
+# Collect all requires in one file includable
+# in multiple executable scripts. Moreover, it
+# makes the main script file more readable.
+#
+# === Ideas:
+#
+# - use load instead of require to make reloadable?
+#
+#--
+# code: 
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: requires.rb 84 2004-10-19 13:57:01Z gmosx $
+#++
+
+require "n/std"
+require "n/properties"
+
+require "n/db"
+require "n/l10n"
+require "n/logger"
+require "n/parts"
+require "n/events"
+require "n/shaders"
+require "n/mixins"
+require "n/sitemap"
+
+require "n/utils/number"
+require "n/utils/string"
+require "n/utils/gfx"
+require "n/utils/html"
+require "n/utils/hash"
+require "n/utils/array"
+
+require "n/ui/popup"
+require "n/ui/select"
+require "n/ui/pager"
+require "n/ui/tabs"
+require "n/ui/date-select"
+
+require "n/app/cluster"
+require "n/app/handlers/page-handler"
+require "n/app/handlers/code-handler"
+
+require "articles/part"
+

data/examples/simple/ctl

@@ -0,0 +1,32 @@
+#! /bin/sh
+
+ARGV="$@"
+
+case $ARGV in
+start)
+  /usr/sbin/httpd -d `pwd` -f conf/apache.conf
+	ruby -C../../.. nitro/bin/cluster.rb --daemon
+  ruby -C.. simple/app.rb --start # --daemon
+  ERROR=$?
+  ;;
+restart)
+  # restart appserver only!
+  export ASPID= `ps ax | grep app.rb | grep ruby | cut -d" " -f1`
+  if [ -n "$ASPID" ]; then   
+    echo $ASPID
+    kill -9 $ASPID
+  fi 
+  ruby -C.. simple/app.rb --restart # --daemon
+  ERROR=$?
+  ;;
+stop)
+  killall -9 ruby httpd
+  ERROR=$?
+  ;;
+*)
+  echo "NOP"
+  ERROR=$?
+esac
+
+exit $ERROR
+

data/examples/simple/env.rb

@@ -0,0 +1,33 @@
+# = Environment
+#
+# Require this file in your script to gain access to the full 
+# AppServer environment.
+#
+# code: 
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: env.rb 69 2004-10-18 09:33:17Z gmosx $
+
+$:.unshift ".."
+$:.unshift "simple/lib"
+$:.unshift "../lib"
+
+$DBG = true 
+$DBG ? (require "simple/conf/debug-config") : (require "simple/conf/live-config")
+
+require "n/app/server"
+require "n/db/tools" # very useful :)
+
+$drb_lm_server = "druby://:10000"
+
+module App
+
+class Server < N::App::Server
+	include App::Config	
+end
+
+end # module
+
+$app = App::Server.new.exec()
+

data/examples/simple/install.rb

@@ -0,0 +1,12 @@
+# = Install
+#
+#--
+# code:
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: install.rb 84 2004-10-19 13:57:01Z gmosx $
+#++
+
+`createdb simple -U postgres`
+

data/examples/simple/lib/articles/entities.rb

@@ -0,0 +1,35 @@
+# = Entities for the Articles part.
+#
+#--
+# code:
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: entities.rb 87 2004-10-19 17:27:45Z gmosx $
+#++
+
+module N
+
+# = Article
+#
+class Article
+	include N::Entity
+	include N::CreateTime
+	manage {
+	prop_accessor String, :title
+	prop_accessor String, :body
+	}
+end
+
+# = Comment
+#
+class Comment
+	include N::Entity
+	include N::Child
+	include N::CreateTime
+	manage {
+	prop_accessor String, :body
+	}
+end
+
+end # module

data/examples/simple/lib/articles/lc-en.rb

@@ -0,0 +1,36 @@
+# = Base English Localization Dictionary
+#
+#--
+# code:
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: lc-en.rb 84 2004-10-19 13:57:01Z gmosx $
+#++
+
+$lc_en.update({
+
+:general => "General",
+:edit => "Edit",
+:add => "Add",
+:del => "Delete",
+:cancel => "Cancel",
+:preview => "Preview",
+:store => "Store",
+:update => "Update",
+:submit => "Submit",
+:title => "Title",
+:body => "Body",
+:description => "Description",
+:answer => "Answer",
+:refresh => "Refresh",
+:select_all => "Select all",
+:clear_all => "Clear all",
+
+# search
+
+:search => "Search",
+:search_results => "Search results",
+:results_found => proc { |count| "#{count} results found" }
+
+})

data/examples/simple/lib/articles/methods.rb

@@ -0,0 +1,55 @@
+# = Methods for the Articles part.
+#
+#--
+# code:
+# George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: methods.rb 84 2004-10-19 13:57:01Z gmosx $
+#++
+
+module P
+
+module ArticlesMethods
+
+	# Add an article
+	#
+	def add_article(request)
+		if request.delete("add_article")
+			article = N::Article.new
+			request.update_entity(article)
+			$db << article
+			request.redirect("index.sx")
+		end
+	end
+	
+	# Delete an article
+	#
+	def del_article(request)
+		if oid = request.delete("del_article_oid")
+			$db.delete(oid.to_i, N::Article)
+		end
+	end
+
+	# Add a comment
+	#
+	def add_comment(request)
+		if pid = request.delete("add_comment_pid")
+			comment = N::Comment.new
+			comment.pid = pid
+			request.update_entity(comment)
+			$db << comment
+		end
+	end
+	
+	# Delete a comment
+	#
+	def del_comment(request)
+		if oid = request.delete("del_comment_oid")
+			$db.delete(oid.to_i, N::Comment)
+		end
+	end
+	
+end
+
+end # module