maveric 0.1.0 → 0.2.0

data/maveric/extensions.rb

@@ -0,0 +1,94 @@
+class Module
+  alias_method :__to_s, :to_s
+  private :__to_s
+  ## Prepends a :: to the string represendation of itself.
+  def to_s; "::#{__to_s}"; end
+  ## Build a string akin toa relative url of the nesting structure.
+  def nesting_path
+    self.to_s.
+      gsub(/([a-z])([A-Z])/, '\1_\2').
+      gsub(/::/, '/').
+      downcase
+  end
+  # ::nodoc::
+  def self.nesting_path_to_constant path
+    dig=proc{|c,n| c.const_get(n)}
+    path.gsub(/_([a-z])/){$1.upcase}.split('/')
+  end
+end
+
+class Symbol
+  # #to_s makes sense, but #to_i is just as effective.
+  def <=> o; o.instance_of?(Symbol) ? self.to_i <=> o.to_i : super; end
+end
+
+module Enumerable
+  # blink> wtf do I call this? #find{|e| r = do_stuff(e) and break r }
+  # manveru> map.find
+  # LoganCapaldo> first_mapped
+  # LoganCapaldo> find_such_that
+  # tpope> Enumerable#eject
+  # blink> o.O
+  # tpope> returns on the first non-nil yield
+  # tpope> it rhymes with select and detect and reject and collect and inject
+  # tpope> it's a little confusing, but it's a confusing concept
+
+  ##
+  # Used to return the first value for which the black evalutes as true.
+  # Think .map(&b).compact.first
+  def eject &b; find{|e| r=b[e] and break r }; end
+end
+
+##
+# Extensions to StandardError to enable their usage in Maveric as responses.
+class StandardError
+  DEFAULT_STATUS = 500
+  DEFAULT_HEADERS = {'Content-Type'=>'text/plain'}
+  attr_writer :status, :headers, :body
+  def status; @status or DEFAULT_STATUS; end
+  def headers; @headers or DEFAULT_HEADERS; end
+  ## Unless @body is defined, a self inspect and backtrace is output.
+  def body; @body or [inspect, *backtrace]*"\n"; end
+  ## See ::Maveric::Controller#to_http
+  def to_http
+    response = "Status: #{status}"+::Maveric::EOL
+    response << headers.map{|(k,v)| "#{k}: #{v}" }*::Maveric::EOL
+    response << ::Maveric::EOL*2 + body
+  end
+  alias_method :old_init, :initialize
+  ##
+  # After a bit of experimenting with Exception and raise I determinee a fun
+  # and simple way to generate fast HTTP response error thingies. As long as
+  # you're within a call to dispatch (with no further rescue clauses) the
+  # StandardError will propogate up and be returned. As a StandardError has
+  # similar accessors as a Controller, they should be compatible with any
+  # outputting implimentation.
+  #
+  #   raise StandardErrpr; # 500 error
+  #   raise StandardError, 'Crap!'; # 500 error with message set to 'Crap!'
+  #   raise StandardError, [status, headers, body, *other_data] # Magic!
+  #
+  # In the final example line an Array is passed to raise as a second argument
+  # rather than a String. This is taken as the HTTP status code. The next
+  # element is tested to be a Hash, if so then it's values are merged into
+  # the HTTP headers. Then next item is tested to be a String, if so it is
+  # appended to the response body. All remaining elements are appended to
+  # the response body in inspect format.
+  #
+  # A simple way of only including data that might be interpreted to being the
+  # status, headers, or body is to place a nil previous to the data you want
+  # apended to the response body.
+  def initialize data=nil
+    #consider autosettign @status, like 503 for NoMethodError
+    if data.is_a? Array and data[0].is_a? Integer
+      @body = ''
+      @status = data.shift if Integer === data.first
+      @headers = DEF_HEADERS.merge data.shift if Hash === data.first
+      @body << data.shift if String === data.first
+      msg = @body.dup
+      @body << "\n\n#{data.compact.map{|e|e.inspect}*"\n"}" unless data.empty?
+      data = msg
+    end
+    old_init data
+  end
+end

data/maveric/mongrel.rb

@@ -13,7 +13,7 @@ class Maveric::MongrelHandler < Mongrel::HttpHandler
   # NOTE: Update doc.
   def process request, response
     Maveric.log.info "Mongrel+#{self.class}#process"
-    reply = @maveric.dispatch request.body, request.params
+    reply = @maveric.process request.body, request.params
     # output the result
     response.start reply.status do |head,out|
       reply.headers.each {|k,v| head[k] = v }
