bbmb 2.0.0

data/lib/bbmb/util/mail.rb

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+# Util::Mail -- bbmb.ch -- 27.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/config'
+require 'net/smtp'
+require 'rmail'
+require 'pp'
+
+module BBMB
+  module Util
+module Mail
+  def Mail.notify_confirmation_error(order)
+    config = BBMB.config
+    if to = config.confirm_error_to
+      header, message = setup
+      customer = order.customer
+      from = header.from = config.confirm_error_from
+      header.to = to
+      cc = header.cc = config.confirm_error_cc
+      header.subject = config.confirm_error_subject % customer.customer_id
+      message.body = config.confirm_error_body % customer.customer_id
+      Mail.sendmail message, from, to, cc
+    end
+  end
+  def Mail.notify_debug(subject, body)
+    header, message = setup
+    config = BBMB.config
+    from = header.from = config.mail_order_from
+    to = header.to = config.error_recipients
+    header.subject = sprintf "%s: %s", BBMB.config.name, subject
+    message.body = body
+    Mail.sendmail(message, from, to)
+  end
+  def Mail.notify_error(error)
+    header, message = setup
+    config = BBMB.config
+    from = header.from = config.mail_order_from
+    to = header.to = config.error_recipients
+    header.subject = sprintf "%s: %s", BBMB.config.name, error.message
+    message.body = [ error.class, error.message, 
+      error.backtrace.pretty_inspect ].join("\n")
+    Mail.sendmail(message, from, to)
+  end
+  def Mail.notify_inject_error(order, opts={})
+    config = BBMB.config
+    if to = config.inject_error_to
+      customer = order.customer
+      header, message = setup
+      from = header.from = config.inject_error_from
+      header.to = to
+      cc = header.cc = config.inject_error_cc
+      header.subject = config.inject_error_subject % [
+        order.order_id,
+        opts[:customer_name] || customer.customer_id,
+      ]
+      message.body = config.inject_error_body % [
+        opts[:customer_name] || customer.customer_id,
+        order.commit_time.strftime('%d.%m.%Y %H:%M:%S'),
+        customer.customer_id,
+      ]
+      Mail.sendmail message, from, to, cc
+    end
+  end
+  def Mail.sendmail(message, from, to, cc=[])
+    config = BBMB.config
+    Net::SMTP.start(config.smtp_server, config.smtp_port, config.smtp_helo,
+                    config.smtp_user, config.smtp_pass, 
+                    config.smtp_authtype) { |smtp|
+      smtp.sendmail(message.to_s, from, [to, cc].flatten.compact)
+    }
+  end
+  def Mail.send_confirmation(order)
+    config = BBMB.config
+    ## there are two switches that determine whether a confirmation is sent out:
+    #  application-wide: mail_confirm_reply_to must be configured
+    reply_to = config.mail_confirm_reply_to or return nil
+    #  per-customer: order_confirmation must be checked
+    order.customer.order_confirmation or return nil
+    to = order.customer.email or return notify_confirmation_error(order)
+    body = config.mail_confirm_body or return nil
+    date = order.commit_time.strftime("%d.%m.%Y")
+    parts = []
+    config.mail_confirm_lines.collect do |line|
+      content = order.collect do |pos|
+        sprintf line, pos.quantity, pos.description, pos.price_qty, pos.total
+      end
+      parts.push date, content.join("\n"), order.total
+      if vtotal = order.total_incl_vat
+        parts.push vtotal
+      end
+    end
+
+    header, message = setup
+    from = header.from = config.mail_confirm_from
+    header.to = to
+    header.subject = config.mail_confirm_subject % order.order_id
+    header.add('Message-ID', sprintf('<%s@%s>', order.order_id,
+                                     from.tr('@', '.')))
+    header.add('Reply-To', reply_to)
+    message.body = sprintf body, *parts
+
+    Mail.sendmail(message, from, to, config.mail_confirm_cc)
+  end
+  def Mail.send_order(order)
+    header, message = setup
+    config = BBMB.config
+    from = header.from = config.mail_order_from
+    to = header.to = config.mail_order_to
+    cc = header.cc = config.mail_order_cc
+    header.subject = config.mail_order_subject % order.order_id
+    header.add('Message-ID', sprintf('<%s@%s>', order.order_id, 
+                                     from.tr('@', '.')))
+    message.body = order.to_target_format
+
+    Mail.sendmail(message, from, to, cc)
+  end
+  def Mail.send_request(email, organisation, body)
+    header, message = setup
+    config = BBMB.config
+    from = header.from = config.mail_request_from
+    to = header.to = config.mail_request_to
+    cc = header.cc = config.mail_request_cc
+    header.subject = config.mail_request_subject % organisation
+    header.add('Reply-To', email)
+    message.body = body
+    Mail.sendmail(message, from, to, cc)
+  end
+  def Mail.setup
+    message = RMail::Message.new
+    header = message.header
+    header.add('Date', Time.now.rfc822)
+    header.add('Mime-Version', '1.0')
+    header.add('User-Agent', BBMB.config.name)
+    header.add('Content-Type', 'text/plain', nil, 'charset' => 'utf-8')
+    header.add('Content-Disposition', 'inline')
+    [header, message]
+  end
+end
+  end
+end

