rwdaddresses 1.01 → 1.02

data/extras/vpim/vpim.rb

@@ -0,0 +1,94 @@
+=begin
+  $Id: vpim.rb,v 1.18 2005/02/02 03:05:58 sam Exp $
+
+  Copyright (C) 2005 Sam Roberts
+
+  This library is free software; you can redistribute it and/or modify it
+  under the same terms as the ruby language itself, see the file COPYING for
+  details.
+=end
+
+#:main:Vpim
+#:title:vpim - a library to manipulate vCards and iCalendars
+#
+# Author::     Sam Roberts <sroberts@uniserve.com>
+# Copyright::  Copyright (C) 2005 Sam Roberts
+# License::    May be distributed under the same terms as Ruby
+# Version::    0.14
+# Homepage::   http://vpim.rubyforge.org
+#
+# An implementation of the MIME Content-Type for Directory Information (RFC
+# 2425), and profiles of this format. The basic RFC 2425 format is implemented
+# by the DirectoryInfo class.
+#
+# Currently the only IETF-defined profile is vCard (RFC 2426), implemented by
+# the Vcard class.
+#
+# iCalendar (RFC 2445) was not specified as a profile of RFC 2425, could have
+# been, and is implemented by the Icalendar class.
+#
+# Both of these "v-formats" are for personal information management, thus the
+# name "vPim".
+#
+# This is my first Ruby library, and I would love to have feedback on
+# useability. In particular, if anybody using this library could send me
+# any code showing how they call vPim, that would be very useful to me. It
+# doesn't have to be complete, I would just like to see how the APIs are
+# being called, to give me ideas for how to improve them.
+#
+# Particularly, I'm interested in examples of encoding.
+#
+# Sam Roberts <sroberts@uniserve.com>
+#
+# = Project Information
+#
+# The latest release can be downloaded from the Ruby Forge project page:
+#
+# - http://rubyforge.org/projects/vpim
+#
+# If you are interested in notifications about new releases, or
+# asking questions about vPim, please subscribe to "vpim-talk":
+#
+# - http://rubyforge.org/mailman/listinfo/vpim-talk
+#
+# = Examples
+# 
+# Sample utilities are provided as examples of using vPim in samples/.
+# 
+# vCard examples are:
+# - link:mutt-aliases-to-vcf.txt: convert a mutt aliases file to vCards
+# - link:ex_get_vcard_photo.txt: pull photo data from a vCard
+# - link:ab-query.txt: query the OS X Address Book to find vCards
+# - link:vcf-to-mutt.txt: query vCards for matches, output in formats useful
+#   with Mutt (see link:README.mutt for details)
+# - link:vcard-dump.txt: dump all the fields in a vCard
+# - link:tabbed-file-to-vcf.txt: convert a tab-delimited file to vCards. This
+#   is a (small but) complete application contributed by Dane G. Avilla, thanks!
+# 
+# iCalendar examples are:
+# - link:ics-to-rss.txt: prints todos as RSS, or starts a WEBrick servlet
+#   that publishes todos as a RSS feed. Thanks to Dave Thomas for this idea,
+#   from http://pragprog.com/pragdave/Tech/Blog/ToDos.rdoc.
+# - link:cmd-itip.txt: prints emailed iCalendar invitations in human-readable
+#   form, and see link:README.mutt for instruction on mutt integration. I get
+#   a lot of meeting invitations from Lotus Notes/Domino users at work, and
+#   this is pretty useful in figuring out where and when I am supposed to be.
+# - link:reminder.txt: prints upcoming events and todos, by default from
+#   Apple's iCal calendars
+# - link:rrule.txt: utility for printing recurrence rules
+# - link:ical-dump.txt: utility for dumping contents of .ics files
+module Vpim
+  VERSION = "0.14"
+
+  # Return the API version as a string.
+  def Vpim.version
+    VERSION
+  end
+end
+
+module Vpim
+  # Exception used to indicate that data being decoded is invalid, the message
+  # usually gives some clue as to exactly what is invalid.
+  class InvalidEncodingError < StandardError; end
+end
+