@@ -25,7 +25,7 @@ class Maveric::MongrelHandler < Mongrel::HttpHandler
   def request_begins params
     begin
       Maveric.log.info "Mongrel+#{self.class}#request_begins"
-      @maveric.prep_env params
+      @maveric.prepare_environment params
     rescue
       Maveric.log.fatal "#{$!.inspect}\n#{$@[0..5]*"\n"}"
     end

data/maveric/sessions.rb

@@ -0,0 +1,73 @@
+module Maveric
+  ##
+  # Contains session data and provides conveniance in generating an appropriate
+  # cookie.
+  class Sessions < Set
+    COOKIE_NAME = 'SESSIONID'
+
+    def session id #wants stringed hex num
+      #ensure crusty old sessions don't linger
+      @__i += 1 rescue @__i = 1
+      reject!{|s| s.expire < Time.now-3 } if (@__i%=10) == 0
+      # now get the session
+      session = find{|s| s.id == id } and return session
+      #there isn't one? then make a new one!
+      push Session.new and return last
+    end
+
+    ##
+    # Because apparently sessions are handy or helpful or something like that.
+    # Implemented as that the hex of their #object_id (the one you'd see in
+    # an Object#inspect) is treated as a session id.
+    class Session
+      DURATION = 15*60
+      ## The default session length is 15 minutes. Simple to change.
+      def initialize duration=DURATION
+        ::Maveric.type_check :duration, duration, Integer
+        @duration, @data = duration, {}
+        touch
+        ::Maveric.log.debug self
+      end
+      attr_reader :expires, :data, :duration
+      ## Returns an upcased hexed object_id, not #object_id.to_s(16) however.
+      def id; @id||=[object_id<<1].pack('i').unpack('I')[0].to_s(16).upcase; end
+      ##
+      # One session is less than another if it expires sooner. Useful if we
+      # are managing in a manner akin to a priority stack.
+      def <=> obj; Session === obj ? self.expires <=> obj.expires : super; end
+      ## Set this session's expiry to @duration+Time.now
+      def touch; @expires = Time.now.gmtime + Integer(@duration); end
+      ## Perhaps better named as #to_cookie for clarity?
+      def to_s env=nil
+        touch
+        c = "#{::Maveric::Sessions::COOKIE_NAME}=#{id}" #required
+        c << "; expires=#{expires.httpdate}"
+        return c unless env
+        c << "; domain=#{env['SERVER_NAME']};"
+        # need to determine a good way to discern proper path.
+        # pertinant Maveric?
+        c << "; secure" if false
+        c
+      end
+    end
+  end
+  @sessions = Sessions.new
+  ## Return the standard session set.
+  def self.sessions; @sessions; end
+  ## Return a session via Session#session
+  def self.session id; @sessions.session id; end
+  ##
+  # Uses env[:cookie] to find the session_id, and retrives the data to set the
+  # valuse or env[:session].
+  def env_1_session env
+    session_id = env[:cookies][::Maveric::Sessions::COOKIE_NAME].first
+    env[:session] = ::Maveric.session session_id 
+  end
+  class Controller
+    ## Touches the session and includes it into the http headers.
+    def cleanup_1_sessions
+      @env[:session].touch
+      @headers['Set-Cookie'] = [@env[:session].to_s(@env)]
+    end
+  end
+end

metadata

@@ -3,9 +3,9 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: maveric
 version: !ruby/object:Gem::Version 
-  version: 0.1.0
-date: 2007-01-19 00:00:00 -07:00
-summary: A simple, non-magical, framework
+  version: 0.2.0
+date: 2007-01-22 00:00:00 -07:00
+summary: A simple, non-magical, framework.
 require_paths: 
 - .
 email: blinketje@gmail.com
@@ -33,7 +33,8 @@ files:
 - maveric/mongrel.rb
 - maveric/fastcgi.rb
 - maveric/webrick.rb
-- maveric/stadik-impl.rb
+- maveric/sessions.rb
+- maveric/extensions.rb
 test_files: []
 
 rdoc_options: []

data/maveric/stadik-impl.rb

