rwdshell 0.98 → 0.99

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

@@ -0,0 +1,7 @@
+   # this method clears the on screen variables
+   def clearrubyscreendisplay
+ 
+        @a_rubyscriptfilename = ""
+      @a_rubyscriptrecord= ""
+
+  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/jumplinkupdate.rb

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

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

@@ -0,0 +1,20 @@
+   # this method views an existing address record
+  def loadrubyscriptrecord
+ 
+         require 'fileutils'
+          currentscriptname = @a_rubyscriptfilename
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $shellscript_directory + "/" + currentscriptname + ".rb"
+        
+	      fd = File.open(fileName,"r")
+	      @a_rubyscriptrecord  =        fd.read
+	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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.rwdshell/saverubyrecord.rb

@@ -0,0 +1,19 @@
+ 
+def saverubyrecord # this method adds a new script file
+  require 'fileutils'
+  if @a_rubyscriptfilename   
+   newdata =@a_rubyscriptrecord.to_s    
+	 fullnewname = @a_rubyscriptfilename.to_s + ".rb"
+        begin # exception trapped block
+         fileName = File.join( $shellscript_directory, fullnewname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newrubyresult=newdata # show the record info in the browser
+   
+
+       rescue 
+            @newrubyresult = "\n" + "system error in createnew method"
+        end  # exception rescue
+   end
+  end # end of createnew

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

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

@@ -1,25 +1,19 @@
 # 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
-  
+# 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
-   
+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/installapplet.rb

@@ -1,24 +1,25 @@
 # code in install rwdtinker applets - now uses ruby.zip module
-  def installapplet
-   
-    nametext = "%s" % [@a_installapplet]
+def installapplet
 
-        begin # exception trapped block
+	nametext = "%s" % [@a_installapplet]
 
+	begin # exception trapped block
 
-   require 'extras/zip/zip'
-   	 fullname =  nametext + ".zip"
-     fileName = File.join($zipslocation,fullname)
 
-  zf = Zip::ZipFile.new(fileName)
- zf.sort.each {
-  |entry|
-      zf.extract(entry.to_s, entry.to_s)
-                     }
-   @installapplettext = Message[:applet_installed]  
-   
-       rescue
-            @installapplettext = "unzip error - applet may not be installed correctly"
-        end # exception rescue
+		require 'extras/zip/zip'
+		fullname =  nametext + ".zip"
+		fileName = File.join($zipslocation,fullname)
+
+		zf = Zip::ZipFile.new(fileName)
+		zf.sort.each {
+			|entry|
+			zf.extract(entry.to_s, entry.to_s)
+		}
+		@installapplettext = Message[:applet_installed]  
+
+	rescue
+		@installapplettext = "unzip error - applet may not be installed correctly"
+	end # exception rescue
+
+end
 
-  end

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

@@ -1,20 +1,21 @@
 # install rwdtinker applet from a long directory location 
-  def installgemapplet
-   require 'fileutils'
-   require 'extras/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)
-                     }
-         @installapplettext = Message[:applet_installed]  
-   
-       rescue
-            @installapplettext = "unzip error - applet may not be installed correctly"
-        end # exception rescue
-  end
+def installgemapplet
+	require 'fileutils'
+	require 'extras/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)
+		}
+		@installapplettext = Message[:applet_installed]  
+
+	rescue
+		@installapplettext = "unzip error - applet may not be installed correctly"
+	end # exception rescue
+end
+

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

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