data/lib/bbmb/util/multilingual.rb

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+# Util::Multilingual -- de.oddb.org -- 04.09.2006 -- hwyss@ywesee.com
+
+module BBMB
+  module Util
+    class Multilingual
+      include Comparable
+      attr_reader :canonical
+      attr_reader :synonyms
+      def initialize(canonical={})
+        @canonical = canonical
+        @synonyms = []
+      end
+      def all
+        @canonical.values.concat(@synonyms)
+      end
+      def default
+        @canonical.values.sort.first
+      end
+      def empty?
+        @canonical.empty?
+      end
+      def method_missing(meth, *args, &block)
+        case meth.to_s
+        when /^[a-z]{2}$/
+          @canonical[meth]
+        when /^([a-z]{2})=$/
+          key = $~[1].to_sym
+          if(value = args.first)
+            @canonical.store(key, value)
+          else
+            @canonical.delete(key)
+          end
+        else
+          super(meth, *args, &block)
+        end
+      end
+      def to_s
+        default.to_s
+      end
+      def ==(other)
+        case other
+        when String
+          @canonical.values.any? { |val| val == other } \
+            || @synonyms.any? { |val| val == other }
+        when Multilingual
+          @canonical == other.canonical && @synonyms == other.synonyms
+        else
+          false
+        end
+      end
+      def <=>(other)
+        all.sort <=> other.all.sort
+      end
+    end
+  end
+end

data/lib/bbmb/util/numbers.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+# Util::Money -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+module BBMB
+  module Util
+module Numbers
+  def Numbers.append_features(mod)
+    super
+    mod.module_eval {
+      class << self
+        def money_accessor(*keys)
+          keys.each { |key|
+            attr_reader key
+            define_method("#{key}=") { |value|
+              money = Util::Money.new(value) if(value.to_f > 0)
+              instance_variable_set("@#{key}", money)
+            }
+          }
+        end
+        def int_accessor(*keys)
+          keys.each { |key|
+            attr_reader key
+            define_method("#{key}=") { |value|
+              int = value.to_i if(value)
+              instance_variable_set("@#{key}", int)
+            }
+          }
+        end
+      end
+    }
+  end
+end
+class Money
+  attr_reader :credits
+  include Comparable
+  def initialize(amount)
+    @credits = (amount.to_f * 100).round
+  end
+  def to_f
+    @credits.to_f / 100
+  end
+  def to_s
+    sprintf("%1.2f", to_f)
+  end
+  def +(other)
+    Money.new(to_f + other.to_f)
+  end
+  def -(other)
+    Money.new(to_f - other.to_f)
+  end
+  def *(other)
+    Money.new(to_f * other.to_f)
+  end
+  def /(other)
+    Money.new(to_f / other.to_f)
+  end
+  def <=>(other)
+    case other
+    when Money
+      @credits <=> other.credits
+    else
+      to_f <=> other.to_f
+    end
+  end
+end
+  end
+end

data/lib/bbmb/util/password_generator.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+# PasswordGenerator -- bbmb -- 11.10.2002 -- hwyss@ywesee.com 
+
+module BBMB
+  module Util
+    class PasswordGenerator
+      SEQUENCE = [ :char, :char, :sym, :num ]
+      SIZE = {
+        :char  =>  2,
+        :num  =>  4,
+        :sym  =>  1,
+      }
+      POOL = {
+        :char  =>  ("A".."Z").to_a + ("a".."z").to_a,
+        :num  =>  ("0".."9").to_a,
+        :sym  =>  %w{! @ * ?},
+      }
+      class << self
+        def generate(user)
+          pool = POOL.dup
+          char = [user.organisation, user.firstname, user.lastname].join
+          if(char.length >= 12)
+            pool[:char] = char.scan(/\w/)
+          end
+          pass = ""
+          random_sequence.each { |type| 
+            SIZE[type].times {
+              pass << pool[type].at(rand(pool[type].size))
+            }
+          }
+          pass
+        end
+        def random_sequence
+          sequence = SEQUENCE.dup
+          random = []
+          while(sequence.length > 0)
+            random.push(sequence.delete_at(rand(sequence.size)))
+          end
+          random
+        end
+      end
+    end
+  end
+end

