fairtilizer-vpim 0.695

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_agent_atomize.rb

@@ -0,0 +1,84 @@
+require 'test/common'
+
+require 'vpim/agent/atomize'
+require 'vpim/icalendar'
+require 'vpim/view'
+
+class TextAgentAtomize < Test::Unit::TestCase
+
+  def atomize(cal, feeduri, caluri, filter=nil)
+    ical = Vpim::Icalendar.decode(cal).first
+    if filter
+      ical = filter.call(ical)
+    end
+    feed = Vpim::Agent::Atomize.calendar(ical, feeduri, caluri)
+    return ical, feed
+  end
+
+  def test_minimal
+    ical, feed = atomize(<<'__', "http://example.com/feed", "http://example.com/calendar")
+BEGIN:VCALENDAR
+BEGIN:VEVENT
+DTSTART:20090214T144503
+END:VEVENT
+END:VCALENDAR
+__
+
+  assert_equal(feed.entries.size, 1)
+  assert_equal("http://example.com/feed", feed.id)
+  assert_equal("http://example.com/calendar", feed.title)
+  assert(feed.to_xml.to_str)
+  assert_equal(nil, feed.entries.first.title)
+  assert_equal(nil, feed.entries.first.content)
+  #puts feed.to_xml
+  end
+
+  def test_small
+    ical, feed = atomize(<<'__', "http://example.com/feed", "http://example.com/calendar")
+BEGIN:VCALENDAR
+BEGIN:VEVENT
+DTSTART:20090214T144503
+SUMMARY:I am summarized
+DESCRIPTION:And I am described
+UID:very, very, unique
+END:VEVENT
+END:VCALENDAR
+__
+
+  assert_equal(feed.entries.size, 1)
+  assert_equal("http://example.com/feed", feed.id)
+  assert_equal("http://example.com/calendar", feed.title)
+  assert_equal("I am summarized", feed.entries.first.title)
+  assert_equal("And I am described", feed.entries.first.content)
+  assert(feed.to_xml.to_str)
+  #puts feed.to_xml
+  end
+
+  def test_recurring
+    filter = proc do |cal|
+      Vpim::View.week(cal)
+    end
+    ical, feed = atomize(<<'__', "http://example.com/feed", "http://example.com/calendar", filter)
+BEGIN:VCALENDAR
+BEGIN:VEVENT
+DTSTART:20090214T144503
+RRULE:FREQ=weekly
+SUMMARY:I am summarized
+DESCRIPTION:And I am described
+UID:very, very, unique
+END:VEVENT
+END:VCALENDAR
+__
+
+  #puts feed.to_xml
+  assert_equal(1, feed.entries.size)
+  assert_equal("http://example.com/feed", feed.id)
+  assert_equal("http://example.com/calendar", feed.title)
+  assert_equal("I am summarized", feed.entries.first.title)
+  assert_equal("And I am described", feed.entries.first.content)
+  assert(feed.to_xml.to_str)
+  end
+
+end
+
+

data/test/test_agent_calendars.rb

