Active 0.0.14 → 0.0.17

data/lib/services/ats.rb

@@ -1,3 +1,4 @@
+require 'digest/sha1'
 module Active
   module Services
 
@@ -10,15 +11,16 @@ module Active
       # {"destinationID"=>"", "assetId"=>"A9EF9D79-F859-4443-A9BB-91E1833DF2D5", "substitutionUrl"=>"1878023", "city"=>"Antioch", "contactName"=>"City of Antioch", "trackbackurl"=>"http://www.active.com/page/Event_Details.htm?event_id=1878023&assetId=A9EF9D79-F859-4443-A9BB-91E1833DF2D5", "category"=>"Activities", "zip"=>"94531", "userCommentText"=>nil, "location"=>"Multi-use Room (prewett) - Prewett Family Park & Center", "latitude"=>"37.95761", :asset_id=>"A9EF9D79-F859-4443-A9BB-91E1833DF2D5", "searchWeight"=>"1", "country"=>"United States", "participationCriteria"=>"All", "dma"=>"San Francisco - Oakland - San Jose", "isSearchable"=>"true", :asset_name=>"Fitness, Pilates  Mat Class (16 Yrs. & Up)", :substitution_url=>"1878023", :asset_type_id=>"EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65", "row"=>"1", "image1"=>"http://www.active.com/images/events/hotrace.gif", "startDate"=>"2010-09-13", "contactPhone"=>"925-779-7070", :asset_type_name=>"Active.com Event Registration", "onlineDonationAvailable"=>"0", "avgUserRating"=>nil, "market"=>"San Francisco - Oakland - San Jose", "assetTypeId"=>"EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65", "assetName"=>"Fitness, Pilates  Mat Class (16 Yrs. & Up)", "channel"=>"Not Specified", "seourl"=>"http://www.active.com/not-specified-recware-activities/antioch-ca/fitness-pilates-mat-class-16-yrs-and-up-2010", :xmlns=>"http://api.asset.services.active.com", :url=>"http://www.active.com/page/Event_Details.htm?event_id=1878023", "mediaType"=>"Recware Activities", "startTime"=>"18:15:00", "endTime"=>"18:15:00", "contactEmail"=>"dadams@ci.antioch.ca.us", "eventResults"=>nil, "longitude"=>"-121.7936", "endDate"=>"2010-09-13", "onlineRegistrationAvailable"=>"true", "onlineMembershipAvailable"=>"0", "state"=>"California"}
       # {"destinationID"=>"", "assetId"=>"D9A22F33-8A14-4175-8D5B-D11578212A98", "substitutionUrl"=>"1847738", "city"=>"Encino", "contactName"=>"Lilliane Ballesteros", "trackbackurl"=>"http://www.active.com/page/Event_Details.htm?event_id=1847738&assetId=D9A22F33-8A14-4175-8D5B-D11578212A98", "category"=>"Activities", "zip"=>"91406", "userCommentText"=>nil, "location"=>"Balboa Park/Lake Balboa", "latitude"=>"34.19933", :asset_id=>"D9A22F33-8A14-4175-8D5B-D11578212A98", "searchWeight"=>"1", "country"=>"United States", "participationCriteria"=>"All", "dma"=>"Los Angeles", "isSearchable"=>"1", :asset_name=>"2nd Annual weSPARK 10K Run & 5K Run Walk", :substitution_url=>"1847738", :asset_type_id=>"EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65", "row"=>"1", "image1"=>"http://www.active.com/images/events/hotrace.gif", "startDate"=>"2010-11-14", "contactPhone"=>"818-906-3022", :asset_type_name=>"Active.com Event Registration", "onlineDonationAvailable"=>"0", "avgUserRating"=>nil, "market"=>"Los Angeles", "assetTypeId"=>"EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65", "assetName"=>"2nd Annual weSPARK 10K Run & 5K Run Walk", "channel"=>["Running", "Walking"], "seourl"=>"http://www.active.com/running/encino-ca/2nd-annual-wespark-10k-run-and-5k-run-walk-2010", :xmlns=>"http://api.asset.services.active.com", :url=>"http://www.active.com/page/Event_Details.htm?event_id=1847738", "mediaType"=>["Event", "Event\\10K", "Event\\5K"], "startTime"=>"8:00:00", "endTime"=>"8:00:00", "contactEmail"=>"lilliane@wespark.org", "eventResults"=>nil, "longitude"=>"-118.4924", "endDate"=>"2010-11-14", "onlineRegistrationAvailable"=>"1", "onlineMembershipAvailable"=>"0", "state"=>"California", "estParticipants"=>"1400", "eventURL"=>"http://www.wespark.org"}
 
