ydim-html 1.0.1

data/lib/ydim/html/util/server.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::Util::Server -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'openssl'
+require 'sbsm/drbserver'
+require 'ydim/html/util/session'
+require 'ydim/html/util/validator'
+require 'ydim/client'
+
+module YDIM
+	module Html
+		module Util
+class Server < SBSM::DRbServer
+	SESSION = Html::Util::Session
+	VALIDATOR = Html::Util::Validator
+	def initialize(server)
+		@server = server
+		@private_key = OpenSSL::PKey::DSA.new(File.read(Html.config.root_key))
+		@system = YDIM::Client.new(Html.config)
+		super(@system)
+	end
+	def login(email, pass_hash)
+		(email == Html.config.email) && (pass_hash == Html.config.md5_pass)
+	end
+	def method_missing(meth, *args)
+		@system.login(@server, @private_key)
+		begin
+			@system.send(meth, *args)
+		ensure
+			@system.logout
+		end
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/util/session.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::Util::Session -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'sbsm/session'
+require 'ydim/html/state/global'
+require 'ydim/html/util/lookandfeel'
+
+module YDIM
+	module Html
+		module Util
+class Session < SBSM::Session
+  DEFAULT_FLAVOR = "ydim"
+	DEFAULT_LANGUAGE = 'de'
+	DEFAULT_STATE = Html::State::Init
+	LOOKANDFEEL = Html::Custom::Lookandfeel
+	def login
+		@app.login(user_input(:email), user_input(:pass))
+	end
+  def invoices
+    @app.invoice_infos(user_input(:status) || 'is_open')
+  end
+	def method_missing(meth, *args)
+		@app.send(meth, *args)
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/util/validator.rb

@@ -0,0 +1,63 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::Util::Validator -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'sbsm/validator'
+
+module YDIM
+	module Html
+		module Util
+class Validator < SBSM::Validator
+	BOOLEAN = [:payment_received, :deleted, :suppress_vat]
+	DATES = [:date, :hosting_invoice_date]
+  ALLOWED_TAGS = %{a b br div font h1 h2 h3 i img invoice li ol p pre span
+                   strong u ul year}
+	ENUMS = {
+		:currency					=> [ 'CHF', 'EUR', ],
+		:debitor_type			=> [ nil, 'dt_hosting', 'dt_pharmacy', 'dt_pharma',
+			'dt_insurance', 'dt_info', 'dt_hospital', 'dt_health', 'dt_doctor',
+      'dt_consulting' ],
+		:invoice_interval => [ 'inv_12', 'inv_6', 'inv_3', 'inv_24', 'inv_m', ],
+		:salutation				=>	[ nil, 'Frau', 'Herr', ],
+		:status						=>	[ nil, 'is_open', 'is_due', 'is_paid', 'is_trash'],
+	}
+	EVENTS = [ :ajax_collect_garbage, :ajax_create_item, :ajax_debitor,
+    :ajax_delete_autoinvoice, :ajax_delete_item, :ajax_item,
+    :ajax_invoice, :ajax_invoices, :ajax_status, :autoinvoice,
+    :create_autoinvoice, :create_debitor, :create_invoice, :debitor,
+    :debitors, :generate_invoice, :invoice, :invoices, :login, :logout,
+    :pdf, :send_invoice, :sort, :update ]
+  STRINGS = [ :name, :contact, :contact_firstname, :contact_title,
+    :country, :description, :location, :sortvalue, :text, :unit ]
+  NUMERIC = [ :unique_id, :hosting_price, :index, :precision, :price,
+    :quantity ]
+  HTML = [ :reminder_body, :reminder_subject ]
+	def address_lines(value)
+		validate_string(value).split(/\r|\n|\r\n/)
+	end
+  def emails(value)
+    value.to_s.split(/\s*,\s*/).collect do |val| email(val) end
+  rescue SBSM::InvalidDataError => err
+    raise SBSM::InvalidDataError.new(err.message, :emails, value)
+  end
+	def phone(value)
+		str = value.to_s.strip
+		return if(str.empty?)
+		if(/^00[0-9 ]{10,}$/.match(str))
+			str
+		else
+			raise SBSM::InvalidDataError.new(:e_invalid_phone, :phone, str)
+		end
+	end
+  def validate_numeric(key, value)
+    match = /-?\d*(\.\d{1,2})?/.match(value)
+    if(match[1])
+      match[0].to_f
+    else
+      match[0].to_i
+    end
+  end
+end
+		end
+	end
+end

data/lib/ydim/html/version.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+module YDIM
+  module Html
+    VERSION = '1.0.1'
+  end
+end

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

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::AjaxValues -- ydim -- 18.01.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/component'
+require 'cgi'
+
+module YDIM
+	module Html
+		module View
+class AjaxValues < HtmlGrid::Component
+	HTTP_HEADERS = {
+		'Content-Type'	=>	'text/javascript; charset=UTF-8',
+	}
+	def to_html(context)
+    if @model.is_a?(Array)
+      "var ajaxResponse = {\n" << @model.collect { |key, val|
+        "'#{escape(key)}': '#{escape(val)}'"
+      }.join(",\n") << "\n};"
+    else
+      "var ajaxResponse = {\n'" << escape(@model.to_s) + "'\n};"
+    end
+	end
+end
+		end
+	end
+end

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

