ramaze.ch.oddb.org 1.0.0

data/lib/oddb/html/state/limit.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# Html::State::Limit -- de.oddb.org -- 20.12.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/state/login'
+require 'oddb/html/view/limit'
+
+module ODDB
+  module Html
+    module State
+class Limit < Global
+  include State::LoginMethods
+  VIEW = View::Limit
+end
+    end
+  end
+end

data/lib/oddb/html/state/login.rb

@@ -0,0 +1,56 @@
+#!/usr/bin/env ruby
+# Html::State::Login -- de.oddb.org -- 26.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/viral/admin'
+require 'oddb/html/state/viral/poweruser'
+require 'oddb/html/view/login'
+require 'yus/session'
+
+module ODDB
+  module Html
+    module State
+module LoginMethods
+  attr_accessor :desired_input
+  def login_
+    reconsider_permissions(@session.login)
+    if(@desired_input)
+      @session.valid_input.update @desired_input
+      trigger @desired_input[:event]
+    else
+      @session.desired_state || trigger(:home)
+    end
+  rescue Yus::UnknownEntityError
+    @errors.store(:email, create_error(:e_authentication_error, :email, nil))
+    self
+  rescue Yus::AuthenticationError
+    @errors.store(:pass, create_error(:e_authentication_error, :pass, nil))
+    self
+  end
+  private
+  def reconsider_permissions(user)
+    viral_modules(user) { |mod|
+      self.extend(mod)
+    }
+  end
+  def viral_modules(user)
+    [ 
+      ['.Admin', State::Viral::Admin],
+      ['.PowerUser', State::Viral::PowerUser],
+    ].each { |key, mod|
+      if(user.allowed?("login", ODDB.config.auth_domain + key))
+        yield mod
+      end
+    }
+  end
+end
+module Login
+  VIEW = View::Login
+  DIRECT_EVENT = :login
+  include LoginMethods
+  def login
+    self
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/state/paypal/checkout.rb