-      def initialize(data={})
+      def initialize(data={},preload_metadata=false)
         # need to hold on to original data
-        @data = data || {}
-        @asset_id      = data[:asset_id]
-        @url           = data[:url]
-        @asset_type_id = data[:asset_type_id]
-        @title         = data[:asset_name] if data[:asset_name]
+        @data             = data
+        @asset_id         = data[:asset_id]
+        @url              = data[:url]
+        @asset_type_id    = data[:asset_type_id]
+        @title            = data[:asset_name] if data[:asset_name]
         @substitution_url = data[:substitution_url]
-        @metadata_loaded = false
+        # @metadata_loaded = false
+        # load_metadata if preload_metadata
       end
 
       def source
@@ -27,16 +29,16 @@ module Active
 
 
       def title
-        load_metadata unless @metadata_loaded
-        if @data.has_key?("assetName")
+        # load_metadata unless @metadata_loaded
+        # if @data.has_key?("assetName")
           @data["assetName"]
-        else
-          @title
-        end
+        # else
+        #   @title
+        # end
       end
 
       def url
-        load_metadata unless @metadata_loaded
+        # load_metadata unless @metadata_loaded
         if @data.has_key?("seourl")
           @data["seourl"]
         elsif @data.has_key?("trackbackurl")
@@ -47,7 +49,7 @@ module Active
       end
 
       def categories
-        load_metadata unless @metadata_loaded
+        # load_metadata unless @metadata_loaded
         categories = @data["channel"]
         if categories.class==String
           [@data["channel"]]
@@ -57,8 +59,8 @@ module Active
       end
 
       def address
-        load_metadata unless @metadata_loaded
-        @address = {
+        # load_metadata unless @metadata_loaded
+        @address = Hash.new({
           :name    => @data["location"],
           :address => @data["address"],
           :city    => @data["city"],
@@ -67,11 +69,11 @@ module Active
           :lat     => @data["latitude"],
           :lng     => @data["longitude"],
           :country => @data["country"]
-        }
+        })
       end
 
       def start_date
-        load_metadata unless @metadata_loaded
+        # load_metadata unless @metadata_loaded
         if @data.has_key?("startDate")
           if @data.has_key?("startTime")
             (DateTime.parse "#{@data["startDate"]} #{@data["startTime"]}")
@@ -88,7 +90,7 @@ module Active
       end
 
       def end_date
-        load_metadata unless @metadata_loaded
+        # load_metadata unless @metadata_loaded
         if @data.has_key?("endDate")
           if @data.has_key?("endTime")
             (DateTime.parse "#{@data["endDate"]} #{@data["endTime"]}")
@@ -110,13 +112,27 @@ module Active
       end
 
       def desc
-        load_metadata unless @metadata_loaded
+        # load_metadata unless @metadata_loaded
         if @data.has_key?("allText")
           @data["allText"]
         elsif @data.has_key?("summary")
           @data["summary"]
         end
       end
+      
+      def contact_name
+        # load_metadata unless @metadata_loaded
+        @data["contactName"] if @data.has_key?("contactName")
+      end
+
+      def contact_email
+        # load_metadata unless @metadata_loaded
+        @data["contactEmail"] if @data.has_key?("contactEmail")
+      end
+      
+      def substitutionUrl
+        @data[:substitution_url]
+      end
 
 
       # EXAMPLE
@@ -128,42 +144,73 @@ module Active
 
       def self.find_by_id(id)
         begin
-          r = self.get_asset_by_id(id)
-          return ATS.new(r.to_hash[:get_asset_by_id_response][:out])
+
+          # return self.get_asset_by_id(id)
+          search_hash = Digest::SHA1.hexdigest("ats_m_#{id}")
+          if Active.CACHE
+            cached_version = Active.CACHE.get(search_hash)
+            return cached_version if cached_version
+          end
+
+          c = Savon::Client.new("http://api.amp.active.com/asset-service/services/AssetService")
+          c.request.headers["Api-Key"] = "6npky9t57235vps5cetm3s7k"
+          r = c.get_asset_metadata! do |soap|
+            soap.namespace = "http://api.asset.services.active.com"
+            soap.body = "<context><userId></userId><applicationId></applicationId></context><assetId>#{id}</assetId>"
+          end
+          ats = ATS.new(r.to_hash[:get_asset_metadata_response][:out])
+          Active.CACHE.set(search_hash, ats) if Active.CACHE
+          return ats          
+          
         rescue Savon::SOAPFault => e
