alexmchale-commerce-bank-client 0.4.0

data/VERSION.yml

@@ -0,0 +1,4 @@
+--- 
+:major: 0
+:minor: 4
+:patch: 0

data/lib/commercebank.rb

@@ -0,0 +1,332 @@
+require 'rubygems'
+require 'net/http'
+require 'net/https'
+require 'hpricot'
+require 'andand'
+require 'cgi'
+require 'yaml'
+require 'ftools'
+require 'time'
+require 'date'
+require 'json'
+require 'htmlentities'
+require 'commercebank/monkey.rb'
+require 'commercebank/appconfig.rb'
+require 'commercebank/gmail.rb'
+
+class Array
+  def binary
+    map {|e| yield(e) ? [e, nil] : [nil, e]}.transpose.map {|a| a.compact}
+  end
+end
+
+class Object
+  def to_cents
+    (to_s.gsub(/[^-.0-9]/, '').to_f * 100).to_i
+  end
+end
+
+class Date
+  def days_in_month
+    (Date.parse("12/31/#{strftime("%Y")}") << (12 - month)).day
+  end
+
+  def last_sunday
+    d = self
+    d -= 1 until d.wday == 0
+    d
+  end
+end
+
+class Hash
+  def to_url
+    map {|key, value| "#{CGI.escape key.to_s}=#{CGI.escape value.to_s}"}.join "&"
+  end
+
+  def to_cookie
+    map {|key, value| "#{key}=#{value}"}.join('; ')
+  end
+end
+
+class WebClient
+  attr_reader :fields, :cookies
+
+  def initialize
+    @cookies = Hash.new
+    @http = Net::HTTP.new('banking.commercebank.com', 443)
+    @http.use_ssl = true
+    @http.verify_mode = OpenSSL::SSL::VERIFY_NONE
+  end
+
+  def get(path, form = nil)
+    response = @http.get(path, header)
+    add_cookies(response)
+    @fields = (form && get_form(response.body, form)) || Hash.new
+    response
+  end
+
+  def post(path, form = nil)
+    response = @http.post(path, @fields.to_url, header)
+    add_cookies(response)
+    @fields = (form && get_form(response.body, form)) || Hash.new
+    response
+  end
+
+private
+
+  def header
+    { 'Cookie' => @cookies.to_cookie }
+  end
+
+  def get_form(body, name)
+    Hpricot.buffer_size = 262144
+    doc = Hpricot.parse(body)
+    form = (doc/"##{name}").first
+    fields = Hash[*((form/"input").map {|e| [ e.attributes['name'], e.attributes['value'] ]}.flatten)]
+    fields['TestJavaScript'] = 'OK'
+    fields
+  end
+
+  def add_cookies(response)
+    CGI::Cookie.parse(response.header['set-cookie']).each do |key, value|
+      @cookies[key] = value.first
+    end
+
+    @cookies.delete 'path'
+    @cookies.delete 'expires'
+
+    self
+  end
+end
+
+class CommerceBank
+  attr_reader :register, :current, :available
+
+  def initialize
+    @config = AppConfig.new('~/.commerce.yaml')
+
+    client = WebClient.new
+
+    client.get('/')
+
+    client.get('/CBI/login.aspx', 'MAINFORM')
+
+    client.fields['txtUserID'] = @config[:username]
+    response = client.post('/CBI/login.aspx', 'MAINFORM')
+
+    # If a question was asked, answer it then get the password page.
+    question = response.body.scan(/Your security question:&nbsp;&nbsp;(.*?)<\/td>/i).first.andand.first
+    if question
+      client.fields['txtChallengeAnswer'] = @config[question]
+      client.fields['saveComputer'] = 'rdoBindDeviceNo'
+      response = client.post('/CBI/login.aspx', 'MAINFORM')
+    end
+
+    raise "could not reach the password page" unless client.fields['__EVENTTARGET'] == 'btnLogin'
+
+    client.fields['txtPassword'] = @config[:password]
+    response = client.post('/CBI/login.aspx')
+
+    response = client.get('/CBI/Accounts/CBI/Activity.aspx', 'MAINFORM')
+    (@current, @available) = parse_balance(response.body)
+    @pending = parse_pending(response.body)
+
+    client.fields['Anthem_UpdatePage'] = 'true'
+    client.fields['txtFilterFromDate:textBox'] = Time.parse('1/1/2000').strftime('%m/%d/%Y')
+    client.fields['txtFilterToDate:textBox'] = Time.now.strftime('%m/%d/%Y')
+    response = client.post('/CBI/Accounts/CBI/Activity.aspx?Anthem_CallBack=true')
+
+    raw_data = JSON.parse(response.body)
+    @register = parse_register(raw_data['controls']['pnlPosted'])
+  end
+
+  def daily_summary
+    today, yesterday, this_week, last_week = [], [], [], []
+
+    register.each do |entry|
+      if    entry[:date] == Date.today                               then today << entry
+      elsif entry[:date] == (Date.today - 1)                         then yesterday << entry
+      elsif entry[:date] >= Date.today.last_sunday                   then this_week << entry
+      elsif entry[:date] >= (Date.today.last_sunday - 1).last_sunday then last_week << entry
+      end
+    end
+
+    { 'Pending' => @pending,
+      'Today' => today, 
+      'Yesterday' => yesterday, 
+      'This Week' => this_week, 
+      'Last Week' => last_week, 
+      :order => [ 'Pending', 'Today', 'Yesterday', 'This Week', 'Last Week' ] }
+  end
+
+  def monthly_summary(day_in_month = (Date.today - Date.today.day))
+    first_of_month = day_in_month - day_in_month.day + 1
+    last_of_month = first_of_month + day_in_month.days_in_month - 1
+    entries = register.find_all {|entry| entry[:date] >= first_of_month && entry[:date] <= last_of_month}
+    { day_in_month.strftime('%B') => entries }
+  end
+
+  def print_all
+    summarize 'All' => register
+  end
+
+  def print_daily_summary
+    print(summarize(daily_summary))
+  end
+
+  def gmail_daily_summary
+    subject = "Daily Summary"
+    summary = summarize_html(daily_summary)
+
+    username = @config['GMail Username']
+    password = @config['GMail Password']
+
+    GMail.new(username, password).send(username, subject, summary, 'text/html') 
+  end
+
+  def gmail_monthly_summary
+    last_month = Date.today - Date.today.day
+    subject = "#{last_month.strftime('%B')} Summary"
+    summary = summarize_html(monthly_summary(last_month))
+
+    username = @config['GMail Username']
+    password = @config['GMail Password']
+
+    GMail.new(username, password).send(username, subject, summary, 'text/html') 
+  end
+
+private
+
+  def summarize(entries)
+    (entries[:order] || entries.keys).map do |label|
+      next if entries[label].length == 0
+
+      label.to_s + ":\n" + entries[label].map do |e|
+        [
+          e[:date].strftime('%02m/%02d/%04Y '),
+          "%-100s " % e[:destination],
+          "%10s " % e[:delta].to_dollars(:show_plus),
+          e[:total] && ("%10s " % e[:total].to_dollars),
+          "\n"
+        ].compact.join
+      end.join
+    end.compact.join("\n")
+  end
+
+  def summarize_html(entries)
+    html = ''
+
+    (entries[:order] || entries.keys).each do |label|
+      next if entries[label].length == 0
+
+      use_total = entries[label].find {|e| e[:total]}
+
+      html += '<h2 style="font-family: garamond, georgia, serif">' + label + '</h2>'
+
+      html += '<table cellspacing="0" cellpadding="5" style="font-size: 12px; border-style: solid; border-width: 2px; border-color: #DDDDDD" width="100%">'
+
+      html += '<tr style="font-weight: bold; background-color: #DDDDDD">'
+      html += '<th style="text-align: left" width="75">Date</th>'
+      html += '<th style="text-align: left">Destination</th>'
+      html += '<th style="text-align: right" width="75">Amount</th>'
+      html += '<th style="text-align: right" width="75">Total</th>' if use_total
+      html += '</tr>'
+
+      even = true
+      entries[label].each do |e| 
+        even = !even
+
+        delta = "%s%0.2f" % [ (e[:delta] >= 0 ? '+' : '-'), e[:delta].abs/100.0 ] 
+        total = "%0.2f" % (e[:total].to_i/100.0)
+
+        row_style = { 
+          'font-weight' => 'normal',
+          'background-color' => even ? '#DDDDDD' : '#FFFFFF'
+        }.map {|k, v| "#{k}: #{v}"}.join('; ')
+
+        html += sprintf '<tr style="%s">', row_style
+        html += '<td style="text-align: left">' + e[:date].strftime('%m/%d/%Y') + '</td>'
+        html += '<td style="text-align: left">' + e[:destination] + '</td>'
+        html += '<td style="text-align: right">' + delta + '</td>'
+        html += '<td style="text-align: right">' + total + '</td>' if use_total
+        html += '</tr>'
+      end
+
+      html += '</table>'
+    end
+
+    html
+  end
+
+  def parse_balance(body)
+    Hpricot.buffer_size = 262144
+    doc = Hpricot.parse(body)
+    summaryRows = doc/"table.summaryTable"/"tr"
+    current = (summaryRows[3]/"td")[1].inner_html.to_cents
+    available = (summaryRows[4]/"td")[1].inner_html.to_cents
+    [current, available]
+  end
+
+  def parse_pending(body)
+    Hpricot.buffer_size = 262144
+    doc = Hpricot.parse(body)
+    coder = HTMLEntities.new
+
+    (doc/"#grdMemoPosted"/"tr").map do |e|
+      next nil unless (e['class'] == 'item' || e['class'] == 'alternatingItem')
+
+      values = (e/"td").map {|e1| coder.decode(e1.inner_html.strip)}
+
+      debit = values[2].to_cents
+      credit = values[3].to_cents
+      delta = credit - debit
+
+      { :date => Date.parse(values[0]),
+        :destination => values[1],
+        :delta => delta,
+        :debit => debit,
+        :credit => credit }
+    end.compact
+  end
+
+  def parse_register(body)
+    Hpricot.buffer_size = 262144
+    doc = Hpricot.parse(body)
+    coder = HTMLEntities.new
+    (doc/"#grdHistory"/"tr").map do |e|
+      next nil unless [ 'item', 'alternatingitem' ].include? e['class'].to_s.downcase
+
+      anchor = e.at("a")
+      values = (e/"td").map {|e1| e1.inner_html}
+      date = Date.parse(values[0])
+      check = values[1].strip
+      debit = values[3].to_cents
+      credit = values[4].to_cents
+      delta = credit - debit
+      total = values[5].to_cents
+
+      images = (e/"a").find_all do |e1|
+        e1['target'].to_s.downcase == 'checkimage'
+      end.map do |e1|
+        { :url => e1['href'], :title => e1.inner_html.strip }
+      end
+
+      {
+        :destination => coder.decode(anchor.inner_html.strip),
+        :url => anchor['href'],
+        :date => date,
+        :check => check,
+        :images => images,
+        :delta => delta,
+        :debit => debit,
+        :credit => credit,
+        :total => total
+      }
+    end.compact
+  end
+end
+
+if $0 == __FILE__
+  cb = CommerceBank.new
+  cb.gmail_daily_summary
+end

