de.oddb 2.0.0

data/lib/oddb/text/table.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+# Text::Table -- de.oddb.org -- 19.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/text/paragraph'
+
+module ODDB
+  module Text
+    class Table
+      def initialize(*args)
+        super
+        @rows = [[]]
+        next_cell!
+      end
+      def clean!
+        @rows.each { |row|
+          while((cell = row.last) && cell.empty?)
+            row.pop
+          end
+        }
+        while((row = @rows.last) && row.empty?)
+          @rows.pop
+        end
+      end
+      def column_widths
+        @rows.inject([]) { |memo, row|
+          row.each_with_index { |cell, idx|
+            memo[idx] = [memo[idx].to_i, cell.length].max
+          }
+          memo
+        }
+      end
+      def empty?
+        @rows.flatten.all? { |cell| cell.strip.empty? }
+      end
+      def next_cell!
+        cell = Paragraph.new
+        @rows.last.push cell
+        cell
+      end
+      def next_row!
+        @rows.push []
+        next_cell!
+      end
+      def each_normalized(&block)
+        wd = width
+        @rows.each { |row|
+          block.call(row + Array.new(wd - row.length))
+        }
+      end
+      def to_s
+        widths = column_widths
+        @rows.collect { |row|
+          line = ''
+          row.each_with_index { |cell, idx|
+            line << cell.to_s.ljust(widths.at(idx) + 2)
+          }
+          line
+        }.join("\n")
+      end
+      def width
+        @rows.collect { |row| row.length }.max  
+      end
+      def <<(str)
+        @rows.last.last << str
+      end
+    end
+  end
+end

data/lib/oddb/util.rb

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# Util -- de.oddb.org -- 21.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/util/code'
+require 'oddb/util/logger'
+require 'oddb/util/money'
+require 'oddb/util/multilingual'
+require 'oddb/util/quanty'
+require 'oddb/util/server'

data/lib/oddb/util/annotated_list.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Util::AnnotatedList -- de.oddb.org -- 06.12.2006 -- hwyss@ywesee.com
+
+module ODDB
+  module Util
+class AnnotatedList < Array
+  def initialize(annotations = {})
+    if(annotations.is_a?(Hash))
+      super()
+      @annotations = annotations
+    else
+      super
+      @annotations = {}
+    end
+  end
+  def sort_by(*args, &block)
+    _delegate(super(*args, &block))
+  end
+  def [](*args, &block)
+    _delegate(super(*args, &block))
+  end
+  def method_missing(key, *args)
+    mname = key.id2name
+    if(args.size == 1 && /=$/.match(mname))
+      mname.chop!
+      @annotations[mname.to_sym] = args.first
+    else
+      @annotations[key]
+    end
+  end
+  private
+  def _delegate(content)
+    self.dup.clear.concat(content)
+  end
+end
+  end
+end

data/lib/oddb/util/code.rb

@@ -0,0 +1,69 @@
+#!/usr/bin/env ruby
+# Util::Code -- de.oddb.org -- 12.09.2006 -- hwyss@ywesee.com
+
+require 'date'
+
+module ODDB
+  module Util
+    class Code
+      attr_accessor :type, :value, :country, :format
+      def initialize(type, value, country, valid_from=Date.today)
+        @values = { valid_from => value}
+        @type, @country = type.to_s.downcase, country.to_s.upcase
+      end
+      def hash
+        [@type, @value, @country].hash
+      end
+      def is_for?(type, country)
+        @type == type.to_s.downcase && @country == country.to_s.upcase
+      end
+      def format
+        @format || case @type
+        when 'registration'
+          case @country
+          when 'CH'
+            "%05i"
+          else
+            "%s"
+          end
+        else 
+          "%s"
+        end
+      end
+      def to_s
+        format % value
+      end
+      def value(date=Date.today)
+        pair = @values.sort.reverse.find { |valid_from, value|
+          valid_from <= date
+        }
+        pair && pair.last
+      end
+      def value=(value_and_date)
+        value, valid_from = nil
+        if(value_and_date.is_a?(Array))
+          value, valid_from = value_and_date
+        else
+          value = value_and_date
+          valid_from = Date.today
+        end
+        if(value(valid_from) != value)
+          @values.store(valid_from, value)
+        end
+      end
+      def ==(other)
+        if(other.is_a?(Code))
+          other.type == @type && other.value == value \
+            && other.country == @country
+        elsif(other.is_a?(Hash))
+          res = other[:type].to_s.downcase == @type \
+            && other[:value] == value \
+            && other[:country] == @country
+        else
+          value == other || value.to_s == other
+        end
+      end
+      alias :eql? :==
+    end
+  end
+end