data/gui/frontwindow0/superant.com.rwdaddresses/16editrecord.rwd

@@ -27,6 +27,11 @@ $rwdguivar=
       <row> <p align=\"right\">Comment3:</p>  <text size=70 name=\"a_comment3\"/> </row>
 
     </table>
+   <horizontal>
+ <button caption=\"Export vCard\" action=\"savevcardrecord\"/>
+      
+   
+    </horizontal>
     <p>%extranamedatadisplay%</p>
     <p>
     <p>%createnewnamerecorddisplay%</p>

data/gui/frontwindow0/superant.com.rwdaddresses/17viewvcardrecord.rwd

@@ -0,0 +1,32 @@
+$rwdguivar=
+"  
+ <tab name=\"Viewvcardrecord\" caption=\"View vCard Record\">
+
+    <table>
+      <row> <p align=\"right\">Contact Name:</p>  <text name=\"a_viewvcarddata\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Open\" action=\"viewvcarddata\"/>
+      <button caption=\"Help\" action=\"runhelpwindowrwdaddresses\"/>
+      
+    </horizontal>
+
+	
+    <table>
+     
+       
+    <p>%viewvcarddatadisplay%</p>
+    
+      
+    </table>
+    <horizontal>
+       <button caption=\"List vCard Records\" action=\"listvcardrecordfiles\"/>
+    </horizontal>
+ <p>%%listvcardrecordfilesresult%%</p>
+ 
+	</tab>"
+
+
+

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/3copyright.rwd

@@ -1,3 +1,3 @@
 $rwdguivar=
 "
- <row> <p align=\"center\">copyright s. gibson 2004</p></row>"
+ <row> <p align=\"center\">copyright s. gibson 2004,2005</p></row>"

data/gui/tinkerbackwindows/superant.com.rwdaddressessyncbackwindow/70rwddiagnostics.rwd

@@ -1,12 +1,7 @@
 $rwdguivar=
 "
 	<tab name=\"diagnostictab\" caption=\"Diagnostic Tab\">
-      <horizontal>
-       <button caption=\"View Ruby Version\" action=\"runrubyversion\"/>
-    
-      
-    </horizontal>
-    <p>%rubyversion%</p>
+  
 
 
     <table>
@@ -20,12 +15,7 @@ $rwdguivar=
     </horizontal>
 
     <p>%platformdisplay%</p>
-    <horizontal>
-       <button caption=\"View rwdtinker Version\" action=\"rwdtinkerversiondiagnostic\"/>
-           
-    </horizontal>
 
-    <p>%rwdtinkerversionreturn%</p>
 
 	</tab>"
 

data/init.rb

@@ -24,251 +24,254 @@
 require "ev/rwd"
 require 'fileutils'
 require 'extras/rconftool'
-	
+
 $progdir = File::expand_path( File.dirname(__FILE__))
 
-        $tempdoc = " "
- 
- def findfiles(d)
-         a = Array.new(Dir[d].entries.sort)
-         #loop through and get the files names
-         a.each do |x|
-               #adjust the filters to the files you want to see...
-               if(!test(?d,x))
-               # only rwd files
-                  if x =~ /rb|rwd|txt/
-                    fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
-                    $tempdoc+=fileA.read    #reads the file into the doc string
-                    fileA.close    
-                  end
-               end
-          end
-  end
-  def loadguifile(d)
-         a = Array.new(Dir[d].entries.sort)
-         #loop through and get the files names
-         a.each do |x|
-            #adjust the filters to the files you want to see...
-            if(!test(?d,x))
-             # only rwd files
-              if x =~ /rb|rwd|txt/
-                
-		          load x      #opens the file thats in fileName and reads it
-		          $tempdoc += $rwdguivar # adds the file into the doc string
-              end
-            end
-          end
-  end 
-        
+$tempdoc = " "
+
+def findfiles(d)
+	a = Array.new(Dir[d].entries.sort)
+	#loop through and get the files names
+	a.each do |x|
+		#adjust the filters to the files you want to see...
+		if(!test(?d,x))
+			# only rwd files
+			if x =~ /rb|rwd|txt/
+				fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
+				$tempdoc+=fileA.read    #reads the file into the doc string
+				fileA.close    
+			end
+		end
+	end
+end
+def loadguifile(d)
+	a = Array.new(Dir[d].entries.sort)
+	#loop through and get the files names
+	a.each do |x|
+		#adjust the filters to the files you want to see...
+		if(!test(?d,x))
+			# only rwd files
+			if x =~ /rb|rwd|txt/
+
+				load x      #opens the file thats in fileName and reads it
+				$tempdoc += $rwdguivar # adds the file into the doc string
+			end
+		end
+	end
+end 
+
 # integrate the new configuration files
 MAINconfignew =  "rwdconfig.cnf"
 MAINconfigdist = "rwdconfig.dist"
 Rconftool::install(MAINconfigdist,MAINconfignew)
 