data/lib/commercebank/appconfig.rb

@@ -0,0 +1,28 @@
+require 'rubygems'
+require 'pp'
+require 'andand'
+require 'yaml'
+
+class AppConfig
+  def initialize(path)
+    @path = path
+  end
+
+  def [](field)
+    field = field.to_s
+    path = File.expand_path(@path)
+    config = File.exists?(path) ? YAML.load(File.read path) : Hash.new
+
+    unless config[field]
+      print "Please enter the following:\n"
+      print field, ": "
+
+      config[field] = gets.to_s.chomp
+
+      File.open(path, 'w') {|file| file.write(config.to_yaml)}
+      File.chmod(0600, path)
+    end
+
+    config[field]
+  end
+end

data/lib/commercebank/gmail.rb

@@ -0,0 +1,156 @@
+require 'openssl'
+require 'net/smtp'
+require 'base64'
+
+class GMail
+  def initialize(username, password)
+    @username = username
+    @password = password
+  end
+
+  def start(to, subject, body, body_type = 'text/plain')
+    @to = to.to_s
+    @subject = subject.to_s
+    @body = body.to_s
+    @body_type = body_type
+    @attachments = []
+
+    self
+  end
+
+  def add_data(name, data, type)
+    @attachments << { :name => name, :data => data, :type => type }
+
+    self
+  end
+
+  def add_file(filename, content_type)
+    add_data File.basename(File.expand_path(filename)), File.read(filename), content_type
+  end
+
+  def add_jpeg(filename, data = nil)
+    name = File.basename filename
+    data ||= File.read(filename)
+    type = 'image/jpeg'
+
+    add_data name, data, type
+  end
+
+  def compose
+    boundary = rand(2**128).to_s(16)
+
+    if @attachments.length > 0
+      attachments = @attachments.map do |attachment|
+        "--#{boundary}\r\n" +
+        "Content-Type: #{attachment[:type]}; name=\"#{attachment[:name]}\"\r\n" +
+        "Content-Disposition: attachment; filename=\"#{attachment[:name]}\"\r\n" +
+        "Content-Transfer-Encoding: base64\r\n" +
+        "\r\n" +
+        Base64.encode64(attachment[:data])
+      end.compact.join
+
+      "Date: #{Time.now.to_s}\r\n" +
+      "From: #{@username}\r\n" +
+      "To: #{@to}\r\n" +
+      "Subject: #{@subject}\r\n" +
+      "MIME-Version: 1.0\r\n" +
+      "Content-Type: multipart/mixed; boundary=\"#{boundary}\"\r\n" +
+      "\r\n" +
+      "--#{boundary}\r\n" +
+      "Content-Type: text/plain\r\n" +
+      "\r\n" +
+      "#{@body}\r\n" +
+      "\r\n" +
+      attachments +
+      "--#{boundary}--\r\n" +
+      "\r\n.\r\n"
+    else
+      "Date: #{Time.now.to_s}\r\n" +
+      "From: #{@username}\r\n" +
+      "To: #{@to}\r\n" +
+      "Subject: #{@subject}\r\n" +
+      "Content-Type: text/plain\r\n" +
+      "\r\n" +
+      "#{@body}\r\n" +
+      "\r\n.\r\n"
+    end
+  end
+
+  def dispatch
+    Net::SMTP.start('smtp.gmail.com', 587, 'gmail.com', @username, @password, :plain) do |smtp|
+      smtp.send_message compose, @username, @to
+    end
+  end
+
+  def send(to, subject, body, content_type = 'text/plan')
+    Net::SMTP.start('smtp.gmail.com', 587, 'gmail.com', @username, @password, :plain) do |smtp|
+      msg = "From: #{@username}\r\nTo: #{to}\r\nSubject: #{subject}\r\nContent-Type: #{content_type}\r\n\r\n#{body}"
+      smtp.send_message msg, @username, to
+    end
+  end
+end
+
+# Net::SMTP monkeypatching was taken from:
+# http://www.stephenchu.com/2006/06/how-to-use-gmail-smtp-server-to-send.html
+Net::SMTP.class_eval do
+  private
+  def do_start(helodomain, user, secret, authtype)
+    raise IOError, 'SMTP session already started' if @started
+    check_auth_args(user, secret) if (user or secret)
+
+    sock = timeout(@open_timeout) { TCPSocket.open(@address, @port) }
+    @socket = Net::InternetMessageIO.new(sock)
+    @socket.read_timeout = 60 #@read_timeout
+    @socket.debug_output = STDERR #@debug_output
+
+    check_response(critical { recv_response() })
+    do_helo(helodomain)
+
+    raise 'openssl library not installed' unless defined?(OpenSSL)
+    starttls
+    ssl = OpenSSL::SSL::SSLSocket.new(sock)
+    ssl.sync_close = true
+    ssl.connect
+    @socket = Net::InternetMessageIO.new(ssl)
+    @socket.read_timeout = 60 #@read_timeout
+    @socket.debug_output = STDERR #@debug_output
+    do_helo(helodomain)
+
+    authenticate user, secret, authtype if user
+    @started = true
+  ensure
+    unless @started
+      # authentication failed, cancel connection.
+        @socket.close if not @started and @socket and not @socket.closed?
+      @socket = nil
+    end
+  end
+
+  def do_helo(helodomain)
+     begin
+      if @esmtp
+        ehlo helodomain
+      else
+        helo helodomain
+      end
+    rescue Net::ProtocolError
+      if @esmtp
+        @esmtp = false
+        @error_occured = false
+        retry
+      end
+      raise
+    end
+  end
+
+  def starttls
+    getok('STARTTLS')
+  end
+
+  def quit
+    begin
+      getok('QUIT')
+    rescue EOFError
+    end
+  end
+end

