bbmb 2.0.0

data/Rakefile

@@ -0,0 +1,28 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+# Hoe.plugin :compiler
+# Hoe.plugin :cucumberfeatures
+# Hoe.plugin :gem_prelude_sucks
+# Hoe.plugin :inline
+# Hoe.plugin :inline
+# Hoe.plugin :manifest
+# Hoe.plugin :newgem
+# Hoe.plugin :racc
+# Hoe.plugin :rubyforge
+# Hoe.plugin :rubyforge
+# Hoe.plugin :website
+
+Hoe.spec 'bbmb' do
+  # HEY! If you fill these out in ~/.hoe_template/Rakefile.erb then
+  # you'll never have to touch them again!
+  # (delete this comment too, of course)
+
+developer('Masaomi Hatakeyama, Zeno R.R. Davatz', 'mhatakeyama@ywesee.com, zdavatz@ywesee.com')
+
+  # self.rubyforge_name = 'bbmbx' # if different than 'bbmb'
+end
+
+# vim: syntax=ruby

data/bin/admin

@@ -0,0 +1,71 @@
+#!/usr/bin/env ruby
+# Admin -- bbmb -- 09.07.2003 -- hwyss@ywesee.com 
+
+$KCODE = 'u'
+
+require 'drb'
+require 'sbsm/drb'
+require 'bbmb'
+require 'bbmb/config'
+require 'encoding/character/utf-8'
+require 'readline'
+include Readline
+
+Kernel.trap('INT') {
+  if($current.respond_to?(:exit))
+    $current.exit
+    $current = nil
+  else
+    puts "<ctrl-c> is used to kill admin-threads."
+    puts "Type <quit> or <exit> to exit."
+  end
+}
+
+auth_domain = BBMB.config.auth_domain
+$0 = "#{auth_domain} (Admin-Tool)"
+prompt = "#{auth_domain}> "
+
+DRb.start_service('druby://localhost:0')
+bbmb = DRbObject.new(nil, BBMB.config.server_url)
+last_error = nil
+priority = -1
+while(line = readline(prompt, true))
+  result = ''
+  result.extend(DRb::DRbUndumped)
+  line.strip!
+  $stdout.print "-> "
+  line.gsub! /puts\s+((.(?!end|;))*.)/, "BBMB.logger.error('admin') { \\1 }"
+  case line.downcase
+  when 'exit', 'quit'
+    $stdout.puts 'Goodbye'
+    break
+  when 'bt', 'backtrace'
+    if last_error.respond_to?(:backtrace)
+      $stdout.puts last_error.backtrace 
+    else
+      $stdout.puts 'No Error'
+    end
+  when /^last_error/
+    begin
+      $stdout.puts eval(line)
+    rescue StandardError, SyntaxError => last_error
+      $stdout.puts last_error
+    end
+  when /sp\s+(-?\d+)/, /set_priority\s+(-?\d+)/ 
+    priority = $~[1].to_i
+    $stdout.puts "setting Priority to #{priority}"
+  else
+    begin
+      bgflag = line.slice!(/\s*\&\s*$/)
+      $current = bbmb._admin(line, result, priority)
+      unless(bgflag)
+        $current.join
+      end
+      $stdout.puts result
+    rescue StandardError, SyntaxError => last_error
+      $stdout.puts last_error
+    end
+  end
+  $current = nil
+  $stdout.flush
+end

data/bin/bbmbd

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+
+$KCODE = 'u'
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'drb'
+require 'logger'
+require 'bbmb/config'
+require 'bbmb/util/server'
+require 'encoding/character/utf-8'
+require 'pp'
+
+module BBMB
+  @config.load_files.each { |local|
+    require local
+  }
+  require File.join('bbmb', 'persistence', @config.persistence)
+  case @config.persistence
+  when 'odba'
+    DRb.install_id_conv ODBA::DRbIdConv.new
+    @persistence = BBMB::Persistence::ODBA
+  end
+
+  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')
+    at_exit { log_file.close }
+  end
+  @logger = Logger.new(log_file)
+  @logger.level = Logger.const_get(@config.log_level)
+  @logger.debug('config') { @config.pretty_inspect }
+
+	VERSION = `cg-object-id`
+
+  @auth = DRb::DRbObject.new(nil, @config.auth_url)
+
+  begin
+    @server = BBMB::Util::Server.new(@persistence)
+    @server.extend(DRbUndumped)
+    if(@config.update?)
+      @server.run_updater
+    end
+    if(@config.invoice?)
+      @server.run_invoicer
+    end
+
+    url = @config.server_url
+    url.untaint
+    DRb.start_service(url, @server)
+    $SAFE = 1
+    $0 = @config.name
+    @logger.info('start') { 
+      sprintf("starting bbmb-server on %s", url) }
+    DRb.thread.join
+  rescue Exception => error
+    @logger.error('fatal') { error }
+    raise
+  end
+end

