wunderbar 0.8.0

data/COPYING

@@ -0,0 +1,18 @@
+Copyright (c) 2009 Sam Ruby <rubys@intertwingly.net>
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to
+deal in the Software without restriction, including without limitation the
+rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+sell copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER 
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Manifest

@@ -0,0 +1,13 @@
+COPYING
+README
+Rakefile
+lib/cgi-spa.rb
+lib/wunderbar/builder.rb
+lib/wunderbar/cgi-methods.rb
+lib/wunderbar/environment.rb
+lib/wunderbar/html-methods.rb
+lib/wunderbar/installation.rb
+lib/wunderbar/job-control.rb
+lib/wunderbar/version.rb
+test/test_html_markup.rb
+Manifest

data/README

@@ -0,0 +1,61 @@
+= cgi-spa: Common Gateway Interface for Single Page Applications
+
+CGI-SPA provides a number of globals, helper methods, and monkey patches which
+simplify the development of single page applications in the form of CGI
+scripts.
+
+== Globals provided
+* $cgi   - Common Gateway Interface
+* $param - Access to parameters (read-only OpenStruct like interface)
+* $env   - Access to environment variables (read-only OpenStruct like interface)
+* $x     - XmlBuilder instance
+* $USER  - Host user id
+* $HOME  - Home directory
+* $SERVER- Server name
+* SELF   - Request URI
+* SELF?  - Request URI with '?' appended (avoids spoiling the cache)
+
+* $USER   - user
+* $HOME   - user's home directory
+* $HOST   - server host
+
+* $HTTP_GET   - request is an HTTP GET
+* $HTTP_POST  - request is an HTTP POST
+* $XHR_JSON   - request is XmlHttpRequest for JSON
+* $XHTML      - user agent accepts XHTML responses
+
+== HTML methods
+* style!  - argument is indented text/data
+* system! - run command and capture output
+* script! - argument is indented text/data
+* body?   - capture exceptions, and produce a stack traceback
+
+== CGI methods
+* json    - produce JSON output using the block specified
+* json!   - produce JSON output using the block specified and exit
+* html    - produce HTML output using the block specified
+* html!   - produce HTML output using the block specified and exit
+* post    - execute block only if method is POST
+* post!   - if POST, produce HTML output using the block specified and exit
+
+== Helper methods
+* submit: runs command (or block) as a deamon process
+
+== OpenStruct methods (for $params and $env)
+* untaint_if_match: untaints value if it matches a regular expression
+
+== Builder extensions
+* indented_text: matches text indentation to markup
+* indented_data: useful for script and styles in HTML syntax
+* traceback!: formats an exception traceback
+* method_missing: patched to ensure open tags are closed
+
+== Command line options
+When run from the command line, CGI name=value pairs can be specified.
+Additionally, the following options are supported:
+* --html: HTML (HTTP GET) output is expected
+* --post: HTML (HTTP POST) output is expected
+* --json: JSON (XML HTTP Request) output is expected
+* --xhtml: XHTML output is expected
+* --prompt: prompt for key/value pairs using stdin
+* --install=path: produce an suexec-callable wrapper script

data/Rakefile

@@ -0,0 +1,26 @@
+require 'rubygems'
+require 'rake'
+require 'echoe'
+
+require File.expand_path(File.dirname(__FILE__) + "/lib/wunderbar/version")
+
+Echoe.new('wunderbar', Wunderbar::VERSION::STRING) do |p|
+  p.summary    = "CGI Builder"
+  p.description    = <<-EOF
+    Provides a number of globals, helper methods, and monkey patches which
+    simplify the development of generation of HTML and other artifacts for
+    CGI scripts.
+  EOF
+  p.url            = "http://github.com/rubys/wunderbar"
+  p.author         = "Sam Ruby"
+  p.email          = "rubys@intertwingly.net"
+  p.dependencies   = %w(
+    builder
+    json
+  )
+end
+
+Rake::TestTask.new do |t|
+  t.libs << 'test'
+  t.test_files = FileList['test/test*.rb']
+end