data/lib/commercebank/monkey.rb

@@ -0,0 +1,98 @@
+require 'rubygems'
+require 'pp'
+require 'andand'
+require 'cgi'
+require 'yaml'
+require 'RMagick'
+
+class Array
+  def binary
+    map {|e| yield(e) ? [e, nil] : [nil, e]}.transpose.map {|a| a.compact}
+  end
+
+  def paramify
+    hash = Hash.new
+
+    hash.merge! pop if last.kind_of? Hash
+    each {|e| hash[e] = true}
+
+    hash
+  end
+end
+
+class Object
+  def to_cents
+    (to_s.gsub(/[^-.0-9]/, '').to_f * 100).to_i
+  end
+
+  def to_dollars(*options)
+    options = options.paramify
+
+    plus = options[:show_plus] ? '+' : ''
+    minus = options[:hide_minus] ? '' : '-'
+    sign = to_i >= 0 ? plus : minus
+
+    ("%s%0.2f" % [ sign, to_i.abs / 100.0 ]).commify
+  end
+end
+
+class Date
+  def days_in_month
+    (Date.parse("12/31/#{strftime("%Y")}") << (12 - month)).day
+  end
+
+  def last_sunday
+    d = self
+    d -= 1 until d.wday == 0
+    d
+  end
+end
+
+class Hash
+  def to_url
+    map {|key, value| "#{CGI.escape key.to_s}=#{CGI.escape value.to_s}"}.join "&"
+  end
+
+  def to_cookie
+    map {|key, value| "#{key}=#{value}"}.join('; ')
+  end
+end
+
+class String
+  def commify
+    reverse.gsub(/(\d\d\d)(?=\d)/, '\1,').reverse
+  end
+end
+
+module Magick
+  class Image
+    def autocrop(red = 65535, green = 65535, blue = 65535)
+      low_x = 0
+      low_y = 0
+      high_x = columns
+      high_y = rows
+
+      croppable = Proc.new do |x, y|
+        pixel = pixel_color(x, y)
+        (pixel.red == red) && (pixel.green == green) && (pixel.blue == blue)
+      end
+
+      # Scan the top horizontal.
+      low_y += 1 until (low_y == rows) || (low_x..high_x).find {|x| !croppable.call(x, low_y)}
+
+      # Scan the bottom horizontal.
+      high_y -= 1 until (low_y == high_y) || (low_x..high_x).find {|x| !croppable.call(x, high_y)}
+
+      # Scan the left vertical.
+      low_x += 1 until (low_x == columns) || (low_y..high_y).find {|y| !croppable.call(low_x, y)}
+
+      # Scan the right vertical.
+      high_x -= 1 until (low_x == high_x) || (low_y..high_y).find {|y| !croppable.call(high_x, y)}
+
+      width = high_x - low_x
+      height = high_y - low_y
+
+      crop low_x, low_y, width, height
+    end
+  end
+end