@@ -0,0 +1,130 @@
+#!/usr/bin/env ruby
+# Html::State::PayPal::Checkout -- de.oddb.org -- 22.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/state/drugs/download_export'
+require 'oddb/html/state/login'
+require 'oddb/html/state/paypal/collect'
+require 'oddb/html/state/paypal/redirect'
+require 'oddb/html/util/known_user'
+require 'oddb/html/view/ajax/json'
+require 'oddb/util/yus'
+
+module ODDB
+  module Html
+    module State
+      module PayPal
+class AjaxCheckout < Global
+  VOLATILE = true
+  VIEW = View::Ajax::Json
+end
+module Checkout
+  include State::LoginMethods
+  def ajax_autofill
+    email = @session.user_input(:email)
+    prefs = {}
+    keys = checkout_keys()
+    keys.delete(:email)
+    prefs.update ODDB::Util::Yus.get_preferences(email, keys)
+    prefs.store(:email, email) unless prefs.empty?
+    AjaxCheckout.new(@session, prefs)
+  end
+  def checkout
+    ## its possible that we know this user already -> log them in.
+    missing_keys = [:email, :pass] - @session.input_keys
+    if(@session.logged_in?)
+      @user = @session.user
+    elsif(missing_keys.empty?)
+      begin
+        @user ||= @session.login
+        reconsider_permissions(@user)
+        @session.force_login(@user)
+      rescue Yus::UnknownEntityError 
+        # ignore: in this case we simply create a new user in 'create_user'
+      rescue Yus::AuthenticationError
+        @errors.store(:pass, create_error(:e_authentication_error, :pass, nil))
+      end
+    end
+    input = user_input(checkout_keys(), checkout_mandatory())
+    if(error?)
+      self
+    else
+      create_user(input)
+      @model.yus_name = @user.name
+      @model.save
+      State::PayPal::Redirect.new(@session, @model)
+    end
+  rescue SBSM::ProcessingError => err
+    @errors.store(err.key, err)
+    self
+  end
+  def checkout_mandatory
+    keys = [ :salutation, :name_last, :name_first, ]
+    unless(@session.logged_in?)
+      keys.push(:email, :pass, :confirm_pass)
+    end
+    keys
+  end
+  def checkout_keys
+    checkout_mandatory()
+  end
+  def collect
+    if(@session.is_crawler?)
+      trigger :home
+    else
+      invoice = Business::Invoice.find_by_id(@session.user_input(:invoice))
+      state = PayPal::Collect.new(@session, invoice)
+      # since the permissions of the current User may have changed, we
+      # need to reconsider his viral modules
+      if((user = @session.user).is_a?(Util::KnownUser))
+        reconsider_permissions(user)
+      end
+      if invoice
+        item = invoice.items.first
+        case item.type
+        when :export
+          if @session.allowed?('download', "#{ODDB.config.auth_domain}.#{item.text}") \
+            || invoice.status == 'completed'
+            extend State::Drugs::Events
+            state = _download item.text
+          else
+            ## wait for ipn
+          end
+        else
+          if(@session.allowed?('view', ODDB.config.auth_domain))
+            if(des = @session.desired_state)
+              state = des
+            else
+              state.extend Drugs::Events
+            end
+          end
+        end
+      end
+      state
+    end
+  end
+  def create_user(input)
+    hash = input.dup 
+    ## don't store passwords in cookie vars...
+    hash.delete(:confirm_pass)
+    pass = hash.delete(:pass)
+    ## but store the rest of the input there
+    hash.each { |key, val| @session.set_cookie_input(key, val) }
+    email = hash.delete(:email)
+    unless(@user.is_a?(Util::KnownUser))
+      @user = ODDB::Util::Yus.create_user(email, pass)
+    end
+    hash.delete_if { |key, value| value.to_s.empty? }
+    @user.set_preferences(hash) unless(hash.empty?)
+    reconsider_permissions(@user)
+    @session.force_login(@user)
+  rescue Yus::DuplicateNameError => e
+    raise create_error(:e_duplicate_email, :email, input[:email])
+  rescue RuntimeError, Yus::YusError => e
+    raise create_error(e.message, :email, input[:email])
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/paypal/collect.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+# Html::State::Paypal::Collect -- de.oddb.org -- 30.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/view/paypal/collect'
+
+module ODDB
+  module Html
+    module State
+      module PayPal
+class Collect < Global
+  VIEW = View::PayPal::Collect
+  def collect
+    @model = Business::Invoice.find_by_id(@session.user_input(:invoice))
+    state = self
+    # since the permissions of the current User may have changed, we
+    # need to reconsider his viral modules
+    if((user = @session.user).is_a?(Util::KnownUser))
+      reconsider_permissions(user)
+    end
+    item = @model.items.first
+    case item.type
+    when :export
+      if @session.allowed?('download', "#{ODDB.config.auth_domain}.#{item.text}") \
+        || @model.status == 'completed'
+        extend State::Drugs::Events
+        state = _download(item.text)
+      else
+        ## wait for ipn
+      end
+    else
+      if(@session.allowed?('view', ODDB.config.auth_domain))
+        if(des = @session.desired_state)
+          state = des
+        else
+          state.extend Drugs::Events
+        end
+      end
+    end
+    state
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/paypal/redirect.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Html::State::PayPal::Redirect -- de.oddb.org -- 23.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/view/paypal/redirect'
+
+module ODDB
+  module Html
+    module State
+      module PayPal
+class Redirect < State::Global
+  VIEW = View::PayPal::Redirect
+  VOLATILE = true
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/register_export.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+# Html::State::RegisterExport -- de.oddb.org -- 28.07.2008 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/util/need_all_input'
+require 'oddb/html/view/register_export'
+
+module ODDB
+  module Html
+    module State
+class RegisterExport < Global
+  include Util::NeedAllInput
+  VIEW = View::RegisterExport
+  def init
+    super
+    @query = @session.persistent_user_input(:query)
+    @dstype = @session.persistent_user_input(:dstype) \
+      || ODDB.config.default_dstype
+  end
+  def direct_event
+    [:proceed_export, :query, @query, :dstype, @dstype]
+  end
+  def proceed_export
+    query = @session.persistent_user_input(:query)
+    dstype = @session.persistent_user_input(:dstype) \
+      || ODDB.config.default_dstype
+    filename = sprintf('%s_%s.csv', query.tr(' ', '-'), dstype)
+    if @model.is_a?(ODDB::Business::Invoice) \
+      && @model.items.any? { |item| item.text == filename }
+      self
+    else
+      super
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/state/register_poweruser.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# Html::State::RegisterPowerUser -- de.oddb.org -- 21.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/util/need_all_input'
+require 'oddb/html/view/register_poweruser'
+
+module ODDB
+  module Html
+    module State
+class RegisterPowerUser < Global
+  include Util::NeedAllInput
+  VIEW = View::RegisterPowerUser
+end
+    end
+  end
+end