data/lib/cgi-spa.rb

@@ -0,0 +1,11 @@
+require 'cgi'
+require 'builder'
+require 'json'
+
+require 'cgi-spa/environment'
+require 'cgi-spa/cgi-methods'
+require 'cgi-spa/html-methods'
+require 'cgi-spa/job-control'
+require 'cgi-spa/installation'
+require 'cgi-spa/builder'
+

data/lib/wunderbar/builder.rb

@@ -0,0 +1,107 @@
+# add indented_text!, indented_data! and traceback! methods to builder
+module Builder
+  class XmlMarkup
+    unless method_defined? :indented_text!
+      def indented_text!(text)
+        indented_data!(text) {|data| text! data}
+      end
+    end
+
+    unless method_defined? :indented_data!
+      def indented_data!(data, &block)
+        return if data.strip.length == 0
+
+        if @indent > 0
+          data.sub! /\n\s*\Z/, ''
+          data.sub! /\A\s*\n/, ''
+
+          unindent = data.sub(/s+\Z/,'').scan(/^ +/).map(&:length).min || 0
+
+          before  = ::Regexp.new('^'.ljust(unindent+1))
+          after   =  " " * (@level * @indent)
+          data.gsub! before, after
+        end
+
+        if block
+          block.call(data)
+        else
+          self << data
+        end
+
+        _newline unless data =~ /\n\Z/
+      end
+    end
+
+    unless method_defined? :traceback!
+      def traceback!(exception=$!, klass='traceback')
+        pre :class=>klass do
+          text! exception.inspect
+          _newline
+          exception.backtrace.each {|frame| text!((' '*@indent)+frame + "\n")}
+        end
+      end
+    end
+  end
+end
+
+# monkey patch to ensure that tags are closed
+test = 
+  Builder::XmlMarkup.new.html do |x|
+    x.body do
+     begin
+       x.p do
+         raise Exception.new('boom')
+       end
+     rescue Exception => e
+       x.pre e
+     end
+    end
+  end
+
+if test.index('<p>') and !test.index('</p>')
+  module Builder
+    class XmlMarkup
+      def method_missing(sym, *args, &block)
+          text = nil
+        attrs = nil
+        sym = "#{sym}:#{args.shift}" if args.first.kind_of?(Symbol)
+        args.each do |arg|
+          case arg
+          when Hash
+            attrs ||= {}
+            attrs.merge!(arg)
+          else
+            text ||= ''
+            text << arg.to_s
+          end
+        end
+        if block
+          unless text.nil?
+            raise ArgumentError, "XmlMarkup cannot mix a text argument with a block"
+          end
+          _indent
+          _start_tag(sym, attrs)
+          _newline
+          begin ### Added
+            _nested_structures(block)
+          ensure ### Added
+            _indent
+            _end_tag(sym)
+            _newline
+          end ### Added
+        elsif text.nil?
+          _indent
+          _start_tag(sym, attrs, true)
+          _newline
+        else
+          _indent
+          _start_tag(sym, attrs)
+          text! text
+          _end_tag(sym)
+          _newline
+        end
+        @target
+      end
+    end
+  end
+end

data/lib/wunderbar/cgi-methods.rb

