bigtinker 0.96 → 0.97

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

@@ -1,19 +0,0 @@
-# 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
-

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

@@ -1,36 +0,0 @@
-# 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 x =~ /nam/
-					 newstring = x
-               localupdatefile = File.join($rwdaddresses_updatedirectory, "#{x}")
-               ftp.getbinaryfile("#{x}" , localupdatefile )
-					
-					@rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + newstring + "\n"                               
-				end
-			
-
-		end
-		ftp.close
-
-	rescue
-		if ftp
-			ftp.close
-		end
-		@rwdaddressesftpdisplay = "ftp error"
-	end
-end
-

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

@@ -1,69 +0,0 @@
-  
-
- Helptext.update(:viewaddresses_help => " Type in the name of the contact you want.
-      
-       Type it as the record file is saved or click on the list
-       
-       
-       Then click the 'Open' button
-       
-       If it finds the record it will open it. It displays the record as text  under the search box.
-",
-
-:editcontact_help => "     Use the 'Edit Contact' tab
-      this is where you can add records.
-      The first field is the filename that will be created. 
-      You can use the person's name,      Ringo Starr
-
-      The following lines for entry are for you to fill in as you want.
-     
-      When you are finished press the Save Changes button 
-      
-      You use this same screen for editing an already saved event
-  
-      For the 'Fill Record' button to work, you need to select an existing record on 'view contact' tab
-",
-:contactutilities_help => " 
- on the Contacts Utilities tab you can 
-  rename records
-  delete records
-  or attach photos
-  
- select the name record,
- put a jpg photo in the /tmp  directory
- select the photo
- click on Attach photo, it will rename the photo and copy it to the
- addresses directory",
- 
-       :rwdaddresses_configuration => " click on 'Edit Configuration'
- You can view the configuration file
- 
-  You can edit the configuration
-  
-  Remember to reload the configuration variables if you want your
-  changes used.",
-  :rwdaddresses_sync => "Sync for multiple computers
-
- If you are like me, you have more than one system
- I use rwdTinker at home on my Linux laptop
- at work I use it on XP
- on the go I use rwdtinker on my Zaurus PDA
- So I am adding contacts on different machines.
- There is  a function to help sync the separate systems
-  
- in 'Selection Panel' click on 'Open Addresses Sync Window'
- 
- First you need your ftp details set in the
- configuration/rwdaddresses.cnf file
- 
- you can upload your events from your local names directory to the ftp site
- you can download contacts from the ftp site to your local updates directory
- you can perform a sync which finds remote contacts and adds them to your local
- names directory
- 
- There is a button to delete the update directory when finished"
-
-       
-      
-
-)

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

@@ -1,15 +0,0 @@
-# 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

@@ -1,15 +0,0 @@
-# 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/loadconfigurationvariables.rb

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

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

@@ -1,30 +0,0 @@
-# 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
-

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

@@ -1,30 +0,0 @@
-# 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
-end
-
-

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

@@ -1,15 +0,0 @@
-# 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/runaddresseswindow.rb

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

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

@@ -1,34 +0,0 @@
-# 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 = "rwdaddresseswindow"
-	@rwd_tab = "Viewnamedata"
-end   
-def runrwdaddressesmenu2
-	@rwd_window = "rwdaddresseswindow"
-	@rwd_tab = "editnamerecordfile"
-end   
-
-
-def runrwdaddressesmenu3
-	@rwd_window = "rwdaddresseswindow"
-	@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 = "rwdaddresseswindow"
-	@rwd_tab = "documentsrwdtinkerone"
-end 
-

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

@@ -1,10 +0,0 @@
-# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
-# This application is a contact book
-# 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 +0,0 @@
-# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
-# This application is a contact book
-# For  information  see http://www.rubyforge.net/projects/rwdapplications
-
-# call the window  
-def runrwdaddressesbackwindow
-	@rwd_window = "rwdaddressessyncwindow"
-	@rwd_tab="rwdaddressessynctasks"
-end   
-

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

@@ -1,20 +0,0 @@
-# this method adds a new address record
-def saverwdaddressesconfiguration
-	require 'fileutils'
-	
-	newname = "rwdwaddresses.cnf" # grab the filename to create
-
-
-	newdata = @a_adconfigurationfile
-
-	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

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

