vpim2 0.0.1

data/samples/vcf-dump.rb

@@ -0,0 +1,86 @@
+#!/usr/bin/env ruby
+
+$-w = true
+$:.unshift File.dirname($0) + '/../lib'
+
+require 'pp'
+require 'getoptlong'
+require 'vpim/vcard'
+
+HELP =<<EOF
+Usage: #{$0} <vcard>...
+
+Options
+  -h,--help      Print this helpful message.
+  -n,--name      Print the vCard name.
+  -d,--debug     Print debug information.
+
+Examples:
+EOF
+
+opt_name  = nil
+opt_debug = nil
+
+opts = GetoptLong.new(
+  [ "--help",    "-h",              GetoptLong::NO_ARGUMENT ],
+  [ "--name",    "-n",              GetoptLong::NO_ARGUMENT ],
+  [ "--debug",   "-d",              GetoptLong::NO_ARGUMENT ]
+)
+
+opts.each do |opt, arg|
+  case opt
+    when "--help" then
+      puts HELP
+      exit 0
+
+    when "--name" then
+      opt_name = true
+
+    when "--debug" then
+      opt_debug = true
+  end
+end
+
+if ARGV.length < 1
+  puts "no vcard files specified, try -h!"
+  exit 1
+end
+
+ARGV.each do |file|
+
+  cards = Vpim::Vcard.decode(open(file))
+
+  cards.each do |card|
+    card.each do |field|
+      puts "..#{field.name.capitalize}=#{field.value.inspect}"
+
+      if field.group
+        puts " group=#{field.group}"
+      end
+
+      field.each_param do |param, values|
+        puts " #{param}=[#{values.join(", ")}]"
+      end
+    end
+
+    if opt_name
+      begin
+      puts "#name=#{card.name.formatted}"
+      rescue
+        puts "! failed to decode name!"
+      end
+    end
+
+
+    if opt_debug
+      card.groups.sort.each do |group|
+        card.enum_by_group(group).each do |field|
+          puts "#{group} -> #{field.inspect}"
+        end
+      end
+    end
+
+    puts ""
+  end
+end
+

data/samples/vcf-lines.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+
+$-w = true
+$:.unshift File.dirname($0) + '/../lib'
+
+require 'pp'
+require 'getoptlong'
+require 'vpim/vcard'
+
+HELP =<<EOF
+Usage: #{$0} <vcard>...
+
+Options
+  -h,--help      Print this helpful message.
+
+Examples:
+EOF
+
+opt_name  = nil
+opt_debug = nil
+
+opts = GetoptLong.new(
+  [ "--help",    "-h",              GetoptLong::NO_ARGUMENT ],
+  [ "--name",    "-n",              GetoptLong::NO_ARGUMENT ],
+  [ "--debug",   "-d",              GetoptLong::NO_ARGUMENT ]
+)
+
+opts.each do |opt, arg|
+  case opt
+    when "--help" then
+      puts HELP
+      exit 0
+
+    when "--name" then
+      opt_name = true
+
+    when "--debug" then
+      opt_debug = true
+  end
+end
+
+if ARGV.length < 1
+  puts "no vcard files specified, try -h!"
+  exit 1
+end
+
+ARGV.each do |file|
+
+  cards = Vpim::Vcard.decode(open(file))
+
+  cards.each do |card|
+    card.lines.each_with_index do |line, i|
+      print line.name
+      if line.group.length > 0
+        print " (", line.group, ")"
+      end
+      print ": ", line.value.inspect, "\n"
+    end
+  end
+end
+

data/samples/vcf-to-ics.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+
+require 'vpim/vcard'
+require 'vpim/icalendar'
+
+$in  = ARGV.first ? File.open(ARGV.shift) : $stdin
+$out = ARGV.first ? File.open(ARGV.shift, 'w') : $stdout
+
+cal = Vpim::Icalendar.create
+
+Vpim::Vcard.decode($in).each do |card|
+  if card.birthday
+    cal.push Vpim::Icalendar::Vevent.create_yearly(
+      card.birthday,
+      "Birthday for #{card['fn'].strip}"
+      )
+    $stderr.puts "#{card['fn']} -> bday #{cal.events.last.dtstart}"
+  end
+end
+
+puts cal.encode
+

