apdm 0.0.15

data/lib/apdm/issues/vestbyavis.rb

@@ -0,0 +1,51 @@
+APDM::ISSUES['vestbyavis'] = [
+  Date.parse('2013-01-03'),
+  Date.parse('2013-01-10'),
+  Date.parse('2013-01-17'),
+  Date.parse('2013-01-24'),
+  Date.parse('2013-01-31'),
+  Date.parse('2013-02-07'),
+  Date.parse('2013-02-14'),
+  Date.parse('2013-02-21'),
+  Date.parse('2013-02-28'),
+  Date.parse('2013-03-07'),
+  Date.parse('2013-03-14'),
+  Date.parse('2013-03-21'),
+  Date.parse('2013-04-04'),
+  Date.parse('2013-04-11'),
+  Date.parse('2013-04-18'),
+  Date.parse('2013-04-25'),
+  Date.parse('2013-05-02'),
+  Date.parse('2013-05-16'),
+  Date.parse('2013-05-23'),
+  Date.parse('2013-05-30'),
+  Date.parse('2013-06-06'),
+  Date.parse('2013-06-13'),
+  Date.parse('2013-06-20'),
+  Date.parse('2013-06-27'),
+  Date.parse('2013-07-04'),
+  Date.parse('2013-07-11'),
+  Date.parse('2013-07-18'),
+  Date.parse('2013-07-25'),
+  Date.parse('2013-08-01'),
+  Date.parse('2013-08-08'),
+  Date.parse('2013-08-15'),
+  Date.parse('2013-08-22'),
+  Date.parse('2013-08-29'),
+  Date.parse('2013-09-05'),
+  Date.parse('2013-09-12'),
+  Date.parse('2013-09-19'),
+  Date.parse('2013-09-26'),
+  Date.parse('2013-10-03'),
+  Date.parse('2013-10-10'),
+  Date.parse('2013-10-17'),
+  Date.parse('2013-10-24'),
+  Date.parse('2013-10-31'),
+  Date.parse('2013-11-07'),
+  Date.parse('2013-11-14'),
+  Date.parse('2013-11-21'),
+  Date.parse('2013-11-28'),
+  Date.parse('2013-12-05'),
+  Date.parse('2013-12-12'),
+  Date.parse('2013-12-19')
+]

data/lib/apdm/local_paper_area.rb

@@ -0,0 +1,21 @@
+require 'rgeo'
+require 'rgeo-geojson'
+
+module APDM
+  class LocalPaperArea
+
+    attr_reader :feature, :factory
+    def initialize(geojson)
+      @factory = RGeo::Geographic.spherical_factory
+      @feature = RGeo::GeoJSON.decode(geojson, :json_parser => :json)
+    end
+
+    def contains?(lon, lat)
+      feature.contains? factory.point(lon, lat)
+    end
+  end
+
+  EmptyGeoHash = "{\"type\":\"MultiPolygon\",\"coordinates\":[[[]]]}"
+
+end
+

data/lib/apdm/network.rb