@@ -1,76 +0,0 @@
-  # this method adds a new  record
-  def savevcardrecord 
-  Dir.chdir($progdir) 
- require 'fileutils'
-   require 'extras/vpim/maker/vcard'
-   if ! @a_filename.empty?
-   newname = "%s" %   [@a_filename] # grab the new filename to create
-   
-	 fullnewname = newname  + ".vcf"
-       if ! @a_name.empty?
-        contactnameText =  @a_name.to_s
-     else
-        contactnameText = @a_filename.to_s 
-    end
-     card = Vpim::Maker::Vcard.make(contactnameText) do |card|
-     card.add_name do |name|
-      name.family = contactnameText
-      
-    end
-    if ! @a_address.empty?
-    addressText = @a_address.to_s
-    else
-    addressText = " "
-    end
-      if ! @a_citystatezip.empty?
-    localityText = @a_citystatezip.to_s
-    else
-    localityText = " "
-    end
-    
-     card.add_addr do |addr|
-    addr.preferred = true
-    addr.location = 'home'
-    addr.street = addressText
-    addr.locality = localityText
-    addr.country = 'rwdaddress'
-    end
-      if ! @a_phone.empty?
-    phoneText = @a_phone.to_s
-    else
-    phoneText = " "
-    end
-    
-    
-     card.add_tel(phoneText) do |tel|
-    tel.location = 'home'
-    
-  end
-    if ! @a_email.empty?
-    emailText = @a_email.to_s
-    else
-    emailText = " "
-    end
-  
-  card.add_email(emailText) { |e| e.location = 'home' }
-    
-    
-  
-
-  end # end of vcard creation 
-    
-  end
-  vCardString = card.to_s
-    p vCardString
-    
-        begin # exception trapped block
-          fileName = File.join($addressfiles_directory, fullnewname )
-       	fd = File.open(fileName,"w")
-	     fd.print( vCardString ) # save the record info to the file
-	     fd.close
-          @createnewnamerecorddisplay= vCardString # show the record info in the browser
-        rescue SystemCallError, StandardError
-          $stderr.print "system call error: " + $!
-        end # exception rescue
-    
-  end

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

@@ -1,28 +0,0 @@
-def syncrwdaddressdata
-	require 'fileutils'
-	@rwdaddressessyncresult  = ""
-	begin
-
-		@rwdaddressessyncresult  = "updating local files" + "\n" 
-		Dir.chdir($progdir)
-
-		localfileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
-		remotefileListarray = Dir.new($rwdaddresses_updatedirectory ).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
-
-		tempupdatefilelistarray = remotefileListarray -   localfileListarray 
-
-		if  tempupdatefilelistarray
-			tempupdatefilelistarray.each do |temp|
-				tmpfilenametosync = File.join($rwdaddresses_updatedirectory,temp)
-				tmpfilenamecopied = File.join($addressfiles_directory,temp)
-				FileUtils.cp( tmpfilenametosync, tmpfilenamecopied)
-				@rwdaddressessyncresult  =   @rwdaddressessyncresult + temp + "\n"   
-
-			end
-		end
-
-
-	rescue
-		print "sync error"
-	end
-end

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

@@ -1,45 +0,0 @@
-# test harness
-
-	
-require 'test/unit/testcase'
-require 'test/unit/assertions'
-  
-def rwdaddresses_all_tests 
-	print "in rwdaddresses all tests\n"
-  $testrwdaddressestestcase = TestSuite.new
-	test_runrwdaddresses
-end
-
-def test_runrwdaddresses
-
-
-	begin
-  testasserts = 0
-  print "Starting rwdaddresses tests!\n"
-     runselectiontab
-     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
-    runrwdaddressesmenu10   
-    assert_equal("viewaddressesconfiguration",@rwd_tab) ; testasserts += 1    
-        loadrwdaddressesconfiguration
-    assert_equal("rwdaddresses.cnf",@a_adconfigurationfilename) ; testasserts += 1    
-     
- $stderr.print "tests completed succesfully!\n"
- $stderr.print testasserts, " asserts performed\n"
-
-	rescue  NotImplementedError, Exception
-		$stderr.print $!
-
-	end
-  
-end
-
-
-
-def teststobedown
- runtinkerhelpabout
-          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
-end
-
-
-
-

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

