rwdaddresses 1.04 → 1.05

data/code/01rwdcore/01rwdcore.rb

@@ -4,16 +4,23 @@
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
 # This class is the top class for the RwdTinker application 
 
+$DEBUG=false
+$VERBOSE=false
+
 class RwdTinker  < RWDialog
 
 	def main
 		@rwd_window = "main"
 		@result = "idle"
+
 		@display= "idle"
 		if TestNow 
 
 			rwdtest_harness
 		end
+            showjumplinkoptions
+            setuptinkerdocuments
+            setuphelpaboutoptionspassive
 	end
 
 	def inspect

data/code/01rwdcore/03helptexthash.rb

@@ -1,31 +1,23 @@
  # Help files for RwdTinker core
 
    
-      :general_help          => "You can work with Applets:  go to 'Selection tab', 
-                                  On that back screen you will find:
-                                  List Applets:  you can see and delete installed applets
-                                  List Zips: you can see lists of applets that you can install
-                                  Edit Configuration: You can view the rwdtinker configuration and change it
-                                  Diagnostic Tab: You can view the environments variables that rwdtinker is running with
+      :general_help          => "You can work with Applets:  go to 'Selection tab', <br>
+                                  On that back screen you will find:<br>
+                                  List Applets:  you can see and delete installed applets<br>
+                                  List Zips: you can see lists of applets that you can install<br>
+                                  Edit Configuration: You can view the rwdtinker configuration and change it<br>
+                                  Diagnostic Tab: You can view the environments variables that rwdtinker is running with<br>
       ",
-      :network_help  => "Using over a Network: To serve the application over your local LAN,change the last line in the
-init.rb file to something like:\n
-RwdTinker.file(RWDFile).serve(8080, '-r' ? '.rwduids' : nil)\n
+      :network_help  => "Using over a Network: To serve the application over your local LAN,change the last line in the<br>
+init.rb file to something like:\n<br>
+RwdTinker.file(RWDFile).serve(8080, '-r' ? '.rwduids' : nil)\n<br>
 Then you should be able to login at: http://yourhostname:8080",
 
           
-  :documents_rwdtinker => "Documents:
+  :documents_rwdtinker => "<b>Documents:
+  <p>
   
-  
-  when you click on a document name, the document should pop up in a 
-  browser window, or in another browser tab.",
-  :remote_control => "Remote control gives you a way to determine what applications are running on which ports
-  
-  The name of the application is set in the config file
-  You need to click the show remote command choices first - this will show the port and query choices
-   Then you can click in 'Run Command' to see if other applications are running.
-   
-   The remote ports daemon will not be running unless you start it.
-   
+  when you click on a document name, the document should pop up in a <br>
+  browser window, or in another browser tab.</b>
   "
       

data/code/01rwdcore/jumplinkcommand.rb

@@ -1,5 +1,5 @@
 # Bind message passing socket to rwdtinker application