@@ -0,0 +1,49 @@
+require 'enumerator'
+
+module APDM
+
+  class Network
+    include Enumerable
+
+    attr_reader :channels
+    def initialize
+      @channels = []
+    end
+
+    def each
+      @channels.each {|c| yield c}
+    end
+
+    def <<(channel)
+      @channels << channel
+    end
+
+    def find_by_label(label)
+      find do |channel|
+        channel.label == label
+      end
+    end
+
+    def find_by_ad_tech_id(id)
+      find do |channel|
+        channel.ad_tech_id == id.to_i
+      end
+    end
+
+    def find_by_url(url)
+      return nil unless (url && url[/\./])
+      label = url.gsub(/https?:\/\//, '')[/([^\.]+\.[^\.]+)$/, 1].gsub(/\.\w+$/, '')
+      find_by_label(label)
+    end
+
+    def random_production_channel
+      # used to display ads from a random channel
+      @channels.reject{|c| c.ad_tech_id.nil? || c.label == 'avisnavn' || c.label == 'moss-dagblad' }.sample
+    end
+
+    # DEPRECATED
+    def find_by_domain(url)
+      find_by_url(url)
+    end
+  end
+end

data/lib/apdm/null_cache.rb

@@ -0,0 +1,15 @@
+module APDM
+  class NullCache
+    def set(*args)
+      # Elegantly does exactly nothing.
+    end
+
+    def get(*args)
+      # Nothing is cached; nothing to get.
+    end
+
+    def delete(*args)
+      # It's already gone.
+    end
+  end
+end

data/lib/apdm/origo.rb

@@ -0,0 +1,46 @@
+require 'curb'
+require 'json'
+
+# Hackish origo knowledge
+module APDM
+  class Origo
+
+    # Found in the Origo console with
+    # Organization.find_by_title('A-pressen').children.map(&:id)
+    APRESSEN = [29, 34, 35, 39, 40, 42, 44, 47, 56, 64, 67, 69, 82, 94, 95, 99, 134, 139, 154, 155, 162, 232, 242, 264, 287, 317, 386, 401, 420, 433, 456, 462, 597, 12455, 12617, 12733, 12735, 12737, 12802, 12886, 13036, 13038, 13041, 13042]
+
+    BENGLER = [22]
+
+    ORGANIZATIONS = APRESSEN + BENGLER
+
+    def self.organization?(id)
+      ORGANIZATIONS.include?(id)
+    end
+
+    def self.fetch_credentials(id)
+      api.fetch_credentials(id)
+    end
+
+    def self.api
+      @api ||= API.new
+    end
+
+    class API
+      # Credentials in Origo relate a person to an organization via a role.
+      # An 'authorized' role means that a human has actually
+      # eyeballed the credential and said: "Yeah, this is true."
+      # A 'privileged' role, gives the person god-like powers in the
+      # organization, but only works if actually authorized.
+      def fetch_credentials(id)
+        credentials = JSON.parse(Curl::Easy.http_get("#{url}#{id}").body_str)
+        credentials.select {|credential| Origo.organization?(credential["organization"]["id"]) }
+      end
+
+      private
+      def url
+        "http://origo.no/-/api/v2/credential/find?api_key=49rgnfu9tdtovs1bn2k9xbdq141thogpjbll3bn460d559gk0o&include_organization=true&user_id="
+      end
+
+    end
+  end
+end

data/lib/apdm/saxo.rb

@@ -0,0 +1,58 @@
+require 'net/ftp'
+require 'open3'
+require 'open-uri'
+require 'logger'
+
+require "apdm/saxo/metadata"
+require "apdm/saxo/iptc"
+require "apdm/saxo/remote"
+
+module APDM
+  class Saxo
+    class InvalidConfig < Exception; end
+
+    class << self
+      attr_writer :logger
+      def logger
+        unless @logger
+          FileUtils.mkdir('log') unless File.exists?('log')
+          @logger = Logger.new('log/saxo.log')
+        end
+        @logger
+      end
+    end
+
+    attr_accessor :server, :username, :password, :remote_dir
+    def initialize(options = {})
+      options.each {|k,v| validate(k, v)}
+
+      self.server = options[:server] || options['server']
+      self.username = options[:username] || options['username']
+      self.password = options[:password] || options['password']
+      self.remote_dir = (options[:remote_dir] || options['remote_dir']).upcase
+    end
+
+    def write(metadata)
+      Metadata.new(metadata)
+    end
+
+    def transfer(photo)
+      Remote.new(self, photo).transfer
+    end
+
+    private
+    def validate(key, value)
+      if required?(key) && !valid?(value)
+        raise InvalidConfig.new("#{key} is required!")
+      end
+    end
+
+    def required?(key)
+      [:server, :username, :password, :remote_dir].include? key.to_sym
+    end
+
+    def valid?(value)
+      !value.nil? && value != ""
+    end
+  end
+end

data/lib/apdm/saxo/iptc.rb

@@ -0,0 +1,69 @@
+module APDM
+  class Saxo
+    class IPTC
+
+      attr_accessor :name, :path, :file, :source
+      def initialize(name, path, options = {})
+        self.source = options[:source]
+        self.name = name
+        self.path = path
+        self.file = "#{path.chomp('/')}/#{name}"
+        duplicate options[:file] if options[:file]
+      end
+
+      def duplicate(original)
+        FileUtils.cp(original, file)
+      end
+
+      def logger
+        APDM::Saxo.logger
+      end
+
+      def write(data = {})
+        download if source
+        delete_metadata
+        write_metadata(data)
+      end
+
+      def download
+        logger.info "Downloading #{source}."
+        begin
+          File.open(file, "wb") do |f|
+            o = open(source)
+            r = o.read
+            f.write r
+          end
+        rescue
+          raise $!, "Problem downloading image with file: #{file} and source: #{source}. #{$!}"
+        end
+      end
+
+      def delete_metadata
+        logger.info "Deleting metadata on #{file}."
+        command = "exiv2 -d a delete #{file}"
+        Open3.popen3(command) do |stdin, stdout, stderr|
+          if stderr.gets
+            logger.warn "Could not delete metadata: #{stderr.gets}"
+          end
+        end
+      end
+
+      def write_metadata(data = {})
+        logger.info "Writing metadata to #{file}."
+        write_value('ObjectName', name)
+        data.each do |key, value|
+          write_value(key.to_s.capitalize, value)
+        end
+      end
+
+      def write_value(key, value)
+        command = "exiv2 -M \"set Iptc.Application2.#{key} String #{value}\" #{file}"
+        Open3.popen3(command) do |stdin, stdout, stderr|
+          if stderr.gets
+            logger.warn "Failed to write #{value} to #{key}: #{stderr.gets}"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/apdm/saxo/metadata.rb

@@ -0,0 +1,36 @@
+# encoding: utf-8
+module APDM
+  class Saxo
+    class Metadata
+
+      class << self
+        def sanitize(s)
+          s.gsub(/`/, "'").gsub(/´/, '\'').gsub(/"/, '\"').gsub('<3', ':heart:').gsub(/[<>]/, '').squeeze(' ')
+        end
+
+        def to_iso88591(utf8_string)
+          utf8_string.encode(Encoding::ISO_8859_1, Encoding::UTF_8, :undef => :replace)
+        end
+      end
+
+      attr_accessor :metadata
+
+      def initialize(data = {})
+        data = data.dup
+        self.metadata = data.each {|k,v| data[k] = convert(Metadata.sanitize(v))}
+      end
+
+      def to(name, path, options = {})
+        iptc = IPTC.new(name, path, options)
+        iptc.write(metadata)
+        iptc
+      end
+
+      private
+
+      def convert(value)
+        Metadata.to_iso88591(value)
+      end
+    end
+  end
+end

data/lib/apdm/saxo/remote.rb

@@ -0,0 +1,67 @@
+module APDM
+
+  class SaxoTransferError < StandardError; end
+
+  class Saxo
+    class Remote
+
+      attr_accessor :saxo, :photo, :local_size, :remote_size
+      def initialize(saxo, photo)
+        self.saxo = saxo
+        self.photo = photo
+      end
+
+      def logger
+        APDM::Saxo.logger
+      end
+
+      def source
+        @source ||= photo.file
+      end
+
+      def destination
+        @destination ||= "#{saxo.remote_dir}/#{photo.name}"
+      end
+
+      def transfer
+        logger.info("Begin transfer of #{source} to #{destination}")
+        Timeout.timeout(30) do
+          Net::FTP.open(saxo.server, saxo.username, saxo.password) do |ftp|
+            Timeout.timeout(20) do
+              upload(ftp)
+            end
+            Timeout.timeout(10) do
+              cleanup(ftp)
+            end
+          end
+        end
+        return true if transfer_succeeded?
+
+        raise SaxoTransferError("Upload failed [#{local_size}/#{remote_size}]. Source: #{source} -- destination: #{destination}")
+      end
+
+      def upload(ftp)
+        ftp.passive = true
+        ftp.putbinaryfile(source, destination)
+        self.remote_size = ftp.size(destination)
+      end
+
+      def cleanup(ftp)
+        if transfer_succeeded?
+          File.delete(source)
+        else
+          ftp.delete(destination)
+        end
+      end
+
+      def transfer_succeeded?
+        local_size == remote_size
+      end
+
+      def local_size
+        @local_size ||= File.size(source)
+      end
+
+    end
+  end
+end

data/lib/apdm/sinatra.rb

@@ -0,0 +1,85 @@
+require "apdm"
+
+module Sinatra
+  module APDM
+    module Helpers
+
+      def current_channel
+        host = request.env['HTTP_X_FORWARDED_HOST'] || request.host
+        ::APDM::Channel.find_by_domain(host) || ::APDM::Channel.find_by_domain("avisnavn.no")
+      end
+
+      def design_elements
+        @design_elements ||= ::APDM::DesignElements.new(current_channel.label, :api_key => self.settings.design_elements_api_key)
+      end
+
+      def ad_tech
+        ad_tech_for(::APDM::CHANNELS.random_production_channel)
+      end
+
+      def ad_tech_for(channel)
+        @ad_tech_for ||= {}
+        @ad_tech_for[channel.label] ||= ::APDM::AdTech.new(channel, :context_key => self.settings.ad_tech_context_prefix)
+      end
+
+      def ad_tech_api_js
+        # This snippet is needed by the ad_tech scripts and should be included in the head tag of pages displaying ad_tech ads
+        # Note: its an extract of code found in apdm JavaScript as per august 2012 and may be cause future breakage
+        # It hurts but it works
+        <<-js
+        window.api = {"cookie": {
+          "del": function (name,path,domain){var cookie=name+"="+((path)?";path="+path:"");cookie+=((domain)?";domain="+domain:"");cookie+=";expires=Thu, 01-Jan-1970 00:00:01 GMT";if(this.get(name)){document.cookie=cookie;}},
+          "get": function (name){var dc=document.cookie;if(dc===""){return false;}},
+          "isOn": function (){this.set("apiCookiesOnCheck","true",365);return(this.get("apiCookiesOnCheck")=="true");},
+          "set": function (name,value,expires,path,domain,secure){var fDate=new Date();var exDate=fDate.getTime();exDate+=1000*3600*24*expires;fDate.setTime(exDate);name+="="+escape(value)+((expires)?"; expires="+fDate.toGMTString():"");name+=((path)?"; path="+path:"");name+=((domain)?"; domain="+domain:"");name+=((secure)?"; secure":"");document.cookie=name;}
+        }};
+        js
+      end
+
+      def design_elements_css_path
+        "#{request.script_name}/apdm-design-elements.css"
+      end
+    end
+
+    def self.registered(app)
+      app.get '/apdm-design-elements.css' do
+        headers('Content-Type' => 'text/css', 'X-Content-Type-Options' => 'nosniff')
+        design_elements.css
+      end
+
+      app.helpers(Sinatra::APDM::Helpers)
+    end
+
+    def apdm_configure(&blk)
+      self.instance_exec(&blk)
+    end
+
+    def set_design_elements_api_key(api_key)
+      set :design_elements_api_key, api_key
+    end
+
+    def set_ad_tech_context_prefix(context_prefix)
+      set :ad_tech_context_prefix, context_prefix
+    end
+
+    # Here be workarounds for the diabolical evil apdm proxy
+    def enable_apdm_proxy_workarounds
+      before do
+        # Enforce a trailing slash for root requests.
+        #   i.e. /vis/bandwagon ==redirects to==> /vis/bandwagon/
+        # The evil apdm proxy sets cookies on path with trailing slash (e.g. /vis/bandwagon/)
+        # so a user entering /vis/bandwagon (without trailing slash) will loose its credentials. This is the workaround.
+        if request.path_info == '/' and not request.env['REQUEST_PATH'].match(/\/$/)
+          redirect request.env['REQUEST_PATH']+"/"
+        end
+      end
+    end
+
+    # Cache headers required/recommended by the apdm proxy
+    def enable_apdm_cache_headers
+      before do
+        cache_control :private, :no_cache, :no_store, :must_revalidate
+      end
+    end
+  end
+end