@@ -0,0 +1,128 @@
+#!/usr/bin/env ruby
+
+require 'vpim/repo'
+require 'vpim/agent/calendars'
+require 'test/common'
+
+class TestAgentCalendars < Test::Unit::TestCase
+  Apple3 = Vpim::Repo::Apple3
+  Directory = Vpim::Repo::Directory
+  Uri = Vpim::Repo::Uri
+  Agent = Vpim::Agent
+  Path = Agent::Path
+  NotFound = Agent::NotFound
+
+  def setup
+    @testdir = Dir.getwd + "/test" #File.dirname($0) doesn't work with rcov :-(
+    @caldir = @testdir + "/calendars"
+    @eventsz = Dir[@caldir + "/**/*.ics"].size
+    assert(@testdir)
+    assert(test(?d, @caldir), "no caldir "+@caldir)
+  end
+
+  def assert_is_text_calendar(text)
+    lines = text.split("\n")
+    lines = lines.first, lines.last
+    assert_equal("BEGIN:VCALENDAR", lines.first.upcase, lines)
+    assert_equal("END:VCALENDAR", lines.last.upcase, lines)
+  end
+
+  def test_agent_calendars
+    repo = Apple3.new(@caldir)
+    rest = Agent::Calendars.new(repo)
+
+    out1, form = rest.get(Path.new("http://host/here", "/here"))
+    assert_equal("text/html", form)
+    #puts(out1)
+
+    out1, form = rest.get(Path.new("http://host/here/weather%2fLeavenworth", "/here"))
+    assert_equal("text/html", form)
+    #puts(out1)
+
+    out2, form = rest.get(Path.new("http://host/here/weather%2fLeavenworth/calendar", "/here"))
+    assert_equal("text/calendar", form)
+    assert_is_text_calendar(out2)
+
+    #assert_equal(out1, out2)
+
+    assert_raise(Vpim::Agent::NotFound) do
+      rest.get(Path.new("http://host/here/weather%2fLeavenworth/an_unknown_protocol", "/here"))
+    end
+    assert_raise(Vpim::Agent::NotFound) do
+      rest.get(Path.new("http://host/here/no_such_calendar", "/here"))
+    end
+
+    assert_equal(["","/","/"], Vpim::Agent::Path.split_path("/%2F/%2F"))
+    assert_equal(["/","/"], Vpim::Agent::Path.split_path("%2F/%2F"))
+    assert_equal(["calendars", "weather/Leavenworth"],
+                 Vpim::Agent::Path.split_path("calendars/weather%2FLeavenworth"))
+  end
+
+  def test_agent_calendar_atom
+    repo = Apple3.new(@caldir)
+    rest = Agent::Calendars.new(repo)
+
+    out, form = rest.get(Path.new("http://host/here/weather%2fLeavenworth/atom", "/here"))
+    assert_equal("application/atom+xml", form)
+    #pp out
+    #assert_is_atom(out)
+  end
+
+  def _test_path_shift(url, shifts)
+    # last shift should be a nil
+    shifts << nil
+
+    # presence or absence of a trailing / should not affect shifting
+    ["", "/"].each do |trailer|
+      path = Path.new(url + trailer)
+      shifts.each do |_|
+        assert_equal(_, path.shift)
+      end
+    end
+  end
+
+  def test_path_shift
+    _test_path_shift("http://host.ex", [])
+    _test_path_shift("http://host.ex/a", ["a"])
+    _test_path_shift("http://host.ex/a/b", ["a", "b"])
+    _test_path_shift("http://host.ex/a/b/c", ["a", "b", "c"])
+  end
+
+  def _test_path_prefix(base, parts, shifts, prefix)
+    path = Path.new(base+parts.join("/"))
+    shifts.times{ path.shift }
+    assert_equal(prefix, path.prefix)
+  end
+
+  def test_path_prefix
+    _test_path_prefix("http://host.ex/", [], 0, "/")
+    _test_path_prefix("http://host.ex/", ["a"], 0, "/")
+    _test_path_prefix("http://host.ex/", ["a"], 1, "/")
+    _test_path_prefix("http://host.ex/", ["a"], 2, "/a/")
+    _test_path_prefix("http://host.ex/", ["a"], 3, "/a/")
+    _test_path_prefix("http://host.ex/", ["a", "b"], 0, "/")
+    _test_path_prefix("http://host.ex/", ["a", "b"], 1, "/")
+    _test_path_prefix("http://host.ex/", ["a", "b"], 2, "/a/")
+    _test_path_prefix("http://host.ex/", ["a", "b"], 3, "/a/b/")
+  end
+
+=begin
+  def test_atomize
+    repo = Apple3.new(@caldir)
+    cal = repo.find{true}
+    a = Vpim::Agent::Atomize.new(cal)
+    assert( a.get(Path.new("http://example.com/path")))
+  end
+
+  def x_test_uri_query
+    uri = "http://example.com/ics/atom?http://localhost:9876"
+
+    repo = Uri.new("http://localhost:9876")
+    rest = Agent::Calendars.new(repo)
+    out1, form = rest.get(Path.new("http://example.com/ics", "/ics/atom"))
+    p [out1, form]
+  end
+=end
+
+end
+