#
# Copyright (C) 2007 Mobio Networks, Inc.
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

require 'collections/sequenced_hash'

module Rmobio
  module Ads
    module Smaato
      @@adServer="http://dev.soma.smaato.com:8080/wap/reqAd.jsp"
  
      def getAdByPage(adClient,ip=request.remote_ip,url=request.request_uri,useragent=request.user_agent)
        getAd(nil,adClient,ip,url,useragent)    
      end
  
      # this returns an adfrom Google's mobile AdSense, given a supplied set of keywords
      # Smaato doesn't seem to use the IP, the URL or the useragent
      def getAd(keywords,adClient,ip=request.remote_ip,url=request.request_uri,useragent=request.user_agent)
        logger.info "Smaato ad retrieval"
=begin
Example:
http://dev.soma.smaato.com:8080/wap/reqAd.jsp?pub=3517&adspace=137
&format=JPG&numads=10&offline=true&user=&response=XML
&width=176&height=208&device=Sony&devip=123.45.67.89&carrier=o2
&lang=de
=end
        @@userId=request.env['HTTP_USERID'] 

        # build up the various arguments in the adArgs hash
        adArgs= SequencedHash.new
        adArgs["pub"]=adClient # replace with real publisher ID
        adArgs["adspace"]="137" # what is the ad space ID that we need here?!
        adArgs["format"]="JPG"
        adArgs["numads"]="1"
        adArgs["offline"]="true"
        adArgs["width"]="176"  # get these from device capabilities service instead!
        adArgs["height"]="208"  # get these from device capabilities service instead
        adArgs["response"]="XML"
        adArgs["user"]=@@userId   
        if (keywords)
          adArgs["kws"]=CGI::escape(keywords) 
        end
        # now built the URL to call out to based upon the base URL and ad hash
        adURL=@@adServer + "?"
        first=1 # dont put ampersand on first one
        adArgs.each_key do |x|
          if adArgs[x]
            (adURL=adURL+"&") unless first
            first=nil # start putting in &s
            adURL = adURL + x + "=" + adArgs[x]   
          end
        end
=begin
CALL:
http://dev.soma.smaato.com:8080/wap/reqAd.jsp?
pub=3517&adspace=0&format=JPG&numads=1&offline=false&width=100&height=100&response=XML&user=101&kws=India

=end
        # ok, now call google's mobile adSense service and get back the full ad 
        @adxml=open(adURL).read
=begin
RESULT: 
<?xml version="1.0"?><response xmlns="http://dev.soma.smaato.com:8080/wap/"
 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xsi:schemaLocation="http://dev.soma.smaato.com:8080/wap/ http://dev.soma.smaato.com:8080/wap/smaatoapi.xsd">
<event-response><status>error</status><error>375</error><desc>No request data found.</desc></event-response>
<status>success</status><user><id>101</id></user>
<ads>
<ad id="1358" type="JPEG" width="112" height="20" refresh="1206058763039" caching="false" priority="0">
<log-id>77bbb740be3c54debc5076f2be48df41</log-id><valid start="1204849163039" end="1212707963039" max="999999" />
<link>http://dev.soma.smaato.com:8080/wap/getAd.jsp?id=1358&amp;l=77bbb740be3c54debc5076f2be48df41&amp;o=false</link><action target="http://dev.soma.smaato.com:8080/wap/lp.jsp?id=1358&amp;l=77bbb740be3c54debc5076f2be48df41&amp;o=false&amp;a=6&amp;t=http://www.smaato.mobi" type="LINK" acc="server" />
<adtext />
</ad>
</ads>
</response>
=end
        if (@adxml)
          adDoc = REXML::Document.new @adxml
          @adelement = adDoc.elements["//ad"]
          if (@adelement)
            @adurl=@adelement.elements["link"].text
            @urltext=@adelement.elements["adtext"].text
            @urltext||="LINK TO AD" 
          end
        end
      end 


  
    end
  end
end