shl 0.0.1

data/lib/shl.rb

@@ -0,0 +1,42 @@
+require 'uri'
+require 'socket'
+
+module SHL
+  HTTP_VERSION = "HTTP/1.1"
+  NEWLINE = "\r\n"
+  
+  class OrderedHash < Hash
+    def initialize(initial_values)
+      initial_values.each do |key, value|
+        self[key] = value
+      end
+    end
+    
+    def []=(key, value)
+      @order ||= []
+      @order << key
+      super
+    end
+    
+    def each(&block)
+      @order.each do |key|
+        block.call(key, self[key])
+      end
+    end
+  end
+  
+  module AttributeInitializer
+    def initialize(attributes={})
+      attributes.each do |key, value|
+        send("#{key}=", value)
+      end
+    end
+  end
+end
+
+require 'shl/request'
+require 'shl/response'
+
+def SHL(attributes={})
+  SHL::Request.new(attributes).run
+end

data/lib/shl/request.rb

@@ -0,0 +1,46 @@
+module SHL
+  class Request
+    attr_accessor :verb, :url, :headers, :body
+    
+    include AttributeInitializer
+    
+    def url=(url)
+      @url = URI.parse(url)
+    end
+    
+    def path
+      @url.path == '' ? '/' : @url.path
+    end
+    
+    def connection
+      @connection ||= TCPSocket.new(@url.host, @url.port)
+    end
+    
+    def request_line
+      "#{verb.to_s.upcase} #{path} #{HTTP_VERSION}"
+    end
+    
+    def headers
+      @headers||=OrderedHash.new([
+        ['Host',@url.host],
+        ['Connection','close']
+      ])
+    end
+    
+    def serialized_headers
+      headers.map do |key, value|
+        "#{key}: #{value}"
+      end.join(NEWLINE)
+    end
+    
+    def serialized_body
+      @body.to_s + NEWLINE
+    end
+    
+    def run
+      connection.write([request_line,serialized_headers,serialized_body].join(NEWLINE))
+      connection.flush
+      Response.new(:io=>connection)
+    end
+  end
+end

data/lib/shl/response.rb

@@ -0,0 +1,23 @@
+module SHL
+  class Response
+    BUFFER_LENGTH = 4096
+    
+    attr_accessor :io
+    
+    include AttributeInitializer
+    
+    def parsed
+      if @parsed.nil?
+        buffer = ''
+        while(data = io.read(BUFFER_LENGTH))
+          buffer << data
+        end
+        @parsed = buffer.split(NEWLINE*2)
+      end; @parsed
+    end
+    
+    def body
+      parsed[1]
+    end
+  end
+end

metadata

@@ -0,0 +1,80 @@
+--- !ruby/object:Gem::Specification 
+name: shl
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Manfred Stienstra
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-04-18 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rake
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id001
+description: "    SHL is a really simple HTTP library.\n"
+email: manfred@fngtps.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/shl.rb
+- lib/shl/request.rb
+- lib/shl/response.rb
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=utf-8
+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: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.8.15
+signing_key: 
+specification_version: 3
+summary: SHL is a really simple HTTP library.
+test_files: []
+