rwdaddresses 1.01 → 1.02

data/Readme.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

data/code/01rwdcore/01rwdcore.rb

@@ -3,18 +3,20 @@
 # http://www.erikveen.dds.nl/rubywebdialogs/index.html 
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
 # This class is the top class for the RwdTinker application 
- 
+
 class RwdTinker  < RWDialog
- 
-  def main
-  @rwd_window = "main"
-    @result = "idle"
-    @display= "idle"
 
-    
-  end
-  
-  def inspect
-   "Rwdtinker Application " 
-   end
-  
+	def main
+		@rwd_window = "main"
+		@result = "idle"
+		@display= "idle"
+		if TestNow 
+
+			rwdtest_harness
+		end
+	end
+
+	def inspect
+		"Rwdtinker Application " 
+	end
+

data/code/01rwdcore/openhelpwindow.rb

@@ -1,31 +1,31 @@
 # this code is to call the help window
 def runhelpwindow
-  $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
-  
- if @rwd_window == "main"
-   if @rwd_tab == "documentsrwdtinkerone"
-     $help_topic = "documents_rwdtinker"
-   end
- 
-end
- 
-   if @rwd_window == "rwdtinkerhelpwindow"
-   puts "in help window processing"
-  else
-   $previouswindow = @rwd_window
-   $previoustab = @rwd_tab
-   end
-    
-   
-  @rwdhelptopic = $help_topic
-  @rwdhelpdataoutput      = "#{Helptext[:"#{$help_topic}"]}"
-  @rwdhelpsubchoicesoutput = $helptopicsarray.rwd_method("choosenewhelptopic")
-  @rwd_window = "rwdtinkerhelpwindow"
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
+
+	if @rwd_window == "main"
+		if @rwd_tab == "documentsrwdtinkerone"
+			$help_topic = "documents_rwdtinker"
+		end
+
+	end
+
+	if @rwd_window == "rwdtinkerhelpwindow"
+		puts "in help window processing"
+	else
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	end
+
+
+	@rwdhelptopic = $help_topic
+	@rwdhelpdataoutput      = "#{Helptext[:"#{$help_topic}"]}"
+	@rwdhelpsubchoicesoutput = $helptopicsarray.rwd_method("choosenewhelptopic")
+	@rwd_window = "rwdtinkerhelpwindow"
 end
- 
- def choosenewhelptopic(inffile)
-  $help_topic                 = inffile
-  runhelpwindow
-  end
+
+def choosenewhelptopic(inffile)
+	$help_topic                 = inffile
+	runhelpwindow
+end
 
 

data/code/01rwdcore/returntomain.rb

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

data/code/01rwdcore/rwdtinkerversion.rb

@@ -1,15 +1,14 @@
 # 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 runrwdtinkerversion
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdTinker"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdTinkerVersion
-
-   end
-  
-  
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def runrwdtinkerversion
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdTinker"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdTinkerVersion
+
+end
+
+

data/code/01rwdcore/rwdwindowreturn.rb

@@ -1,11 +1,9 @@
 # this code is to return to the window back from the help window
 def rwdwindowreturn
- 
 
-   @rwd_window = "#{$previouswindow}"
-   @rwd_tab = "#{$previoustab}"
-   end
- 
+	@rwd_window = "#{$previouswindow}"
+	@rwd_tab = "#{$previoustab}"
+end
 
 
 

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,115 @@
+# test harness
+def rwdtinker_all_tests 
+	print "in rwdtinker all tests\n"
+	test_runrwdtinkerbackwindow
+end
+
+def test_runrwdtinkerbackwindow
+
+	require 'test/unit' 
+	begin
+
+		runrwdtinkerbackwindow
+
+		raise NotImplementedError, 'Need to write test_runrwdtinkerbackwindow'
+
+	rescue  NotImplementedError
+		$stderr.print $!
+
+	end
+end
+
+
+
+def test_choosenewhelptopic
+	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+end
+
+
+def test_listinstalledfiles
+	raise NotImplementedError, 'Need to write test_listinstalledfiles'
+end
+
+
+def test_listzipfilestoinstall
+	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+end
+
+def test_loadconfigurationrecord
+	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+end
+
+def test_loadconfigurationvariables
+	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+end
+
+
+
+def test_main
+	raise NotImplementedError, 'Need to write test_main'
+end
+
+def test_network_demon
+	raise NotImplementedError, 'Need to write test_network_demon'
+end
+
+def test_network_start
+	raise NotImplementedError, 'Need to write test_network_start'
+end
+
+def test_openappletname
+	raise NotImplementedError, 'Need to write test_openappletname'
+end
+
+def test_removeapplet
+	raise NotImplementedError, 'Need to write test_removeapplet'
+end
+
+def test_returntomain
+	raise NotImplementedError, 'Need to write test_returntomain'
+end
+
+def test_runcontrolcommand
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
+end
+
+
+def test_runhelpwindow
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
+end
+
+
+
+
+def test_runrwdtinkerversion
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+end
+
+def test_runrwdtinkerwin2version
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+end
+
+def test_runviewplatform
+	raise NotImplementedError, 'Need to write test_runviewplatform'
+end
+
+def test_rwdtinkerversiondiagnostic
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+end
+
+def test_rwdwindowreturn
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+end
+
+def test_saveconfigurationrecord
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+end
+
+
+def test_viewappletcontents
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+end
+
+
+
+