data/lib/oddb/html/state/viral/admin.rb

@@ -0,0 +1,76 @@
+#!/usr/bin/env ruby
+# Html::State::Viral::Admin -- de.oddb.org -- 29.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/drugs/admin/package'
+require 'oddb/html/state/drugs/admin/product'
+require 'oddb/html/state/drugs/admin/sequence'
+require 'oddb/html/util/unsaved_helper'
+require 'sbsm/viralstate'
+
+module ODDB
+  module Html
+    module State
+      module Viral
+module Admin
+	include SBSM::ViralState
+  def atc_assign
+    email = @session.user.email
+    newstate = search
+    code = user_input(:code)
+    if(atc = ODDB::Drugs::Atc.find_by_code(code))
+      packages = newstate.model.find { |list| list.atc.nil? }
+      packages.each { |package| 
+        if((seq = package.sequence) && seq.atc.nil?)
+          seq.atc = atc
+          seq.data_origins[:atc] = email
+          seq.save
+        end
+      }
+      packages.atc = atc
+    else
+      @errors.store :atc_assign, create_error(:e_unknown_atc, :atc_assign, code)
+    end
+    newstate
+  end
+  def limited?
+    false
+  end
+  def new_package
+    if((uid = @session.user_input(:uid)) \
+       && (sequence = ODDB::Drugs::Sequence.find_by_uid(uid)))
+      pac = ODDB::Drugs::Package.new
+      pac.sequence = Util::UnsavedHelper.new(sequence)
+      part = ODDB::Drugs::Part.new
+      part.package = Util::UnsavedHelper.new(pac)
+      pac.parts.push part
+      Drugs::Admin::NewPackage.new(@session, pac)
+    end
+  end
+  def new_sequence
+    if((uid = @session.user_input(:uid)) \
+       && (product = ODDB::Drugs::Product.find_by_uid(uid)))
+      seq = ODDB::Drugs::Sequence.new
+      seq.product = Util::UnsavedHelper.new(product)
+      Drugs::Admin::NewSequence.new(@session, seq)
+    end
+  end
+  def _package(code)
+    if(package = _package_by_code(code))
+      State::Drugs::Admin::Package.new(@session, package)
+    end
+  end
+  def _product(uid)
+    if(product = ODDB::Drugs::Product.find_by_uid(uid))
+      State::Drugs::Admin::Product.new(@session, product)
+    end
+  end
+  def _sequence(uid)
+    if(sequence = ODDB::Drugs::Sequence.find_by_uid(uid))
+      State::Drugs::Admin::Sequence.new(@session, sequence)
+    end
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/viral/poweruser.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Html::State::Viral::PowerUser -- de.oddb.org -- 23.01.2008 -- hwyss@ywesee.com
+
+require 'sbsm/viralstate'
+
+module ODDB
+  module Html
+    module State
+      module Viral
+module PowerUser
+	include SBSM::ViralState
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/util/annotated_list.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+# Html::Util::AnnotatedList -- de.oddb.org -- 06.12.2006 -- hwyss@ywesee.com
+
+module ODDB
+  module Html
+    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
+end