@@ -0,0 +1,117 @@
+# produce json
+def $cgi.json
+  return unless $XHR_JSON
+  output = yield
+rescue Exception => exception
+  Kernel.print "Status: 500 Internal Error\r\n"
+  output = {
+    :exception => exception.inspect,
+    :backtrace => exception.backtrace
+  }
+ensure
+  if $XHR_JSON
+    Kernel.print "Status: 404 Not Found\r\n" unless output
+    $cgi.out? 'type' => 'application/json', 'Cache-Control' => 'no-cache' do
+      begin
+        JSON.pretty_generate(output)+ "\n"
+      rescue
+        output.to_json + "\n"
+      end
+    end
+  end
+end
+
+# produce json and quit
+def $cgi.json! &block
+  return unless $XHR_JSON
+  json(&block)
+  Process.exit
+end
+
+# produce text
+def $cgi.text &block
+  return unless $TEXT
+  @output = []
+  def $cgi.puts(line='')
+    @output << line + "\n"
+  end
+  def $cgi.print(line=nil)
+    @output << line
+  end
+  self.instance_eval &block
+rescue Exception => exception
+  Kernel.print "Status: 500 Internal Error\r\n"
+  @output << "\n" unless @output.empty?
+  @output << exception.inspect + "\n"
+  exception.backtrace.each {|frame| @output << "  #{frame}\n"}
+ensure
+  class << $cgi
+    undef puts
+    undef print
+  end
+  if $TEXT
+    Kernel.print "Status: 404 Not Found\r\n" if @output.empty?
+    $cgi.out? 'type' => 'text/plain', 'Cache-Control' => 'no-cache' do
+      @output.join
+    end
+    @output = nil
+  end
+end
+
+# produce text and quit
+def $cgi.text! &block
+  return unless $TEXT
+  json(&block)
+  Process.exit
+end
+
+# Conditionally provide output, based on ETAG
+def $cgi.out?(headers, &block)
+  content = block.call
+  require 'digest/md5'
+  etag = Digest::MD5.hexdigest(content)
+
+  if ENV['HTTP_IF_NONE_MATCH'] == etag.inspect
+    Kernel.print "Status: 304 Not Modified\r\n\r\n"
+  else
+    $cgi.out headers.merge('Etag' => etag.inspect) do
+      content
+    end
+  end
+end
+
+# produce html/xhtml
+def $cgi.html(&block)
+  return if $XHR_JSON or $TEXT
+  x = HtmlMarkup.new
+  if $XHTML
+    $cgi.out? 'type' => 'application/xhtml+xml', 'charset' => 'UTF-8' do
+      x._! "\xEF\xBB\xBF"
+      x.declare! :DOCTYPE, :html
+      x.html :xmlns => 'http://www.w3.org/1999/xhtml', &block
+    end
+  else
+    $cgi.out? 'type' => 'text/html', 'charset' => 'UTF-8' do
+      x._! "\xEF\xBB\xBF"
+      x.declare! :DOCTYPE, :html
+      x.html &block
+    end
+  end
+end
+
+# produce html and quit
+def $cgi.html! &block
+  return if $XHR_JSON or $TEXT
+  html(&block)
+  Process.exit
+end
+
+# post specific logic (doesn't produce output)
+def $cgi.post
+  yield if $HTTP_POST
+end
+
+# post specific content (produces output)
+def $cgi.post! &block
+  html!(&block) if $HTTP_POST
+end

data/lib/wunderbar/environment.rb