data/lib/oddb/util/comparison.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+# Util::Comparison -- de.oddb.org -- 13.03.2007 -- hwyss@ywesee.com
+
+require 'delegate'
+
+module ODDB
+  module Util
+    class Comparison < SimpleDelegator
+      attr_reader :difference, :absolute, :factor, 
+        :difference_exfactory, :absolute_exfactory, :factor_exfactory
+      def initialize(package, original)
+        @package = package
+        psize = package.size.to_f
+        pprice = package.price(:public).to_f
+        osize = original.size.to_f
+        oprice = original.price(:public).to_f
+        unless((psize * pprice * osize * oprice) == 0)
+          @factor = psize / osize
+          @absolute = pprice - oprice
+          @difference = ((osize * pprice) / (psize * oprice) - 1) * 100
+        end
+        pprice = package.price(:exfactory).to_f
+        oprice = original.price(:exfactory).to_f
+        unless((psize * pprice * osize * oprice) == 0)
+          @factor_exfactory = psize / osize
+          @absolute_exfactory = pprice - oprice
+          @difference_exfactory = ((osize * pprice) / (psize * oprice) - 1) * 100
+        end
+        super(package)
+      end
+      def is_a?(mod)
+        super || @package.is_a?(mod)
+      end
+    end
+  end
+end

data/lib/oddb/util/download.rb

@@ -0,0 +1,17 @@
+module ODDB
+  module Util
+module Download
+  def Download.compressed_download(item)
+    file = item.text
+    if (data = item.data) && (compression = data[:compression]) \
+      && !ODDB.config.download_uncompressed.include?(file)
+      file += '.' << compression
+    end
+    file
+  end
+  def compressed_download(item)
+    Download.compressed_download(item)
+  end
+end
+  end
+end

data/lib/oddb/util/exporter.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+# Util::Exporter -- de.oddb.org -- 02.10.2007 -- hwyss@ywesee.com
+
+require 'drb'
+
+module ODDB
+  Exporter = DRb::DRbObject.new(nil, @config.server_url_export)
+end

data/lib/oddb/util/feedback.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Util::Feedback -- de.oddb.org -- 06.12.2007 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Util
+class Feedback < Model
+  belongs_to :item
+  attr_accessor :name, :email, :message, :email_public, :item_good_experience,
+    :item_recommended, :item_good_impression, :item_helps, :time
+  def self.newest(count=5)
+    sorted = all.sort_by { |instance| -instance.time.to_f }
+    case count
+    when Integer
+      sorted[0,count]
+    else
+      sorted
+    end
+  end
+end
+  end
+end

data/lib/oddb/util/ipn.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+# Util::Ipn -- de.oddb.org -- 29.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/business/invoice'
+require 'oddb/util/mail'
+require 'oddb/util/ydim'
+require 'oddb/util/yus'
+
+module ODDB
+  module Util
+module Ipn
+  def Ipn.process(notification)
+    id = notification.params["invoice"]
+    invoice = Business::Invoice.find_by_id(id) or raise "unknown invoice '#{id}'"
+    invoice.status = notification.status.to_s.downcase
+    if(notification.complete?)
+      Ipn.process_invoice(invoice)
+    else
+      invoice.ipn = notification
+    end
+    invoice.save
+    invoice
+  end
+  def Ipn.process_invoice(invoice)
+    invoice.items.each { |item| Ipn.process_item invoice, item }
+    Ydim.inject(invoice, :payment_received => true)
+    Mail.notify_invoice(invoice)
+  end
+  def Ipn.process_item(invoice, item)
+    yus_name = invoice.yus_name
+    case item.type
+    when :download, :export
+      time = Time.now + (60 * 60 * 24)
+      if item.type == :download
+        date = Date.today >> item.quantity
+        time = Time.local date.year, date.month, date.day,
+                          time.hour, time.min, time.sec
+      end
+      item.expiry_time = time
+      Util::Yus.grant(yus_name, 'login', "#{ODDB.config.auth_domain}.PowerUser")
+      Util::Yus.grant(yus_name, 'download',
+                      "#{ODDB.config.auth_domain}.#{item.text}",
+                      item.expiry_time)
+    when :poweruser
+      item.expiry_time = Time.now + (60 * 60 * 24 * item.quantity)
+      Util::Yus.set_preference(yus_name, 'poweruser_duration', item.quantity)
+      Util::Yus.grant(yus_name, 'login', "#{ODDB.config.auth_domain}.PowerUser")
+      Util::Yus.grant(yus_name, 'view', ODDB.config.auth_domain, item.expiry_time)
+    end
+  end
+end
+  end
+end

data/lib/oddb/util/job.rb

@@ -0,0 +1,23 @@
+require 'drb'
+require 'oddb/config'
+require 'oddb/drugs'
+require 'oddb/persistence'
+require 'oddb/util'
+require 'encoding/character/utf-8'
+
+module ODDB
+  module Util
+module Job
+  def Job.run opts={}, &block
+    system = DRb::DRbObject.new(nil, ODDB.config.server_url)
+    DRb.start_service
+    begin
+      system.peer_cache ODBA.cache unless opts[:readonly]
+      block.call
+    ensure
+      system.unpeer_cache ODBA.cache unless opts[:readonly]
+    end
+  end
+end
+  end
+end

data/lib/oddb/util/logger.rb

