ydim_html 1.0.0

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

@@ -0,0 +1,69 @@
+#!/usr/bin/env ruby
+# Html::State::Invoices -- ydim -- 13.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/state/global_predefine'
+require 'ydim/html/view/invoices'
+
+module YDIM
+	module Html
+		module State
+class AjaxInvoices < SBSM::State
+	VOLATILE = true
+	VIEW = Html::View::InvoiceList
+end
+module AjaxInvoiceMethods
+	def ajax_invoices(model=@model)
+		keys = [:payment_received, :unique_id, :deleted]
+		input = user_input(keys, [:unique_id])
+		id = input.delete(:unique_id).to_i
+		if(!error? && !input.empty? && (invoice = @session.invoice(id)))
+			input.each { |key, val|
+				invoice.send("#{key}=", val)
+			}
+			invoice.odba_store
+			model.delete_if { |info| info.unique_id == id }
+		end
+		AjaxInvoices.new(@session, model)
+	end
+	def ajax_status
+		AjaxInvoices.new(@session, load_invoices)
+	end
+	def currency_convert(invoices)
+		currency = Html.config.currency
+		converter = @session.currency_converter
+		invoices.each { |inv|
+			if(icur = inv.currency)
+				inv.total_netto = converter.convert(inv.total_netto, icur, currency)
+				inv.total_brutto = converter.convert(inv.total_brutto, icur, currency)
+			end
+			inv.currency = currency
+		}
+	end
+	def sort_invoices(invoices)
+		null_date = Date.new(9999)
+		invoices.sort_by { |inv| 
+			[null_date - (inv.date || null_date), inv.description.to_s]
+		}
+	end
+end
+class Invoices < Global
+	include AjaxInvoiceMethods
+	VIEW = Html::View::Invoices
+	def init
+		super
+    invs = @session.invoice_infos('is_open')
+    invs.concat @session.invoice_infos('is_due')
+    @model = sort_invoices(currency_convert(invs))
+	end
+	def ajax_collect_garbage
+		@session.collect_garbage
+		AjaxInvoices.new(@session, [])
+	end
+	private
+	def load_invoices
+		@model = sort_invoices(currency_convert(@session.invoices))
+	end
+end
+		end
+	end
+end

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

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Html::State::Pdf -- ydim -- 17.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/pdf'
+
+module YDIM
+	module Html
+		module State
+class Pdf < SBSM::State
+	VOLATILE = true
+	VIEW = Html::View::Pdf
+  attr_accessor :sortby, :sort_reverse
+end
+		end
+	end
+end

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

