wapl 0.1

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 [name of plugin creator]
+
+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 OR COPYRIGHT HOLDERS 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 @@
+MIT-LICENSE
+README.md
+Rakefile
+init.rb
+install.rb
+lib/wapl.rb
+lib/wapl_helper.rb
+tasks/wapl_tasks.rake
+test/test_helper.rb
+test/test_wapl.rb
+test/test_wapl_helper.rb
+uninstall.rb
+Manifest

data/README.md

@@ -0,0 +1,130 @@
+# Wapple Architect plugin/library
+
+This package contains a class which enables web developers to stop worrying about handling non-desktop browsers.
+
+By utilizing [Wapple's](http://wapple.net) API for device detection and the [WAPL markup language](http://wapl.info) the websites can be adjusted, rendered and delivered properly to any device.
+
+The package consists of API communication class and a view helper which makes it dead easy to create mobile friendly sites while retaining your standard, "big" version of your webapp untouched.
+
+
+## The flow
+1. A device hits your site
+1. Do an API call to detect whether it's a mobile device or not (it's much more sophisticated than simple UA sniffing)
+1. Store the result in the session
+1. If it's mobile device (you will get to know the model and the maker!) build your view using wapl-helper
+1. Do an API call to get the appropriate markup for the device
+1. Profit
+
+Wapple Architect preserves your url structure, your SEO and what-not.
+
+## TODO
+
+- wapl markup helper
+- more docs
+- sinatra example app
+
+## Examples
+### Rails
+
+*application controller*
+
+		require 'wapl'
+		class ApplicationController < ActionController::Base
+			helper :all # include all helpers, all the time
+			def detect_mobile
+				# get an instance of Wapl class, use your dev key and pas through your headers
+				@wapl = Wapl.new "YOUR DEV KEY HERE", request.env
+				# check whether the device is a mobile device
+				# it's good to save this result in the session
+				@is_mobile = @wapl.is_mobile_device 
+
+				# does pretty much the same thing, but als o gets the info about the device
+				@device_data = @wapl.get_mobile_device 
+			end
+			def render_for_mobile
+				# grab the view dedicated for mobile
+				wapl_xml = render_to_string(:layout  => 'wapl', :template => controller_name+'/wapl/'+action_name)
+				logger.info wapl_xml
+				# send the WAPL xml 
+				resp = @wapl.get_markup_from_wapl wapl_xml
+				# get the final markup from the response
+				@markup = resp['markup'].to_s
+				# use the apropriate headers as well
+				resp['headers'].each { |k,v| response.headers[k] = v }
+				# render the stuff
+				render :inline => @markup
+			end
+		end
+
+*controller* (test controller)
+
+    require 'wapl'
+    class TestController < ApplicationController
+    # set up
+      before_filter :detect_mobile, :render_for_mobile
+      def index
+				# check whether the device is mobile, if so - render appropriate stuff
+        if @is_mobile.to_i == 1
+          self.render_for_mobile
+          return
+        end
+        # proceed as usual
+      end
+
+*view* (app/views/test/wapl/index.erb) (can be anywhere you want, but it's good to keep them in one place)
+
+        <easyChars>
+          <value>Your mobile phone is: </value>
+        </easyChars>
+        <% for info in @device_data %>
+          <easyChars make_safe="1">
+          <value>[b]<%= info[0] %>[/b]: <%= info[1] %></value>
+          </easyChars>
+        <% end %>
+
+*layout*
+
+
+    <?xml version="1.0" encoding="UTF-8" ?>
+    <wapl xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://wapl.wapple.net/wapl.xsd">
+    <head>
+      <title>your mobile title</title>
+    </head>
+     <layout>
+       <%= yield %>
+     </layout>
+    </wapl>
+
+And... That's it.
+
+## Helper Example
+
+You can use the WaplHelper, it's included now in the plugin.
+For more information about WAPL markup refer to the [official docs](http://wapl.info/coding-for-the-mobile-web-with-WAPL/chapter/Developing-with-WAPL/).
+
+It's still in development, but it's pretty usable :-)
+
+		<%= chars('wowza!') %>
+		<%= chars('[b]elo[/b]',{ :attributes =>{ 'make_safe'=>'false' }, :cell=>{ "class" => "test"}, :row=>{:id=>'duzy'}}) %>
+		<%= chars('[b]elo[/b]',{ :attributes =>{ 'make_safe'=>'false' }}) %>
+		<%= external_image('http://wapl.info/img/header_wapple.png') %>
+		<%= external_image('http://wapl.info/img/header_wapple.png', { :attributes=>{ :file_type => "png", :scale =>"150"} }) %>
+		<%= external_image('http://wapl.info/img/header_wapple.png' , { :children => { :safe_mode => "1"}}) %>
+		<%= external_image('http://wapl.info/img/header_wapple.png') %>
+		<%= external_link("Google", 'http://google.com') %>
+		<%= external_link("Google", "http://google.com", { :attributes => { :id => "wgp"}, :image => { :url => "http://wapl.info/img/header_wapple.png"}}  ) %>
+		<%= external_link("Google", "http://google.com", { :attributes => { :id => "woop"} }) %>
+		<%= external_link("Google", "http://google.com", { :attributes => { :id => "woop"} }) %>
+
+	
+Or you can go one level deeper and use just the helper methods (not recommended):
+
+		<% ch = tag('chars', tag('value', "TEST")) %>
+		<%= row_cell(ch) %>
+		
+
+More  examples and stuff to come - watch this space!
+
+http://gist.github.com/272164
+
+_Copyright (c) 2009 Łukasz Korecki, released under the MIT license_

data/Rakefile

@@ -0,0 +1,33 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/rdoctask'
+
+require 'echoe'
+
+desc 'Default: run unit tests.'
+task :default => :test
+
+desc 'Test the wapl plugin.'
+Rake::TestTask.new(:test) do |t|
+  t.libs << 'lib'
+  t.libs << 'test'
+  t.pattern = 'test/**/test_*.rb'
+  t.verbose = true
+end
+
+desc 'Generate documentation for the wapl plugin.'
+Rake::RDocTask.new(:rdoc) do |rdoc|
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title    = 'Wapl'
+  rdoc.options << '--line-numbers' << '--inline-source'
+  rdoc.rdoc_files.include('README')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+
+Echoe.new('wapl', '0.1') do |p|
+  p.description = "Library and helper for communicating with Wapple.net Architect web service, more information: http://wapl.info"
+  p.url = "http://github.com/plugawy/wapl"
+  p.author = "Lukasz Korecki"
+  p.email = "lukasz@coffeesounds.com"
+  p.development_dependencies= []
+end

data/init.rb

@@ -0,0 +1 @@
+ActionView::Base.send :include, WaplHelper

data/install.rb

@@ -0,0 +1 @@
+# Install hook code here

data/lib/wapl.rb

@@ -0,0 +1,110 @@
+require 'net/http'
+require 'uri'
+require 'rexml/document'
+  # This Class is responsible for communicating with Wapple Mobile Api
+  # It enables the programmer to completelty mobilize an existing web app
+  # Without breaking it :-)
+  # for more info about Wapple Architect please go to http://wapl.info
+class Wapl
+  attr_accessor :dev_key, :header_string
+  # api root
+  @@api_root = "http://webservices.wapple.net"
+   def self.api_root
+     @@api_root
+   end
+  # RESTy resources
+  @@resources = {
+     "is_mobile_device"	=>"/isMobileDevice.php",
+     "get_mobile_device"	=>"/getMobileDevice.php",
+     "get_markup_from_wapl"	=>"/getMarkupFromWapl.php",
+     "get_markup_from_url"	=>"/getMarkupFromUrl.php"
+   }
+  def self.resources
+    @@resources
+  end
+  # the constructor
+  # Required parameters
+  # arch_dev_key:: Your Architect dev key
+  # headers:: headers for the request - for rails that would be request.env
+  # Returns a new instance of Wapl
+  def initialize(arch_dev_key = "", headers = {})
+    @dev_key= arch_dev_key
+    @header_string = self.parse_headers(headers)
+    @api_root="http://webservices.wapple.net"
+  end
+  def set_headers(headers)
+    @header_string = self.parse_headers(headers)
+  end
+  # Parses the request headers and gets only HTTP_* headers
+  # returns properly formatted string of keys and values
+  def parse_headers(headers_hash)
+    header_string = ""
+     for header in headers_hash.select { |k,v| k.match("^HTTP.*") } do
+          header_string += header[0]+":"+header[1]+"|"
+         end
+    return header_string
+  end
+  # Communicates with the API
+  # Does a simple POST call with required arguments
+  # Always sends the dev_key and the headers
+  # path:: path to the API resource
+  # arg:: hash containing additional arguments (see wapl.info docs)
+  # Returns HTTP::result object
+  def send_request(path,arg = {})
+    url= URI.parse(@@api_root + @@resources[path].to_s)
+    post_arg = {'devKey'=>@dev_key , 'headers'=>@header_string }
+    post_arg.merge!(arg)
+    res = Net::HTTP.post_form(url, post_arg)
+  end
+
+  # gets the info about mobile device
+  # Returns a Hash containing information model and the maker
+  def get_mobile_device()
+    res =  self.send_request 'get_mobile_device'
+    device_info_xml = REXML::Document.new(res.body).root
+    rez ={}
+    device_info_xml.elements.each do |el|
+      rez.merge! Hash[el.name.to_s,el.text.to_s]
+    end
+    return rez
+  end
+  # checks whether the device is mobile
+  # Returns 1 for true and 0 for a desktop browser
+  def is_mobile_device()
+    res = self.send_request 'is_mobile_device'
+    return res.body
+  end
+# Submits the wapl markup along with the headers
+# wapl_xml:: Properly formatted WAPL XML (see docs at htp://wapl.info) or use the WaplHelper module
+# Returns hash containing
+# * proper markup for the current device
+# * required headers which need to be sent back to the device
+  def get_markup_from_wapl(wapl_xml="")
+    raise ArgumentError, "Empty string" if wapl_xml == ""
+    res = self.send_request 'get_markup_from_wapl', {'wapl'=>wapl_xml} 
+    unless res.body.scan('WAPL ERROR').empty?
+      markup = wapl_xml + "<!-- WAPL XML ERROR #{ res.body } -->"
+      headers = ''
+    else
+      markup_res_xml = REXML::Document.new(res.body).root
+      res = {}
+      markup_res_xml.elements.each('header/item') do |el|
+        splits = el.text.split(': ');
+        h = Hash[splits[0], splits[1]]
+        res.merge! h
+      end
+      markup = markup_res_xml.elements.collect('markup') { |el| el.cdatas}
+    end
+      return {'markup' => markup, 'headers'=>res }
+  end
+# submits the wapl markup url along with the headers
+# brings back proper markup for the current device and required headers
+# TODO / FIXME check whether supplied string is a url
+  def get_markup_from_url(makrup_url="")
+    raise ArgumentError, "Wrong or empty url" if markup_url == ""
+    res = self.send_request 'get_markup_from_url', { 'waplUrl'=>markup_url }
+    markup_data = self.process_res_xml res.body
+    return {'res'=>res, 'data'=> markup_data}
+  end
+end
+

data/lib/wapl_helper.rb

@@ -0,0 +1,178 @@
+module WaplHelper
+  # Open a tag
+  # Parameters
+  # Tag_name:: string - name of the tag <em></em>
+  # Attribute:: string - like name="test" woop="woop"
+  def t_s(tag_name, attr="")
+    if attr.empty?
+      %Q{<#{tag_name}>}
+    else
+      %Q{<#{tag_name} #{attr}>}
+    end
+  end
+
+  # Converts a hash to attribute string
+  # Parameters
+  # Attr:: hash - { :name => "test"}
+  def attr_string(attr)
+    op_str = ""
+    attr.each { |k,v|  op_str += %Q{#{k}="#{v}" } }
+    return op_str.strip
+  end
+  # Close the tag
+  # Parameters
+  # Tag_name:: - string
+  def t_e(tag_name)
+    %Q{</#{tag_name}>}
+  end
+
+  # Sanitze content
+  # Parameters
+  # Content:: string
+  def sanitize_html(content)
+    require 'cgi'
+    CGI.escapeHTML(content)
+  end
+  # Wrap string in to cdata marker
+  # parameters
+  # content:: - string to be wrapped
+  def cdatize(content)
+
+      content = '<![CDATA[ ' << content << ' ]]>'
+  end
+
+  # Returns a tag with optional attributes and content
+  # Parameters
+  # Tag_name:: string - the tag you wan to create e.g. "value"
+  # Content:: string = inner text of the tag
+  # Attributes:: hash - hash of attributes (key - val) for the element (optional)
+  def tag(tag_name, content,  attributes = {})
+    t = self.t_s(tag_name)
+    unless attributes.empty?
+      t = self.t_s(tag_name, self.attr_string(attributes))
+    end
+
+    t << content << self.t_e(tag_name)
+  end
+
+# Inserts a row and a cell with a specified content
+# tag_string:: string - the content that goes into the row/cell
+# cell:: hash - attribute hash for the <cell /> element
+# row:: hash - attribute hash for the <row /> element
+  def row_cell(tag_string, cell={}, row={})
+    cell = self.tag('cell',  tag_string, cell)
+    self.tag('row', cell, row)
+  end
+
+# Creates a list of child elements with their values
+# Children:: hash with tags and their contents e.g. { :span => "cool content"}
+  def children_list(children={})
+    children_str =""
+    children.each { |tag, val| children_str +=  self.tag(tag, val)}
+    return children_str
+  end
+# WAPL specific element
+# Creates chars element (see http://wapl.info docs)
+# content:: string - conent of the chars element
+# options:: hash -  custom options for the element, can contain:
+# - :attributes - for the chars elements (like id and other chars-specific settings)
+# - :row - row attribute hash
+# - :cell - cell attribute hash
+  def chars(content, options={})
+    # defaults
+    attributes = options[:attributes] || {}
+
+    value = self.tag('value', content)
+    chars = self.tag("chars", value, attributes )
+
+    cell = options[:cell] || {}
+    row = options[:row] || {}
+    self.row_cell(chars, cell, row)
+  end
+# WAPL specific element
+# Creates external image element (see http://wapl.info docs)
+# url:: string - url to your image, WAPL engine will download it an process it
+# options:: hash -  custom options for the element, can contain:
+# - :attributes - for the chars elements (like id and other chars-specific settings)
+# - :row - row attribute hash
+# - :cell - cell attribute hash
+# just_element:: bool - create just the element, without the wrapping <row /><cell />
+  def external_image(url, options={}, just_element=false)
+    attributes = options[:attributes] || {}
+    children = options[:children] || {}
+
+    children[:url] = url
+    child_elements = self.children_list(children)
+
+    img = self.tag('externalImage', child_elements, attributes)
+
+    unless just_element
+      cell = options[:cell] || {}
+      row = options[:row] || {}
+      self.row_cell(img, cell, row)
+    else
+      return img
+    end
+  end
+# WAPL specific element
+# Creates external link element (see http://wapl.info docs)
+# link_label:: string - label for your link (usually content of <a /> element)
+# url:: string - url for your link
+# options:: hash - (optional) custom options for the element, can contain:
+# - :attributes - for the chars elements (like id and other chars-specific settings)
+# - :row - row attribute hash
+# - :cell - cell attribute hash
+  def external_link(link_label, url, options={})
+    attributes = options[:attributes] || {}
+    children = options[:children] || {}
+    image = options[:image] || {}
+
+   img =""
+   unless image.empty?
+      img = self.external_image(image[:url], image, true) 
+    end
+
+    child_elements = self.children_list(children) << img
+    link_label = self.tag('label', link_label)
+    url = self.tag('url', url)
+    link = self.tag('externalLink', url << link_label << child_elements, attributes)
+
+    cell = options[:cell] || {}
+    row = options[:row] || {}
+    self.row_cell(link, cell, row)
+  end
+# head section tags
+# XML / root element declaration for use in the layout
+
+  def start_wapl
+    return '<wapl xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://wapl.wapple.net/wapl.xsd">'
+  end
+# closes the root element
+  def end_wapl
+    return self.t_e('wapl')
+  end 
+# Layout method
+# Returns list of meta tags
+# Options:: hash - a hash of meta properites with value e.g. { :author => "Lukasz Korecki"}
+  def meta(options={})
+    metaz = ""
+    options.each { |k,v|  metaz += "<meta " + self.attr_string({ :name=>k, :content => v} )+ " />" }
+    return metaz
+  end
+# Renders external css declaration in the <head /> element
+# url:: - url for the external stylesheet
+  def style_sheet(url="")
+    self.tag('css', self.tag('url', url))
+  end
+# Renders external css declaration in the <head /> element
+# alias for style_sheet()
+# url:: - url for the external stylesheet
+  def css(url="")
+    self.style_sheet(url)
+  end
+# Title tag
+# title:: string -  title for your page
+  def title(title="")
+    self.tag('title', title)
+  end
+end

data/tasks/wapl_tasks.rake

@@ -0,0 +1,4 @@
+# desc "Explaining what the task does"
+# task :wapl do
+#   # Task goes here
+# end

data/test/test_helper.rb

@@ -0,0 +1,4 @@
+require 'test/unit'
+require 'rubygems'
+require 'active_support'
+require 'active_support/test_case'

data/test/test_wapl.rb

@@ -0,0 +1,66 @@
+require 'test_helper'
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/wapl'
+require 'fakeweb'
+class WaplTest < ActiveSupport::TestCase
+  # set this if you have one
+  attr_accessor :real_key
+
+  def setup
+   @real_key = "24958309458"
+    FakeWeb.register_uri(:post, 'http://webservices.wapple.net/isMobileDevice.php', { :body => 1.to_s })
+    FakeWeb.register_uri(:post, 'http://webservices.wapple.net/getMobileDevice.php', { :body => 
+        '<?xml version="1.0" ?>
+       <wapple_response>
+         <model>iPhone</model>
+         <manufacturer>Apple</manufacturer>
+         <mobile_device>1</mobile_device>
+       </wapple_response>'
+       })
+  end
+  def test_constructor_without_dev_key
+    assert Wapl.new
+  end
+  def test_constructor
+    testkey = "testkey"
+    wapl = Wapl.new testkey, {}
+    assert_equal wapl.dev_key, testkey
+    assert_instance_of Wapl, wapl
+  end
+  def test_setters_and_getters
+    wapl = Wapl.new "", {}
+    testkey = "testkey"
+    wapl.dev_key = testkey
+    assert_equal wapl.dev_key, testkey
+  end
+  def test_headers_constructor_and_parse_headers
+    wapl = Wapl.new "testkey", { "elo"=>"test", "HTTP_test" => "test"}
+    assert_equal wapl.header_string, "HTTP_test:test|"
+    assert_no_match(/elo/, wapl.header_string)
+  end
+  def test_headers_parser
+    wapl = Wapl.new "testkey"
+    headers = { "elo"=>"test", "HTTP_test" => "test"}
+    wapl.set_headers headers
+    assert_equal wapl.header_string, "HTTP_test:test|"
+    assert_no_match(/elo/, wapl.header_string)
+  end
+  def test_communication_success_and_is_mobile_device
+      wapl = Wapl.new @real_key, {"HTTP-User-Agent" => "Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1C25 Safari/419.3"}
+      resp = wapl.is_mobile_device
+      assert_no_match(/Developer key authentication error/i, resp)
+      assert_equal resp, '1'
+  end
+  def test_communication_success_and_get_mobile_device
+      wapl = Wapl.new @real_key, {"HTTP-User-Agent" => "Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1C25 Safari/419.3"}
+      resp = wapl.get_mobile_device
+      assert resp['model']
+      assert resp['manufacturer']
+      assert resp['mobile_device']
+# XXX this might be excessive.... since this might not always yield the same results, but this UA detection/handling is pretty solid ;-)
+# lets assume that everything was correctly detcted and 
+# we're sure about the results
+      assert_match(/iphone/i,resp['model'])
+      assert_match(/Apple/i, resp['manufacturer'])
+  end
+end

data/test/test_wapl_helper.rb

@@ -0,0 +1,84 @@
+
+require 'test_helper'
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/wapl_helper'
+class WaplTest < ActiveSupport::TestCase
+  include WaplHelper
+  def test_include_and_require_and_all_that_stuff
+    assert tag('chars', 'char')
+  end
+
+  def test_tag_start
+    assert_equal("<tag>", t_s("tag"))
+    assert_equal('<tag test="val">', t_s("tag", 'test="val"'))
+  end
+  def test_tag_end
+    assert_equal("</tag>", t_e("tag"))
+  end
+  def test_cdatize
+    assert_equal("<![CDATA[ test ]]>", cdatize('test'))
+    assert_match(/CDATA/, cdatize('ts'))
+    
+  end
+  def test_attr_string
+    assert_equal('ole="test"', attr_string({:ole=>"test"}))
+  end
+  def test_tag
+    assert_equal('<t>test</t>', tag('t','test'))
+    assert_not_equal('<t>test</t>', tag('t','dest'))
+    assert_equal('<t ole="ule">test</t>', tag('t','test',{:ole =>"ule"}))
+    assert_not_equal('<t ole="ule" style="display:none;float:left;">test</t>', tag('t','test',{:ole =>"ule"}))
+    assert_equal('<t ole="ule" style="display:none;float:left;">test</t>', tag('t','test',{:ole =>"ule", :style => "display:none;float:left;"}))
+  end
+  def test_row_cell
+    assert_equal('<row><cell>test</cell></row>', row_cell('test'))
+    assert_equal('<row id="test"><cell class="class">test</cell></row>', row_cell('test', {:class=>"class"}, {:id=>"test"}))
+    assert_not_equal('<row class="class"><cell id="test">test</cell></row>', row_cell('test', {:class=>"class"}, {:id=>"test"}))
+  end
+  def test_children_list
+    children= {:url=>"http://google.com", :value=>"test"}
+    assert_match("<url>http://google.com</url>", children_list(children))
+    assert_match("<value>test</value>", children_list(children))
+  end
+
+  def test_chars
+    char_str = "<row><cell><chars><value>test</value></chars></cell></row>"
+    assert_equal(char_str, chars("test"))
+
+    char_str_2 = '<row><cell><chars make_safe="true"><value>test</value></chars></cell></row>'
+    assert_equal(char_str_2, chars('test', { :attributes=>{ :make_safe =>"true"}}))
+
+    char_str_3 = '<row id="test"><cell><chars make_safe="true"><value>test</value></chars></cell></row>'
+    assert_equal(char_str_2, chars('test', { :attributes=>{ :make_safe =>"true"}}))
+  end
+  def test_external_image
+    ext_img  ='<row><cell><externalImage><url>http://localhost/1.gif</url></externalImage></cell></row>'
+    ext_img_element_only  ='<externalImage><url>http://localhost/1.gif</url></externalImage>'
+    assert_equal(ext_img, external_image('http://localhost/1.gif'))
+    assert_equal(ext_img_element_only, external_image('http://localhost/1.gif',{}, true))
+ 
+    assert_match( 'scale="150"', external_image('http://localhost/1.gif', { :attributes=>{ :file_type => "png", :scale =>"150"} }) )
+    assert_match( 'file_type="png"', external_image('http://localhost/1.gif', { :attributes=>{ :file_type => "png", :scale =>"150"} }) )
+
+ 
+  end
+  def test_external_link
+    link = '<row><cell><externalLink><url>http://google.com</url><label>Google</label></externalLink></cell></row>'
+    assert_equal(link, external_link('Google', 'http://google.com'))
+
+    link = '<row><cell><externalLink id="wgp"><url>http://google.com</url><label>Google</label><externalImage><url>http://wapl.info/img/header_wapple.png</url></externalImage></externalLink></cell></row>'
+    assert_equal(link, external_link("Google", "http://google.com", { :attributes => { :id => "wgp"}, :image => { :url => "http://wapl.info/img/header_wapple.png"}}  ))
+    link = '<row><cell id="dupa"><externalLink id="wgp"><url>http://google.com</url><label>Google</label><externalImage><url>http://wapl.info/img/header_wapple.png</url></externalImage></externalLink></cell></row>'
+    assert_equal(link, external_link("Google", "http://google.com", { :attributes => { :id => "wgp"}, :image => { :url => "http://wapl.info/img/header_wapple.png"}, :cell => { :id => "dupa"}}  ))
+  end
+  def test_title
+    assert_equal('<title>my title</title>', title('my title'))
+  end
+  def test_style_sheet
+    assert_equal('<css><url>http://my.css.com/1.css</url></css>', style_sheet('http://my.css.com/1.css'))
+  end
+  def test_meta_tag
+    assert_equal('<meta name="keywords" content="a list of stuff" />', meta({:keywords =>"a list of stuff"}))
+    assert_equal('<meta name="keywords" content="a list of stuff" /><meta name="encoding" content="utf-8" />', meta({:keywords =>"a list of stuff", :encoding=>"utf-8"}))
+  end
+end

data/uninstall.rb

@@ -0,0 +1 @@
+# Uninstall hook code here

data/wapl.gemspec

@@ -0,0 +1,31 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{wapl}
+  s.version = "0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 1.2") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Lukasz Korecki"]
+  s.date = %q{2010-01-12}
+  s.description = %q{Library and helper for communicating with Wapple.net Architect web service, more information: http://wapl.info}
+  s.email = %q{lukasz@coffeesounds.com}
+  s.extra_rdoc_files = ["README.md", "lib/wapl.rb", "lib/wapl_helper.rb", "tasks/wapl_tasks.rake"]
+  s.files = ["MIT-LICENSE", "README.md", "Rakefile", "init.rb", "install.rb", "lib/wapl.rb", "lib/wapl_helper.rb", "tasks/wapl_tasks.rake", "test/test_helper.rb", "test/test_wapl.rb", "test/test_wapl_helper.rb", "uninstall.rb", "Manifest", "wapl.gemspec"]
+  s.homepage = %q{http://github.com/plugawy/wapl}
+  s.rdoc_options = ["--line-numbers", "--inline-source", "--title", "Wapl", "--main", "README.md"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{wapl}
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{Library and helper for communicating with Wapple.net Architect web service, more information: http://wapl.info}
+  s.test_files = ["test/test_wapl.rb", "test/test_helper.rb", "test/test_wapl_helper.rb"]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

metadata

@@ -0,0 +1,78 @@
+--- !ruby/object:Gem::Specification 
+name: wapl
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+platform: ruby
+authors: 
+- Lukasz Korecki
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-01-12 00:00:00 +00:00
+default_executable: 
+dependencies: []
+
+description: "Library and helper for communicating with Wapple.net Architect web service, more information: http://wapl.info"
+email: lukasz@coffeesounds.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.md
+- lib/wapl.rb
+- lib/wapl_helper.rb
+- tasks/wapl_tasks.rake
+files: 
+- MIT-LICENSE
+- README.md
+- Rakefile
+- init.rb
+- install.rb
+- lib/wapl.rb
+- lib/wapl_helper.rb
+- tasks/wapl_tasks.rake
+- test/test_helper.rb
+- test/test_wapl.rb
+- test/test_wapl_helper.rb
+- uninstall.rb
+- Manifest
+- wapl.gemspec
+has_rdoc: true
+homepage: http://github.com/plugawy/wapl
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --line-numbers
+- --inline-source
+- --title
+- Wapl
+- --main
+- README.md
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "1.2"
+  version: 
+requirements: []
+
+rubyforge_project: wapl
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: "Library and helper for communicating with Wapple.net Architect web service, more information: http://wapl.info"
+test_files: 
+- test/test_wapl.rb
+- test/test_helper.rb
+- test/test_wapl_helper.rb