@@ -0,0 +1,108 @@
+# safety first!
+$SAFE = 1 unless $UNSAFE or $SAFE > 1
+
+# explicit request types
+$HTTP_GET  = ARGV.delete('--html')
+$HTTP_POST = ARGV.delete('--post')
+$XHR_JSON  = ARGV.delete('--json')
+$XHTML     = ARGV.delete('--xhtml')
+$TEXT      = ARGV.delete('--text')
+
+# Only prompt if explicitly asked for
+ARGV.push '' if ARGV.empty?
+ARGV.delete('--prompt') or ARGV.delete('--offline')
+
+# standard objects
+$cgi = CGI.new
+
+def $cgi.validate(validations)
+  $SAFE = 1
+  $cgi.params.each do |key, values|
+    next unless validations.include? key
+    values.each do |value|
+      unless value =~ validations[key]
+        raise SecurityError.new("CGI parameter #{key} doesn't match #{validations[key]}")
+      end
+      value.untaint
+    end
+  end
+end
+
+$param = $cgi.params
+$x = Builder::XmlMarkup.new :indent => 2
+
+# implied request types
+$HTTP_GET  ||= ($cgi.request_method == 'GET')
+$HTTP_POST ||= ($cgi.request_method == 'POST')
+$XHR_JSON  ||= ($cgi.accept.to_s =~ /json/)
+$XHTML     ||= ($cgi.accept.to_s =~ /xhtml/)
+$TEXT      ||= ($cgi.accept.to_s =~ /plain/ and $cgi.accept.to_s !~ /html/)
+
+# get arguments if CGI couldn't find any... 
+$param.merge!(CGI.parse(ARGV.join('&'))) if $param.empty?
+
+module Wunderbar
+  module Untaint
+    def untaint_if_match regexp
+      self.untaint if regexp.match(self)
+    end
+  end
+end
+
+# fast path for accessing CGI parameters
+def $param.method_missing(name)
+  if has_key? name.to_s
+    if self[name.to_s].length == 1
+      self[name.to_s].first.extend(Wunderbar::Untaint)
+    else
+      self[name.to_s].join 
+    end
+  end
+end
+
+$env = {}
+def $env.method_missing(name)
+  delete name.to_s if ENV[name.to_s] != self[name.to_s]
+  if ENV[name.to_s] and not has_key?(name.to_s)
+    self[name.to_s]=ENV[name.to_s].dup.extend(Wunderbar::Untaint)
+  end
+  self[name.to_s]
+end
+
+# quick access to request_uri
+SELF = ENV['REQUEST_URI'].to_s
+def SELF?
+  if SELF.include? '?'
+    SELF
+  else
+    SELF + "?" # avoids spoiling the cache
+  end
+end
+
+# environment objects
+$USER = ENV['REMOTE_USER'] || ENV['USER'] ||
+  if RUBY_PLATFORM =~ /darwin/
+    `dscl . -search /Users UniqueID #{Process.uid}`.split.first
+  else
+    `getent passwd #{Process.uid}`.split(':').first
+  end
+
+$USER = $USER.dup.untaint if $USER =~ /^\w+$/
+
+ENV['REMOTE_USER'] ||= $USER
+
+$HOME   = ENV['HOME'] || File.expand_path('~' + $USER)
+$SERVER = ENV['HTTP_HOST'] || `hostname`.chomp
+
+# more implied request types
+$XHR_JSON  ||= ($env.REQUEST_URI.to_s =~ /\?json$/)
+$TEXT      ||= ($env.REQUEST_URI.to_s =~ /\?text$/)
+
+# set encoding to UTF-8
+ENV['LANG'] ||= "en_US.UTF-8"
+if defined? Encoding
+  Encoding.default_external = Encoding::UTF_8
+  Encoding.default_internal = Encoding::UTF_8
+else
+  $KCODE = 'U'
+end

data/lib/wunderbar/html-methods.rb

