ydim_html 1.0.0

data/lib/ydim/html.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# Html -- ydim -- 14.12.2006 -- hwyss@ywesee.com
+VERSION = '1.0.0'
+module YDIM
+  module Html
+    class << self
+      attr_accessor :config, :logger
+    end
+  end
+end

data/lib/ydim/html/config.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Html.config -- ydim -- 14.12.2006 -- hwyss@ywesee.com
+
+require 'rclconf'
+require 'ydim/html'
+
+module YDIM
+	module Html
+ydim_default_dir = '/var/ydim/'
+if(home = ENV['HOME'])
+  ydim_default_dir = File.join(home, '.ydim')
+end
+default_config_files = [
+ 'etc/ydim-htmld.yml',
+  File.join(ydim_default_dir, 'ydim-htmld.yml'),
+  '/etc/ydim/ydim-htmld.yml',
+]
+defaults = {
+  'client_url'			=> 'druby://localhost:0', 
+  'config'					=> default_config_files,
+  'currency'				=> 'CHF',
+  'email'						=> nil,
+  'html_url'				=> 'druby://localhost:12376',
+  'http_server'     => 'http://localhost',
+  'log_file'        => $stdout,
+  'log_level'       => 'DEBUG',
+  'md5_pass'				=> nil,
+  'proxy_url'				=> 'druby://localhost:0',
+  'server_url'			=> 'druby://localhost:12375', 
+  'root_key'				=> nil,
+  'user'						=> nil,
+  'ydim_dir'				=> ydim_default_dir,
+}
+@config = RCLConf::RCLConf.new(ARGV, defaults)
+@config.load(@config.config)
+	end
+end

data/lib/ydim/html/state/ajax_values.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Html::State::AjaxValues -- ydim -- 18.01.2006 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+require 'ydim/html/view/ajax_values'
+
+module YDIM
+	module Html
+		module State
+class AjaxValues < SBSM::State
+	VOLATILE = true
+	VIEW = Html::View::AjaxValues
+end
+		end
+	end
+end

data/lib/ydim/html/state/autoinvoice.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/env ruby
+# Html::State::AutoInvoice -- ydim -- 13.12.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/invoice'
+require 'ydim/html/view/autoinvoice'
+
+module YDIM
+  module Html
+    module State
+class AjaxAutoInvoice < SBSM::State
+  VOLATILE = true
+  VIEW = Html::View::AutoInvoiceComposite
+end
+module AutoInvoiceKeys
+  def invoice_key
+    :autoinvoice
+  end
+  def invoice_keys
+    super + [ :date, :reminder_body, :reminder_subject ]
+  end
+  def invoice_mandatory
+    [ :description, :currency, :invoice_interval ]
+  end
+end
+class CreateAutoInvoice < CreateInvoice
+  include AutoInvoiceKeys
+  VIEW = Html::View::AutoInvoice
+  def update
+    _update(AutoInvoice)
+  end
+end
+class AutoInvoice < Invoice
+  include AutoInvoiceKeys
+  VIEW = Html::View::AutoInvoice
+  def ajax_invoice
+    _do_update
+    AjaxAutoInvoice.new(@session, @model)
+  end
+  def format_invoice
+    lnf = @session.lookandfeel
+    total = lnf.lookup(:total_netto)
+    item_widths = [total.length]
+    qty_widths = []
+    float = false
+    @model.items.each do |item|
+      item_widths.push item.text.length
+      qty = item.quantity
+      qty_widths.push qty.to_i.to_s.length
+      float ||= (qty.to_i != qty.to_f)
+    end
+    item_width = item_widths.max.to_i.next
+    qty_width = qty_widths.max.to_i
+    total_width = ("%3.2f" % @model.total_netto).length
+    fmt = if float
+            qty_width += 3
+            "%#{qty_width}.2f x %-#{item_width}s %s %#{total_width}.2f\n"
+          else
+            "%#{qty_width}i x %-#{item_width}s %s %#{total_width}.2f\n"
+          end
+    invoice = "<invoice>\n"
+    currency = @model.currency
+    @model.items.each { |item|
+      invoice << sprintf(fmt, item.quantity.to_f, item.text,
+                         currency, item.total_netto)
+    }
+    fmt = "%#{qty_width + 2}s %-#{item_width}s %s %#{total_width}.2f\n"
+    invoice << sprintf(fmt, '', total,
+                       currency, @model.total_netto)
+    invoice << "</invoice>"
+  end
+  def generate_invoice
+    _do_update
+    if((id = @session.user_input(:unique_id)) \
+       && @model.unique_id == id.to_i)
+      Invoice.new(@session, @session.generate_invoice(id))
+    end
+  end
+  def _do_update_invoice(input)
+    ptrn = %r{<invoice>.*</invoice>}m
+    if(body = input[:reminder_body])
+      test = body.gsub(ptrn, "").strip
+      if(test.empty?)
+        input.store(:reminder_body, nil)
+      else
+        input.store(:reminder_body, body.gsub(ptrn, format_invoice))
+      end
+    end
+    super(input)
+  end
+end
+    end
+  end
+end