data/code/01rwdcore/test_harness.rb

@@ -0,0 +1,12 @@
+# this to start the test harness
+def rwdtest_harness
+
+	print "in test harness\n"
+	$testharnessarray.each { |x| 
+		print "calling #{x}\n"
+		eval("#{x}")
+
+	}
+
+end
+

data/code/01rwdcore/uploadreturns.rb

@@ -1,61 +1,62 @@
 def uploadreturnsfile
-  require 'net/ftp'
-  BasicSocket.do_not_reverse_lookup = true 
-   @returnsftpdisplays = ""
- randomnumber = rand(9999) + 1000
-     puts randomnumber.to_i
-
-
-returns_ftpsite = "ftp.superant.com"
-returns_ftplogin = "anonymous@superant.com"
-returns_ftppassword = "anonymous@superant.com"
-returns_ftpdirectory = "/incoming/returns/"
-
-  #begin
-     platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
-    platformdisplay =  platformdisplay + "Ruby Version " + VERSION + "\n" 
-    platformdisplay  = platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
-    platformdisplay = platformdisplay + "program directory " + $progdir + "\n"
-    platformdisplay = platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
-     platformdisplay = platformdisplay +  "Date " +      Date.today().to_s + "\n"
-     if ! @a_emailupload.empty?
-     platformdisplay = platformdisplay + @a_emailupload + "\n"
-    end
-    if ! @a_emailupload.empty?
-     platformdisplay = platformdisplay + @a_commentupload + "\n"
-    end
-  updatefile = Date.today().to_s + Resolv.getname(Resolv.getaddress("localhost")) + randomnumber.to_s
-  
-  tmpdir = ENV['TMP']
-   if tmpdir.to_s.empty?
-  tmpdir = "/tmp"   
-  end
-  fileName = File.join( tmpdir, updatefile)
-  	fd = File.open(fileName,"w")
-	        fd.print(platformdisplay) # save the record info to the file
-	        fd.close
- ftp = Net::FTP::new(returns_ftpsite)
-@returnsftpdisplay  = "data uploaded" + "\n" 
-    
-    filedirname = File.join(tmpdir,updatefile)
-  
-      ftp.debug_mode = false
-      ftp.login(returns_ftplogin, returns_ftppassword)
-      ftp.chdir(returns_ftpdirectory)
-      print "I'm in the directory ", ftp.pwd(), "\n"
-      
-      puts filedirname
-             ftp.puttextfile(filedirname  , updatefile)
-    @returnsftpdisplay  =   @returnsftpdisplay + platformdisplay   
-        
-      
-   ftp.close
-  
-#rescue
- # @returnsftpdisplay = "upload error"
- if ftp
- ftp.close
-end
-print "ftp error"
-#end
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@returnsftpdisplays = ""
+	randomnumber = rand(9999) + 1000
+	puts randomnumber.to_i
+
+
+	returns_ftpsite = "ftp.superant.com"
+	returns_ftplogin = "anonymous@superant.com"
+	returns_ftppassword = "anonymous@superant.com"
+	returns_ftpdirectory = "/incoming/returns/"
+
+	begin
+		platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+		platformdisplay =  platformdisplay + "Ruby Version " + VERSION + "\n" 
+		platformdisplay  = platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+		platformdisplay = platformdisplay + "application name " + $rwdapplicationidentity + "\n"
+		platformdisplay = platformdisplay + "program directory " + $progdir + "\n"
+		platformdisplay = platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+		platformdisplay = platformdisplay +  "Date " +      Date.today().to_s + "\n"
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_emailupload + "\n"
+		end
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_commentupload + "\n"
+		end
+		updatefile = Date.today().to_s + Resolv.getname(Resolv.getaddress("localhost")) + randomnumber.to_s
+
+		tmpdir = ENV['TMP']
+		if tmpdir.to_s.empty?
+			tmpdir = "/tmp"   
+		end
+		fileName = File.join( tmpdir, updatefile)
+		fd = File.open(fileName,"w")
+		fd.print(platformdisplay) # save the record info to the file
+		fd.close
+		ftp = Net::FTP::new(returns_ftpsite)
+		@returnsftpdisplay  = "data uploaded" + "\n" 
+
+		filedirname = File.join(tmpdir,updatefile)
+
+		ftp.debug_mode = false
+		ftp.login(returns_ftplogin, returns_ftppassword)
+		ftp.chdir(returns_ftpdirectory)
+		print "I'm in the directory ", ftp.pwd(), "\n"
+
+		puts filedirname
+		ftp.puttextfile(filedirname  , updatefile)
+		@returnsftpdisplay  =   @returnsftpdisplay + platformdisplay   
+
+
+		ftp.close
+
+	rescue
+		@returnsftpdisplay = "upload error"
+		if ftp
+			ftp.close
+		end
+		print "ftp error"
+	end
 end

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