data/lib/bbmb/util/polling_manager.rb

@@ -0,0 +1,135 @@
+#!/usr/bin/env ruby
+# Util::PollingManager -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb'
+require 'bbmb/util/mail'
+require 'fileutils'
+require 'net/ftp'
+require 'net/pop'
+require 'tmpdir'
+require 'uri'
+require 'yaml'
+
+module BBMB
+  module Util
+class FileMission
+  attr_accessor :backup_dir, :delete, :directory, :glob_pattern
+  def file_paths
+    path = File.expand_path(@glob_pattern || '*', @directory)
+    Dir.glob(path).collect { |entry|
+      File.expand_path(entry, @directory)
+    }.compact
+  end
+  def poll(&block)
+    @directory = File.expand_path(@directory, BBMB.config.bbmb_dir)
+    file_paths.each { |path|
+      poll_path(path, &block)
+    }
+  end
+  def poll_path(path, &block)
+    File.open(path) { |io|
+      block.call(File.basename(path), io)
+    }
+  rescue StandardError => err
+    BBMB::Util::Mail.notify_error(err)
+  ensure
+    if(@backup_dir)
+      dir = File.expand_path(@backup_dir, BBMB.config.bbmb_dir)
+      FileUtils.mkdir_p(dir)
+      FileUtils.cp(path, dir)
+    end
+    if(@delete)
+      FileUtils.rm(path)
+    end
+  end
+end
+class PopMission 
+  attr_accessor :host, :port, :user, :pass, :delete
+  @@ptrn = /name=(?:(?:(?<quote>['"])(?:=\?.+?\?[QB]\?)?(?<file>.*?)(\?=)?(?<!\\)\k<quote>)|(?:(?<file>.+?)(?:;|$)))/i
+  def poll(&block)
+    Net::POP3.start(@host, @port || 110, @user, @pass) { |pop|
+      pop.each_mail { |mail|
+        poll_mail(mail, &block)
+      }
+    }
+  end
+  def poll_mail(mail, &block)
+    source = mail.pop
+    ## work around a bug in RMail::Parser that cannot deal with
+    ## RFC-2822-compliant CRLF..
+    source.gsub!(/\r\n/, "\n")
+    poll_message(RMail::Parser.read(source), &block)
+    mail.delete if(@delete)
+  rescue StandardError => err
+    BBMB::Util::Mail.notify_error(err)
+  end
+  def poll_message(message, &block)
+    if(message.multipart?)
+      message.each_part { |part|
+        poll_message(part, &block)
+      }
+    elsif(match = @@ptrn.match(message.header["Content-Type"]))
+      block.call(match["file"], message.decode)
+    end
+  end
+end
+class FtpMission
+  attr_accessor :backup_dir, :delete, :pattern, :directory
+  def initialize(*args)
+    super
+    @regexp = Regexp.new('.*')
+  end
+  def poll(&block)
+    @backup_dir ||= Dir.tmpdir
+    FileUtils.mkdir_p(@backup_dir)
+    @regexp = Regexp.new(@pattern || '.*')
+    uri = URI.parse(@directory)
+    locals = []
+    Net::FTP.open(uri.host) do |ftp|
+      ftp.login uri.user, uri.password
+      ftp.chdir uri.path
+      ftp.nlst.each do |file|
+        if(local = poll_remote ftp, file)
+          locals.push local
+        end
+      end
+    end
+    locals.each do |path|
+      poll_file path, &block
+    end
+  end
+  def poll_file(path, &block)
+    File.open(path) { |io|
+      block.call(File.basename(path), io)
+    }
+  rescue StandardError => err
+    BBMB::Util::Mail.notify_error(err)
+  end
+  def poll_remote(ftp, file)
+    if(@regexp.match file)
+      local = File.join(@backup_dir, file)
+      ftp.get file, local
+      ftp.delete file if @delete
+      local
+    end
+  end
+  def regexp
+  end
+end
+class PollingManager
+  def load_sources(&block)
+    file = File.open(BBMB.config.polling_file)
+    YAML.load_documents(file) { |mission|
+      block.call(mission)
+    }
+  ensure
+    file.close if(file)
+  end
+  def poll_sources(&block)
+    load_sources { |source|
+      source.poll(&block)
+    }
+  end
+end
+  end
+end

data/lib/bbmb/util/server.rb

@@ -0,0 +1,159 @@
+#!/usr/bin/env ruby
+# Util::Server -- de.bbmb.org -- 01.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/config'
+require 'bbmb/html/util/known_user'
+require 'bbmb/html/util/session'
+require 'bbmb/html/util/validator'
+require 'bbmb/util/invoicer'
+require 'bbmb/util/mail'
+require 'bbmb/util/updater'
+require 'date'
+require 'sbsm/drbserver'
+
+module BBMB
+  module Util
+    class Server < SBSM::DRbServer
+      ENABLE_ADMIN = true 
+	    SESSION = Html::Util::Session
+	    VALIDATOR = Html::Util::Validator
+      attr_reader :updater
+      def inject_order(customer_id, products, infos, opts={})
+        customer = Model::Customer.find_by_customer_id(customer_id) \
+          || Model::Customer.find_by_ean13(customer_id)
+        needed_create = false
+        unless customer
+          if idtype = opts[:create_missing_customer] && !customer_id.empty?
+            customer = Model::Customer.new(customer_id)
+            if idtype.to_s == 'ean13'
+              customer.ean13 = customer_id
+            end
+            BBMB.persistence.save(customer)
+            needed_create = true
+          else
+            raise "Unknown Customer #{customer_id}"
+          end
+        end
+        order = Model::Order.new(customer)
+        products.each { |info|
+          if(product = Model::Product.find_by_pcode(info[:pcode]) \
+             || Model::Product.find_by_ean13(info[:ean13]) \
+             || Model::Product.find_by_article_number(info[:article_number]))
+            order.add(info[:quantity], product)
+            [:article_number, :backorder].each do |key|
+              info.store key, product.send(key)
+            end
+            info.store :description, product.description.de
+            info[:deliverable] = info[:quantity]
+          else
+            info[:deliverable] = 0
+          end
+        }
+        infos.each { |key, value|
+          order.send("#{key}=", value)
+        }
+        customer.inject_order(order)
+        if opts[:deliver]
+          async do
+            send_order order, customer
+          end
+        end
+        if needed_create
+          BBMB::Util::Mail.notify_inject_error(order, opts)
+        end
+        { :order_id => order.order_id, :products => products }
+      end
+      def invoice(range)
+        Invoicer.run(range)
+      rescue Exception => e
+        Mail.notify_error(e)
+      end
+      def login(email, pass)
+        session = BBMB.auth.login(email, pass, BBMB.config.auth_domain)
+        Html::Util::KnownUser.new(session)
+      end
+      def logout(session)
+        BBMB.auth.logout(session)
+      rescue DRb::DRbError, RangeError, NameError
+      end
+      def rename_user(old, new)
+        return if(old == new)
+        BBMB.auth.autosession(BBMB.config.auth_domain) { |session|
+          if(old.nil?)
+            session.create_entity(new)
+          else
+            session.rename(old, new)
+          end
+        }
+      end
+      def run_invoicer
+        @invoicer ||= Thread.new {
+          Thread.current.abort_on_exception = true
+          loop {
+            today = Date.today
+            day = today >> 1
+            start = Time.local(today.year, today.month)
+            now = Time.now
+            at = Time.local(day.year, day.month)
+            secs = at - now
+            BBMB.logger.debug("invoicer") { 
+              "sleeping %.2f seconds" % secs
+            }
+            sleep(secs)
+            invoice(start...at)
+          }
+        }
+      end
+      def run_updater
+        @updater ||= Thread.new {
+          loop {
+            day = Date.today
+            now = Time.now
+            if(now.hour >= BBMB.config.update_hour)
+              day += 1
+            end
+            at = Time.local(day.year, day.month, day.day, 
+                            BBMB.config.update_hour)
+            secs = at - now
+            BBMB.logger.debug("updater") { 
+              "sleeping %.2f seconds" % secs
+            }
+            sleep(secs)
+            update
+          }
+        }
+      end
+      def send_order order, customer
+        begin
+          Timeout.timeout(300) {
+            BBMB::Util::TargetDir.send_order(order)
+          }
+        rescue StandardError => err
+          err.message << " (Email: #{customer.email} - Customer-Id: #{customer.customer_id})"
+          BBMB::Util::Mail.notify_error(err)
+        end
+        begin
+          Timeout.timeout(300) {
+            BBMB::Util::Mail.send_order(order)
+          }
+        rescue StandardError => err
+          err.message << " (Email: #{customer.email} - Customer-Id: #{customer.customer_id})"
+          BBMB::Util::Mail.notify_error(err)
+        end
+        begin
+          Timeout.timeout(300) {
+            BBMB::Util::Mail.send_confirmation(order)
+          }
+        rescue StandardError => err
+          err.message << " (Email: #{customer.email} - Customer-Id: #{customer.customer_id})"
+          BBMB::Util::Mail.notify_error(err)
+        end
+      end
+      def update
+        Updater.run
+      rescue Exception => e
+        Mail.notify_error(e)
+      end
+    end
+  end
+end