data/lib/ydim/html/state/confirm.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Html::State::Confirm -- ydim -- 18.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/global_predefine'
+require 'ydim/html/view/confirm'
+
+module YDIM
+	module Html
+		module State
+class Confirm < Global
+	VIEW = Html::View::Confirm
+end
+		end
+	end
+end

data/lib/ydim/html/state/debitor.rb

@@ -0,0 +1,81 @@
+#!/usr/bin/env ruby
+# Html::State::Debitor -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/global_predefine'
+require 'ydim/html/state/ajax_values'
+require 'ydim/html/state/invoices'
+require 'ydim/html/view/debitor'
+
+module YDIM
+	module Html
+		module State
+class AjaxAutoInvoices < SBSM::State
+	VOLATILE = true
+	VIEW = Html::View::AutoInvoiceList
+end
+class Debitor < Global
+	include AjaxInvoiceMethods
+	attr_reader :model, :autoinvoice_infos, :invoice_infos
+	VIEW = Html::View::Debitor
+	def init
+		super
+		load_autoinvoices
+		load_invoices
+	end
+  def ajax_collect_garbage
+    @session.collect_garbage(@model.unique_id)
+    AjaxInvoices.new(@session, [])
+  end
+  def ajax_delete_autoinvoice
+    if(id = @session.user_input(:unique_id))
+      @session.delete_autoinvoice(id)
+    end
+		AjaxAutoInvoices.new(@session, load_autoinvoices)
+  end
+	def ajax_invoices
+		super(@invoice_infos)
+	end
+	def generate_invoice
+		if(id = @session.user_input(:unique_id))
+			Invoice.new(@session, @session.generate_invoice(id.to_i))
+		end
+	end
+	def update
+		mandatory = [ :contact, :debitor_type, :emails,
+			:location, :name, ]
+		defaults = {}
+		keys = mandatory.dup.push(:address_lines, :contact_firstname,
+                              :contact_title, :country, :salutation, :phone)
+		input = defaults.update(user_input(keys, mandatory))
+    mails = input[:emails]
+    if mails && mails.size > 3
+      @errors.store :emails, create_error('e_too_many_emails',
+                                          :emails, mails.join(', '))
+      input[:emails] = mails[0,3]
+    end
+		unless(error? || @model.unique_id)
+			@model = @session.create_debitor
+		end
+		update_model(input)
+		self
+	end
+	private
+  def load_autoinvoices
+    invoices = @model.autoinvoice_infos
+    @autoinvoice_infos = sort_invoices(currency_convert(invoices))
+  end
+	def load_invoices
+		invoices = @model.invoice_infos(@session.user_input(:status) \
+                                    || 'is_open')
+		@invoice_infos = sort_invoices(currency_convert(invoices))
+	end
+	def update_model(input)
+		input.each { |key, val|
+			@model.send("#{key}=".to_sym, val)
+		}
+		@model.odba_store if(@model.unique_id)
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/state/debitors.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Html::State::Debitors -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/global_predefine'
+require 'ydim/html/state/debitor'
+require 'ydim/html/view/debitors'
+require 'ydim/debitor'
+
+module YDIM
+	module Html
+		module State
+class Debitors < Global
+	VIEW = Html::View::Debitors
+	def init
+    lnf = @session.lookandfeel
+		@model = @session.debitors.sort_by do |deb|
+      [ lnf.lookup(deb.debitor_type) || '', deb.name.to_s.downcase ]
+    end
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/state/global.rb

