rwdaddresses 1.01 → 1.02

data/code/superant.com.rwdaddresses/downloadrwdaddressfiles.rb

@@ -1,34 +1,36 @@
+# down load address
 def downloadrwdaddressfiles
- require 'net/ftp'
- BasicSocket.do_not_reverse_lookup = true 
- @rwdaddressesftpdisplays = ""
-  begin
- ftp = Net::FTP::new($rwdaddresses_ftpsite)
- @rwdaddressesftpdisplay  = "files downloaded" + "\n" 
- ftp.debug_mode = false
- ftp.login($rwdaddresses_ftplogin, $rwdaddresses_ftppassword)
- ftp.chdir($rwdaddresses_ftpdirectory)
- print "I'm in the directory ", ftp.pwd(), "\n"
- schfiles = ftp.nlst($rwdaddresses_ftpdirectory) 
-   schfiles.each do |x|
-                          #adjust the filters to the files you want to see...
-                             if(!test(?d,x))
-                                   if x =~ /nam/
-                                      lastslash = x.rindex('/')+1
-                                      newstring = x.slice!(lastslash..256)
-                                     localupdatefile = File.join($rwdaddresses_updatedirectory, "#{newstring}")
-                                     ftp.getbinaryfile("#{newstring}" , localupdatefile )
-                                 @rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + newstring + "\n"                               
-                             end
-                             end
-                             
-                         end
-   ftp.close
-  
- rescue
-   if ftp
-     ftp.close
-   end
- @rwdaddressesftpdisplay = "ftp error"
- end
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@rwdaddressesftpdisplays = ""
+	begin
+		ftp = Net::FTP::new($rwdaddresses_ftpsite)
+		@rwdaddressesftpdisplay  = "files downloaded" + "\n" 
+		ftp.debug_mode = false
+		ftp.login($rwdaddresses_ftplogin, $rwdaddresses_ftppassword)
+		ftp.chdir($rwdaddresses_ftpdirectory)
+		print "I'm in the directory ", ftp.pwd(), "\n"
+		schfiles = ftp.nlst($rwdaddresses_ftpdirectory) 
+		schfiles.each do |x|
+			#adjust the filters to the files you want to see...
+			if(!test(?d,x))
+				if x =~ /nam/
+					lastslash = x.rindex('/')+1
+					newstring = x.slice!(lastslash..256)
+					localupdatefile = File.join($rwdaddresses_updatedirectory, "#{newstring}")
+					ftp.getbinaryfile("#{newstring}" , localupdatefile )
+					@rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + newstring + "\n"                               
+				end
+			end
+
+		end
+		ftp.close
+
+	rescue
+		if ftp
+			ftp.close
+		end
+		@rwdaddressesftpdisplay = "ftp error"
+	end
 end
+

data/code/superant.com.rwdaddresses/listnamerecord.rb

