rwdruby 1.05

data/bin/rwdruby

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2004 Steven Gibson <steven@superant.com>
+#   RwdTinker application
+#
+# This program is free software. It may be redistributed and/or modified under
+# the terms of the GPL version 2 (or later), or the
+# Ruby licence.
+# 
+#++
+
+
+$progdir = File::expand_path( File.dirname(__FILE__))
+
+Dir.chdir($progdir)
+
+Dir.chdir("..")
+
+`ruby init.rb` 

data/code/01rwdcore/01rwdcore.rb

@@ -0,0 +1,29 @@
+# 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
+# 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
+		"#{$rwdapplicationidentity}" 
+	end
+

data/code/01rwdcore/02helptexthashbegin.rb

@@ -0,0 +1,4 @@
+  
+
+ Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+    helpmessage = {

data/code/01rwdcore/03helptexthash.rb

@@ -0,0 +1,23 @@
+ # Help files for RwdTinker core
+
+   
+      :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<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 => "<b>Documents:
+  <p>
+  
+  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/04helptextend.rb

@@ -0,0 +1,6 @@
+
+    }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+  
+
+

data/code/01rwdcore/jumplinkcommand.rb

@@ -0,0 +1,26 @@
+# Bind message passing socket to rwdtinker application
+
+    locationlink = {
+    :helpscreen=> "runhelpwindow",
+    :tinkerbackwindow=>"runrwdtinkerbackwindow",
+    :returntomain=>"returntomain",
+    :opendocuments=>"runtinkerdocuments",
+    :editconfiguration=>"runeditconfiguration"
+    }
+    locationlink.each { |kk, vv| JumpLink[kk] = vv }
+    
+def runjumplinkcommand
+if  @a_jumplinkinput
+runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
+
+self.send(runjumplocation)
+ end
+   end
+
+
+# list the remote control options on the screen
+def showjumplinkoptions
+  
+	@jumplinkoptions = $rwdjumplink.rwd_options
+	
+end

data/code/01rwdcore/openhelpwindow.rb

@@ -0,0 +1,31 @@
+# this code is to call the help window
+def runhelpwindow
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
+
+	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
+
+

data/code/01rwdcore/returntomain.rb

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

data/code/01rwdcore/rundocuments.rb

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

data/code/01rwdcore/runeditconfiguration.rb

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

data/code/01rwdcore/runhelpabout.rb

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

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

@@ -0,0 +1,22 @@
+# 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 tinkerhelpaboutsetup
+return ["RwdTinker","(c) 2004-2008 Steven Gibson ","Version #{RwdTinkerVersion}"]
+end
+
+def runrwdtinkerversion
+	@rwd_window = "applicationversion"
+  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/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