monorail 0.0.1 → 0.0.3

data/lib/monorail/appgen.rb

@@ -0,0 +1,149 @@
+# $Id: appgen.rb 2406 2006-04-28 16:36:00Z francis $
+#
+# Monorail::Application
+# This runs a monorail system from a command-line binary.
+# The binary is generated by rake and invokes us here.
+#
+#--
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+
+
+
+
+require 'ostruct'
+require 'optparse'
+require 'pathname'
+
+
+module Monorail
+
+
+class ApplicationGenerator
+
+
+  def initialize
+  end
+
+
+  def run
+    parse_arguments
+    generate_directory
+  end
+
+
+  # nodoc:
+  # This hardcodes the monorail directory structure.
+  # Obviously not satisfactory. We'll need some softer way of doing this
+  # eventually.
+  # WE ARE ASSUMING the directory structure of the gem.
+  # We expect to be in directory lib/monorail, and we look to copy the
+  # directory found at ../../skel relative to ourself.
+  #
+  def generate_directory
+    target = File.expand_path( @options.dir )
+    puts "Creating monorail app in directory: #{target}"
+
+    if (@options.erase)
+      r = Readline.readline( "*** Erase the target directory [yN]? " )
+      unless r =~ /\Ay/i
+        puts "Exiting..."
+        exit
+      end
+      FileUtils.rm_rf target
+    end
+
+    skel = File.dirname( __FILE__ ) + "/../../skel/."
+    FileUtils.cp_r( skel, target )
+
+    File.open( target + "/monorail_config.rb", "w") {|f|
+      f.puts "# Monorail Config file"
+      f.puts "# Generated at #{Time.now}"
+      f.puts "#"
+      f.puts
+
+      f.puts <<EOF
+Monorail::Request::directory_alias "/public", "#{target}/public", :directory, false
+Monorail::Request::directory_alias "/", "#{target}/c", :monorail, false
+
+Monorail::Request::set_default_pathinfo "/public/index.html"
+
+Monorail::Request::use_sessions true
+
+Monorail::Request::verbose true
+Monorail::Request::debug true
+EOF
+
+      puts "Done."
+      puts "To see your new app:"
+      puts " Type: monorail server #{(@options.dir == ".") ? "" : "-d #{@options.dir}"}"
+      puts " Browse to: http://127.0.0.1:8900"
+    }
+  end
+
+  def parse_arguments
+    @options = OpenStruct.new
+    @options.dir = '.'
+    @options.erase = false
+
+    opts = OptionParser.new {|opts|
+      opts.banner = "Usage: monorail application [options]"
+
+      opts.separator ""
+      opts.separator "Options summary:"
+
+      opts.on("-d", "--dir [DIR]", "generate a monorail application in directory",
+            "     default: the current directory") do |d|
+        @options.dir = d
+      end
+
+      opts.on("--[no-]erase", "erase the target directory before copying files",
+        "    default: do not erase") {|erase|
+          @options.erase = erase
+      }
+
+      # Options summary
+      opts.on_tail("-h", "--help", "Show this message") {
+        puts opts
+        exit
+      }
+
+      # Version
+      opts.on_tail("--version", "Show version") {
+        puts Version
+        exit
+      }
+
+
+    }
+
+    opts.parse!(ARGV)
+
+  end
+
+
+end # class ApplicationGenerator
+
+
+end # module Monorail
+
+
+#----------------------
+

data/lib/monorail/congen.rb

@@ -0,0 +1,147 @@
+# $Id: congen.rb 2406 2006-04-28 16:36:00Z francis $
+#
+# Monorail::Generator
+# This invokes a command-line script to generate a monorail application shell.
+# The binary is generated by rake and invokes us here.
+#
+#--
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+
+
+require 'fileutils'
+require 'readline'
+
+
+module Monorail
+
+
+class ControllerGenerator
+
+
+  def initialize
+  end
+
+
+  def run
+    parse_arguments
+    generate_controller
+  end
+
+
+  def parse_arguments
+    @options = OpenStruct.new
+    @options.dir = '.'
+    @options.erase = false
+    @options.controller = nil
+
+    opts = OptionParser.new {|opts|
+      opts.banner = "Usage: monorail controller [options] [controller-name]"
+
+      opts.separator ""
+      opts.separator "Options summary:"
+
+      opts.on("-d", "--dir [DIR]", "generate a monorail controller in directory",
+            "     default: the current directory") do |d|
+        @options.dir = d
+      end
+
+      # Options summary
+      opts.on_tail("-h", "--help", "Show this message") {
+        puts opts
+        exit
+      }
+
+      # Version
+      opts.on_tail("--version", "Show version") {
+        puts Version
+        exit
+      }
+
+
+    }
+
+    opts.parse!(ARGV)
+    @options.controller = ARGV.shift
+
+
+  end
+
+
+
+  def generate_controller
+    cont = @options.controller
+    unless cont and cont.length > 0
+      puts "No controller specified, exiting."
+      puts "For help: monorail controller --help"
+      exit
+    end
+
+    if cont =~ /[^\w\d]/
+      puts "Illegal characters in controller name, exiting."
+      puts "For help: monorail controller --help"
+      exit
+    end
+
+    path = File.expand_path( @options.dir )
+    puts "Generating controller: #{cont}"
+    puts "         in directory: #{path}"
+
+    target = File.join( path, "c", cont )
+
+    if File.exist?(target) || File.exist?(target+".rb")
+      r = Readline.readline( "*** Controller #{cont} already exists. Erase it [yN]? " )
+      unless r =~ /\Ay/i
+        puts "Controller not re-generated, exiting."
+        exit
+      end
+
+      puts "Erasing existing controller and re-generating"
+      FileUtils.rm( target + ".rb" )
+      FileUtils.rm_rf( target )
+    end
+
+    File.open( target + ".rb", "w" ) do |f|
+      f.write <<EOF
+# Monorail controller #{cont}
+# Generated #{Time.now}
+
+module Controller_#{cont}
+
+  def index
+    "---Monorail: #{cont}---"
+  end
+
+end
+EOF
+    end
+
+   FileUtils.mkdir target
+
+    puts "Generated controller #{cont}"
+  end
+
+
+end
+
+
+end # module Monorail
+
+

