tinkerbell 0.01

data/code/01rwdcore/rwdwindowreturn.rb

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

data/code/01rwdcore/selectiontab.rb

@@ -0,0 +1,9 @@
+# this code is to return to the window back from the help window
+def runselectiontab
+
+	
+	@rwd_tab = "selectiontab"
+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/01rwdcore/test_cases.rb

@@ -0,0 +1,109 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdtinker_all_tests 
+	print "in rwdtinker all tests\n"
+  $testrwdtinkertestcase = TestSuite.new
+	test_runrwdtinkerbackwindow
+end
+
+def test_runrwdtinkerbackwindow
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdtinker tests!\n"
+		runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    showjumplinkoptions
+    @a_jumplinkinput = "returntomain"
+   runjumplinkcommand
+    assert_equal("main",@rwd_window) ; testasserts += 1 
+		@a_jumplinkinput = "helpscreen"
+    runjumplinkcommand 
+    
+     assert_equal("rwdtinkerhelpwindow",@rwd_window)  ; testasserts += 1
+     returntomain
+     assert_equal("main",@rwd_window)  ; testasserts += 1
+     runtinkerdocuments
+     assert_equal("documentsrwdtinkerone",@rwd_tab)  ; testasserts += 1
+     	runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+    @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
+    viewgemappletcontents
+    assert_not_nil(@appletcontentstext)  ; testasserts += 1
+    runrwdtinkerwin2version
+      assert_equal("applicationversion",@rwd_window) ; testasserts += 1 
+        returntomain
+     assert_equal("main",@rwd_window)  ; testasserts += 1
+      	runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+    runremotezipsinstall
+     assert_equal("superantcomremotezipsinstall",@rwd_tab) ; testasserts += 1
+    runeditconfiguration   
+    assert_equal("editconfigurationfile",@rwd_tab) ; 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
+	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+	raise NotImplementedError, 'Need to write test_listinstalledfiles'
+	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+
+	raise NotImplementedError, 'Need to write test_main'
+
+	raise NotImplementedError, 'Need to write test_network_demon'
+
+	raise NotImplementedError, 'Need to write test_network_start'
+
+	raise NotImplementedError, 'Need to write test_openappletname'
+
+	raise NotImplementedError, 'Need to write test_removeapplet'
+
+	raise NotImplementedError, 'Need to write test_returntomain'
+
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
+
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+
+	raise NotImplementedError, 'Need to write test_runviewplatform'
+
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+end
+
+
+
+

data/code/01rwdcore/test_harness.rb

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

@@ -0,0 +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 + "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/dd0viewphoto/dd0viewphoto.rb

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

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

@@ -0,0 +1,19 @@
+# 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
+
+require 'resolv'
+require 'date'
+
+# return the platform information
+def runviewplatform
+	@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  + "application name " +  $rwdapplicationidentity   + "\n"
+	@platformdisplay = @platformdisplay +  "Date " +      Date.today().to_s
+
+end
+

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

@@ -0,0 +1,61 @@
+# help text files used by context sensitive help  
+
+ Helptext.update( :tinkerwin2_help => "    You can view the list of applets you can install
+      by clicking on the list files button
+
+           You can download an applet created by someone else
+           
+      put the file in the zips directory
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      to install applets you need the ruby zlib library installed
+      ",
+     :applet_viewing   =>  "You can get a list of all installed applets by clicking the 'listfiles button'
+         To see the text of a install file
+       Type in the name of the file you want.
+      
+       type it without the inf ending
+       rwdapplet-0.1
+       
+       Then click the 'View Installed File' button
+       
+       If it finds the file it will open it. It displays the text the search box.
+
+      You can uninstall applets on this screen",
+      
+  :applet_installation  => " You can download an applet created by someone else\n
+      put the file in the zips directory\n
+      
+      click on the 'list zips' tab\n
+      click on 'list applets available for installing'\n
+      
+      chose the applet you want\n
+      click on 'install applet'\n
+      If all goes well the applet should be installed.\n
+      You will need to restart rwdtinker to see the new screens
+       to install applets you need the ruby zlib library installed",
+
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
+)

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
+
+
+
+  

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

@@ -0,0 +1,34 @@
+# install rwdtinker applet from a long directory location 
+def installgemapplet
+	require 'fileutils'
+	require 'lib/zip/zip'
+	nametext = "%s" % [@a_installapplet]
+
+	begin # exception trapped block
+		fullname =  nametext + ".zip"
+
+		zf = Zip::ZipFile.new(fullname)
+		zf.sort.each {
+			|entry|
+			zf.extract(entry.to_s, entry.to_s)
+		}
+		
+		rescue
+		
+	if $DEBUG
+	$stderr.puts "unzip error - applet may not be installed correctly"
+       end
+        @installapplettext = " .. "
+	
+	end # exception rescue
+	
+		@nametextbase = File.basename(nametext)
+		@returninitateresults = initiateapplet(@nametextbase)
+		@installapplettext = Message[:applet_installed] + " " +   @returninitateresults 
+
+				
+       RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+
+	
+end
+

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

@@ -0,0 +1,20 @@
+# download gem of rwdtinker applet
+def superantcominstallremotegemapplet
+	require 'fileutils'
+	
+	tempnametext = "%s" % [@superantcominstallremoteappletinput]
+	temparray = tempnametext.split(/ /)
+	nametext  = temparray[0]
+	begin # exception trapped block
+		
+		
+		commandline = $xpcommand + "gem install " + nametext
+		
+		@superantcominstallremotegemappletresult = `#{commandline}`
+		
+	rescue
+		@superantcominstallremotegemappletresult  = "error during gem install!"
+	end # exception rescue
+	
+end
+

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

@@ -0,0 +1,12 @@
+# this code is to list the gem directories that are installed
+def superantcomshowgemfiledirs
+
+	fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+	@superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+end
+
+def superantcomshowgemappletdirsname(inffile)
+	applet                = inffile
+	@a_gemfiledirsinput       = applet
+
+end

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

@@ -0,0 +1,53 @@
+# this code is to list the zips
+def fillzipappletname(inffile)
+	applet                = inffile.gsub(/\.zip$/, "")
+	@a_installapplet = applet
+	
+end
+
+def findzipfiles(d)
+	a = Array.new(Dir[d].entries.sort)
+	#loop through and get the files names
+	a.each do |x|
+		#adjust the filters to the files you want to see...
+		if(!test(?d,x))
+			# only zip files
+			if x =~ /\.zip/
+				    #opens the file thats in fileName as read only
+				$zipsarray =  $zipsarray | ["#{x}"] 
+			end
+		end
+	end
+end
+
+def listgemzips
+	startlangdir = $geminstalled_directory
+	#get a list of the files and subdirectories on the starting directory only
+	alanghash = Array.new(Dir[startlangdir].entries.sort)
+	p alanghash
+	#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...
+			findzipfiles(x + "/**")
+		end
+	end
+	@zipslistresult = $zipsarray.rwd_method("fillzipappletname")
+end
+

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

@@ -0,0 +1,12 @@
+# this code is to list the applets that are installed
+def listinstalledfiles
+	fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
+	@filesresult  = fileList.rwd_method("fillappletname")
+end
+
+def fillappletname(inffile)
+	applet                = inffile.gsub(/\.inf$/, "")
+	@a_installlist        = applet
+	@a_removeapplet       = applet
+end
+