@@ -0,0 +1,99 @@
+#!/usr/bin/env ruby
+# Html::State::Global -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+require 'ydim/html/state/init'
+require 'ydim/html/state/autoinvoice'
+require 'ydim/html/state/debitor'
+require 'ydim/html/state/debitors'
+require 'ydim/html/state/invoice'
+require 'ydim/html/state/invoices'
+require 'ydim/html/state/pdf'
+
+module YDIM
+	module Html
+		module State
+class Global < SBSM::State
+  attr_accessor :sortby, :sort_reverse
+	class Stub
+		def initialize
+			@carry = {}
+		end
+		def carry(key, val)
+			@carry.store(key, val)	
+		end
+		def method_missing(key, *args)
+			if(match = /^(.*)=$/.match(key.to_s))
+				@carry[match[1].to_sym] = args.first
+			else
+				@carry[key]
+			end
+		end
+		def respond_to?(key)
+			true
+		end
+	end
+	EVENT_MAP = {
+		:debitors	=>	Debitors,
+		:invoices	=>	Invoices,
+	}
+  def autoinvoice
+    if(id = @session.user_input(:unique_id))
+      AutoInvoice.new(@session, @session.autoinvoice(id))
+    end
+  end
+  def create_autoinvoice
+    _create_invoice(CreateAutoInvoice, nil)
+  end
+	def create_debitor
+		Debitor.new(@session, YDIM::Debitor.new(nil))
+	end
+	def create_invoice
+    _create_invoice(CreateInvoice)
+	end
+  def _create_invoice(nextclass, date=Date.today)
+		if((id = @session.user_input(:unique_id)) \
+			 && (debitor = @session.debitor(id.to_i)))
+			invoice = Stub.new
+			invoice.carry(:debitor, debitor)
+			invoice.carry(:date, date)
+      invoice.carry(:precision, 2)
+      if debitor.foreign?
+        invoice.carry(:suppress_vat, true)
+      end
+			nextclass.new(@session, invoice)
+		end
+  end
+	def debitor
+		if(id = @session.user_input(:unique_id))
+			Debitor.new(@session, @session.debitor(id.to_i))
+		end
+	end
+	def logout
+		@session.logout
+		State::Init.new(@session, nil)
+	end
+	def invoice
+		if(id = @session.user_input(:unique_id))
+			Invoice.new(@session, @session.invoice(id.to_i))
+		end
+	end
+	def pdf
+		if(id = @session.user_input(:unique_id))
+			Pdf.new(@session, @session.invoice(id.to_i))
+		end
+	end
+	def send_invoice
+		if(id = @session.user_input(:unique_id))
+      sort_args = { :sortby => (@sortby || []).first,
+                    :sort_reverse => @sort_reverse }
+			recipients = @session.send_invoice(id.to_i, sort_args)
+			message = @session.lookandfeel.lookup(:confirm_send_invoice, 
+																						recipients.join(', '))
+			Html::State::Confirm.new(@session, message)
+		end
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/state/global_predefine.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Html::State::Global -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+
+module YDIM
+	module Html
+		module State
+class Global < SBSM::State
+end
+		end
+	end
+end

data/lib/ydim/html/state/init.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# Html::State::Init -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/debitors'
+require 'ydim/html/view/init'
+
+module YDIM
+	module Html
+		module State
+class Init < SBSM::State 
+	VIEW = Html::View::Init
+	def login
+		if(res = @session.login)
+			Debitors.new(@session, nil)
+		end
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/state/invoice.rb