@@ -0,0 +1,132 @@
+#!/usr/bin/env ruby
+# Html::Custom::Lookandfeel -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'sbsm/lookandfeel'
+
+module YDIM
+	module Html
+		module Custom
+class Lookandfeel < SBSM::Lookandfeel
+	DICTIONARIES = {
+		'de'	=>	{
+			:address_lines							=>	'Strasse/Nr.',
+      :autoinvoices               =>  'Vorlagen',
+			:CHF												=>	'CHF',
+			:collect_garbage						=>	'Papierkorb Leeren',
+			:comma											=>	', ',
+			:confirm_send_invoice0			=>	'Die Rechnung wurde an folgende Email-Adressen verschickt: ',
+			:confirm_send_invoice1			=>	'.',
+			:contact										=>	'Name',
+			:contact_firstname					=>	'Vorname',
+			:contact_title							=>	'Titel',
+      :country                    =>  'Land',
+			:cpr_link										=>	' ywesee GmbH',
+			:create_debitor							=>	'Neuer Kunde',
+      :create_autoinvoice         =>  'Neue Vorlage',
+			:create_invoice							=>	'Neue Rechnung',
+			:create_item								=>	'Neue Position',
+			:currency										=>	'W&auml;hrung',
+			:dash												=>	'&nbsp;&ndash;&nbsp;',
+			:date												=>	'Rechnungsdatum',
+			:date_format								=>	'%d.%m.%Y',
+			:debitors										=>	'Kunden',
+			:debitor_name								=>	'Kunde',
+			:debitor_type								=>	'Kundenart',
+			:delete											=>	'L�schen',
+			:description								=>	'Beschreibung',
+			:dt_consulting	    				=>	'Beratung',
+			:dt_doctor									=>	'Arzt',
+			:dt_health									=>	'Gesundheitsdienstleister',
+			:dt_hospital								=>	'Spital',
+			:dt_hosting									=>	'Hosting-Kunde',
+			:dt_info										=>	'ODDB.org-User',
+			:dt_insurance								=>	'Krankenkasse',
+			:dt_pharma									=>	'Pharma-Firma',
+			:dt_pharmacy								=>	'Apotheke',
+			:e_domainless_email_address	=>	'Wir akzeptieren keine lokalen Email-Adressen.',
+			:e_invalid_email_address		=>	'Die angegebene Email-Adresse ist ung�ltig.',
+			:e_invalid_numeric_format		=>	'Ung�ltiges Zahlenformat',
+			:e_invalid_phone						=>	'Die angegebene Telefonnummer ist ung�ltig.',
+      :e_too_many_emails          =>  'Es sind maximal 3 Email-Adressen erlaubt.',
+			:email											=>	'Email',	
+      :emails                     =>  'Email (max. 3)',
+			:e_bygone_date							=>	'Bitte geben Sie ein Datum an, welches in der Zukuft liegt.',
+			:e_missing0									=>	'Bitte geben Sie das Feld "',
+			:e_missing1									=>	'" an.',
+			:EUR												=>	'EUR',
+			:Frau												=>	'Frau',
+			:generate_invoice						=>	'Generieren',
+			:Herr												=>	'Herr',
+      :html_title                 =>  'YDIM',
+			:invoice_interval		        =>	'Rechnungs-Intervall',
+			:inv_m											=>	'Nur Manuell',
+			:inv_3											=>	'Viertelj�hrlich',
+			:inv_6											=>	'Halbj�hrlich',
+			:inv_12		  								=>	'J�hrlich',
+			:inv_24		  								=>	'Alle zwei Jahre',
+			:invoices										=>	'Rechnungen',
+			:is_due											=>	'F&auml;llige Rechnungen',
+			:is_open										=>	'Offene Rechnungen',
+			:is_paid										=>	'Bezahlte Rechnungen',
+			:is_trash										=>	'Papierkorb',
+			:lgpl_license								=>	'LGPL',
+			:location										=>	'PLZ/Ort',
+			:login											=>	'Login',
+			:logout											=>	'Logout',
+			:name												=>	'Firma',
+			:pass												=>	'Passwort',
+      :payment_period0            =>  ' Zahlbar in ',
+      :payment_period1            =>  ' Tagen',
+			:pdf												=>	'PDF',
+			:phone											=>	'Telefon',
+			:precision									=>	'Kommastellen',
+			:reminder_body							=>	'Erinnerungsmail Text',	
+			:reminder_date							=>	'Wird am %d.%m.%Y versendet',	
+			:reminder_none							=>	'Es wird kein Erinnerungsmail versendet',	
+			:reminder_subject  					=>	'Erinnerungsmail Betreff',	
+			:salutation									=>	'Anrede',
+			:send_invoice								=>	'Email Senden',
+      :suppress_vat               =>  'OHNE MwSt.',
+			:th_currency								=>	'W&auml;hrung',
+			:th_debitor_email						=>	'Email',
+			:th_debitor_name						=>	'Name',
+			:th_debitor_type						=>	'Kundenart',
+			:th_description							=>	'Beschreibung',
+			:th_domain									=>	'Domain',
+			:th_email										=>	'Email',
+			:th_formatted_date					=>	'Datum',
+			:th_name										=>	'Name',
+			:th_next_invoice_date				=>	'N�chste Rechnung',
+			:th_phone										=>	'Telefon',
+			:th_price										=>	'Preis',
+			:th_quantity								=>	'Anzahl',
+			:th_text										=>	'Positionstext',
+			:th_time										=>	'Zeit',
+			:th_toggle_payment_received	=>	'Status',
+			:th_total_brutto						=>	'Brutto',
+			:th_total_netto							=>	'Netto',
+			:th_unique_id								=>	'ID',
+			:th_unit										=>	'Einheit',
+			:time_format								=>	'%d.%m.%Y %H:%M',
+			:toggle_deleted							=>	'l�schen',
+			:toggle_paid								=>	'offen',
+			:toggle_recovered						=>	'wiederherstellen',
+			:toggle_unpaid							=>	'bezahlt',
+			:total											=>	'Total',
+			:total_brutto								=>	'Total Brutto',
+			:total_netto								=>	'Total Netto',
+			:unique_id									=>	'ID',
+			:update											=>	'Speichern',
+			:vat												=>	'MwSt. (7.6%)',
+			:ydim												=>	'YDIM',
+			:ydim_version								=>	'Commit-ID', 
+		},
+	}
+	RESOURCES = {
+		:css				=>	'ydim.css',
+		:javascript	=>	'javascript',
+	}
+end
+		end
+	end
+end

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

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+# 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,27 @@
+#!/usr/bin/env ruby
+# 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_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,62 @@
+#!/usr/bin/env ruby
+# 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/view/ajax_values.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# 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=ISO-8859-1',
+	}
+	def to_html(context)
+		"var ajaxResponse = {\n" << @model.collect { |key, val|
+			"'#{escape(key)}': '#{escape(val)}'"
+		}.join(",\n") << "\n};"
+	end
+end
+		end
+	end
+end

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

@@ -0,0 +1,79 @@
+#!/usr/bin/env ruby
+# 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