- Dir.chdir("configuration")    #changes the current working directory
-      
- fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n
- @doc = ""
- fileList.length.times{               #opening of a block
-    configdist =fileList.pop                #pops the first item out of the Array
+#load main config file
+load 'rwdconfig.cnf'
+
+Dir.chdir("configuration")    #changes the current working directory
+
+fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n
+@doc = ""
+fileList.length.times{               #opening of a block
+configdist =fileList.pop                #pops the first item out of the Array
 tempconfigfile = configdist.gsub(/\.dist$/, "")
 confignew = tempconfigfile + ".cnf"
 Rconftool::install(configdist,confignew)     #integrates new file with old 
   }       #closing block
- # END of configuration integration 
-Dir.chdir($progdir)
-
-# Read in the configuration files
- Dir.chdir("configuration")    #changes the current working directory
-      
- fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
- @doc = ""
- fileList.length.times{               #opening of a block
-    fileName=fileList.pop                #pops the first item out of the Array
-    load fileName     #loads the the config file thats in fileName 
+  # END of configuration integration 
+  Dir.chdir($progdir)
+
+  # Read in the configuration files
+  Dir.chdir("configuration")    #changes the current working directory
+
+  fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
+  @doc = ""
+  fileList.length.times{               #opening of a block
+  fileName=fileList.pop                #pops the first item out of the Array
+  load fileName     #loads the the config file thats in fileName 
   }       #closing block
- # END of configuration reading 
- 
- Dir.chdir($progdir) # change back to top program directory
-
- # build the English Language hash file from the parts
- languagehashvariable = 'Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
-    langmessage = {' + "\n"
- startlangdir = File.join(LangDir,"en")
- #get a list of the files and subdirectories on the starting directory only
-        alanghash = Array.new(Dir[startlangdir].entries.sort)
-        #loop through the list, ignore the files and add all new directories found
-        alanghash.each do |x|
-          #if a directory...
-          if(test(?d,x))
-            # add to the original list of directories
-            @@tmproot = x + "/**"
-            #adds the new ones to the array
-            blanghash = Dir[@@tmproot].entries.sort
-            blanghash.each do |x|
-              if(test(?d,x))
-                alanghash.push(x)  #appends to the end of the array...
-              end
-            end
-          end
-        end
-        alanghash.each do |x|
-                #if it is a file...
-                if(!test(?d,x))
-                        alanghash.delete(x)
-                  else              #it is a directory...
-                        findfiles(x + "/**")
-                end
-        end
-
- 
-       #writes the contents of doc into the  languagehashvariable 
+  # END of configuration reading 
+
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the English Language hash file from the parts
+  languagehashvariable = 'Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
+  langmessage = {' + "\n"
+  startlangdir = File.join(LangDir,"en")
+  #get a list of the files and subdirectories on the starting directory only
+  alanghash = Array.new(Dir[startlangdir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  alanghash.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@tmproot = x + "/**"
+		  #adds the new ones to the array
+		  blanghash = Dir[@@tmproot].entries.sort
+		  blanghash.each do |x|
+			  if(test(?d,x))
+				  alanghash.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  alanghash.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  alanghash.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the  languagehashvariable 
   languagehashvariable  =  languagehashvariable + $tempdoc + "}  ; langmessage.each { |kk, vv| Message[kk] = vv }"
- 
- # END of en Lang building
+
+  # END of en Lang building
   $tempdoc = " "
   Dir.chdir($progdir) # change back to top program directory
- 
- # build the local Language hash file from the parts
- startlangdir = File.join(LangDir,$lang)
- #get a list of the files and subdirectories on the starting directory only
-        alanghash = Array.new(Dir[startlangdir].entries.sort)
-        #loop through the list, ignore the files and add all new directories found
-        alanghash.each do |x|
-          #if a directory...
-          if(test(?d,x))
-            # add to the original list of directories
-            @@tmproot = x + "/**"
-            #adds the new ones to the array
-            blanghash = Dir[@@tmproot].entries.sort
-            blanghash.each do |x|
-              if(test(?d,x))
-                alanghash.push(x)  #appends to the end of the array...
-              end
-            end
-          end
-        end
-        alanghash.each do |x|
-                #if it is a file...
-                if(!test(?d,x))
-                        alanghash.delete(x)
-                  else              #it is a directory...
-                        findfiles(x + "/**")
-                end
-        end
-
- 
-                #writes the contents of doc into the variable
+
+  # build the local Language hash file from the parts
+  startlangdir = File.join(LangDir,$lang)
+  #get a list of the files and subdirectories on the starting directory only
+  alanghash = Array.new(Dir[startlangdir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  alanghash.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@tmproot = x + "/**"
+		  #adds the new ones to the array
+		  blanghash = Dir[@@tmproot].entries.sort
+		  blanghash.each do |x|
+			  if(test(?d,x))
+				  alanghash.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  alanghash.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  alanghash.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the variable
   languagehashvariable =  languagehashvariable  + " ; Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
-  
 
-$tempdoc = " "
- 
- Dir.chdir($progdir) # change back to top program directory
- 
- temp = eval(   languagehashvariable )
-
- $tempdoc = " "
-
- # build the actual program from the code parts
- #get a list of the files and subdirectories on the starting directory only
-        a = Array.new(Dir[CodeDir].entries.sort)
-        #loop through the list, ignore the files and add all new directories found
-        a.each do |x|
-          #if a directory...
-          if(test(?d,x))
-            # add to the original list of directories
-            @@root = x + "/**"
-            #adds the new ones to the array
-            b = Dir[@@root].entries.sort
-            b.each do |x|
-              if(test(?d,x))
-                a.push(x)  #appends to the end of the array...
-              end
-            end
-          end
-        end
-        a.each do |x|
-                #if it is a file...
-                if(!test(?d,x))
-                        a.delete(x)
-                  else              #it is a directory...
-                        findfiles(x + "/**")
-                end
-        end
-
-
-# load the program file
- tempcoderesult = eval( $tempdoc )
-
-# build the actual GUI from the gui parts
- $tempdoc = " "
- #get a list of the files and subdirectories on the starting directory only
-        a = Array.new(Dir[GuiDir].entries.sort)
-        #loop through the list, ignore the files and add all new directories found
-        a.each do |x|
-                #if a directory...
-                if(test(?d,x))
-                        #use this new dir find to add to the original list of directories
-                        @@root = x + "/**"
-                        #adds the new ones to the array
-                        b = Dir[@@root].entries.sort
-                        b.each do |x|
-                                if(test(?d,x))
-                                        a.push(x)  #appends to the end of the array...
-                                end
-                        end
-                end
-        end
-        a.each do |x|
-                #if it is a file...
-                if(!test(?d,x)) 
-                        a.delete(x)
-                
-                else #it is a directory...
-                        loadguifile(x + "/**")
-                end
-        end
-
-   # gui variable is done
-    guiRWD = $tempdoc
-   
-   require 'socket'		# Network stuff
-    host = "127.0.0.1"
-	 port = $port
-	 
-	 # Create a socket to listen on and bind it to the host and port 
-	 freeportfound = false
-   until freeportfound
-   begin
-		@socket = UDPSocket::new()
-		@socket.bind(host, port)
-    freeportfound = true
-$port = port
-	 # Rescue the "Address in use" error
-	 rescue Errno::EADDRINUSE
-		 puts "RWD Startup: Port #{port} on host #{host} is already in use."
-		port=port +1
-    puts "trying port: #{port}"
-	 # Rescue the "Address not available' error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "RWD Startup: Address #{host} is not available to bind."
-		port =port + 1
-	  puts "trying port: #{port}"
-   # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "RWD Startup: Access denied when binding interface addresses. ?"
-			port =port + 1
-       puts "trying port: #{port}"
-	 # Rescue all other errors
-	 rescue
-   puts "RWD Startup: An error occured."
-		port =port + 1
-     puts "trying port: #{port}"
-	 # Rescue all other errors
-	 end
 
-end
+  $tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+  temp = eval(   languagehashvariable )
+
+  $tempdoc = " "
+
+  # build the actual program from the code parts
+  #get a list of the files and subdirectories on the starting directory only
+  a = Array.new(Dir[CodeDir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  a.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@root = x + "/**"
+		  #adds the new ones to the array
+		  b = Dir[@@root].entries.sort
+		  b.each do |x|
+			  if(test(?d,x))
+				  a.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  a.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  a.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  # load the program file
+  tempcoderesult = eval( $tempdoc )
+
+  # build the actual GUI from the gui parts
+  $tempdoc = " "
+  #get a list of the files and subdirectories on the starting directory only
+  a = Array.new(Dir[GuiDir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  a.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  #use this new dir find to add to the original list of directories
+		  @@root = x + "/**"
+		  #adds the new ones to the array
+		  b = Dir[@@root].entries.sort
+		  b.each do |x|
+			  if(test(?d,x))
+				  a.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  a.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x)) 
+		  a.delete(x)
+
+	  else #it is a directory...
+		  loadguifile(x + "/**")
+	  end
+  end
+
+  # gui variable is done
+  guiRWD = $tempdoc
+
+  require 'socket'		# Network stuff
+  host = "127.0.0.1"
+  port = $port
+
+  # Create a socket to listen on and bind it to the host and port 
+  freeportfound = false
+  until freeportfound
+	  begin
+		  @socket = UDPSocket::new()
+		  @socket.bind(host, port)
+		  freeportfound = true
+		  $port = port
+		  # Rescue the "Address in use" error
+	  rescue Errno::EADDRINUSE
+		  puts "RWD Startup: Port #{port} on host #{host} is already in use."
+		  port=port +1
+		  puts "trying port: #{port}"
+		  # Rescue the "Address not available' error
+	  rescue Errno::EADDRNOTAVAIL
+		  puts "RWD Startup: Address #{host} is not available to bind."
+		  port =port + 1
+		  puts "trying port: #{port}"
+		  # Rescue "permission denied errors
+	  rescue Errno::EACCES
+		  puts "RWD Startup: Access denied when binding interface addresses. ?"
+		  port =port + 1
+		  puts "trying port: #{port}"
+		  # Rescue all other errors
+	  rescue
+		  puts "RWD Startup: An error occured."
+		  port =port + 1
+		  puts "trying port: #{port}"
+		  # Rescue all other errors
+	  end
+
+  end
 
 
-RwdTinker.new(  guiRWD).serve(port) # start the main class and program
+  RwdTinker.new(  guiRWD).serve(port) # start the main class and program

data/names/Angelina Jolie.vcf

@@ -0,0 +1,8 @@
+BEGIN:VCARD
+VERSION:3.0
+FN:Angelina Jolie
+N:Angelina Jolie;;;;
+ADR;type=home,pref:;;home address;U.S.A.;;;rwdaddress
+TEL;type=home:555
+EMAIL;type=home:a@localhost
+END:VCARD

data/rwd_files/HowTo_Addresses.txt

@@ -147,6 +147,11 @@ erik = secret
  Thanks, Steven Gibson
 
 == Changelog
+Version 1.02
+ Export vCard
+ view raw vCard
+ updated for rwdtinker 1.61
+
 version 1.01
  updated for rwdtinker version 1.59
  refactored diagnotic page - one button to see all information