rwddemo 0.91 → 0.92

data/code/01rwdcore/openhelpwindow.rb

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

data/code/01rwdcore/returntomain.rb

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

data/code/01rwdcore/rwdtinkerversion.rb

@@ -1,15 +1,14 @@
 # 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
-  
-  # return the version constant defined in the config file
-  def runrwdtinkerversion
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdTinker"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdTinkerVersion
-
-   end
-  
-  
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def runrwdtinkerversion
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdTinker"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdTinkerVersion
+
+end
+
+

data/code/01rwdcore/rwdwindowreturn.rb

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

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,115 @@
+# test harness
+def rwdtinker_all_tests 
+	print "in rwdtinker all tests\n"
+	test_runrwdtinkerbackwindow
+end
+
+def test_runrwdtinkerbackwindow
+
+	require 'test/unit' 
+	begin
+
+		runrwdtinkerbackwindow
+
+		raise NotImplementedError, 'Need to write test_runrwdtinkerbackwindow'
+
+	rescue  NotImplementedError
+		$stderr.print $!
+
+	end
+end
+
+
+
+def test_choosenewhelptopic
+	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+end
+
+
+def test_listinstalledfiles
+	raise NotImplementedError, 'Need to write test_listinstalledfiles'
+end
+
+
+def test_listzipfilestoinstall
+	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+end
+
+def test_loadconfigurationrecord
+	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+end
+
+def test_loadconfigurationvariables
+	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+end
+
+
+
+def test_main
+	raise NotImplementedError, 'Need to write test_main'
+end
+
+def test_network_demon
+	raise NotImplementedError, 'Need to write test_network_demon'
+end
+
+def test_network_start
+	raise NotImplementedError, 'Need to write test_network_start'
+end
+
+def test_openappletname
+	raise NotImplementedError, 'Need to write test_openappletname'
+end
+
+def test_removeapplet
+	raise NotImplementedError, 'Need to write test_removeapplet'
+end
+
+def test_returntomain
+	raise NotImplementedError, 'Need to write test_returntomain'
+end
+
+def test_runcontrolcommand
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
+end
+
+
+def test_runhelpwindow
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
+end
+
+
+
+
+def test_runrwdtinkerversion
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+end
+
+def test_runrwdtinkerwin2version
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+end
+
+def test_runviewplatform
+	raise NotImplementedError, 'Need to write test_runviewplatform'
+end
+
+def test_rwdtinkerversiondiagnostic
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+end
+
+def test_rwdwindowreturn
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+end
+
+def test_saveconfigurationrecord
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+end
+
+
+def test_viewappletcontents
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+end
+
+
+
+

data/code/01rwdcore/test_harness.rb

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

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

data/code/superant.com.rwdcalc/jumplinkupdate.rb

@@ -0,0 +1,11 @@
+#jumplinkupdate 
+
+JumpLink.update(:RwdCalc=>"runrwdcalcwindow",
+:DocumentScreen=>"runtinkerdocuments",
+:RwdShellBackWindow=>"runrwdshellbackwindow",
+:RunShell=>"runrwdshellwindow"
+)
+$rwdjumplink +=["RwdCalc",
+"DocumentScreen",
+"RwdShellBackWindow",
+"RunShell"]

data/code/superant.com.rwdcalendar/helptexthashrwdschedule.rb

@@ -0,0 +1,14 @@
+  
+
+ Helptext.update( 
+ :calendar_help => "On the 'Show Month' tab
+   You can see the current month or
+   enter a year and month
+   for example:
+    Year: 2005
+    Month: 2
+    Click on 'show month'
+    
+    It will display one month
+      "
+)

data/code/superant.com.rwdcalendar/openhelpwindowrwdschedule.rb

@@ -0,0 +1,17 @@
+# this code is to call the help window
+def runhelpwindowrwdcalendar
+
+     $help_topic = "calendar_help"
+    if @rwd_tab  == "calendar"
+    $help_topic = "calendar_help"
+    end
+   $helptopicsarray =  $helptopicsarray | ["calendar_help"]
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.rwdshell/helptexthashshell.rb

@@ -20,5 +20,12 @@
        
        You can edit the commands or comment
        
-       Click on the 'save' then reload variables"
+    
+     'Save Changes' will save the changes you have made - BE CERTAIN YOUR CHANGES ARE CORRECT
+     'Reload Variables' will load the changes you have made - otherwise your changes will be lost next reboot", 
+
+    :shelledit_help =>  "You can edit scripts here
+ 'Fill Record'   will load the file selected on the script run tab
+  'Save Changes' will save the changes you have made - 
+ 'Clear' will clear the screen " 
 )

data/code/superant.com.rwdshell/openhelpwindowshell.rb

@@ -9,6 +9,12 @@ def runhelpwindowrwdshell
     if @rwd_tab == "viewrwdshellconfiguration"
        $help_topic = "ShellEnvironment_help"
        end
+    if @rwd_tab == "EditScriptsrwdshell"
+       $help_topic = "shelledit_help"
+       end
+    if @rwd_tab == "editrubyrecordfile"
+       $help_topic = "shelledit_help"
+       end
        
      
     

data/code/superant.com.rwdshell/runrwdshellwindow.rb