@@ -0,0 +1,208 @@
+# smart style, knows that the content is indented text/data
+def $x.style!(text)
+  text.slice! /^\n/
+  text.slice! /[ ]+\z/
+  $x.style :type => "text/css" do
+    if $XHTML
+      indented_text! text
+    else
+      indented_data! text
+    end
+  end
+end
+
+# smart script, knows that the content is indented text/data
+def $x.script!(text)
+  text.slice! /^\n/
+  text.slice! /[ ]+\z/
+  $x.script :lang => "text/javascript" do
+    if $XHTML
+      indented_text! text
+    else
+      indented_data! text
+    end
+  end
+end
+
+# execute a system command, echoing stdin, stdout, and stderr
+def $x.system!(command, opts={})
+  require 'open3'
+  output_class = opts[:class] || {}
+  stdin  = output_class[:stdin]  || 'stdin'
+  stdout = output_class[:stdout] || 'stdout'
+  stderr = output_class[:stderr] || 'stderr'
+
+  $x.pre command, :class=>stdin unless opts[:echo] == false
+
+  require 'thread'
+  semaphore = Mutex.new
+  Open3.popen3(command) do |pin, pout, perr|
+    [
+      Thread.new do
+        until pout.eof?
+          out_line = pout.readline.chomp
+          semaphore.synchronize { $x.pre out_line, :class=>stdout }
+        end
+      end,
+
+      Thread.new do
+        until perr.eof?
+          err_line = perr.readline.chomp
+          semaphore.synchronize { $x.pre err_line, :class=>stderr }
+        end
+      end,
+
+      Thread.new do
+        if opts[:stdin].respond_to? :read
+          require 'fileutils'
+          FileUtils.copy_stream opts[:stdin], pin
+        elsif opts[:stdin]
+          pin.write opts[:stdin].to_s
+        end
+        pin.close
+      end
+    ].each {|thread| thread.join}
+  end
+end
+
+def $x.body? args={}
+  traceback_class = args.delete('traceback_class')
+  traceback_style = args.delete('traceback_style')
+  traceback_style ||= 'background-color:#ff0; margin: 1em 0; padding: 1em; ' +
+    'border: 4px solid red; border-radius: 1em'
+  $x.body(args) do
+    begin
+      yield
+    rescue ::Exception => exception
+      text = exception.inspect
+      exception.backtrace.each {|frame| text += "\n  #{frame}"}
+
+      if traceback_class
+        $x.pre text, :class=>traceback_class
+      else
+        $x.pre text, :style=>traceback_style
+      end
+    end
+  end
+end
+
+# Wrapper class that understands HTML
+class HtmlMarkup
+  VOID = %w(
+    area base br col command embed hr img input keygen
+    link meta param source track wbr
+  )
+
+  def initialize(*args, &block)
+    # as a migration aide, use the global variable, but consider that
+    # to be deprecated.
+    $x ||= Builder::XmlMarkup.new :indent => 2
+    @x = $x
+  end
+
+  def html(*args, &block)
+    @x.html(*args) { instance_exec(@x, &block) }
+  end
+
+  def method_missing(name, *args, &block)
+    if name.to_s =~ /^_(\w+)(!|\?|)$/
+      name, flag = $1, $2
+    else
+      error = NameError.new "undefined local variable or method `#{name}'", name
+      error.set_backtrace caller
+      raise error
+    end
+
+    if flag != '!'
+      if %w(script style).include?(name)
+        if String === args.first and not block
+          text = args.shift
+          if $XHTML
+            block = Proc.new {@x.indented_text! text}
+          else
+            block = Proc.new {@x.indented_data! text}
+          end
+        end
+
+        args << {} if args.length == 0
+        if Hash === args.last
+          args.last[:lang] ||= 'text/javascript' if name == 'script'
+          args.last[:type] ||= 'text/css' if name == 'style'
+        end
+      end
+
+      # ensure that non-void elements are explicitly closed
+      if args.length == 0 or (args.length == 1 and Hash === args.first)
+        args.unshift '' if not VOID.include?(name) and not block
+      end
+
+      # remove attributes with nil values
+      args.last.delete_if {|key, value| value == nil} if Hash === args.last
+    end
+
+    if flag == '!'
+      # turn off indentation
+      indent, level = @x.instance_eval { [@indent, @level] }
+      begin
+        @x.instance_eval { [@indent=0, @level=0] }
+        @x.text! " "*indent*level
+        @x.tag! name, *args, &block
+      ensure
+        @x.text! "\n"
+        @x.instance_eval { [@indent=indent, @level=level] }
+      end
+    elsif flag == '?'
+      # capture exceptions, produce filtered tracebacks
+      options = (Hash === args.last)? args.last : {}
+      traceback_class = options.delete(:traceback_class)
+      traceback_style = options.delete(:traceback_style)
+      traceback_style ||= 'background-color:#ff0; margin: 1em 0; ' +
+        'padding: 1em; border: 4px solid red; border-radius: 1em'
+      @x.tag!(name, *args) do
+        begin
+          block.call
+        rescue ::Exception => exception
+          text = exception.inspect
+          exception.backtrace.each do |frame| 
+            next if frame =~ %r{/cgi-spa/}
+            next if frame =~ %r{/gems/.*/builder/}
+            text += "\n  #{frame}"
+          end
+    
+          if traceback_class
+            $x.pre text, :class=>traceback_class
+          else
+            $x.pre text, :style=>traceback_style
+          end
+        end
+      end
+    else
+      @x.tag! name, *args, &block
+    end
+  end
+
+  def _head(*args, &block)
+    @x.tag!('head', *args) do
+      @x.meta :charset => 'utf-8' unless $XHTML
+      block.call if block
+    end
+  end
+
+  def _(text=nil)
+    @x.indented_text! text if text
+    @x
+  end
+
+  def _!(text=nil)
+    @x.text! text if text
+    @x
+  end
+
+  def declare!(*args)
+    @x.declare!(*args)
+  end
+
+  def target!
+    @x.target!
+  end
+end