@@ -1,113 +0,0 @@
-#!/usr/bin/ruby
-%w~maveric maveric/mongrel erubis~.each{|m|require m}
-Dir.chdir File.dirname __FILE__
-
-class SDKNet < Maveric
-  def self.load_mime_map(file,mime={})
-    mime = mime.merge(YAML.load_file(file))
-    mime.each {|k,v| $log.warn{"WARNING: MIME type #{k} must start with '.'"} if k.index(".") != 0 }
-    mime
-  end
-  module Views
-    def standard content
-      menu = [
-        [path_to(Index, :page => 'about'), 'About', 'Myth/Truth'],
-        ['http://blog.stadik.net', 'Blog', 'Finding('+%w(Thought Home Popularity Greatness Definition Meaning Happiness Reason Love Life Intelligence Worth).at(rand(12))+')'],
-        [path_to(Index, :page => 'resume'), 'Resumé', 'I work'],
-        [path_to(Index, :page => 'link'), 'Linkage', 'here we go']
-      ]
-      std = <<-STD
-    <div class="tablist" id="pmenu">
-      <ul>
-        <li><a title="Home" href="<%= path_to(Index) %>"><img border="0" src="http://media.stadik.net/stadik.png" title="SDK | StaDiK" id="homelogo" alt="" /></a></li>
-        <% menu.each do |entry| %>
-        <li class='<%= 'here' if @page == entry[0] %>'><a href='<%= entry[0] %>' title='<%= entry[2] %>'><%= entry[1] %></a></li>
-        <% end %>
-      </ul>
-    </div>
-
-    <div id='pcontent'>
-<!-- START CONTENT -->
-
-<%= content %>
-
-<!-- END CONTENT -->
-    </div>
-
-    <div class="tablist" id="pfoot">
-      <ul>
-        <li><a href="http://www.gvisit.com/map.php?sid=9e05735b2b78466e2fbc8538bf9b0c1c">where</a></li>
-        <li><a href="http://validator.w3.org/check?uri=referer">valid?</a></li>
-        <li><a>1995-2006&#169;SDKm</a><a rel="licence" title="All content on this website (including text, photographs, audio files, and any other original works), unless otherwise noted, is licensed under a Creative Commons License." href="http://creativecommons.org/licenses/by-nc-nd/2.5/">CCL:2.5</a></li>
-      </ul>
-    </div>
-      STD
-      ::Erubis::Eruby.new(std).result(binding)
-    end
-    def layout content
-      lyt = <<-LAYOUT
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE html PUBLIC>
-<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
-  <head>
-    <title>StaDiK.net</title>
-    <link rel="stylesheet" href="/z/style.css" type="text/css" media="screen"/>
-    <meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
-    <meta name="DC.title" content="StaDiK Motions"/>
-    <meta name="DC.description" content="Scytrin&amp;apos;s mucking about on the net."/>
-    <meta name="DC.creator.name" content="Scytrin dai Kinthra"/>
-    <meta name="geo.position" content="37.3069;-121.9271"/>
-    <meta name="geo.placename" content="San Jose"/>
-    <meta name="geo.region" content="US-CA"/>
-    <meta name="microid" content="5abf847090c9afe2172e0efe6636ba2c86e3d60d"/>
-    <% if @page and File.exists?(csf=@page+'.css') %>
-    <link rel='stylesheet' href='/z/<%= csf %>' type='text/css' media='screen' />
-    <% end %>
-  </head>
-  <body id="<%= @page || 'default' %>">
-<%= content %>
-  </body>
-</html>
-      LAYOUT
-      ::Erubis::Eruby.new(lyt).result(binding)
-    end
-  end
-  class Index < Controller
-    MIME_MAP = SDKNet.
-      load_mime_map('mime.yaml')
-    set_routes %w~/ /:page~
-    def get
-      @page = @env[:route_info][:page] || 'home'
-
-      fns = Dir[File.join(Dir.pwd,@page)+'.*'].
-        delete_if{|e| File.basename(e)[/^\./] }.
-        select{|e| MIME_MAP.include?(File.extname(e)) }
-
-      if fn = fns.inject do |f,e| # going to hell for this code.
-          %w{.wiki .erb .html .htm .txt}.include?(File.extname(e)) ? e : f
-        end
-        content = File.read(fn)
-        content = ::Erubis::Eruby.new(content).
-          result(binding) if File.extname(fn)=='.erb'
-        render :standard, content
-      else
-        raise ::Maveric::ServerError, [404, 'Fucking drop bears.']
-      end
-    end
-  end
-end
-
-h = Mongrel::HttpServer.new("0.0.0.0", "9081")
-h.register("/", Maveric::MongrelHandler.new(SDKNet))
-Signal.trap('INT') do
-  puts "Shutting down server."
-  h.acceptor.raise Mongrel::StopServer
-end
-h.run.join
-
-__END__
-
-require 'ruby-prof'
-result = RubyProf.profile { h.run.join }
-RubyProf::GraphHtmlPrinter.new(result).
-  print(File.open('prof.html','w'), 0)