-JumpLink = Hash.new { |hh, kk| hh[kk] = "ERROR: link not found: #{kk.inspect}."; hh[kk] }
+
     locationlink = {
     :helpscreen=> "runhelpwindow",
     :tinkerbackwindow=>"runrwdtinkerbackwindow",

data/code/01rwdcore/openhelpwindow.rb

@@ -1,6 +1,6 @@
 # this code is to call the help window
 def runhelpwindow
-	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
 
 	if @rwd_window == "main"
 		if @rwd_tab == "documentsrwdtinkerone"

data/code/01rwdcore/runopentinkerdocument.rb

@@ -0,0 +1,7 @@
+# open document for rwdtinker application
+def runopentinkerdocument
+
+tinkerdocumenturl = "http://localhost:7705/" + @a_tinkerdocumentinput
+    Thread.new( tinkerdocumenturl){ |t|  `#{Browser_Exe} #{tinkerdocumenturl}`  }
+ end
+   

data/code/01rwdcore/rwdtinkerversion.rb

@@ -3,11 +3,19 @@
 # For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
+def tinkerhelpaboutsetup
+return ["RwdTinker","(c) 2004-2008 Steven Gibson ","Version #{RwdTinkerVersion}"]
+end
+
 def runrwdtinkerversion
 	@rwd_window = "applicationversion"
-	@versionappnamedisplay = "RwdTinker"
-	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-	@versionnumberdisplay =  "Version " + RwdTinkerVersion
+  helpaboutinput = @a_helpaboutinput.downcase
+  versionarraysetup = "#{helpaboutinput}helpaboutsetup"
+  versionarray= self.send(versionarraysetup)
+  
+	@versionappnamedisplay = versionarray[0].to_s
+	@versioncopyrightdisplay = versionarray[1].to_s
+	@versionnumberdisplay =  versionarray[2].to_s
 
 end
 

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -0,0 +1,13 @@
+# help about option setup for rwdtinker application
+def setuphelpaboutoptions 
+
+  @rwd_window = "tinkerhelpabout"
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+	
+def setuphelpaboutoptionspassive 
+
+  
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+   

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -0,0 +1,6 @@
+# Bind document names  to rwdtinker document tab
+def setuptinkerdocuments 
+
+	@tinkerdocumentsarray = $tinkerdocumentsarray.rwd_options
+end	
+   

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -0,0 +1,3 @@
+def viewphoto
+	@rwd_window = "photo"
+end

data/code/superant.com.bigtinker/rwdtinkerversion.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 bigtinkerhelpaboutsetup
+return ["BigTinker","(c) 2004-2008 Steven Gibson ","Version #{BigTinkerVersion}"]
+end
+
+

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

@@ -0,0 +1,14 @@
+
+def rwdwaddresses_1_05()
+$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/loadconfigurationrecord.rb

@@ -1,45 +1,22 @@
-# 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 = "rwdwaddresses-" + RwdAddressesVersion +  ".cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, @a_adconfigurationfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_adconfigurationfile=        fd.read
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -1,7 +1,8 @@
 # this method loads the on screen variables into the running class
 def loadrwdaddressesconfigurationvariables
 
-	configfiletoload = File.join(ConfigurationDir,"rwdaddresses.cnf")
+    tempfilename = "rwdwaddresses-" + #{RwdAddressesVersion} + ".cnf"
+	configfiletoload = File.join(ConfigurationDir, tempfilename)
 	begin
 		load configfiletoload
 		@extraadconfigdatadisplay = ""

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

@@ -4,7 +4,7 @@
 
 # call the window  
 def runrwdaddresseswindow
-	@rwd_window = "main"
+	@rwd_window = "rwdaddresseswindow"
 	@rwd_tab = "Viewnamedata"
 end   
 

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

@@ -4,17 +4,17 @@
 
 # call the window  
 def runrwdaddressesmenu1
-	@rwd_window = "main"
+	@rwd_window = "rwdaddresseswindow"
 	@rwd_tab = "Viewnamedata"
 end   
 def runrwdaddressesmenu2
-	@rwd_window = "main"
+	@rwd_window = "rwdaddresseswindow"
 	@rwd_tab = "editnamerecordfile"
 end   
 
 
 def runrwdaddressesmenu3
-	@rwd_window = "main"
+	@rwd_window = "rwdaddresseswindow"
 	@rwd_tab = "contactutilitiesrwdaddresses"
 end  
 def runrwdaddressesmenu4
@@ -28,7 +28,7 @@ def runrwdaddressesmenu10
 end 
 
 def runrwdaddressesmenu11
-	@rwd_window = "main"
+	@rwd_window = "rwdaddresseswindow"
 	@rwd_tab = "documentsrwdtinkerone"
 end 
 

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

@@ -4,7 +4,7 @@
 
 # call the window  
 def runrwdaddressesbackwindow
-	@rwd_window = "rwdaddresseswindow"
-	@rwd_tab="Viewnamedata"
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab="rwdaddressessynctasks"
 end   
 

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

@@ -3,11 +3,8 @@
 # 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
+def rwdaddresseshelpaboutsetup
+	return ["RwdAddresses", "(c) 2004 Steven Gibson ", "Version #{RwdAddressesVersion}"]
 
 end
 

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

@@ -2,7 +2,7 @@
 def saverwdaddressesconfiguration
 	require 'fileutils'
 	
-	newname = "rwdaddresses.cnf" # grab the filename to create
+	newname = "rwdwaddresses-" + #{RwdAddressesVersion} + ".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"

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

@@ -3,8 +3,7 @@
 	
 require 'test/unit/testcase'
 require 'test/unit/assertions'
-include Test::Unit::Assertions
-include Test::Unit  
+  
 def rwdaddresses_all_tests 
 	print "in rwdaddresses all tests\n"
   $testrwdaddressestestcase = TestSuite.new

data/code/superant.com.rwdtinkerbackwindow/initiateapplets.rb

@@ -0,0 +1,240 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+
+
+# integrate the new configuration files
+def initiateapplet(nametextlocal)
+	
+	debuginitiate = 0
+	
+	if $DEBUG
+ $stderr.puts "starting config load with: #{nametextlocal}"
+        end
+
+
+  Dir.chdir($progdir )    #changes the current working directory
+	  
+  @confignew =  "configuration/" + "#{nametextlocal}.cnf"
+  @configdist =  "configuration/" + "#{nametextlocal}.dist"
+  Rconftool::install(@configdist,@confignew)
+
+begin 
+
+  configfileload = File.open(@configdist){|f| f.read}
+	 
+       eval configfileload  #load  config file
+       
+    
+	
+	 rescue
+   
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - config load"
+          end
+        debuginitiate += 1
+end
+$tempdoc = " "
+  
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the English Language hash file from the parts
+  languagehashvariable = 'Message.update('
+  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 + ' :rwdtinker => "Rwdtinker" ) ;'
+
+  # 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
+
+ languagehashvariable =  languagehashvariable  + "  Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
+ 
+  
+    
+  $tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+   temp = eval(   languagehashvariable )
+
+  
+  tempguistorage = $rwd_gui_tinker # if gui load fails restore old
+  begin # error trap
+  
+	# 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
+
+$rwd_gui_tinker = $tempdoc
+
+  
+ rescue
+    $rwd_gui_tinker = tempguistorage # restore old gui
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - gui building"
+          end
+
+        debuginitiate += 1
+end
+
+begin # error trap
+# now load in the code files
+
+$tempdoc  = ""
+tempcodeinstallline  = ""
+
+         @fileName = "installed/" + nametextlocal + ".inf"
+	
+  tmpfilearray = File.readlines(@fileName)
+  
+  tmpfilearray.each do |line|
+	  
+       tempcodeinstallline = line.chomp
+       if tempcodeinstallline.include?('code/')
+	     findfiles(tempcodeinstallline  + "/**")
+            tempcoderesult = eval( $tempdoc ) # read the program code and evaluate
+       end
+end 
+
+
+ rescue
+    if $DEBUG
+              $stderr.puts  "error in initiateapplets - code building"
+          end
+        debuginitiate += 1
+    
+
+  end
+  
+ setuphelpaboutoptions # update the help about list
+       setuptinkerdocuments # update the document pull down list
+       runhelpwindow   # update the help menu
+        showjumplinkoptions # update the application link menu
+	runrwdtinkerbackwindow # back to applet window
+
+ # resultend =  tempcodeinstallline .index("\n",resultstart)
+ tempresult  = @fileName
+ 
+return " applet loading successful " + tempresult 
+
+
+  
+       if  debuginitiate > 0
+         return " initiateapplet .."
+       else
+	   return " initiateapplet success"
+	end
+
+end
+
+
+
+