data/lib/wunderbar/installation.rb

@@ -0,0 +1,54 @@
+# option to create an suexec callable wrapper
+install = ARGV.find {|arg| arg =~ /--install=(.*)/}
+if install and ARGV.delete(install)
+
+  # scope out the situation
+  dest = File.expand_path($1)
+  main = File.expand_path(caller.last[/^(.*):\d+(:|$)/,1])
+
+  # if destination is a directory, determine an appropriate file name
+  if File.directory?(dest)
+    if dest =~ /\/cgi-bin\/?$/
+      dest = File.join(dest, File.basename(main))
+    else
+      dest = File.join(dest, File.basename(main).sub(/\.rb$/,'.cgi'))
+    end
+  end
+
+  # prevent accidental overwrite
+  if File.exist?(dest) and not ARGV.delete('-f')
+    STDERR.puts "File #{dest} already exists.  (Specify -f to overwrite)"
+    Process.exit
+  end
+
+  # ensure destination directory exists
+  destdir = File.dirname(dest)
+  if not File.exist?(destdir) or not File.directory?(destdir)
+    STDERR.puts "Directory #{destdir} does not exist."
+    Process.exit
+  end
+
+  # output wrapper
+  open(dest,'w') do |file|
+    # she-bang
+    file.puts "#!" + File.join(
+      RbConfig::CONFIG["bindir"],
+      RbConfig::CONFIG["ruby_install_name"] + RbConfig::CONFIG["EXEEXT"]
+    )
+
+    # Change directory
+    file.puts "Dir.chdir #{File.dirname(main).inspect}"
+
+    # Optional data from the script (after __END__)
+    file.puts DATA.read if Object.const_defined? :DATA
+
+    # Load script
+    file.puts "require #{File.basename(main).sub(/\.rb$/,'').inspect}"
+  end
+
+  # Mark wrapper as executable
+  File.chmod(0755, dest)
+
+  # Don't execute the script itself at this time
+  Process.exit
+end

data/lib/wunderbar/job-control.rb

@@ -0,0 +1,30 @@
+# run command/block as a background daemon
+def submit(cmd=nil)
+  fork do
+    # detach from tty
+    Process.setsid
+    fork and exit
+
+    # clear working directory and mask
+    Dir.chdir '/'
+    File.umask 0000
+
+    # close open files
+    STDIN.reopen '/dev/null'
+    STDOUT.reopen '/dev/null', 'a'
+    STDERR.reopen STDOUT
+
+    # clear environment of cgi cruft
+    ENV.keys.to_a.each do |key|
+      ENV.delete(key) if key =~ /HTTP/ or $cgi.respond_to? key.downcase
+    end
+
+    # setup environment
+    ENV['USER'] ||= $USER
+    ENV['HOME'] ||= $HOME
+
+    # run cmd and/or block
+    system cmd if cmd
+    yield if block_given?
+  end
+end

data/lib/wunderbar/version.rb