data/lib/bbmb.rb

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+# Bbmb -- bbmb.ch -- 17.12.2019 -- zdavatz@ywesee.com
+
+module BBMB
+  VERSION = '2.0.0'
+  class << self
+    attr_accessor :auth, :config, :logger, :persistence, :server
+  end
+end

data/lib/bbmb/config.rb

@@ -0,0 +1,106 @@
+#!/usr/bin/env ruby
+# @config -- bbmb.ch -- 08.09.2006 -- hwyss@ywesee.com
+
+require 'rclconf'
+require 'bbmb'
+
+module BBMB
+  default_dir = if(root =  ENV['DOCUMENT_ROOT'])
+                  File.expand_path('../etc', root)
+                elsif(home = ENV['HOME'])
+                  File.expand_path('.bbmb/etc', home)
+                else
+                  require 'tmpdir'
+                  Dir.tmpdir
+                end
+  default_config_files = [
+    File.join(default_dir, 'bbmb.yml'),
+    '/etc/bbmb/bbmb.yml',
+  ]
+  defaults = {
+    'admin_address'                   => '',
+    'admins'                          => [],
+    'auth_domain'                     => 'ch.bbmb',
+    'auth_url'                        => 'druby://localhost:12001',
+    'bbmb_dir'                        => File.expand_path('..', default_dir),
+    'config'			                    => default_config_files,
+    'confirm_error_body'              => 'Customer %s does not have an email address configured',
+    'confirm_error_cc'                => [],
+    'confirm_error_from'              => 'errors.test@bbmb.ch',
+    'confirm_error_subject'           => 'Customer %s without email address',
+    'confirm_error_to'                => nil,
+    'data_dir'                        => File.expand_path('../data', default_dir),
+    'db_name'                         => 'bbmb',
+    'db_user'                         => 'bbmb',
+    'db_auth'                         => 'bbmb',
+    'db_backend'                      => :psql,
+    'debug'                           => true,
+    'enable_price_levels'             => false,
+    'error_recipients'                => [],
+    'http_server'                     => 'http://www.bbmb.ch',
+    'importers'                       => {
+       'ywsarti.csv'                  => 'ProductImporter',
+       'ywskund.csv'                  => 'CustomerImporter',
+    },
+    'inject_error_body'               => 'The order %s, committed on %s, assigned to the unknown customer: %s',
+    'inject_error_cc'                 => [],
+    'inject_error_from'               => 'errors.test@bbmb.ch',
+    'inject_error_subject'            => 'Order %s with missing customer: %s',
+    'inject_error_to'                 => nil,
+    'invoice?'                        => true,
+    'invoice_baseline'                => nil,
+    'invoice_monthly_baseline'        => nil,
+    'invoice_monthly_baseamount'      => nil,
+    'invoice_format'                  => "Invoice %s-%s",
+    'invoice_item_format'             => "Turnover: %1.2f \nOrders: %i",
+    'invoice_item_baseamount_format'  => "Turnover up to the base amount",
+    'invoice_item_baseamount_unit'    => "Base-Amount",
+    'invoice_newyear'                 => "1.1.",
+    'invoice_percentage'              => 0.1,
+    'i2_100'                          => 'YWESEE',
+    'load_files'                      => ['bbmb/util/csv_importer'],
+    'log_file'                        => STDERR,
+    'log_level'                       => 'INFO',
+    'mail_confirm_body'               => nil,
+    'mail_confirm_cc'                 => [],
+    'mail_confirm_from'               => 'confirm.test@bbmb.ch',
+    'mail_confirm_reply_to'           => nil, ## used for determining if a confirmation should be sent
+    'mail_confirm_lines'              => [],
+    'mail_confirm_subject'            => 'Bbmb-Confirm %s',
+    'mail_order_cc'                   => [],
+    'mail_order_from'                 => 'orders.test@bbmb.ch',
+    'mail_order_subject'              => 'Bbmb-Order %s',
+    'mail_order_to'                   => 'orders.test@bbmb.ch',
+    'mail_request_cc'                 => [],
+    'mail_request_from'               => 'requests.test@bbmb.ch',
+    'mail_request_subject'            => 'Bbmb-Request %s',
+    'mail_request_to'                 => 'requests.test@bbmb.ch',
+    'name'                            => 'Bbmb(test)',
+    'order_destinations'              => [],
+    'pagestep'                        => 20,
+    'persistence'                     => 'odba',
+    'polling_file'                    => File.expand_path('polling.yml', default_dir),
+    'scm_link'                        => 'http://scm.ywesee.com/?p=bbmb/.git',
+    'server_url'                      => 'druby://localhost:12000',
+    'session_timeout'                 => 3600,
+    'smtp_authtype'                   => nil,
+    'smtp_helo'                       => 'localhost.localdomain',
+    'smtp_pass'                       => nil,
+    'smtp_port'                       => 25,
+    'smtp_server'                     => 'mail.bbmb.ch',
+    'smtp_user'                       => nil,
+    'target_format'                   => 'i2',
+    'target_format_fs'                => ",",
+    'target_format_rs'                => "\n",
+    'tmpfile_basename'                => 'bbmb',
+    'update?'                         => true,
+    'update_hour'                     => 23,
+    'vat_rate'                        => 2.4,
+    'ydim_config'                     => nil,
+    'ydim_id'                         => nil,
+  }
+
+  config = RCLConf::RCLConf.new(ARGV, defaults)
+  config.load(config.config)
+  @config = config
+end