-          raise ATSError, "Couldn't find activity with the id of #{id}"
+          raise ATSError, "Couldn't find activity with the id of #{id} error #{e.inspect}"
           return
         end
       end
 
+      # def load_metadata
+      #   metadata = ATS.get_asset_metadata(@asset_id)
+      #   @data.merge! Hash.from_xml(metadata.to_hash[:get_asset_metadata_response][:out])["importSource"]["asset"]
+      #   @metadata_loaded=true
+      # end
+
       private
       def self.get_asset_metadata(id)
-        c = Savon::Client.new("http://api.amp.active.com/asset-service/services/AssetService?wsdl")
+        search_hash = Digest::SHA1.hexdigest("ats_m_#{id}")
+        if Active.CACHE
+          cached_version = Active.CACHE.get(search_hash)
+          return cached_version if cached_version
+        end
+        
+        c = Savon::Client.new("http://api.amp.active.com/asset-service/services/AssetService")
         c.request.headers["Api-Key"] = "6npky9t57235vps5cetm3s7k"
-        r = c.get_asset_metadata do |soap|
+        r = c.get_asset_metadata! do |soap|
           soap.namespace = "http://api.asset.services.active.com"
           soap.body = "<context><userId></userId><applicationId></applicationId></context><assetId>#{id}</assetId>"
         end
-        puts "==========="
-        puts r.to_hash[:get_asset_metadata_response][:out].inspect
-        return r
+        ats = ATS.new(r.to_hash[:get_asset_metadata_response][:out])
+        Active.CACHE.set(search_hash, ats) if Active.CACHE
+        return ats
       end
 
       def self.get_asset_by_id(id)
+        search_hash = Digest::SHA1.hexdigest("ats_#{id}")
+        if Active.CACHE
+          cached_version = Active.CACHE.get(search_hash)
+          return cached_version if cached_version
+        end
+        
         c = Savon::Client.new("http://api.amp.active.com/asset-service/services/AssetService")
         c.request.headers["Api-Key"] = "6npky9t57235vps5cetm3s7k"
         r = c.get_asset_by_id! do |soap|
           soap.namespace = "http://api.asset.services.active.com"
           soap.body = "<context><userId></userId><applicationId></applicationId></context><assetId>#{id}</assetId>"
         end
-        return r
-      end
-
-      def load_metadata
-        metadata = ATS.get_asset_metadata(@asset_id)
-        @data.merge! Hash.from_xml(metadata.to_hash[:get_asset_metadata_response][:out])["importSource"]["asset"]
-        @metadata_loaded=true
+        ats = ATS.new(r.to_hash[:get_asset_by_id_response][:out])
+        Active.CACHE.set(search_hash, ats) if Active.CACHE
+        return ats
       end
+      
 
     end # end ats
   end

data/lib/services/gsa.rb