@@ -0,0 +1,9 @@
+module Wunderbar
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 8
+    TINY  = 0
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end unless defined?(Wunderbar::VERSION)

data/test/test_html_markup.rb

@@ -0,0 +1,120 @@
+require 'test/unit'
+require 'rubygems'
+require 'cgi-spa'
+
+class HtmlMarkupTest < Test::Unit::TestCase
+  def setup
+    $x = nil # until this hack is removed html-methods.rb
+  end
+
+  def test_html
+    x = HtmlMarkup.new
+    x.html {}
+    assert_equal %{<html>\n</html>\n}, x.target!
+  end
+
+  def test_void_element
+    x = HtmlMarkup.new
+    x.html {_br}
+    assert_match %r{<br/>}, x.target!
+  end
+
+  def test_normal_element
+    x = HtmlMarkup.new
+    x.html {_textarea}
+    assert_match %r{<textarea></textarea>}, x.target!
+  end
+
+  def test_script_lang
+    x = HtmlMarkup.new
+    x.html {_script}
+    assert_match %r[<script lang="text/javascript">], x.target!
+  end
+
+  def test_style_type
+    x = HtmlMarkup.new
+    x.html {_style}
+    assert_match %r[<style type="text/css">], x.target!
+  end
+
+  def test_script_plain
+    x = HtmlMarkup.new
+    x.html {_script! 'alert("foo");'}
+    assert_match %r[<script>alert\("foo"\);</script>], x.target!
+  end
+
+  def test_script_indent
+    x = HtmlMarkup.new
+    x.html {_script "if (i<1) {}"}
+    assert_match %r[^    if], x.target!
+  end
+
+  def test_script_html
+    $XHTML = false
+    x = HtmlMarkup.new
+    x.html {_script "if (i<1) {}"}
+    assert_match %r[<script.*>\s*if \(i<1\) \{\}\s*</script>], x.target!
+  end
+
+  def test_script_xhtml
+    $XHTML = true
+    x = HtmlMarkup.new
+    x.html {_script "if (i<1) {}"}
+    assert_match %r[<script.*>\s*if \(i&lt;1\) \{\}\s*</script>], x.target!
+  end
+
+  def test_disable_indent
+    x = HtmlMarkup.new
+    x.html {_div! {_ "one "; _strong "two"; _ " three"}}
+    assert_match %r[<div>one <strong>two</strong> three</div>], x.target!
+  end
+
+  def test_traceback
+    x = HtmlMarkup.new
+    x.html {_body? {boom}}
+    assert_match %r[<pre.*>#&lt;NameError: .*boom], 
+      x.target!
+  end
+
+  def test_traceback_default_style
+    x = HtmlMarkup.new
+    x.html {_body? {boom}}
+    assert_match %r[<pre style="background-color:#ff0.*">], x.target!
+  end
+
+  def test_traceback_style_override
+    x = HtmlMarkup.new
+    x.html {_body?(:traceback_style => 'color:red') {boom}}
+    assert_match %r[<pre style="color:red"], x.target!
+  end
+
+  def test_traceback_class_override
+    x = HtmlMarkup.new
+    x.html {_body?(:traceback_class => 'traceback') {boom}}
+    assert_match %r[<pre class="traceback"], x.target!
+  end
+
+  def test_meta_charset
+    x = HtmlMarkup.new
+    x.html {_head}
+    assert_match %r[<head>\s*<meta charset="utf-8"/>\s*</head>], x.target!
+  end
+
+  def test_indented_text
+    x = HtmlMarkup.new
+    x.html {_div {_ 'text'}}
+    assert_match %r[^  <div>\n    text\n  </div>], x.target!
+  end
+
+  def test_unindented_text
+    x = HtmlMarkup.new
+    x.html {_div {_! "text\n"}}
+    assert_match %r[^  <div>\ntext\n  </div>], x.target!
+  end
+
+  def test_declare
+    x = HtmlMarkup.new
+    x.declare! :DOCTYPE, 'html'
+    assert_equal %{<!DOCTYPE "html">\n}, x.target!
+  end
+end

data/wunderbar.gemspec

@@ -0,0 +1,36 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = "wunderbar"
+  s.version = "0.8.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 1.2") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Sam Ruby"]
+  s.date = "2012-02-02"
+  s.description = "    Provides a number of globals, helper methods, and monkey patches which\n    simplify the development of generation of HTML and other artifacts for\n    CGI scripts.\n"
+  s.email = "rubys@intertwingly.net"
+  s.extra_rdoc_files = ["COPYING", "README", "lib/cgi-spa.rb", "lib/wunderbar/builder.rb", "lib/wunderbar/cgi-methods.rb", "lib/wunderbar/environment.rb", "lib/wunderbar/html-methods.rb", "lib/wunderbar/installation.rb", "lib/wunderbar/job-control.rb", "lib/wunderbar/version.rb"]
+  s.files = ["COPYING", "README", "Rakefile", "lib/cgi-spa.rb", "lib/wunderbar/builder.rb", "lib/wunderbar/cgi-methods.rb", "lib/wunderbar/environment.rb", "lib/wunderbar/html-methods.rb", "lib/wunderbar/installation.rb", "lib/wunderbar/job-control.rb", "lib/wunderbar/version.rb", "test/test_html_markup.rb", "Manifest", "wunderbar.gemspec"]
+  s.homepage = "http://github.com/rubys/wunderbar"
+  s.rdoc_options = ["--line-numbers", "--inline-source", "--title", "Wunderbar", "--main", "README"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = "wunderbar"
+  s.rubygems_version = "1.8.15"
+  s.summary = "CGI Builder"
+  s.test_files = ["test/test_html_markup.rb"]
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<builder>, [">= 0"])
+      s.add_runtime_dependency(%q<json>, [">= 0"])
+    else
+      s.add_dependency(%q<builder>, [">= 0"])
+      s.add_dependency(%q<json>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<builder>, [">= 0"])
+    s.add_dependency(%q<json>, [">= 0"])
+  end
+end