@@ -0,0 +1,80 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::AutoInvoice -- ydim -- 13.12.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/invoice'
+
+module YDIM
+  module Html
+    module View
+class AutoInvoiceInnerComposite < InvoiceInnerComposite
+	COMPONENTS = {
+		[0,0]		=>	:unique_id,
+		[0,1,0]	=>	:debitor_name,
+		[1,1,1]	=>	'dash', 
+		[1,1,2]	=>	:debitor_email,
+		[0,2]		=>	:description, 
+		[0,3]		=>	:date,
+		[0,4]		=>	:currency,
+		[0,5]		=>	:precision,
+		[0,6]		=>	:invoice_interval,
+	}
+end
+class AutoInvoiceReminderComposite < HtmlGrid::Composite
+  COMPONENTS = {
+    [0,0]   =>  :reminder_subject,
+    [0,1]   =>  :reminder_body,
+    [1,2]   =>  :reminder_date,
+  }
+  CSS_MAP = {
+    [0,1]  =>  'top',
+  }
+  COMPONENT_CSS_MAP = {
+    [0,0]  =>  'extralarge',
+  }
+  LABELS = true
+  def reminder_body(model)
+    input = HtmlGrid::Textarea.new(:reminder_body, model, @session, self)
+    input.set_attribute('wrap', 'hard')
+    input.set_attribute('cols', '72')
+    input.set_attribute('style', 'font-family: fixed;')
+    input.label = true
+    input.unescaped = true
+    value = model.reminder_body
+    if(value.nil? || value.empty?)
+      input.value = @session.state.format_invoice
+    end
+    input
+  end
+  def reminder_date(model)
+    body = model.reminder_body.to_s.strip
+    subject = model.reminder_subject.to_s.strip
+    if(body.empty? || subject.empty? || !model.date)
+      @lookandfeel.lookup(:reminder_none)
+    else
+      (model.date << 1).strftime(@lookandfeel.lookup(:reminder_date))
+    end
+  end
+end
+class AutoInvoiceComposite < InvoiceComposite
+	COMPONENTS = {
+		[0,0]	=>	AutoInvoiceInnerComposite,
+		[0,1]	=>	:items,
+		[0,2]	=>	InvoiceTotalComposite,
+		[0,3]	=>	AutoInvoiceReminderComposite,
+		[0,4]	=>	:submit,
+		[1,4]	=>	:generate_invoice,
+	}
+	CSS_MAP = {
+		4	=>	'padded'
+	}
+  def generate_invoice(model)
+    button(:generate_invoice, model)
+  end
+end
+class AutoInvoice < Invoice
+	CONTENT = AutoInvoiceComposite
+end
+    end
+  end
+end

data/lib/ydim/html/view/autoinvoices.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::AutoInvoices -- de.oddb.org -- 13.12.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/invoices'
+
+module YDIM
+  module Html
+    module View
+class AutoInvoiceList < InvoiceList
+  COMPONENTS = {
+    [0,0]  =>  :unique_id,
+    [1,0]  =>  :name,
+    [2,0]  =>  :email,
+    [3,0]  =>  :description,
+    [4,0]  =>  :formatted_date,
+    [5,0]  =>  :total_netto,
+    [6,0]  =>  :total_brutto,
+    [7,0]  =>  :currency,
+    [8,0]  =>  :generate_invoice,
+    [9,0]  =>  :delete,
+  }
+  CSS_ID = 'autoinvoices'
+  links :autoinvoice, :date, :unique_id, :description
+  def delete(model)
+    link = HtmlGrid::Link.new(:delete, model, @session, self)
+    url = @lookandfeel._event_url(:ajax_delete_autoinvoice,
+                                 [:unique_id, model.unique_id])
+    link.href = sprintf("javascript: reload_list('%s', '%s')", 
+                        css_id, url)
+    link
+  end
+  def generate_invoice(model)
+    link = HtmlGrid::Link.new(:generate_invoice, model, @session, self)
+    link.href = @lookandfeel._event_url(:generate_invoice, 
+                                        {:unique_id => model.unique_id})
+    link
+  end
+end
+    end
+  end
+end

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

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::Confirm -- ydim -- 18.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'htmlgrid/div'
+
+module YDIM
+	module Html
+		module View
+class ConfirmComponent < HtmlGrid::Div
+	CSS_ID = 'confirm'
+	def init
+		@value = @model
+	end
+end
+class Confirm < Template
+	CONTENT = ConfirmComponent
+	def http_headers
+		headers = super
+		url = @lookandfeel._event_url(:invoices)
+		headers.store('Refresh', "5; URL=#{url}")
+		headers
+	end
+end
+		end
+	end
+end

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