@@ -4,6 +4,9 @@
   
   # call the window  
   def runrwdshellwindow
-   @rwd_window = "rwdshellwindow"
+
+   @rwd=window = "main"
+   @rwd_tab="scriptlister"
+   
    end   
    

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

@@ -1,99 +1,96 @@
 # Bind message passing socket to rwdtinker application
-
 def runcontrolcommand
-require 'socket'
-
-# Change this line... 
- ip =  '127.0.0.1' 
-# And this one...
- port =  $rwdcontrolport1
- if @a_remoteportinput
- port = @a_remoteportinput.to_i
- end
-
-    commandtext =  @a_remotecommandinput.to_s 
-   remotehostnotfound = true
- if (commandtext == "stop")
- begin
- client = UDPSocket::new()
- client.send(commandtext, 0, ip, port)
-		@socket = UDPSocket::new()
-		@socket.bind(ip, port)
-	 # Rescue the "Address in use" error
-	 rescue Errno::EADDRINUSE
-		   
-  databack, info = client.recv(128)
-  @remotecommandresult =  databack
-  @lastremotecommand =  "rwdtinker remote:: Port #{port} on host #{ip} ."
-  remotehostnotfound = false
-  
-	 # Rescue the "Address not available" error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "Network plugin: Address #{host} is not available to bind."
-
-	 # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
-
-# Rescue all other errors
-	 rescue
-   puts "Network plugin: An error occured."
-		
-	 # Rescue all other errors
-	 end
-  if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
-     end
- @socket.close
-  # Close the socket after use
- client.close()
- end
-
- remotehostnotfound = true
- if (commandtext == "query") 
- begin
- client = UDPSocket::new()
- client.send(commandtext, 0, ip, port)
-		@socket = UDPSocket::new()
-		@socket.bind(ip, port)
-	 # Rescue the "Address in use" error
-	 rescue Errno::EADDRINUSE
-		
-  databack, info = client.recv(128)
-  @remotecommandresult =  databack
-  @lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
-		remotehostnotfound = false
-    
-	 # Rescue the "Address not available' error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "Network plugin: Address #{host} is not available to bind."
-		
-	 # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
-		
-	 # Rescue all other errors
-	 rescue
-   puts "Network plugin: An error occured."
-		
-	 # Rescue all other errors
-	 end
-@socket.close
-
-# Close the socket after use
-client.close()
-end
+	require 'socket'
+
+	# Change this line... 
+	ip =  '127.0.0.1' 
+	# And this one...
+	port =  $rwdcontrolport1
+	if @a_remoteportinput
+		port = @a_remoteportinput.to_i
+	end
+
+	commandtext =  @a_remotecommandinput.to_s 
+	remotehostnotfound = true
+	if (commandtext == "stop")
+		begin
+			client = UDPSocket::new()
+			client.send(commandtext, 0, ip, port)
+			@socket = UDPSocket::new()
+			@socket.bind(ip, port)
+			# Rescue the "Address in use" error
+		rescue Errno::EADDRINUSE
+
+			databack, info = client.recv(128)
+			@remotecommandresult =  databack
+			@lastremotecommand =  "rwdtinker remote:: Port #{port} on host #{ip} ."
+			remotehostnotfound = false
+
+			# Rescue the "Address not available" error
+		rescue Errno::EADDRNOTAVAIL
+			puts "Network plugin: Address #{host} is not available to bind."
+
+			# Rescue "permission denied errors
+		rescue Errno::EACCES
+			puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+
+			# Rescue all other errors
+		rescue
+			puts "Network plugin: An error occured."
+
+			# Rescue all other errors
+		end
+		if remotehostnotfound
+			@remotecommandresult =  "Remote Host not running"
+		end
+		@socket.close
+		# Close the socket after use
+		client.close()
+	end
 
- if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
- end
+	remotehostnotfound = true
+	if (commandtext == "query") 
+		begin
+			client = UDPSocket::new()
+			client.send(commandtext, 0, ip, port)
+			@socket = UDPSocket::new()
+			@socket.bind(ip, port)
+			# Rescue the "Address in use" error
+		rescue Errno::EADDRINUSE
+
+			databack, info = client.recv(128)
+			@remotecommandresult =  databack
+			@lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
+			remotehostnotfound = false
+
+			# Rescue the "Address not available' error
+		rescue Errno::EADDRNOTAVAIL
+			puts "Network plugin: Address #{host} is not available to bind."
+
+			# Rescue "permission denied errors
+		rescue Errno::EACCES
+			puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+
+			# Rescue all other errors
+		rescue
+			puts "Network plugin: An error occured."
+
+			# Rescue all other errors
+		end
+		@socket.close
+
+		# Close the socket after use
+		client.close()
+	end
+
+	if remotehostnotfound
+		@remotecommandresult =  "Remote Host not running"
+	end
 end
 
 # list the remote control options on the screen
 def showremoteportoptions
- 
- @remoteportoptions = $rwdcontrolports.rwd_options
-  @remotecommandoptions = ["query","stop"].rwd_options
- end
-
-
+
+	@remoteportoptions = $rwdcontrolports.rwd_options
+	@remotecommandoptions = ["query","stop"].rwd_options
+end