class DataIsland

Attributes

html_doc[R]

Public Class Methods

new(location, opts={}) click to toggle source

e.g. url = 'www.jamesrobertson.eu/index-template.html'

# File lib/dataisland.rb, line 15
def initialize(location, opts={})
  
  buffer, typex = RXFHelper.read(location)
  @html_doc = Rexle.new(buffer.sub(/^<!DOCTYPE html>/,''))

  a = @html_doc.css('//script[@class="dataisland"]')
  a.map(&:delete)    

  @html_doc.xpath('//div[@datactl]').map(&:delete)
  @html_doc.root.element('body').attributes.delete :onload
  h = @html_doc.element('//object').attributes

  path = { url: -> {File.dirname(location)}, 
          file: -> {File.expand_path(File.dirname(location))}, 
           xml: -> {File.expand_path('.')}}    

  @location = path[typex].call

  @html_doc.xpath("//object[@type='text/xml']").each do |x|

    h = x.attributes
    tmp, type2 = RXFHelper.read(h[:data], opts)

    location2 = case h[:data]
      when /^https?:\/\//
        h[:data]
      when /^\//
        @location + h[:data]
      else
        @location +'/' + h[:data]
    end
    
    dynarex = Dynarex.new location2, opts      
    
    if (h[:order] and h[:order][/^desc|descending$/]) \
        or dynarex.order = 'descending' then
      #records = dynarex.flat_records.reverse
      records = dynarex.flat_records
    else
      records = dynarex.flat_records
    end

    xpath = "//*[@datasrc='" + '#' + h[:id] + "']"
    
    @html_doc.xpath(xpath).each do |island|      
      render(records, x.attributes, island.element('//*[@datafld]'));
    end
    
    x.delete unless h[:data] =~ /^\{/
  end
  
end

Private Instance Methods

add_to_destnodes(dn, raw_key, node) click to toggle source

# File lib/dataisland.rb, line 85
def add_to_destnodes(dn, raw_key, node)

  key = raw_key.to_sym
  dn.has_key?(key) ? dn[key] << node : dn[key] = [node]
end

node_to_clone(element) click to toggle source

# File lib/dataisland.rb, line 70
def node_to_clone(element)

  parent = element.parent
  parentName = parent.name.downcase
 
  case parentName
    when 'body' 
      return nil
    when 'tr', 'li'
      return parent
    else
      return node_to_clone(parent)
  end
end

render(flat_records, h, node) click to toggle source

# File lib/dataisland.rb, line 91
def render(flat_records, h, node)
  
  sort_by = h[:sort_by]
  range = h[:range]

  rec_orig = node_to_clone(node)    

  if rec_orig then
              
    if (h[:rows_per_page]) then

      pg = 1
      rpp = h[:rows_per_page].to_i
      range =  (pg > 1) ? 
        Range.new((pg - 1) * rpp,(((pg - 1) * rpp ) + rpp - 1)) : 
          Range.new(0,rpp - 1)
    end

    records = range.is_a?(Range) ? flat_records[range] : flat_records      

    if sort_by then
      if sort_by[/^-/].nil? then
        recs = records.sort_by {|record| record[sort_by] }        
      else 
        recs = records.sort_by {|record| record[sort_by[1..-1]] }.reverse
      end
    else 
      recs = records
    end

    recs.each do |record|
    
      rec = rec_orig.deep_clone
      
      # get a reference to each element containing the datafld attribute
      dest_nodes = {}        

      a = rec.xpath('*//span[@class]|*//a[@class]')

      a.each do |e|

        r = e.attribute(:class)[0][/\{([^\}]+)\}$/,1]
        add_to_destnodes(dest_nodes,r,e) if r
      end
      
      rec.xpath('*//*[@datafld]').each do |e|
        add_to_destnodes(dest_nodes,e.attribute(:datafld).downcase,e)
      end
      
      rec.xpath('*//a[@name]').each do |e|
        r = e.attribute(:name)[/\{([^\}]+)\}/,1]
        add_to_destnodes(dest_nodes,r,e) if r
      end        

      rec.xpath('*//a[@href]').each do |e|
        r = e.attribute(:href)[/\{([^\}]+)\}/,1]
        add_to_destnodes(dest_nodes,r,e) if r
      end        
    
      rec.xpath('*//object[@data]').each do |e|

        r = e.attribute(:data)[/\{([^\}]+)\}$/,1]
        add_to_destnodes(dest_nodes,r,e) if r
      end        

      rec.xpath('*//button[@onclick]').each do |e|

        r = e.attribute(:onclick)[/\{([^\}]+)\}$/,1]
        add_to_destnodes(dest_nodes,r,e) if r
      end          
      
      dest_nodes.keys.each do |raw_field|

        field = raw_field.to_sym
        next if record[field].nil?

        dest_nodes[field].each do |e2|

          case e2.name.downcase.to_sym
            
            when :span

              classx = e2.attributes[:class]

              if classx and classx.length > 0 then

                if classx[0][/{#{field}/] then
                  val = record[field]
                  new_class = classx[0].sub(/\{[^\}]+\}/,val)
                  e2.attributes[:class] = [new_class]
                elsif
                  e2.text = record[field]
                end
              elsif
                e2.text = record[field]
              end

            when :object

              datax = e2.attributes[:data]

              if datax then

                if datax[/{#{field}/] then

                  val = record[field]
                  new_data = datax.sub(/\{[^\}]+\}/,val)
                  e2.attributes[:data] = new_data
                end
              end
                              
            when :a
              
              classx = e2.attributes[:class]

              if classx and classx[0][/{#{field}/] then

                val = record[field]
                new_class = classx[0].sub(/\{[^\}]+\}/,val)
                e2.attributes[:class] = [new_class]

              elsif e2.attributes[:name] then
                
                name = e2.attributes[:name]
                val = record[field]
                new_name = name.sub(/\{[^\}]+\}/,val)
                e2.attributes[:name] = new_name
                
              elsif e2.attributes[:href] then
                
                href = e2.attributes[:href]

                val = record[field]
                new_href = href.sub(/\{[^\}]+\}/,val)
                e2.attributes[:href] = new_href
                
              elsif e2.attributes[:datafld] then
                e2.attributes[:href] = record[field]
              end
              
                
            when :img
              e2.attributes[:src] = record[field]
              
            when :button

              onclick = e2.attributes[:onclick]

              if onclick then

                if onclick[/{#{field}/] then

                  val = record[field]
                  new_data = onclick.sub(/\{[^\}]+\}/,val)
                  e2.attributes[:onclick] = new_data
                end
              end                
          end
        
          e2.attributes.delete :datafld
        end
      end    

      rec_orig.parent.add(rec)
    end

    rec_orig.delete

  end
end