@@ -0,0 +1,118 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::Debitor -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'ydim/html/view/autoinvoices'
+require 'ydim/html/view/invoices'
+require 'htmlgrid/inputtext'
+require 'htmlgrid/inputdate'
+require 'htmlgrid/labeltext'
+require 'htmlgrid/select'
+require 'htmlgrid/textarea'
+
+module YDIM
+	module Html
+		module View
+class Textarea < HtmlGrid::Textarea
+	LABEL = true
+end
+class DebitorForm < HtmlGrid::Form
+	COMPONENTS = {
+		[0,0]	=> :unique_id,
+		[0,1]	=> :debitor_type,
+		[0,2]	=> :name,
+		[0,3]	=> :salutation,
+		[0,4]	=> :contact,
+		[0,5]	=> :contact_firstname,
+		[0,6]	=> :contact_title,
+		[0,7]	=> :address_lines,
+		[0,8]	=> :location,
+		[0,9]	=> :country,
+		[0,10]	=> :emails,
+		[0,11]	=>	:phone,
+		[1,12]	=> :submit,
+	}
+	FORM_ID = 'debitor'
+	EVENT = :update
+	SYMBOL_MAP = {
+    :debitor_type => HtmlGrid::Select,
+		:unique_id		=>	HtmlGrid::Value,
+		:salutation		=>	HtmlGrid::Select,
+	}
+
+  def address_lines(model, session=@session)
+    input = HtmlGrid::InputText.new(:address_lines, model, @session, self)
+    input.value = model.address_lines.join(", ").force_encoding('utf-8') if model.address_lines
+    input
+  end
+  def emails(model, session=@session)
+    input = HtmlGrid::InputText.new(:emails, model, @session, self)
+    if error = @session.error(:emails)
+      input.value = error.value
+    else
+      input.value = model.emails.join(', ')
+    end
+    input.css_class = 'extralarge'
+    input
+  end
+	def hidden_fields(context)
+		super << context.hidden('unique_id', @model.unique_id)
+	end
+end
+class DebitorComposite < HtmlGrid::DivComposite
+	COMPONENTS = {
+		[0,0]	=>	DebitorForm,
+		[0,1]	=>	:is_open,
+		[1,1]	=>	:is_due,
+		[2,1]	=>	:is_paid,
+		[3,1]	=>	:is_trash,
+		[0,2]	=>	:invoices,
+		[0,3]	=>	:invoice_list,
+		[0,4]	=>	:create_invoice,
+		[0,5]	=>	:autoinvoices,
+		[0,6]	=>	:autoinvoice_list,
+		[0,7]	=>	:create_autoinvoice,
+	}
+	CSS_MAP = {
+		1	=>	'subnavigation',
+		2	=>	'padded',
+		4	=>	'padded',
+		5	=>	'padded',
+		7	=>	'padded',
+	}
+	SYMBOL_MAP = {
+		:invoices	    =>	HtmlGrid::LabelText,
+		:autoinvoices	=>	HtmlGrid::LabelText,
+	}
+  def autoinvoice_list(model)
+    AutoInvoiceList.new(@session.state.autoinvoice_infos, @session, self)
+  end
+  def button(key, model)
+  	if(model.unique_id)
+  		button = HtmlGrid::Button.new(key, model, @session, self)
+  		args = {:unique_id => model.unique_id}
+  		url = @lookandfeel._event_url(key, args)
+  		button.set_attribute('onClick', "document.location.href='#{url}'")
+  		button
+  	end
+  end
+  def create_autoinvoice(model)
+    button(:create_autoinvoice, model)
+  end
+  def create_invoice(model)
+    button(:create_invoice, model)
+  end
+	def invoice_list(model)
+		InvoiceList.new(@session.state.invoice_infos, @session, self)
+	end
+end
+class Debitor < Template
+	CONTENT = DebitorComposite
+	def subnavigation(model)
+		InvoicesSubnavigation.new(model, @session, self)
+	end
+end
+		end
+	end
+end

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

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::Debitors -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'htmlgrid/formlist'
+
+module YDIM
+	module Html
+		module View
+class DebitorList < HtmlGrid::FormList
+	COMPONENTS = {
+		[0,0]	=>	:unique_id,
+		[1,0]	=>	:name,
+		[2,0]	=>	:email,
+		[3,0]	=>	:phone,
+		[4,0]	=>	:next_invoice_date,
+		[5,0]	=>	:debitor_type,
+	}
+	EVENT = :create_debitor
+	SORT_DEFAULT = nil
+	def debitor_type(model)
+		@lookandfeel.lookup(model.debitor_type)
+	end
+	def next_invoice_date(model)
+		if(date = model.next_invoice_date)
+			@lookandfeel.format_date(date)
+		end
+	end
+	def phone(model)
+		if(phone = model.phone)
+			link = HtmlGrid::Link.new(:phone, model, @session, self)
+			link.href = "callto://#{phone.delete(' ')}"
+			link.value = phone
+			link
+		end
+	end
+	links :debitor, :name, :unique_id
+end
+class Debitors < Template
+	CONTENT = DebitorList
+end
+		end
+	end
+end