metadata

@@ -0,0 +1,120 @@
+--- !ruby/object:Gem::Specification 
+name: wunderbar
+version: !ruby/object:Gem::Version 
+  hash: 63
+  prerelease: 
+  segments: 
+  - 0
+  - 8
+  - 0
+  version: 0.8.0
+platform: ruby
+authors: 
+- Sam Ruby
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-02-02 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: builder
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: json
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
+description: "    Provides a number of globals, helper methods, and monkey patches which\n    simplify the development of generation of HTML and other artifacts for\n    CGI scripts.\n"
+email: rubys@intertwingly.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- COPYING
+- README
+- lib/cgi-spa.rb
+- lib/wunderbar/builder.rb
+- lib/wunderbar/cgi-methods.rb
+- lib/wunderbar/environment.rb
+- lib/wunderbar/html-methods.rb
+- lib/wunderbar/installation.rb
+- lib/wunderbar/job-control.rb
+- lib/wunderbar/version.rb
+files: 
+- COPYING
+- README
+- Rakefile
+- lib/cgi-spa.rb
+- lib/wunderbar/builder.rb
+- lib/wunderbar/cgi-methods.rb
+- lib/wunderbar/environment.rb
+- lib/wunderbar/html-methods.rb
+- lib/wunderbar/installation.rb
+- lib/wunderbar/job-control.rb
+- lib/wunderbar/version.rb
+- test/test_html_markup.rb
+- Manifest
+- wunderbar.gemspec
+homepage: http://github.com/rubys/wunderbar
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --line-numbers
+- --inline-source
+- --title
+- Wunderbar
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 11
+      segments: 
+      - 1
+      - 2
+      version: "1.2"
+requirements: []
+
+rubyforge_project: wunderbar
+rubygems_version: 1.8.15
+signing_key: 
+specification_version: 3
+summary: CGI Builder
+test_files: 
+- test/test_html_markup.rb