@@ -1,24 +1,24 @@
- # this code is to attach a photo from the tmp directory
- def attachtmpcontactphoto
-  if @a_viewnamedata
-   $currentnametext = @a_viewnamedata
-  end
-  if $currentnametext
-    tmpcontactphotoName =  $tmpphoto_directory + "/" + @a_tmpphotoname
-   begin 
-   if  File.exist?(tmpcontactphotoName)
-    newcontactphotoName =  $tmpphoto_directory + "/" + $currentnametext + ".jpg"
-     if ! (tmpcontactphotoName == newcontactphotoName )
-      File.rename(tmpcontactphotoName, newcontactphotoName)
-     end
-    @listphotosfromtmp = "Photo attached"
-    FileUtils.cp(newcontactphotoName , $addressfiles_directory) 
-   else 
-    @listphotosfromtmp = "attachment failed"
-   end
-    rescue
-   @listphotosfromtmp = "attachment failed"
-   end       
-   end
-  end
+# this code is to attach a photo from the tmp directory
+def attachtmpcontactphoto
+	if @a_viewnamedata
+		$currentnametext = @a_viewnamedata
+	end
+	if $currentnametext
+		tmpcontactphotoName =  $tmpphoto_directory + "/" + @a_tmpphotoname
+		begin 
+			if  File.exist?(tmpcontactphotoName)
+				newcontactphotoName =  $tmpphoto_directory + "/" + $currentnametext + ".jpg"
+				if ! (tmpcontactphotoName == newcontactphotoName )
+					File.rename(tmpcontactphotoName, newcontactphotoName)
+				end
+				@listphotosfromtmp = "Photo attached"
+				FileUtils.cp(newcontactphotoName , $addressfiles_directory) 
+			else 
+				@listphotosfromtmp = "attachment failed"
+			end
+		rescue
+			@listphotosfromtmp = "attachment failed"
+		end       
+	end
+end
 

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

@@ -1,16 +1,15 @@
-   # this method clears the on screen variables
-   def clearnamescreendisplay
- 
-         
-        @a_filename = ""
-         @a_name =        ""
-        @a_address = ""
-         @a_citystatezip  = ""
-         @a_phone = ""
-         @a_email = ""        
-         @a_comment1 = "" 
-          @a_comment2 = "" 
-          @a_comment3 = ""
-	        @extranamedatadisplay = ""
+# this method clears the on screen variables
+def clearnamescreendisplay
+
+	@a_filename = ""
+	@a_name =        ""
+	@a_address = ""
+	@a_citystatezip  = ""
+	@a_phone = ""
+	@a_email = ""        
+	@a_comment1 = "" 
+	@a_comment2 = "" 
+	@a_comment3 = ""
+	@extranamedatadisplay = ""
+end
 