@@ -1,15 +1,15 @@
- # this code is to list the contact names
- def listnamerecordfiles
-  if File.exist?($addressfiles_directory)
-   fileList      = Dir.new($addressfiles_directory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
-   @listphotosfromtmp = ""
-   @listnamerecordfilesresult  = fileList.rwd_method("fillcontactrecordname")
-  end
- end
- 
- # this method is to help fill in list of names
- def fillcontactrecordname(inffile)
-  applet                = inffile.gsub(/\.nam$/, "")
-  @a_viewnamedata       = applet
- end
+# this code is to list the contact names
+def listnamerecordfiles
+	if File.exist?($addressfiles_directory)
+		fileList      = Dir.new($addressfiles_directory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
+		@listphotosfromtmp = ""
+		@listnamerecordfilesresult  = fileList.rwd_method("fillcontactrecordname")
+	end
+end
+
+# this method is to help fill in list of names
+def fillcontactrecordname(inffile)
+	applet                = inffile.gsub(/\.nam$/, "")
+	@a_viewnamedata       = applet
+end
 

data/code/superant.com.rwdaddresses/listvcardrecord.rb

@@ -0,0 +1,15 @@
+# this code is to list the vcard names
+def listvcardrecordfiles
+	if File.exist?($addressfiles_directory)
+		fileList      = Dir.new($addressfiles_directory).entries.sort.delete_if { |x| ! (x =~ /vcf$/) }
+		
+		@listvcardrecordfilesresult  = fileList.rwd_method("fillvcardrecordname")
+	end
+end
+
+# this method is to help fill in list of names
+def fillvcardrecordname(inffile)
+	applet                = inffile.gsub(/\.vcf$/, "")
+	@a_viewvcarddata       = applet
+end
+

data/code/superant.com.rwdaddresses/loadconfigurationrecord.rb

@@ -1,44 +1,45 @@
-   # this method puts the configuration rexord on the screen
-  def loadrwdaddressesconfiguration
- 
-         require 'fileutils'
-          
-               @a_adconfigurationfilename = "rwdaddresses.cnf" 
-        
-	      
-        begin # exception trapped block
-       
-       Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, "rwdaddresses.cnf")
-        
-        
-	      fd = File.open(fileName,"r")
-	      @a_adconfigline1=        fd.readline.chomp
-	      @a_adconfigline2 =  fd.readline.chomp
-        @a_adconfigline3 = fd.readline.chomp
-          @a_adconfigline4 = fd.readline.chomp
-        @a_adconfigline5 = fd.readline.chomp
-         @a_adconfigline6 = fd.readline.chomp 
-          @a_adconfigline7 =fd.readline.chomp
-          @a_adconfigline8 = fd.readline.chomp
-           @a_adconfigline9 = fd.readline.chomp
-           @a_adconfigline10 = fd.readline.chomp
-           @a_adconfigline11 = fd.readline.chomp
-           @a_adconfigline12 = fd.readline.chomp
-           @a_adconfigline13 = fd.readline.chomp
-           @a_adconfigline14 = fd.readline.chomp
-           @a_adconfigline15 = fd.readline.chomp
-           @a_adconfigline16 = fd.readline.chomp
-           @a_adconfigline17 = fd.readline.chomp
-           @a_adconfigline18 = fd.readline.chomp
-           @a_adconfigline19 = fd.readline.chomp
-	 
-	      while ! fd.eof?
-	        @extraadconfigdatadisplay = fd.readline
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
-
-  end
+# this method puts the configuration rexord on the screen
+def loadrwdaddressesconfiguration
+	
+	require 'fileutils'
+	
+	@a_adconfigurationfilename = "rwdaddresses.cnf" 
+	
+	
+	begin # exception trapped block
+		
+		Dir.chdir($progdir)
+		fileName = File.join(ConfigurationDir, "rwdaddresses.cnf")
+		
+		
+		fd = File.open(fileName,"r")
+		@a_adconfigline1=        fd.readline.chomp
+		@a_adconfigline2 =  fd.readline.chomp
+		@a_adconfigline3 = fd.readline.chomp
+		@a_adconfigline4 = fd.readline.chomp
+		@a_adconfigline5 = fd.readline.chomp
+		@a_adconfigline6 = fd.readline.chomp 
+		@a_adconfigline7 =fd.readline.chomp
+		@a_adconfigline8 = fd.readline.chomp
+		@a_adconfigline9 = fd.readline.chomp
+		@a_adconfigline10 = fd.readline.chomp
+		@a_adconfigline11 = fd.readline.chomp
+		@a_adconfigline12 = fd.readline.chomp
+		@a_adconfigline13 = fd.readline.chomp
+		@a_adconfigline14 = fd.readline.chomp
+		@a_adconfigline15 = fd.readline.chomp
+		@a_adconfigline16 = fd.readline.chomp
+		@a_adconfigline17 = fd.readline.chomp
+		@a_adconfigline18 = fd.readline.chomp
+		@a_adconfigline19 = fd.readline.chomp
+		
+		while ! fd.eof?
+			@extraadconfigdatadisplay = fd.readline
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+	
+end
+

data/code/superant.com.rwdaddresses/loadconfigurationvariables.rb

@@ -1,13 +1,14 @@
-   # this method loads the on screen variables into the running class
-   def loadrwdaddressesconfigurationvariables
-   
-   configfiletoload = File.join(ConfigurationDir,"rwdaddresses.cnf")
-   begin
-    load configfiletoload
-    @extraadconfigdatadisplay = ""
-@newadconfigurationresult = "Config Variables loaded"
-rescue
- @extraadconfigdatadisplay = ""
- @newadconfigurationresult = "loading error"
- end
-  end
+# this method loads the on screen variables into the running class
+def loadrwdaddressesconfigurationvariables
+
+	configfiletoload = File.join(ConfigurationDir,"rwdaddresses.cnf")
+	begin
+		load configfiletoload
+		@extraadconfigdatadisplay = ""
+		@newadconfigurationresult = "Config Variables loaded"
+	rescue
+		@extraadconfigdatadisplay = ""
+		@newadconfigurationresult = "loading error"
+	end
+end
+

data/code/superant.com.rwdaddresses/loadnamerecord.rb

@@ -1,30 +1,30 @@
-   # this method views an existing address record
-  def loadnamerecord
- 
-         require 'fileutils'
-        @a_filename = $currentnametext
-	      
-        begin # exception trapped block
-       
-       
-	      fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
-        
-	      fd = File.open(fileName,"r")
-	      @a_name =        fd.readline.chomp
-        @a_address = fd.readline.chomp
-         @a_citystatezip  = fd.readline.chomp
-         @a_phone = fd.readline.chomp
-        @a_email = fd.readline.chomp
-         @a_comment1 = fd.readline.chomp 
-          @a_comment2 =fd.readline.chomp
-          @a_comment3 = fd.readline.chomp
-	 
-	      while ! fd.eof?
-	        @extranamedatadisplay = fd.readline
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
+# this method views an existing address record
+def loadnamerecord
+
+	require 'fileutils'
+	@a_filename = $currentnametext
+
+	begin # exception trapped block
+
+		fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
+
+		fd = File.open(fileName,"r")
+		@a_name =        fd.readline.chomp
+		@a_address = fd.readline.chomp
+		@a_citystatezip  = fd.readline.chomp
+		@a_phone = fd.readline.chomp
+		@a_email = fd.readline.chomp
+		@a_comment1 = fd.readline.chomp 
+		@a_comment2 =fd.readline.chomp
+		@a_comment3 = fd.readline.chomp
+
+		while ! fd.eof?
+			@extranamedatadisplay = fd.readline
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end
 
-  end

data/code/superant.com.rwdaddresses/openhelpwindowrwdaddresses.rb

@@ -1,30 +1,30 @@
 # this code is to call the help window
 def runhelpwindowrwdaddresses
-
-     $help_topic = "viewaddresses_help"
-   if @rwd_tab == "Viewnamedata"
-     $help_topic = "viewaddresses_help"
-   end
-    if @rwd_tab == "viewaddressesconfiguration"
-    $help_topic = "rwdaddresses_configuration"
-    end
-    if @rwd_tab == "editnamerecordfile"
-      $help_topic = "editcontact_help"
-    end
-     if @rwd_tab == "contactutilitiesrwdaddresses"
-    $help_topic = "contactutilities_help"
- end    
-  if @rwd_tab  == "rwdaddressessynctasks"
-    $help_topic = "rwdaddresses_sync"
-    end
-   $helptopicsarray =  $helptopicsarray | ["viewaddresses_help","editcontact_help","rwdaddresses_configuration","rwdaddresses_sync"]
-  
-  
- if @rwd_window != "rwdtinkerhelpwindow"
-       $previouswindow = @rwd_window
-      $previoustab = @rwd_tab
-  end
-  runhelpwindow
+	
+	$help_topic = "viewaddresses_help"
+	if @rwd_tab == "Viewnamedata"
+		$help_topic = "viewaddresses_help"
+	end
+	if @rwd_tab == "viewaddressesconfiguration"
+		$help_topic = "rwdaddresses_configuration"
+	end
+	if @rwd_tab == "editnamerecordfile"
+		$help_topic = "editcontact_help"
+	end
+	if @rwd_tab == "contactutilitiesrwdaddresses"
+		$help_topic = "contactutilities_help"
+	end    
+	if @rwd_tab  == "rwdaddressessynctasks"
+		$help_topic = "rwdaddresses_sync"
+	end
+	$helptopicsarray =  $helptopicsarray | ["viewaddresses_help","editcontact_help","rwdaddresses_configuration","rwdaddresses_sync"]
+	
+	
+	if @rwd_window != "rwdtinkerhelpwindow"
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	end
+	runhelpwindow
 end
 
 

data/code/superant.com.rwdaddresses/renamecontact.rb

@@ -1,16 +1,15 @@
- # this code is to change the contact name
- def changenamedata
-   oldName =  $addressfiles_directory + "/" + @a_viewnamedata +  ".nam"
-   if ! @a_changenamedata.empty? 
-    
-     newName =  $addressfiles_directory + "/" + @a_changenamedata + ".nam"
-     File.rename(oldName, newName)
-     oldphotoName =  $addressfiles_directory + "/" + @a_viewnamedata + ".jpg"
-     newphotoName =  $addressfiles_directory + "/" + @a_changenamedata + ".jpg"
-     if  File.exist?(oldphotoName)
-       File.rename(oldphotoName, newphotoName)
-     end
-   end    
-  end
-
+# this code is to change the contact name
+def changenamedata
+	oldName =  $addressfiles_directory + "/" + @a_viewnamedata +  ".nam"
+	if ! @a_changenamedata.empty? 
+
+		newName =  $addressfiles_directory + "/" + @a_changenamedata + ".nam"
+		File.rename(oldName, newName)
+		oldphotoName =  $addressfiles_directory + "/" + @a_viewnamedata + ".jpg"
+		newphotoName =  $addressfiles_directory + "/" + @a_changenamedata + ".jpg"
+		if  File.exist?(oldphotoName)
+			File.rename(oldphotoName, newphotoName)
+		end
+	end    
+end
 

data/code/superant.com.rwdaddresses/returntomain.rb

@@ -1,10 +1,10 @@
 # Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a contact book
-# For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # return to main 
-  def returntomain
-   @rwd_window = "main"
-   @rwd_tab="rwdaddressesselectiontab"
-   end   
-   
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# return to main 
+def returntomain
+	@rwd_window = "main"
+	@rwd_tab="rwdaddressesselectiontab"
+end   
+

data/code/superant.com.rwdaddresses/runaddresseswindow.rb

@@ -1,10 +1,10 @@
 # Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a contact book
-# For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the window  
-  def runrwdaddresseswindow
-   @rwd_window = "main"
-   @rwd_tab = "Viewnamedata"
-   end   
-   
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddresseswindow
+	@rwd_window = "main"
+	@rwd_tab = "Viewnamedata"
+end   
+

data/code/superant.com.rwdaddresses/runrwdaddressesmenu1.rb

@@ -1,34 +1,34 @@
 # Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
 # 
 # For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the window  
-  def runrwdaddressesmenu1
-   @rwd_window = "main"
-   @rwd_tab = "Viewnamedata"
-   end   
-  def runrwdaddressesmenu2
-   @rwd_window = "main"
-   @rwd_tab = "editnamerecordfile"
-   end   
-   
-   
-  def runrwdaddressesmenu3
-   @rwd_window = "main"
-   @rwd_tab = "contactutilitiesrwdaddresses"
-   end  
- def runrwdaddressesmenu4
-   @rwd_window = "rwdaddressessyncwindow"
-   @rwd_tab = "rwdaddressessynctasks"
-   end  
-   
-        def runrwdaddressesmenu10
-   @rwd_window = "rwdaddressessyncwindow"
-   @rwd_tab = "viewaddressesconfiguration"
-   end 
-   
-       def runrwdaddressesmenu11
-   @rwd_window = "main"
-   @rwd_tab = "documentsrwdtinkerone"
-   end 
-   
+
+# call the window  
+def runrwdaddressesmenu1
+	@rwd_window = "main"
+	@rwd_tab = "Viewnamedata"
+end   
+def runrwdaddressesmenu2
+	@rwd_window = "main"
+	@rwd_tab = "editnamerecordfile"
+end   
+
+
+def runrwdaddressesmenu3
+	@rwd_window = "main"
+	@rwd_tab = "contactutilitiesrwdaddresses"
+end  
+def runrwdaddressesmenu4
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab = "rwdaddressessynctasks"
+end  
+
+def runrwdaddressesmenu10
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab = "viewaddressesconfiguration"
+end 
+
+def runrwdaddressesmenu11
+	@rwd_window = "main"
+	@rwd_tab = "documentsrwdtinkerone"
+end 
+

data/code/superant.com.rwdaddresses/runrwdaddresssyncbackwindow.rb

@@ -1,10 +1,10 @@
 # Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a contact book
-# For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the window  
-  def runrwdaddressessyncbackwindow
-   @rwd_window = "rwdaddressessyncwindow"
-   @rwd_tab = "rwdaddressessynctasks"
-   end   
-   
+# For  information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddressessyncbackwindow
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab = "rwdaddressessynctasks"
+end   
+

data/code/superant.com.rwdaddresses/rwdaddressesbackwindow.rb

@@ -1,10 +1,10 @@
 # Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a contact book
-# For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the window  
-  def runrwdaddressesbackwindow
-   @rwd_window = "rwdaddresseswindow"
-   @rwd_tab="Viewnamedata"
-   end   
-   
+# For  information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddressesbackwindow
+	@rwd_window = "rwdaddresseswindow"
+	@rwd_tab="Viewnamedata"
+end   
+

data/code/superant.com.rwdaddresses/rwdaddresseshelpabout.rb

@@ -1,14 +1,13 @@
 # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # This application is a framework for writing programs from RubyWebDialogs
-# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
-# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
-  
-  # return the version constant defined in the config file
-  def runrwdaddressesversion
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdAddresses"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdAddressesVersion
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def runrwdaddressesversion
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdAddresses"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdAddressesVersion
+
+end
 
-   end
-  

data/code/superant.com.rwdaddresses/saveconfigurationrecord.rb

@@ -1,20 +1,20 @@
-  # this method adds a new address record
-  def saverwdaddressesconfiguration
-   require 'fileutils'
-   
-   newname = "rwdaddresses.cnf" # grab the filename to create
-   
-   
-   newdata =@a_adconfigline1.to_s + "\n" + @a_adconfigline2.to_s + "\n" + @a_adconfigline3.to_s + "\n" + @a_adconfigline4.to_s + "\n" + @a_adconfigline5.to_s + "\n" + @a_adconfigline6.to_s + "\n" + @a_adconfigline7.to_s + "\n" + @a_adconfigline8.to_s + "\n" + @a_adconfigline9.to_s + "\n" +    @a_adconfigline10.to_s + "\n" + @a_adconfigline11.to_s + "\n" + @a_adconfigline12.to_s + "\n" + @a_adconfigline13.to_s + "\n" + @a_adconfigline14.to_s + "\n" + @a_adconfigline15.to_s + "\n" + @a_adconfigline16.to_s + "\n" + @a_adconfigline17.to_s + "\n" + @a_adconfigline18.to_s + "\n" + @a_adconfigline19.to_s + "\n"
-   
-        begin # exception trapped block
-          fileName = File.join( ConfigurationDir, newname )
-        	fd = File.open(fileName,"w")
-	        fd.print(newdata) # save the record info to the file
-	        fd.close
-          @newconfigurationresult=newdata # show the record info in the browser
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
-    
-  end
+# this method adds a new address record
+def saverwdaddressesconfiguration
+	require 'fileutils'
+	
+	newname = "rwdaddresses.cnf" # grab the filename to create
+
+
+	newdata =@a_adconfigline1.to_s + "\n" + @a_adconfigline2.to_s + "\n" + @a_adconfigline3.to_s + "\n" + @a_adconfigline4.to_s + "\n" + @a_adconfigline5.to_s + "\n" + @a_adconfigline6.to_s + "\n" + @a_adconfigline7.to_s + "\n" + @a_adconfigline8.to_s + "\n" + @a_adconfigline9.to_s + "\n" +    @a_adconfigline10.to_s + "\n" + @a_adconfigline11.to_s + "\n" + @a_adconfigline12.to_s + "\n" + @a_adconfigline13.to_s + "\n" + @a_adconfigline14.to_s + "\n" + @a_adconfigline15.to_s + "\n" + @a_adconfigline16.to_s + "\n" + @a_adconfigline17.to_s + "\n" + @a_adconfigline18.to_s + "\n" + @a_adconfigline19.to_s + "\n"
+
+	begin # exception trapped block
+		fileName = File.join( ConfigurationDir, newname )
+		fd = File.open(fileName,"w")
+		fd.print(newdata) # save the record info to the file
+		fd.close
+		@newconfigurationresult=newdata # show the record info in the browser
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+	
+end