data/lib/bbmb/html/state/change_password.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+# Html::State::ChangePassword -- virbac.bbmb.ch -- 28.06.2007 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/change_password'
+
+module BBMB
+  module Html
+    module State
+class ChangePassword < Global
+  DIRECT_EVENT = :change_pass
+  VIEW = Html::View::ChangePassword
+  mandatory :email, :pass, :confirm_pass
+  def save
+    keys = mandatory
+    input = user_input(keys, keys)
+    if(error?)
+      @errors.dup.each { |key, val|
+        if(/^e_(empty|missing)_/.match val.message)
+          @errors.store(key, create_error(:e_need_all_fields, key, nil))
+        end
+      }
+    else
+      update_user input
+      unless(error?)
+        BBMB.persistence.save(@model)
+        return State::Info.new(@session, :message => :login_data_saved, 
+                                         :event => :home)
+      end
+    end
+    self
+  end
+  def update_user(input)
+    email = input.delete(:email)
+    @model.email = email
+    @model.protect!(:email)
+    if(passhash = input.delete(:confirm_pass))
+      begin
+        @session.user.set_password(email, passhash)
+      rescue Yus::YusError => e 
+        @errors.store(:pass, create_error(:e_pass_not_set, :email, email))
+      end
+    end
+  rescue Yus::YusError => e
+    @errors.store(:email, create_error(:e_duplicate_email, :email, email))
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/current_order.rb

@@ -0,0 +1,81 @@
+#!/usr/bin/env ruby
+# Html::State::CurrentOrder -- bbmb.ch -- 20.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/state/info'
+require 'bbmb/html/state/json'
+require 'bbmb/html/view/current_order'
+require 'bbmb/util/mail'
+require 'bbmb/util/target_dir'
+require 'bbmb/util/transfer_dat'
+require 'timeout'
+
+module BBMB
+  module Html
+    module State
+class CurrentOrder < Global
+  DIRECT_EVENT = :current_order
+  VIEW = View::CurrentOrder
+  def init
+    @model = _customer.current_order
+    @model.calculate_effective_prices
+  end
+  def ajax
+    do_update
+    data = {}
+    [ :reference, :comment, :priority, :total ].each { |key|
+      data.store key, @model.send(key).to_s
+    }
+    State::Json.new(@session, data)
+  end
+  def commit
+    ## update most recent values and ensure @model = _customer.current_order
+    do_update 
+    if @session.lookandfeel.enabled?(:terms_of_service, false)
+      if @session.user_input(:accept_terms)
+        _customer.terms_last_accepted ||= Time.now
+      else
+        @errors.store :terms_accepted,
+                      create_error(:e_terms_of_service, :terms_accepted, nil)
+        _customer.terms_last_accepted = nil
+      end
+      BBMB.persistence.save(_customer)
+    end
+    unless error?
+      _customer.commit_order!
+      order = @model
+      @session.async {
+        @session.send_order order, _customer
+      }
+      @model = _customer.current_order
+      Info.new(@session, :message => :order_sent,
+               :event => :current_order)
+    end
+  end
+  def do_update
+    if BBMB.config.mail_confirm_reply_to
+      _customer.order_confirmation = @session.user_input(:order_confirmation)
+      BBMB.persistence.save(_customer)
+    end
+    @model = _customer.current_order
+    keys = [ :comment, :priority, :reference ]
+    input = user_input(keys)
+    unless(error?)
+      input.each { |key, value|
+        @model.send("#{key}=", value)
+      }
+      case @model.priority
+      when 40
+        @model.shipping = 80
+      when 41
+        @model.shipping = 50
+      else
+        @model.shipping = 0
+      end
+      BBMB.persistence.save(@model)
+    end
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/customer.rb