-  end

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

@@ -1,18 +1,19 @@
- # this method adds a new address record or saves changes
- def createnewnamerecord 
-require 'fileutils'
-   if @a_filename 
-   newname = "%s" %   [@a_filename] # grab the new filename to create
-   newdata =@a_name.to_s + "\n" + @a_address.to_s + "\n" + @a_citystatezip.to_s + "\n" + @a_phone.to_s + "\n" + @a_email.to_s + "\n" + @a_comment1.to_s + "\n" + @a_comment2.to_s + "\n" + @a_comment3.to_s + "\n"
-	 fullnewname = newname + ".nam"
-        begin # exception trapped block
-          fileName = File.join($addressfiles_directory, fullnewname )
-        	fd = File.open(fileName,"w")
-	        fd.print(newdata) # save the record info to the file
-	        fd.close
-          @createnewnamerecorddisplay=newdata # show the record info in the browser
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
-    end
-  end
+# this method adds a new address record or saves changes
+def createnewnamerecord 
+	require 'fileutils'
+	if @a_filename 
+		newname = "%s" %   [@a_filename] # grab the new filename to create
+		newdata =@a_name.to_s + "\n" + @a_address.to_s + "\n" + @a_citystatezip.to_s + "\n" + @a_phone.to_s + "\n" + @a_email.to_s + "\n" + @a_comment1.to_s + "\n" + @a_comment2.to_s + "\n" + @a_comment3.to_s + "\n"
+		fullnewname = newname + ".nam"
+		begin # exception trapped block
+			fileName = File.join($addressfiles_directory, fullnewname )
+			fd = File.open(fileName,"w")
+			fd.print(newdata) # save the record info to the file
+			fd.close
+			@createnewnamerecorddisplay=newdata # show the record info in the browser
+		rescue SystemCallError, StandardError
+			$stderr.print "system call error: " + $!
+		end # exception rescue
+	end
+end
+

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

@@ -1,24 +1,25 @@
-   # this method deletes an address record
-  def deletecontactrecord
- 
-    require 'fileutils'
-  
-      if @a_viewnamedata
-      $currentnametext =  @a_viewnamedata
-      end
-              
-     fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
-     $stderr.print fileName
+# this method deletes an address record
+def deletecontactrecord
 
-    begin # exception trapped block
+	require 'fileutils'
 
-     File.delete(fileName)
-     fileNamephoto = $addressfiles_directory + "/" + $currentnametext + ".jpg"
-     if  File.exist?(fileNamephoto)
-       File.delete(fileNamephoto)
-     end
-     rescue SystemCallError, StandardError
-         $stderr.print "system call error: " + $!
-    end # exception rescue
+	if @a_viewnamedata
+		$currentnametext =  @a_viewnamedata
+	end
+
+	fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
+	$stderr.print fileName
+
+	begin # exception trapped block
+
+		File.delete(fileName)
+		fileNamephoto = $addressfiles_directory + "/" + $currentnametext + ".jpg"
+		if  File.exist?(fileNamephoto)
+			File.delete(fileNamephoto)
+		end
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end
 
-  end

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

@@ -1,20 +1,19 @@
 # this code is to delete update files
 def  deleterwdaddressesupdatefiles
- # exception begin
- begin 
-   fileListarray      = Dir.new($rwdaddresses_updatedirectory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
-           #loop through and get the files names
-           
-         fileListarray.each do |x|
-               filetodelete = File.join($rwdaddresses_updatedirectory,x)
-               if File.exist?(filetodelete)
-                 File.delete(filetodelete)
-               end
-          end
-          @rwdaddressesftpdisplay = "update files deleted"
-  rescue 
-  @rwdaddressesftpdisplay = "error opening schedule update directory"
-  end # end of error function
- end
+	# exception begin
+	begin 
+		fileListarray      = Dir.new($rwdaddresses_updatedirectory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
+		#loop through and get the files names
 
+		fileListarray.each do |x|
+			filetodelete = File.join($rwdaddresses_updatedirectory,x)
+			if File.exist?(filetodelete)
+				File.delete(filetodelete)
+			end
+		end
+		@rwdaddressesftpdisplay = "update files deleted"
+	rescue 
+		@rwdaddressesftpdisplay = "error opening schedule update directory"
+	end # end of error function
+end