data/samples/vcf-to-mutt.rb

@@ -0,0 +1,121 @@
+#!/usr/bin/env ruby
+#
+# For a query command, mutt expects output of the form:
+#
+# informational line
+# <email>TAB<name>[TAB<other info>]
+# ...
+#
+# For an alias command, mutt expects output of the form:
+# alias NICKNAME EMAIL
+#
+# NICKNAME shouldn't have spaces, and EMAIL can be either "user@example.com",
+# "<user@example.com>", or "User <user@example.com>".
+
+$-w = true
+$:.unshift File.dirname($0) + '/../lib'
+
+
+require 'getoptlong'
+require 'vpim/vcard'
+
+HELP =<<EOF
+Usage: vcf-to-mutt.rb [--aliases] [query]
+
+Queries a vCard file and prints the results in Mutt's query result format, or
+as a Mutt alias file. No query matches all vCards.
+  
+The query is matched against all fields, so you can use 'climbers' to match all
+vCards that has that string in the Notes field if you want to email all the
+rock climbers you know. Or you can query all vCards with addresses in a
+particular city, you get the idea.
+
+Options
+  -h,--help      Print this helpful message.
+  -a,--aliases   Output an alias file, otherwise output a query response.
+
+Examples:
+
+Put in your muttrc file (either ~/.muttrc or ~/.mutt/muttrc) a line such as:
+
+set query_command = "vcf-to-mutt.rb '%s' < ~/mycards.vcf"
+
+Bugs:
+
+ The aliases output file bases the alias name on the nickname, or the full
+name, but either way, they aren't guaranteed to be unique if you have more than
+email address in a vCard, or more than one vCard for the same nickname or full
+name.
+EOF
+
+opt_query = ''
+opt_aliases = false
+
+opts = GetoptLong.new(
+  [ "--help",    "-h",              GetoptLong::NO_ARGUMENT ],
+  [ "--aliases", "-a",              GetoptLong::NO_ARGUMENT ]
+)
+
+opts.each do |opt, arg|
+  case opt
+    when "--help" then
+      puts HELP
+      exit 0
+
+    when "--aliases" then
+      opt_aliases = true
+  end
+end
+
+opt_query = ARGV.first
+
+module Mutt
+  def Mutt.vcard_query(cards, query)
+    query = query.downcase if query
+    cards.find_all do |card|
+      card.detect do |f|
+        !query || f.value.downcase.include?(query)
+      end
+    end
+  end
+
+  def Mutt.query_print(cards, caption)
+    puts caption
+
+    cards.each do
+      |vcard|
+      # find the email addresses
+      vcard.enum_by_name("email").each do |f|
+        nn = vcard.nickname
+        nn = nn ? "\t#{nn}" : ""
+        puts "#{f.value}\t#{vcard['fn']}#{nn}"
+      end
+    end
+  end
+
+  def Mutt.alias_print(cards)
+    cards.each do
+      |vcard|
+      # find the email addresses
+      vcard.enum_by_name("email").each do |f|
+        em = f.value
+        fn = vcard['fn']
+        nn = vcard.nickname || fn.gsub(/\s+/,'')
+        puts "alias #{nn} #{fn} <#{em}>"
+      end
+    end
+  end
+
+end
+
+cards = Vpim::Vcard.decode($stdin)
+
+matches = Mutt::vcard_query(cards, opt_query)
+
+if opt_aliases
+  Mutt::alias_print(matches)
+else
+  qstr = opt_query == '' ? '<all records>' : opt_query;
+  Mutt::query_print(matches, "Query #{qstr} against #{cards.size} vCards:")
+end
+