@@ -0,0 +1,109 @@
+#!/usr/bin/env ruby
+# Html::State::Customer -- bbmb.ch -- 19.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/state/show_pass'
+require 'bbmb/html/view/customer'
+require 'bbmb/util/password_generator'
+require 'ostruct'
+
+module BBMB
+  module Html
+    module State
+class Customer < Global
+  attr_reader :cleartext
+  mandatory :address1, :email, :organisation, :customer_id
+  VIEW = View::Customer
+  def init
+    @model = Model::Customer.find_by_customer_id(@session.user_input(:customer_id))
+  end
+  def direct_argument_keys
+    [:customer_id]
+  end
+  def direct_event
+    unless(error? || @session.event == :change_pass)
+      [ :customer, {:customer_id => @model.customer_id} ]
+    end
+  end
+  def generate_pass
+    _save
+    if(email = @model.email)
+      @cleartext = BBMB::Util::PasswordGenerator.generate(@model)
+      passhash = @session.validate(:pass, @cleartext)
+      begin
+        @session.user.grant(email, 'login', 
+                          BBMB.config.auth_domain + '.Customer')
+        @session.user.set_password(email, passhash)
+      rescue Yus::YusError
+        @errors.store(:pass, create_error(:e_pass_not_set, :pass, nil))
+      end
+    else
+      error = create_error(:e_email_required, :email, @model.email)
+      @errors.store(:email, error)
+    end
+    self
+  end
+  def mandatory
+    mandatory = _mandatory
+    if(@session.user_input(:pass) \
+       || @session.user_input(:confirm_pass))
+      mandatory += [:pass, :confirm_pass]
+    end
+    mandatory
+  end
+  def save
+    _save
+    self
+  end
+  alias :change_pass :save
+  def _save
+    keys = mandatory + [ :ean13, :title, :drtitle, :lastname, :firstname,
+                         :address2, :address3, :plz, :city, :canton,
+                         :phone_business, :phone_private, :phone_mobile, :fax ]
+    if BBMB.config.mail_confirm_reply_to
+      keys.push :order_confirmation
+    end
+    input = user_input(keys, mandatory)
+    update_user(input)
+    if(error?)
+      @errors.store(:error, create_error(:error, :error, nil))
+      @errors.store(:user, create_error(:e_user_unsaved, :error, nil))
+    else
+      input.each { |key, val| 
+        writer = "#{key}="
+        if(@model.respond_to?(writer) && @model.send(key) != val)
+          @model.send(writer, val)
+          @model.protect!(key)
+        end
+      }
+      BBMB.persistence.save(@model)
+    end
+  end
+  def show_pass
+    model = OpenStruct.new
+    model.cleartext = @cleartext
+    model.email = @model.email
+    model.address_lines = @model.address_lines
+    @cleartext = nil
+    ShowPass.new(@session, model)
+  end
+  def update_user(input)
+    email = input.delete(:email)
+    @model.email = email
+    @model.protect!(:email)
+    if(passhash = input.delete(:confirm_pass))
+      begin
+        @session.user.grant(email, 'login', 
+                          BBMB.config.auth_domain + '.Customer')
+        @session.user.set_password(email, passhash)
+      rescue Yus::YusError => e 
+        @errors.store(:pass, create_error(:e_pass_not_set, :email, email))
+      end
+    end
+  rescue Yus::YusError => e
+    @errors.store(:email, create_error(:e_duplicate_email, :email, email))
+  end
+end
+    end
+  end
+end