@@ -0,0 +1,153 @@
+module Active
+  module Services
+
+    class GSAError < StandardError;  end
+
+    class GSA < IActivity
+      require 'nokogiri'
+      require 'open-uri'
+      attr_accessor :asset_type_id
+
+      # EXAMPLE Data hash
+      # {"title"=>"Birds of a Feather Run | Ashland, Oregon 97520 | Thursday ...", "language"=>"en", "url"=>"http://www.active.com/running/ashland-or/birds-of-a-feather-run-2010", "escapedUrl"=>"http://www.active.com/running/ashland-or/birds-of-a-feather-run-2010", "meta"=>{"city"=>"Ashland", "assetId"=>["4365AF63-B2AE-4A98-A403-5E30EB6D2D69", "4365af63-b2ae-4a98-a403-5e30eb6d2d69"], "substitutionUrl"=>"1845585", "trackbackurl"=>"http://www.active.com/running/ashland-or/birds-of-a-feather-run-2010", "contactName"=>"Hal Koerner", "eventDate"=>"2010-09-23T00:00:00-07:00", "eventLongitude"=>"-122.5526", "eventId"=>"1845585", "zip"=>"97520", "category"=>"Activities", "latitude"=>"42.12607", "google-site-verification"=>"", "participationCriteria"=>"All", "dma"=>"Medford - Klamath Falls", "country"=>"United States", "sortDate"=>"2000-09-23", "tag"=>["event:10", "Running:10"], "lastModifiedDateTime"=>"2010-09-23 03:04:55.463", "lastModifiedDate"=>"2010-09-23", "startDate"=>"2010-09-23", "contactPhone"=>"541-201-0014", "eventState"=>"Oregon", "splitMediaType"=>"Event", "onlineDonationAvailable"=>"0", "market"=>"Medford - Klamath Falls", "assetName"=>["Birds of a Feather Run", "Birds of a Feather Run"], "seourl"=>"http://www.active.com/running/ashland-or/birds-of-a-feather-run-2010", "assetTypeId"=>"EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65", "channel"=>"Running", "endTime"=>"0:00:00", "mediaType"=>"Event", "startTime"=>"0:00:00", "description"=>"", "longitude"=>"-122.5526", "UpdateDateTime"=>"9/22/2010 11:46:24 AM", "endDate"=>"2010-09-23", "onlineMembershipAvailable"=>"0", "onlineRegistrationAvailable"=>"false", "eventZip"=>"97520", "state"=>"Oregon", "estParticipants"=>"2000", "eventURL"=>"http://sorunners.org/", "eventLatitude"=>"42.12607", "keywords"=>"Event"}, "summary"=>"... Similar Running Events. I Ran for Sudan - Maple Valley First Annual 10K/2Mile      Kid's Run/Walk Maple Valley, Washington Sat, Oct 02, 2010; ... "}
+
+      def initialize(json={})
+        # need to hold on to original data
+        @data = HashWithIndifferentAccess.new(json) || HashWithIndifferentAccess.new
+        # self.title = @data['meta']['assetName'] || nil
+        self.title = @data['title'] || nil
+      end
+
+      def source
+        :gsa
+      end
+
+      def title=(value)
+        @title = value
+        if @title 
+          @title = @title.split("|")[0].strip if @title.include?("|")          
+          @title = @title.gsub(/<\/?[^>]*>/, "")
+          @title = @title.gsub("...", "")
+        end
+      end
+
+      def url
+        @data["url"]
+      end
+
+      def categories
+        if @data["meta"]["channel"].class==String
+          [@data["meta"]["channel"]]
+        else
+          @data["meta"]["channel"]
+        end
+      end
+
+      def asset_id
+        return nil unless @data["meta"] and @data["meta"]["assetId"]
+        value = @data["meta"]["assetId"]
+        @asset_id = (value.class==Array) ? value[0] : value
+      end
+      
+      def asset_type_id
+        return nil unless @data["meta"] and @data["meta"]["assetTypeId"]        
+        @data["meta"]["assetTypeId"]
+      end
+      
+      def primary_category
+        categories.first
+      end
+
+      def address
+        @address = HashWithIndifferentAccess.new({
+          :name    => @data["meta"]["location"],
+          :address => @data["meta"]["eventAddress"],
+          :city    => @data["meta"]["city"],
+          :lat     => @data["meta"]["latitude"],
+          :lng     => @data["meta"]["longitude"],
+          :country => @data["meta"]["country"]
+        })       
+       @address[:state] = @data["meta"]["eventState"] || @data["meta"]["state"]
+       @address[:zip]   = @data["meta"]["eventZip"] || @data["meta"]["zip"]
+       @address
+      end
+
+      def start_date
+        if @data.has_key?("meta") and  @data["meta"].has_key?("eventDate")
+          DateTime.parse @data["meta"]["eventDate"] 
+        else
+          nil
+        end
+      end
+
+      def start_time
+        start_date
+      end
+
+      def end_date
+        if @data.has_key?("meta") and  @data["meta"].has_key?("endDate")
+          DateTime.parse @data["meta"]["endDate"]
+        else
+          nil
+        end
+      end
+
+      def end_time
+        end_date
+      end
+
+      def category
+        primary_category
+      end
+
+      def contact_name
+        if @data["meta"].has_key?("contactName") && !@data["meta"]["contactName"].blank?
+          @data["meta"]["contactName"]
+        end
+      end
+      
+      def last_modified
+        @data["meta"]["lastModifiedDateTime"] if @data["meta"].has_key?("lastModifiedDateTime") 
+      end
+
+      def contact_email
+        if @data["meta"].has_key?("contactEmail") && !@data["meta"]["contactEmail"].blank?
+          @data["meta"]["contactEmail"]
+        end
+      end
+
+      def desc
+        if @data["meta"].has_key?("allText") && !@data["meta"]["allText"].blank?
+          @data["meta"]["allText"]
+        elsif @data["meta"].has_key?("summary") && !@data["meta"]["summary"].blank?
+          @data["meta"]["summary"]
+        elsif @data.has_key?("summary") && !@data["summary"].blank?
+          @data["summary"]
+        else
+          ""
+        end
+      end
+      # substitutionUrl could be formatted like this
+      # 1. "meta":{"substitutionUrl":"vistarecreation/registrationmain.sdi?source=showAsset.sdi&activity_id=4900"}
+      # 2. "meta":{"substitutionUrl":"4900"}
+      def substitutionUrl
+        if @data["meta"].has_key?("substitutionUrl")
+          if /activity_id=/ =~ @data["meta"]["substitutionUrl"]
+            @data["meta"]["substitutionUrl"].split("activity_id=")[1]
+          else
+            @data["meta"]["substitutionUrl"]
+          end
+        end
+      end
+      # TODO
+      def activeworks_id
+        0
+      end
+      def regcenter_id
+        0
+      end
+
+
+    end
+  end
+end