data/test/commerce_bank_client_test.rb

@@ -0,0 +1,6 @@
+require 'test_helper'
+
+class CommerceBankClientTest < Test::Unit::TestCase
+  should "implement tests" do
+  end
+end

data/test/monkeypatch_test.rb

@@ -0,0 +1,11 @@
+require 'test_helper'
+
+class MonkeyPatchTest < Test::Unit::TestCase
+  should "convert a hash to a valid url parameter string" do
+    h1 = { :foo => 1, :bar => 2, :baz => 3 }
+    assert_equal h1.to_url, 'foo=1&bar=2&baz=3'
+
+    h2 = { :foo => "What's up Doc", :bar => "1" }
+    assert_equal h2.to_url, "foo=What%27s+up+Doc&bar=1"
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'lib/commercebank.rb'
+
+class Test::Unit::TestCase
+end

metadata

@@ -0,0 +1,82 @@
+--- !ruby/object:Gem::Specification 
+name: alexmchale-commerce-bank-client
+version: !ruby/object:Gem::Version 
+  version: 0.4.0
+platform: ruby
+authors: 
+- Alex McHale
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-03-10 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: json
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.1.3
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: andand
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.3.1
+    version: 
+description: 
+email: alexmchale@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.markdown
+files: 
+- VERSION.yml
+- README.markdown
+- lib/commercebank.rb
+- lib/commercebank
+- lib/commercebank/monkey.rb
+- lib/commercebank/gmail.rb
+- lib/commercebank/appconfig.rb
+- test/monkeypatch_test.rb
+- test/test_helper.rb
+- test/commerce_bank_client_test.rb
+has_rdoc: true
+homepage: http://github.com/alexmchale/commerce-bank-client
+post_install_message: 
+rdoc_options: 
+- --inline-source
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: CBC is a client for Commerce Bank's website.
+test_files: []
+