@@ -0,0 +1,179 @@
+#!/usr/bin/env ruby
+# Html::State::Invoice -- ydim -- 16.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/global_predefine'
+require 'ydim/html/state/ajax_values'
+require 'ydim/html/state/confirm'
+require 'ydim/html/view/invoice'
+
+module YDIM
+	module Html
+		module State
+class AjaxItems < SBSM::State
+	VOLATILE = true
+	VIEW = Html::View::ItemList
+end
+class AjaxInvoice < SBSM::State
+	VOLATILE = true
+	VIEW = Html::View::InvoiceComposite
+end
+module InvoiceKeys
+  def invoice_key
+    :invoice
+  end
+  def invoice_keys
+    invoice_mandatory + [:precision, :suppress_vat]
+  end
+  def invoice_mandatory
+    [:description, :date, :currency]
+  end
+end
+class CreateInvoice < Global
+  include InvoiceKeys
+	VIEW = Html::View::Invoice
+	attr_reader :model
+  def update
+    _update(Invoice)
+  end
+	def _update(nextclass)
+		input = user_input(invoice_keys, invoice_mandatory)
+		input[:precision] = (input[:precision] || 2).to_i
+		unless(error?)
+			@model = @session.send("create_#{invoice_key}",
+                             @model.debitor.unique_id)
+      @model.payment_period = 30
+			input.each { |key, val|
+				@model.send("#{key}=", val)
+			}
+			@model.odba_store
+			nextclass.new(@session, @model)
+		end
+	end
+end
+class Invoice < Global
+  include InvoiceKeys
+  class SortableInvoice
+    def initialize invoice
+      @invoice = invoice
+    end
+    def items
+      @items ||= @invoice.items
+    end
+    def reverse!
+      items.reverse!
+    end
+    def respond_to? *args
+      @invoice.respond_to?(*args) || super
+    end
+    def sort! &block
+      items.sort! &block
+    end
+    def update!
+      @items = nil
+    end
+    def method_missing name, *args, &block
+      @invoice.send name, *args, &block
+    end
+  end
+	VIEW = Html::View::Invoice
+	attr_reader :model
+  def init
+    @model = SortableInvoice.new @model
+    super
+  end
+	def ajax_create_item
+		if(id = @session.user_input(:unique_id))
+			begin
+				@session.add_items(id.to_i, [{:time => Time.now}], invoice_key)
+			rescue IndexError
+			end
+      @model.update! ## @model is a SortableInvoice
+		end
+		AjaxItems.new(@session, @model.items)
+	end
+	def ajax_delete_item
+		if((id = @session.user_input(:unique_id)) \
+			&& (idx = @session.user_input(:index)))
+			begin
+				@session.delete_item(id.to_i, idx.to_i, invoice_key)
+			rescue IndexError
+			end
+      @model.update! ## @model is a SortableInvoice
+		end
+		AjaxItems.new(@session, @model.items)
+	end
+	def ajax_item
+		data = {}
+		if((id = @session.user_input(:unique_id)) \
+			&& (idx = @session.user_input(:index)))
+			begin
+				keys = [:text, :quantity, :unit, :price]
+				input = user_input(keys).delete_if { |key, val| val.nil?  }
+				item = @session.update_item(id.to_i, idx.to_i, input, 
+                                    invoice_key)
+				input.each { |key, val| data.store("#{key}[#{item.index}]", val) }
+				data.store("total_netto#{item.index}", item.total_netto)
+			rescue IndexError
+			end
+		end
+		[:total_netto, :vat, :total_brutto].each { |key|
+			data.store(key, @model.send(key))
+		}
+		AjaxValues.new(@session, data)
+	end
+	def ajax_invoice
+		_do_update
+		AjaxInvoice.new(@session, @model)
+	end
+  def pdf
+    newstate = super
+    newstate.sortby, newstate.sort_reverse = @sortby, @sort_reverse
+    newstate
+  end
+  def send_invoice
+    _do_update
+    super
+  end
+	def update
+		_do_update
+		self
+	end
+	def _do_update
+		if((id = @session.user_input(:unique_id)) \
+       && @model.unique_id == id.to_i)
+			## update items
+			keys = [:text, :quantity, :unit, :price]
+			data = {}
+			user_input(keys).each { |key, hash|
+				hash.each { |idx, value|
+					(data[idx] ||= {}).store(key, value)
+				} unless hash.nil?
+			}
+			target = origin = nil
+			converter = if((target = @session.user_input(:currency)) \
+				 && (origin = @model.currency) \
+				 && origin != target)
+				@session.currency_converter
+			end
+			data.each { |idx, item|
+				if(converter)
+					item[:price] = converter.convert(item[:price], origin, target)
+				end
+				@session.update_item(id.to_i, idx.to_i, item, invoice_key)
+			}
+
+			_do_update_invoice(user_input(invoice_keys, invoice_mandatory))
+      @model.update! ## @model is a SortableInvoice
+			@model.odba_store
+		end
+	end
+  def _do_update_invoice(input)
+    input[:precision] = (input[:precision] || 2).to_i
+    input.each { |key, val|
+      @model.send("#{key}=", val)
+    }
+  end
+end
+		end
+	end
+end