data/lib/monorail/monorail_webd.rb

@@ -25,7 +25,6 @@
 
 
 
-require 'dl/import'
 require 'timeout'
 require 'stringio'
 require 'cgi'
@@ -38,28 +37,6 @@ module Monorail
 
 
 
-#
-# Link in the external library for WEBD (socket-machine handler).
-# And set up the callbacks so we can handle requests here.
-#
-=begin
-  extend DL::Importable
-  dlload "./libwebd"
-
-  def request_callback
-    m = Request.new
-    resp = m.generate_response
-    fulfill_webd_request m.http_response_code, resp, resp.length
-  end
-
-  RequestCallback = callback "void request_callback()"
-
-  extern "void initialize_webd (void*)"
-  extern "void fulfill_webd_request (int, const char*, int)"
-  extern "const void *retrieve_post_content()"
-=end
-
-
 #
 # class SessionManager
 # Generate sessions and session keys.
@@ -346,6 +323,17 @@ class Request
     @@debug = d
   end
 
+  #
+  # Default pathinfo, if specified, causes us to redirect requests to "/"
+  # TODO: We need some kind of handling for favicon.ico and robots.txt.
+  # Maybe we need to detect when path_info contains only a single branch
+  # and does not specify the name of a known controller.
+  # THIS IS CURRENTLY INCOMPLETE.
+  @@default_pathinfo = nil
+  def self.set_default_pathinfo pi
+    @@default_pathinfo = pi
+  end
+
 
 
   # class DirectoryAlias
@@ -487,6 +475,10 @@ class Request
   # generate_content
   #
   def generate_content
+    if @cgi.path_info == '/' and @@default_pathinfo
+      return redirect_to( @@default_pathinfo )
+    end
+
     diralias = @@directory_aliases.detect {|da| da.match_request @cgi.path_info }
 
     diralias or raise FileNotFound
@@ -614,7 +606,8 @@ class Request
     @headers ['Cache-control'] = "no-cache"
 
     @extra_paths = paths || []
-    @path_prefix = File.join( path_prefix, "pages" )
+    #@path_prefix = File.join( path_prefix, "pages" )
+    @path_prefix = File.join( path_prefix, action )
     instance_eval verb
 
   end

data/lib/monorail/server.rb

@@ -0,0 +1,122 @@
+# $Id: server.rb 2406 2006-04-28 16:36:00Z francis $
+#
+# Monorail::Application
+# This runs a monorail system from a command-line binary.
+# The binary is generated by rake and invokes us here.
+#
+#--
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+
+
+
+
+require 'ostruct'
+require 'optparse'
+
+
+module Monorail
+
+
+class MonorailServer
+
+
+  def initialize
+  end
+
+
+  def run
+    options = OpenStruct.new
+    options.host = "127.0.0.1"
+    options.port = 8900
+    options.ssl = false
+    options.daemon = false
+    options.environment = :monorail
+    options.directory = "."
+
+    opts = OptionParser.new {|opts|
+
+      opts.separator ""
+      opts.separator "Options summary:"
+
+      opts.on("-a", "--addr IP-address",
+        "Requires the host IP address to listen on",
+        "    default: 127.0.0.1") {|addr|
+          options.host = addr
+      }
+
+      opts.on("-p", "--port TCP port",
+        "Requires the TCP port to listen on",
+        "    default: 8900") {|port|
+          options.port = port.to_i
+      }
+
+      opts.on("-s", "--[no-]ssl", "Require SSL (HTTPS)",
+        "    default: false") {|ssl|
+          options.ssl = ssl
+      }
+
+      #opts.on("-d", "--[no-]daemon", "Run in the background",
+      #  "    default: false") {|d|
+      #    options.daemon = d
+      #}
+
+      opts.on("-e", "--env ENVIRONMENT", "execution environment",
+            "    choices: monorail, rails, static",
+            "    default: monorail") {|e|
+        options.environment = e.to_s.downcase.intern
+      }
+
+      opts.on("-d", "--dir DIRECTORY", "directory where the application is located",
+            "    default: the current directory") {|d|
+        options.directory = d.to_s
+      }
+
+
+      # Options summary
+      opts.on_tail("-h", "--help", "Show this message") {
+        puts opts
+        exit
+      }
+
+      # Version
+      opts.on_tail("--version", "Show version") {
+        puts Version
+        exit
+      }
+
+
+    }
+
+    opts.parse!(ARGV)
+    Monorail.new( options ).run
+
+  end
+
+
+
+end # class MonorailServer
+
+
+end # module Monorail
+
+
+#----------------------
+