@@ -0,0 +1,20 @@
+require 'fileutils'
+require 'logger'
+require 'oddb/config'
+
+module ODDB
+  log_file = @config.log_file
+  if(log_file.is_a?(String))
+    FileUtils.mkdir_p(File.dirname(log_file))
+    log_file = File.open(log_file, 'a')
+    log_file.sync = true
+  end
+  logger = Logger.new(log_file)
+  logger.level = Logger.const_get(@config.log_level)
+  ## The PayPal Gem depends on ActiveSupport, which foolishly redefines the
+  #  Logger.default_formatter. That's why we need to explicitly set
+  #  logger.formatter to the standard Formatter here:
+  logger.formatter = Logger::Formatter.new
+  @logger = logger
+  require 'pp'
+end

data/lib/oddb/util/m10l_document.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# M10lDocument -- de.oddb.org -- 13.03.2008 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Util
+    class M10lDocument < Model
+      include M10lMethods
+      connector :canonical
+      attr_reader :previous_sources
+      def initialize(canonical={})
+        super
+        @previous_sources = {}
+      end
+      def add_previous_source(lang, source)
+        sources = (@previous_sources[lang.to_sym] ||= [])
+        sources.push source
+        sources.compact!
+        sources.uniq!
+        sources
+      end
+      def empty?
+        @canonical.empty?
+      end
+      def method_missing(meth, *args, &block)
+        case meth.to_s
+        when /^([a-z]{2})=$/
+          lang = $~[1].to_sym
+          if(previous = @canonical[lang])
+            add_previous_source(lang, previous.source)
+          end
+          @canonical.store(lang, args.first)
+        else
+          super(meth, *args, &block)
+        end
+      end
+    end
+  end
+end

data/lib/oddb/util/mail.rb

@@ -0,0 +1,87 @@
+#!/usr/bin/env ruby
+# Util::Mail -- de.oddb.org -- 06.02.2007 -- hwyss@ywesee.com
+
+require 'rmail'
+require 'net/smtp'
+require 'oddb/config'
+require 'oddb/html/util/lookandfeel'
+require 'oddb/util/download'
+require 'oddb/util/yus'
+require 'oddb/util/smtp_tls'
+
+module ODDB
+  module Util
+    module Mail
+      def Mail.notify_admins(subject, lines)
+        config = ODDB.config
+        recipients = config.admins
+        mpart = RMail::Message.new
+        header = mpart.header
+        header.to = recipients
+        header.from = config.mail_from
+        header.subject = subject
+        header.date = Time.now
+        header.add('Content-Type', 'text/plain', nil, 
+                   'charset' => config.mail_charset)
+        mpart.body = lines.join("\n")
+        sendmail(mpart, config.smtp_user, recipients)
+      end
+      def Mail.notify_invoice(invoice)
+        config = ODDB.config
+        lnf = Html::Util::LookandfeelStub.new('de')
+        mpart = RMail::Message.new
+        header = mpart.header
+        header.to = recipient = invoice.yus_name
+        header.from = config.mail_invoice_from
+        header.subject = lnf.lookup(:poweruser_mail_subject)
+        header.date = Time.now
+        header.add('Content-Type', 'text/plain', nil, 
+                   'charset' => config.mail_charset)
+        recipients = [recipient].concat config.debug_recipients
+        yus = Util::Yus.get_preferences(recipient, :salutation, :name_last)
+        parts = [
+          lnf.lookup(:poweruser_mail_salut, lnf.lookup(yus[:salutation]), 
+                     yus[:name_last]),
+        ]
+        instructed = false
+        invoice.items.each { |item|
+          case item.type
+          when :download
+            unless instructed
+              parts.push lnf.lookup(:download_mail_body)
+              parts.push lnf.lookup(:download_mail_instr)
+            end
+            instructed = true
+            parts.push lnf._event_url(:collect,
+                                      [:invoice, invoice.id,
+                                       :file, Download.compressed_download(item)])
+          when :export
+            parts.push lnf.lookup(:download_export_mail_body)
+            parts.push lnf.lookup(:download_export_mail_instr)
+            parts.push lnf._event_url(:collect, [:invoice, invoice.id])
+          when :poweruser
+            days = item.quantity
+            duration = (days == 1) \
+                     ? lnf.lookup(:days_one_genitive) \
+                     : lnf.lookup(:days_genitive, days)
+            parts.push lnf.lookup(:poweruser_mail_body)
+            parts.push lnf.lookup(:poweruser_mail_instr,
+                                  duration, lnf._event_url(:login))
+          end
+        }
+        mpart.body = parts.join("\n\n")
+        sendmail(mpart, config.mail_invoice_smtp, recipients)
+      end
+      def Mail.sendmail(mpart, from, recipients)
+        config = ODDB.config
+        Net::SMTP.start(config.smtp_server, config.smtp_port,
+                        config.smtp_domain, config.smtp_user, config.smtp_pass,
+                        config.smtp_authtype) do |smtp|
+          recipients.each { |recipient|
+            smtp.sendmail(mpart.to_s, from, recipient)
+          }
+        end
+      end
+    end
+  end
+end