orca_card 1.0

data.tar.gz.sig

@@ -0,0 +1,2 @@
+%��l+j���� �W)���3�:d�b@:7OV�/4��X-�s���
+�){��� p�Qb�ڳ]}���Ȋ��V6ŻXL��J�N�F�	Wﾂ(_{Ý��g���p��.R�۸o��������ub���ϭ��/�I�0���U�{���n>��{��%��դW�f�N����ѽ@9(�<)#�?�TJ��0촽�X�
�.|�Ĝ8L���c�w�i�K�%�}���M(��#pMMW�6��P����56��

data/.autotest

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+
+require 'autotest/restart'
+
+# Autotest.add_hook :initialize do |at|
+#   at.extra_files << "../some/external/dependency.rb"
+#
+#   at.libs << ":../some/external"
+#
+#   at.add_exception 'vendor'
+#
+#   at.add_mapping(/dependency.rb/) do |f, _|
+#     at.files_matching(/test_.*rb$/)
+#   end
+#
+#   %w(TestA TestB).each do |klass|
+#     at.extra_class_map[klass] = "test/test_misc.rb"
+#   end
+# end
+
+# Autotest.add_hook :run_command do |at|
+#   system "rake build"
+# end

data/History.txt

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2009-05-18
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,7 @@
+.autotest
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/orca_card
+lib/orca_card.rb

data/README.txt

@@ -0,0 +1,65 @@
+= orca_card
+
+* http://seattlerb.rubyforge.org/orca_card
+* http://orcacard.com
+
+== DESCRIPTION:
+
+Dumps information about your ORCA card.  ORCA cards are Western Washington's
+all-in-one transit smart card that allow travel via bus, train and ferry
+throughout King, Kitsap, Snohomish and Pierce counties.
+
+== FEATURES/PROBLEMS:
+
+* Cheap hack
+* No API
+
+== SYNOPSIS:
+
+  $ orca_card -u username -p passwsord
+  Card 12345678 for adult
+  E-purse active, balance $XX.75
+  
+  History:
+  mm/dd/2009 HH:MM PM KC Metro Route RRR fare $1.75 (balance $XX.75)
+  mm/dd/2009 HH:MM PM KC Metro Route RRR fare $1.75 (balance $XX.50)
+  mm/dd/2009 HH:MM PM KC Metro Route RRR fare $2.00 (balance $XX.25)
+  mm/dd/2009 HH:MM PM KC Metro Route RRR transfer
+  mm/dd/2009 HH:MM PM KC Metro Route RRR fare $1.75 (balance $XX.25)
+  mm/dd/2009 HH:MM PM Enabled Autoload, Receipt XXXXXXX
+  mm/dd/2009 HH:MM PM Added purse value XX.00 to card
+  mm/dd/2009 HH:MM PM Added purse value XX.00 to account, Receipt XXXXXXX
+
+== REQUIREMENTS:
+
+* An ORCA card tied to an account
+* An internet connection
+
+== INSTALL:
+
+* gem install orca_card
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2009 Eric Hodel
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,15 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+$:.unshift 'lib'
+require 'orca_card'
+
+Hoe.new('orca_card', OrcaCard::VERSION) do |oc|
+  oc.rubyforge_name = 'seattlerb'
+  oc.developer('Eric Hodel', 'drbrain@segment7.net')
+
+  oc.extra_deps << ['mechanize', '~> 0.9']
+end
+
+# vim: syntax=Ruby

data/bin/orca_card

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'orca_card'
+
+OrcaCard.run ARGV
+

data/lib/orca_card.rb

@@ -0,0 +1,192 @@
+require 'rubygems'
+require 'mechanize'
+
+##
+# Prints out information about your {ORCA card}[http://orcacard.com].
+
+class OrcaCard
+
+  ##
+  # Version of OrcaCard you are using
+
+  VERSION = '1.0'
+
+  ##
+  # OrcaCard Error class
+
+  class Error < RuntimeError
+  end
+
+  ##
+  # Processes +args+ and returns an options Hash.
+
+  def self.process_args(args)
+    options = {}
+
+    opts = OptionParser.new do |opts|
+      opts.program_name = File.basename $0
+      opts.banner = "Usage: #{opts.program_name} [options]\n\n"
+
+      opts.on('-u', '--username=USERNAME',
+              'ORCA card username') do |username|
+        options[:Username] = username
+              end
+
+      opts.on('-p', '--password=PASSWORD',
+              'ORCA card account password') do |password|
+        options[:Password] = password
+              end
+    end
+
+    opts.parse! args
+
+    if options[:Username].nil? or options[:Password].nil? then
+      $stderr.puts opts
+      $stderr.puts
+      $stderr.puts "username or password not set"
+      exit 1
+    end
+
+    options
+  end
+
+  def self.run(args = ARGV)
+    options = process_args args
+    orca_card = new options
+    orca_card.run
+  end
+
+  ##
+  # Creates a new OrcaCard object from +options+
+
+  def initialize(options)
+    @username = options[:Username]
+    @password = options[:Password]
+  end
+
+  ##
+  # Returns links to card pages owned by the current account
+
+  def cards
+    agent = WWW::Mechanize.new
+    login = agent.get "https://www.orcacard.com/ERG-Seattle/p7_002ad.do?m=52"
+
+    cards = login.form_with :name => 'loginform' do |form|
+      form.j_username = @username
+      form.j_password = @password
+    end.submit
+
+    raise Error, $& if cards.title =~ /Authorization failed/
+
+    cards.links_with(:text => /\d{8}/)
+  end
+
+  ##
+  # Logs in, finds cards for this account and prints them on the screen
+
+  def run
+    cards.each do |card|
+      view_card card
+    end
+  end
+
+  ##
+  # Prints information about the card for link +card+
+
+  def view_card(card)
+    card_id = card.text
+
+    card = card.click
+
+    passenger_type = nil
+    vehicle_type = nil
+
+    card.root.xpath('//p/strong[@class="important"]').each do |strong|
+      text = strong.text.gsub(/[\r\n\t\302\240]+/u, ' ')
+      next unless text =~ /Passenger Type: (.*?) Vehicle Type: (.*)/
+
+      passenger_type = $1.downcase
+      vehicle_type = $2.strip.downcase
+    end
+
+    balance = nil
+    active = nil
+
+    card.root.xpath('//table/tbody/tr/td').each do |td|
+      if element = td.xpath('.//strong[text()="Amount:"]').first then
+        td.text =~ /\$([\d.]+)/
+        balance = $1.to_f
+      elsif element = td.xpath('.//strong[text()="Status:"]').first then
+        td.text =~ /Status: (.*)/
+        active = $1.downcase
+      end
+    end
+
+    if vehicle_type == 'none' then
+      puts "Card %s for %s" % [card_id, passenger_type]
+    else
+      puts "Card %s for %s, vehicle %s" % [
+        card_id, passenger_type, vehicle_type
+      ]
+    end
+    puts "E-purse %s, balance $%0.2f" % [active, balance]
+    puts
+
+    history = card.links_with(:text => 'View Transaction History').first.click
+
+    data = history.search '#resultTable'
+
+    puts "History:"
+    data.search('tr').each do |row|
+      cells = row.search('td').map do |cell| cell.text.strip end
+
+      next if cells.empty?
+
+      time, desc, location, product, txn, balance, method = cells
+
+      txn = txn.to_f.abs
+      balance = balance.to_f.abs
+
+      location = case location
+                 when /KCM-BUS-(\d+)/ then
+                   bus = $1.to_i
+               "KC Metro"
+                 when /ORCA Cardholder website/ then
+               "ORCA website"
+                 else
+                   raise "unknown location %p" % location
+                 end
+
+      case desc
+      when /Purse Use Journey, / then
+        journey = $'
+
+        journey = case journey
+                  when /Route (\d+)/ then
+                    route = $1.to_i
+                "Route %3d" % route
+                  else
+                    raise "unknown journey %p" % journey
+                  end
+
+        if txn.zero? then
+          puts "%s %s %s transfer" % [time, location, journey]
+        else
+          puts "%s %s %s fare $%0.2f (balance $%0.2f)" % [
+            time, location, journey, txn, balance
+          ]
+        end
+      when /Enable Product / then
+        puts "%s Enabled %s" % [time, $']
+      when /Add Purse Value/ then
+        puts "%s Added purse value %0.2f to card" % [time, balance]
+      when /Purse Add Remote, / then
+        puts "%s Added purse value %0.2f to account, %s" % [time, txn, $']
+      else
+        raise "unknown description %p" % desc
+      end
+    end
+  end
+
+end
+

metadata

@@ -0,0 +1,108 @@
+--- !ruby/object:Gem::Specification 
+name: orca_card
+version: !ruby/object:Gem::Version 
+  version: "1.0"
+platform: ruby
+authors: 
+- Eric Hodel
+autorequire: 
+bindir: bin
+cert_chain: 
+- |
+  -----BEGIN CERTIFICATE-----
+  MIIDNjCCAh6gAwIBAgIBADANBgkqhkiG9w0BAQUFADBBMRAwDgYDVQQDDAdkcmJy
+  YWluMRgwFgYKCZImiZPyLGQBGRYIc2VnbWVudDcxEzARBgoJkiaJk/IsZAEZFgNu
+  ZXQwHhcNMDcxMjIxMDIwNDE0WhcNMDgxMjIwMDIwNDE0WjBBMRAwDgYDVQQDDAdk
+  cmJyYWluMRgwFgYKCZImiZPyLGQBGRYIc2VnbWVudDcxEzARBgoJkiaJk/IsZAEZ
+  FgNuZXQwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCbbgLrGLGIDE76
+  LV/cvxdEzCuYuS3oG9PrSZnuDweySUfdp/so0cDq+j8bqy6OzZSw07gdjwFMSd6J
+  U5ddZCVywn5nnAQ+Ui7jMW54CYt5/H6f2US6U0hQOjJR6cpfiymgxGdfyTiVcvTm
+  Gj/okWrQl0NjYOYBpDi+9PPmaH2RmLJu0dB/NylsDnW5j6yN1BEI8MfJRR+HRKZY
+  mUtgzBwF1V4KIZQ8EuL6I/nHVu07i6IkrpAgxpXUfdJQJi0oZAqXurAV3yTxkFwd
+  g62YrrW26mDe+pZBzR6bpLE+PmXCzz7UxUq3AE0gPHbiMXie3EFE0oxnsU3lIduh
+  sCANiQ8BAgMBAAGjOTA3MAkGA1UdEwQCMAAwCwYDVR0PBAQDAgSwMB0GA1UdDgQW
+  BBS5k4Z75VSpdM0AclG2UvzFA/VW5DANBgkqhkiG9w0BAQUFAAOCAQEAHagT4lfX
+  kP/hDaiwGct7XPuVGbrOsKRVD59FF5kETBxEc9UQ1clKWngf8JoVuEoKD774dW19
+  bU0GOVWO+J6FMmT/Cp7nuFJ79egMf/gy4gfUfQMuvfcr6DvZUPIs9P/TlK59iMYF
+  DIOQ3DxdF3rMzztNUCizN4taVscEsjCcgW6WkUJnGdqlu3OHWpQxZBJkBTjPCoc6
+  UW6on70SFPmAy/5Cq0OJNGEWBfgD9q7rrs/X8GGwUWqXb85RXnUVi/P8Up75E0ag
+  14jEc90kN+C7oI/AGCBN0j6JnEtYIEJZibjjDJTSMWlUKKkj30kq7hlUC2CepJ4v
+  x52qPcexcYZR7w==
+  -----END CERTIFICATE-----
+
+date: 2009-05-19 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: mechanize
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "0.9"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.12.1
+    version: 
+description: |-
+  Dumps information about your ORCA card.  ORCA cards are Western Washington's
+  all-in-one transit smart card that allow travel via bus, train and ferry
+  throughout King, Kitsap, Snohomish and Pierce counties.
+email: 
+- drbrain@segment7.net
+executables: 
+- orca_card
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- .autotest
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/orca_card
+- lib/orca_card.rb
+has_rdoc: true
+homepage: http://seattlerb.rubyforge.org/orca_card
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+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: seattlerb
+rubygems_version: 1.3.3
+signing_key: 
+specification_version: 3
+summary: Dumps information about your ORCA card
+test_files: []
+

metadata.gz.sig

@@ -0,0 +1,2 @@
+��ز�]#�~�s���I����ư3���nta�-�4d�F�8`#ɀ߈|��Ó�v4��9^�U\�6J8��%�7Ʈ�s%:�ހ�o�����hti���>�S�%���hnⷅ{".�pg��{]�>�8!�r�f����^
+/u^f��p�ue?���w������t�+�T��20p���@K-B�ǧg�w�F)r�IL�;���KmPC�97Gi�`�O��5�e*�ױ��7&�:*��/�3�m�!H�u�t=