data/test/test_all.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+require 'pp'
+
+$-w = true
+
+$:.unshift File.dirname(__FILE__) + "/../lib"
+
+
+pp [__LINE__, $:, $"]
+
+require 'test/unit'
+
+Dir[File.dirname(__FILE__) + "/test_*.rb"].each do |test|
+  require test unless test =~ /test_all/
+end
+

data/test/test_date.rb

@@ -0,0 +1,120 @@
+#!/usr/bin/env ruby
+
+require 'vpim/date'
+require 'vpim/time'
+require 'test/unit'
+
+class TestVpimDate < Test::Unit::TestCase
+
+  def test_to_time
+    # Need to test with DateTime, but I don't have that with ruby 1.6.
+    assert_equal(Time.at(0), Date.new(1970, 1, 1).vpim_to_time)
+    assert_equal(Time.at(24 * 60 * 60), Date.new(1970, 1, 2).vpim_to_time)
+  end
+
+  def test_date_weekstart
+    assert_equal(Date.weekstart(2004, 01, 12, 'tu').to_s, Date.new(2004, 01,  6).to_s)
+    assert_equal(Date.weekstart(2004, 01, 12, 'we').to_s, Date.new(2004, 01,  7).to_s)
+    assert_equal(Date.weekstart(2004, 01, 12, 'th').to_s, Date.new(2004, 01,  8).to_s)
+    assert_equal(Date.weekstart(2004, 01, 12, 'fr').to_s, Date.new(2004, 01,  9).to_s)
+    assert_equal(Date.weekstart(2004, 01, 12, 'sa').to_s, Date.new(2004, 01, 10).to_s)
+    assert_equal(Date.weekstart(2004, 01, 12, 'su').to_s, Date.new(2004, 01, 11).to_s)
+    assert_equal(Date.weekstart(2004, 01, 12, 'mo').to_s, Date.new(2004, 01, 12).to_s)
+  end
+
+  def do_bywday(args, expect)
+    # Rewrite 'string' weekday specifications.
+    args = [ args[0], args[1], Date.str2wday(args[2]), args[3] ]
+    date  = Date.bywday(*args)
+    dates = DateGen.bywday(*args)
+    need  = Date.new(*expect)
+
+    assert_equal(date, need)
+
+    # Date.bywday always produces a single date, so should the generator, in
+    # this case.
+    assert_equal(dates[0], need)
+  end
+
+  def test_bywday
+
+    #                               2004                              
+    # 
+    #       January               February               March        
+    #  S  M Tu  W Th  F  S   S  M Tu  W Th  F  S   S  M Tu  W Th  F  S
+    #              1  2  3   1  2  3  4  5  6  7      1  2  3  4  5  6
+    #  4  5  6  7  8  9 10   8  9 10 11 12 13 14   7  8  9 10 11 12 13
+    # 11 12 13 14 15 16 17  15 16 17 18 19 20 21  14 15 16 17 18 19 20
+    # 18 19 20 21 22 23 24  22 23 24 25 26 27 28  21 22 23 24 25 26 27
+    # 25 26 27 28 29 30 31  29                    28 29 30 31
+    # 
+    do_bywday([2004,  1, 4,  1], [2004,  1,  1])
+    do_bywday([2004,  1, 4,  2], [2004,  1,  8])
+    do_bywday([2004,  1, 4, -1], [2004,  1, 29])
+    do_bywday([2004,  1, 4, -2], [2004,  1, 22])
+    do_bywday([2004,  1, 4, -5], [2004,  1,  1])
+    do_bywday([2004,nil, 4,  1], [2004,  1,  1])
+    do_bywday([2004,nil, 4,  2], [2004,  1,  8])
+    do_bywday([2004,-12, 4,  1], [2004,  1,  1])
+    do_bywday([2004,-12, 4,  2], [2004,  1,  8])
+    do_bywday([2004,-12, 4, -1], [2004,  1, 29])
+    do_bywday([2004,-12, 4, -2], [2004,  1, 22])
+    do_bywday([2004,-12, 4, -5], [2004,  1,  1])
+
+    do_bywday([2004,  1, "th",  1], [2004,  1,  1])
+    do_bywday([2004,  1, "th",  2], [2004,  1,  8])
+    do_bywday([2004,  1, "th", -1], [2004,  1, 29])
+    do_bywday([2004,  1, "th", -2], [2004,  1, 22])
+    do_bywday([2004,  1, "th", -5], [2004,  1,  1])
+    do_bywday([2004,nil, "th",  1], [2004,  1,  1])
+    do_bywday([2004,nil, "th",  2], [2004,  1,  8])
+    do_bywday([2004,-12, "th",  1], [2004,  1,  1])
+    do_bywday([2004,-12, "th",  2], [2004,  1,  8])
+    do_bywday([2004,-12, "th", -1], [2004,  1, 29])
+    do_bywday([2004,-12, "th", -2], [2004,  1, 22])
+    do_bywday([2004,-12, "th", -5], [2004,  1,  1])
+
+    #       October               November              December      
+    #  S  M Tu  W Th  F  S   S  M Tu  W Th  F  S   S  M Tu  W Th  F  S
+    #                 1  2      1  2  3  4  5  6            1  2  3  4
+    #  3  4  5  6  7  8  9   7  8  9 10 11 12 13   5  6  7  8  9 10 11
+    # 10 11 12 13 14 15 16  14 15 16 17 18 19 20  12 13 14 15 16 17 18
+    # 17 18 19 20 21 22 23  21 22 23 24 25 26 27  19 20 21 22 23 24 25
+    # 24 25 26 27 28 29 30  28 29 30              26 27 28 29 30 31
+    # 31
+
+    do_bywday([2004, -1, 4,  1], [2004, 12,  2])
+    do_bywday([2004, -1, 4, -1], [2004, 12, 30])
+    do_bywday([2004, -1, 4, -2], [2004, 12, 23])
+    do_bywday([2004, -1, 4, -5], [2004, 12,  2])
+    do_bywday([2004,nil, 4, -1], [2004, 12, 30])
+    do_bywday([2004,nil, 4, -2], [2004, 12, 23])
+    do_bywday([2004,nil, 4, -5], [2004, 12,  2])
+    do_bywday([2004,nil, 4, -7], [2004, 11, 18])
+
+  end
+
+  def do_gen(args)
+    assert_nothing_thrown do
+      dates = DateGen.bywday(*args)
+      dates.each do |d|
+        assert_equal(args[0], d.year)
+        if(args[1])
+          mon = args[1]
+          if mon < 0
+            mon = 13 + args[1]
+          end
+          assert_equal(mon, d.mon)
+        end
+        assert_equal(args[2], d.wday)
+      end
+    end
+  end
+
+  def test_gen
+    do_gen([2004,  12, 1])
+    do_gen([2004,  -1, 1])
+    do_gen([2004, nil, 1])
+  end
+end
+

data/test/test_dur.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+
+require 'vpim/duration'
+require 'test/unit'
+
+include Vpim
+
+class TestVpimDate < Test::Unit::TestCase
+
+  def duration(d0, h0, m0, s0)
+    # 3 hours, 2 mins, 39 secs
+    d = Duration.secs(d0 * 24 * 60 * 60 + h0 * 60 * 60 + m0 * 60 + s0)
+
+    assert_equal(d.secs,  d0 * 24 * 60 * 60 + h0 * 60 * 60 + m0 * 60 + s0)
+    assert_equal(d.mins,  d0 * 24 * 60 + h0 * 60 + m0)
+    assert_equal(d.hours, d0 * 24 + h0)
+    assert_equal(d.days,  d0)
+    assert_equal(d.by_hours, [d0*24 + h0, m0, s0])
+    assert_equal(d.by_days,  [d0,     h0, m0, s0])
+
+    h, m, s = d.by_hours
+
+    assert_equal(h, h0 + d0*24)
+    assert_equal(m, m0)
+    assert_equal(s, s0)
+
+    d, h, m, s = d.by_days
+
+    assert_equal(d, d0)
+    assert_equal(h, h0)
+    assert_equal(m, m0)
+    assert_equal(s, s0)
+  end
+
+  def test_1
+    duration(0, 3, 2, 39)
+    duration(5, 23, 39, 1)
+  end
+
+end
+