bigtinker 0.95 → 0.96

data/Readme.txt

@@ -19,13 +19,6 @@ ruby init.rb
 Then point your web browser to:
 http://localhost:7705/
 
-Change language at:
-
-configuration/language.dist
-
-Change to Windows XP directory structure at:
-configuration/tinkerwin2variables.dist
-
 == Viewing installed Applets:
  
 Go to "List Scripts" tab
@@ -234,6 +227,26 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+Version 1.77
+ Fixed zips location to be relative or absolute
+ Made themes loadable
+
+Version 1.76
+ Move rwd code files into lib directory - bug - 21886
+ change tab name list applets - bug - 21864	
+ change extra folder to be lib folder - bug 21887
+  remove duplicate intall applet code - bug  21885	
+  On Menu tab/Selection Tab - add help button - bug 21884
+  clean up directory structure in gui directory - bug 21882
+
+Version 1.75
+ change rwd.rb to use UTF-8 for web pages
+ add language load for applets
+ 
+Version 1.74
+  remove remote control from help
+  more dependable gui loading for applets
+
 Version 1.73
   more debug info in initiateapplet
   remove gutenberg lang translations 

data/code/superant.com.rwdaddresses/0uninstallapplet.rb

@@ -0,0 +1,14 @@
+
+def rwdwaddresses()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Addresses.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdAddresses"}
+Helptext.delete_if {|key, value| key == :viewaddresses_help}
+Helptext.delete_if {|key, value| key == :editcontact_help   }
+Helptext.delete_if {|key, value| key == :contactutilities_help   }
+Helptext.delete_if {|key, value| key == :rwdaddresses_configuration }
+Helptext.delete_if {|key, value| key == :rwdaddresses_sync }
+$rwdjumplink.delete_if {|x| x == "AddressesTab"}
+$rwdjumplink.delete_if {|x| x == "RwdAddressesBackWindow"}
+$rwdjumplink.delete_if {|x| x == "ContactUtilitiesTab"}
+
+end 

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

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

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

@@ -0,0 +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 = ""
+end
+

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

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

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

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

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

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

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

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

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

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

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.schedule → superant.com.rwdaddresses}/loadconfigurationrecord.rb

@@ -1,19 +1,19 @@
    # this method puts the configuration rexord on the screen
-  def loadrwdscheduleconfiguration
+  def loadrwdaddressesconfiguration
  
          require 'fileutils'
           
-               @a_schconfigurationfilename = RwdScheduleName+"-"+RwdScheduleVersion+".cnf" 
+               @a_adconfigurationfilename = "rwdwaddresses.cnf" 
         
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, @a_schconfigurationfilename)
+	      fileName = File.join(ConfigurationDir, @a_adconfigurationfilename )
         
         
 	      fd = File.open(fileName,"r")
-	      @a_schconfigurationfile =        fd.read
+	      @a_adconfigurationfile=        fd.read
         fd.close
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!

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

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

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

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

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

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

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

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

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

@@ -0,0 +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 = "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

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

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

@@ -0,0 +1,10 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def rwdaddresseshelpaboutsetup
+	return ["RwdAddresses", "(c) 2004 Steven Gibson ", "Version #{RwdAddressesVersion}"]
+
+end
+

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

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

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

@@ -0,0 +1,28 @@
+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.schedule → superant.com.rwdaddresses}/test_cases.rb

@@ -4,24 +4,24 @@
 require 'test/unit/testcase'
 require 'test/unit/assertions'
   
-def rwdschedule_all_tests 
-	print "in rwdschedule all tests\n"
-  $testrwdscheduletestcase = TestSuite.new
-	test_runrwdschedule
+def rwdaddresses_all_tests 
+	print "in rwdaddresses all tests\n"
+  $testrwdaddressestestcase = TestSuite.new
+	test_runrwdaddresses
 end
 
-def test_runrwdschedule
+def test_runrwdaddresses
 
 
 	begin
   testasserts = 0
-  print "Starting rwdtorrent tests!\n"
+  print "Starting rwdaddresses tests!\n"
      runselectiontab
      assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
-    runrwdschedulemenu10   
-    assert_equal("viewrwdscheduleconfiguration",@rwd_tab) ; testasserts += 1    
-        loadrwdscheduleconfiguration
-    assert_equal(RwdScheduleName,@a_schconfigurationfilename) ; 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"