@@ -1,30 +0,0 @@
-def uploadrwdaddressfiles
-	require 'net/ftp'
-	BasicSocket.do_not_reverse_lookup = true 
-	@rwdaddressftpdisplays = ""
-	begin
-		ftp = Net::FTP::new($rwdaddresses_ftpsite)
-		@rwdaddressesftpdisplay  = "files uploaded" + "\n" 
-
-		fileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
-		if fileListarray
-			ftp.debug_mode = false
-			ftp.login($rwdaddresses_ftplogin, $rwdaddresses_ftppassword)
-			ftp.chdir($rwdaddresses_ftpdirectory)
-			print "I'm in the directory ", ftp.pwd(), "\n"
-			fileListarray.each do |temp|
-				tmpfilenametoupload = File.join($addressfiles_directory,temp)
-				ftp.puttextfile(tmpfilenametoupload  , temp)
-				@rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + temp + "\n"   
-			end
-		end
-		ftp.close
-
-	rescue
-
-		if ftp
-			ftp.close
-		end
-		print "ftp error"
-	end
-end

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

@@ -1,21 +0,0 @@
-def viewaddressesconfiguration 
-	require 'fileutils'
-	begin # exception trapped block
-
-		Dir.chdir($progdir)
-		rwdaddrssesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
-		if  File.exist?(rwdaddrssesconfigurationfile)
-			fd = File.open(rwdaddrssesconfigurationfile,"r")
-			@rwdaddressesconfigurationtext = " "
-			while ! fd.eof?
-				@rwdaddressesconfigurationtext = fd.read
-			end
-			fd.close
-		else
-			@rwdaddressesconfigurationtext  = "File error"
-		end
-	rescue SystemCallError, StandardError
-		$stderr.print "system call error: " + $!
-		@rwdaddressesconfigurationtext = "File error"
-	end # exception rescue
-end

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

@@ -1,28 +0,0 @@
-#view name
-def viewnamedata 
-	require 'fileutils'
-	$currentnametext = "%s" % [@a_viewnamedata]
-	photoname = $currentnametext + ".jpg"
-	begin # exception trapped block
-		path_to = File.join( "rwd_files", "contacttmp.jpg" )
-		path_from = File.join($addressfiles_directory, photoname )
-		if ! File.exist?(path_from)
-			path_from = File.join($addressfiles_directory,"nophoto.jpg" )
-		end
-
-		Dir.chdir($progdir)
-		FileUtils.cp(path_from, path_to)
-		sleep $photodelay
-		fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
-
-		fd = File.open(fileName,"r")
-		@viewnamedatadisplay = " "
-		while ! fd.eof?
-			@viewnamedatadisplay = fd.read
-		end
-		fd.close
-	rescue SystemCallError, StandardError
-		$stderr.print "system call error: " + $!
-	end # exception rescue
-
-end

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

@@ -1,4 +0,0 @@
-def viewcontactphoto
-	@rwd_window = "contactphoto"
-end
-

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

@@ -1,23 +0,0 @@
-#view configuration
-def viewrwdaddressesconfiguration 
-	require 'fileutils'
-	begin # exception trapped block
-
-		Dir.chdir($progdir)
-		rwdaddressesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
-		if  File.exist?(rwdaddressesconfigurationfile)
-			fd = File.open(rwdaddressesconfigurationfile,"r")
-			@rwdaddressesconfigurationtext = " "
-			while ! fd.eof?
-				@rwdaddressesconfigurationtext = fd.read
-			end
-			fd.close
-		else
-			@rwdaddressesconfigurationtext  = "File error"
-		end
-	rescue SystemCallError, StandardError
-		$stderr.print "system call error: " + $!
-		@rwdaddressesconfigurationtext = "File error"
-	end # exception rescue
-end
-

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

@@ -1,12 +0,0 @@
-# this code is to list the photo names
-def viewtmpcontactphoto
-	fileList      = Dir.new($tmpphoto_directory).entries.sort.delete_if { |x| ! (x =~ /jpg$/) }
-	@listnamerecordfilesresult = ""
-	@listphotosfromtmp  = fileList.rwd_method("filltmpcontactphoto")
-end
-
-def filltmpcontactphoto(inffile)
-	applet                = inffile.gsub(/\.nam$/, "")
-	@a_tmpphotoname       = applet
-end
-

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

@@ -1,22 +0,0 @@
-#view name
-def viewvcarddata 
-	require 'fileutils'
-	$currentnametext = "%s" % [@a_viewvcarddata]
-	
-	begin # exception trapped block
-		
-
-		
-		fileName = $addressfiles_directory + "/" + $currentnametext + ".vcf"
-
-		fd = File.open(fileName,"r")
-		@viewvcarddatadisplay = " "
-		while ! fd.eof?
-			@viewvcarddatadisplay = fd.read
-		end
-		fd.close
-	rescue SystemCallError, StandardError
-		$stderr.print "system call error: " + $!
-	end # exception rescue
-
-end