data/lib/services/reg_center.rb

@@ -6,6 +6,7 @@ module Active
     class RegCenter < IActivity
       require 'nokogiri'
       require 'open-uri'
+      require 'digest/sha1'
       attr_accessor :asset_type_id
       
 #      attr_reader :metadata_loaded
@@ -15,15 +16,12 @@ module Active
       # :asset_type_id=>"EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65", :xmlns=>"http://api.asset.services.active.com"}
 
       def initialize(data={})
-        # need to hold on to original data
         @data = HashWithIndifferentAccess.new(data) || HashWithIndifferentAccess.new
-        @api_data_loaded = false
         @asset_type_id = "EA4E860A-9DCD-4DAA-A7CA-4A77AD194F65"
-        get_app_api
       end
 
       def source
-        :reg_center
+        :primary
       end
 
       def title
@@ -73,18 +71,18 @@ module Active
             channels.each do |c|
               return c["channelName"] if c.has_key?("primaryChannel") && c["primaryChannel"]=="true"
             end
+            nil
           else
             #hash
             return channels["channelName"] if channels.has_key?("primaryChannel") && channels["primaryChannel"]=="true"
+            return nil
           end
-          #fallback
-          return category
         end
       end
 
       def address
         if @data.has_key?("event") && @data["event"].has_key?("eventAddress") && !@data["event"]["eventAddress"].blank?
-          @address = {
+          @address = validated_address({
             :name    => @data["event"]["eventLocation"],
             :address => @data["event"]["eventAddress"],
             :city    => @data["event"]["eventCity"],
@@ -93,7 +91,7 @@ module Active
             :lat     => @data["event"]["latitude"],
             :lng     => @data["event"]["longitude"],
             :country => @data["event"]["eventCountry"]
-          }        
+          } )
         end
       end
 
@@ -131,7 +129,9 @@ module Active
               ret +="<div><b>" + eventDetail["eventDetailsName"] + ":</b> " + cleanup_reg_string(eventDetail["eventDetailsValue"]) + "</div>"
             end
           end
-          ret
+          return ret
+        elsif @data.has_key?("event") && @data["event"].has_key?("eventDescription")
+          return @data["event"]["eventDescription"]
         end
       end
       
@@ -139,6 +139,12 @@ module Active
         input.gsub("\r","").gsub("\n","").gsub("\"","""").gsub("\342\200\234","""").gsub("\342\200\235","""")
       end
 
+      def contact_email
+        if @data.has_key?("event") && @data["event"].has_key?("eventContactEmail")
+          return @data["event"]["eventContactEmail"]
+        end
+      end
+
 
       # EXAMPLE
       # lazy load the data for some_crazy_method
@@ -148,7 +154,23 @@ module Active
       # end
 
       def self.find_by_id(id) #local id
-          return RegCenter.new({:id=>id})
+        
+        search_hash = Digest::SHA1.hexdigest("reg_#{id}")
+        if Active.CACHE
+          cached_version = Active.CACHE.get(search_hash)
+          return cached_version if cached_version
+        end
+        
+        begin
+          doc  = Nokogiri::XML(open("http://apij.active.com/regcenter/event/#{id}"))
+          reg  = RegCenter.new(Hash.from_xml(doc.to_s))
+          Active.CACHE.set(search_hash, reg) if Active.CACHE          
+        rescue Exception => e
+          raise RegCenterError, "Couldn't find Reg Center activity with the id of #{id} - #{e.inspect}"
+          return
+        end
+        
+        return reg
       end
 
       private
@@ -182,17 +204,17 @@ module Active
       #   @metadata_loaded=true
       # end
       
-      def get_app_api
-        puts "loading reg center api"
-        begin
-          doc = Nokogiri::XML(open("http://apij.active.com/regcenter/event/#{@data[:id]}"))
-          @data.merge! Hash.from_xml doc.to_s
-          @api_data_loaded=true
-        rescue
-          raise RegCenterError, "Couldn't find Reg Center activity with the id of #{id}"
-          return
-        end
-      end
+      # def get_app_api
+      #   puts "loading reg center api"
+      #   begin
+      #     doc = Nokogiri::XML(open("http://apij.active.com/regcenter/event/#{@data[:id]}"))
+      #     @data.merge! Hash.from_xml doc.to_s
+      #     @api_data_loaded=true
+      #   rescue
+      #     raise RegCenterError, "Couldn't find Reg Center activity with the id of #{id}"
+      #     return
+      #   end
+      # end
 
     end # end ats
   end

data/lib/services/sanitize.rb

@@ -0,0 +1,108 @@
+# http://wonko.com/post/sanitize
+
+# $Id: sanitize.rb 3 2005-04-05 12:51:14Z dwight $
+#
+# Copyright (c) 2005 Dwight Shih
+# A derived work of the Perl version:
+# Copyright (c) 2002 Brad Choate, bradchoate.com
+# 
+# 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.
+#
+
+def sanitize( html, okTags='a href, b, br, i, p' )
+  # no closing tag necessary for these
+  soloTags = ["br","hr"]
+
+  # Build hash of allowed tags with allowed attributes
+  tags = okTags.downcase().split(',').collect!{ |s| s.split(' ') }
+  allowed = Hash.new
+  tags.each do |s|
+    key = s.shift
+    allowed[key] = s
+  end
+
+  # Analyze all <> elements
+  stack = Array.new
+  result = html.gsub( /(<.*?>)/m ) do | element |
+    if element =~ /\A<\/(\w+)/ then
+      # </tag>
+      tag = $1.downcase
+      if allowed.include?(tag) && stack.include?(tag) then
+        # If allowed and on the stack
+        # Then pop down the stack
+        top = stack.pop
+        out = "</#{top}>"
+        until top == tag do
+          top = stack.pop
+          out << "</#{top}>"
+        end
+        out
+      end
+    elsif element =~ /\A<(\w+)\s*\/>/
+      # <tag />
+      tag = $1.downcase
+      if allowed.include?(tag) then
+        "<#{tag} />"
+      end
+    elsif element =~ /\A<(\w+)/ then
+      # <tag ...>
+      tag = $1.downcase
+      if allowed.include?(tag) then
+        if ! soloTags.include?(tag) then
+          stack.push(tag)
+        end
+        if allowed[tag].length == 0 then
+          # no allowed attributes
+          "<#{tag}>"
+        else
+          # allowed attributes?
+          out = "<#{tag}"
+          while ( $' =~ /(\w+)=("[^"]+")/ )
+            attr = $1.downcase
+            valu = $2
+            if allowed[tag].include?(attr) then
+              out << " #{attr}=#{valu}"
+            end
+          end
+          out << ">"
+        end
+      end
+    end
+  end
+  
+  # eat up unmatched leading >
+  while result.sub!(/\A([^<]*)>/m) { $1 } do end
+  
+  # eat up unmatched trailing <
+  while result.sub!(/<([^>]*)\Z/m) { $1 } do end
+  
+  # clean up the stack
+  if stack.length > 0 then
+    result << "</#{stack.reverse.join('></')}>"
+  end
+
+  result
+end