rwdshell 0.94 → 0.95

data/Readme.txt

@@ -193,6 +193,14 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+version 0.95
+ added ruby script running
+ add back window for more control tabs
+ beginning of context sensitive help
+ wider text boxes for configuration information
+ updated for rwdtinker 1.51 - finds available port and remote control
+ updated for rwdtinker 1.52 - cam install applets from Gems  
+
 version 0.94
  updated for rwdtinker 1.44 - refactor gui directory structure
 

data/code/{ag1core/aa0begin.rb → 01rwdcore/01rwdcore.rb}

@@ -10,6 +10,8 @@ class RwdTinker  < RWDialog
   @rwd_window = "main"
     @result = "idle"
     @display= "idle"
+
+    
   end
   
   def inspect

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,31 @@
+ # 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
+      ",
+      :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
+Then you should be able to login at: http://yourhostname:8080",
+
+          
+  :documents_rwdtinker => "Documents:
+  
+  
+  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.
+   
+  "
+      

data/code/01rwdcore/04helptextend.rb

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

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

data/code/01rwdcore/returntomain.rb

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

data/code/01rwdcore/rwdwindowreturn.rb

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

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

@@ -0,0 +1,81 @@
+  
+
+ Helptext.update( :rubyslippers_generalhelp => "    You can view the list of gems you have installed
+      by clicking on the list files button
+
+      You can view the contents of the gemspec file by typing or pasting a name in.
+
+      When you are finished press the open button (leave off the .gemspec ending) ",
+    :Install_Gem  => "You can list the Gems available in the repository
+      Click on the button. 
+      It will take several seconds then should show the list.
+            
+      To install a gem, enter the name into to textbox and
+      click on the install Gem button
+      You should see the result of the command on the screen
+      
+      You can check in the first tab if it is installed.",
+      :GemCommands_help => "You can view the setup that Gem has on your system.
+      
+       Click on Show Environment
+       This will show your setup
+       
+       You can run a Gem command or a shell command
+       
+       Click on the 'Show Gem Command Choices' this will bringup the command that will be added to 'gem'
+       you can choose the blank choice or: 
+       help,--version,list --local,check -a,check --test,search,search --remote,specification,uninstall
+       
+       Enter the command in the box and press the
+       Run Command button
+       
+       It displays the result of the command on the screen.
+       
+      Click 'List Installed Gem Files' to bring up a list at the bottom of    the page. 
+      You can click on one to fill in the second command box. You will probably need to remove the version on the end
+      of the file name for the gem command to properly work.
+      the commands that can take a file name are:    list --local,check --test,search,search --remote,specification,uninstall  
+       
+       ",
+       :gemfiles_help  => "You can view the files that are installed for applications
+      
+       Click on Show Gem Dirs
+       This will show your list of Gems installed
+       
+       
+       Click on Show Application Files
+       This will show your list of files installed",
+       :gemdocs_help => "You can scan for the Gem doc server. 
+
+If the gem doc server is running you can click and view the docs
+The docs for installed Gems should be visible ",
+:gemfilesinstalled => "You can see a list of gems that are installed on your system",
+:gemconfiguration_help =>  "You can view the configuration file for Rubyslippers and edit it
+ 'Fill Record'   will load the configuration file rubyslippers.cnf into the screen input boxes
+ '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 load next reboot 
+ 
+",
+:gemspecdata_help => "You can view gemspecs
+
+The directory searched in is in the rubyslippers.cnf
+",
+:editgemspec_help => "You can edit gemspec
+ You need to open a gemspec in the 'View Gemspec' tab first
+ 
+ The directory searched in is in the rubyslippers.cnf
+",
+:buildgem_help => "gem utilities are available as well as the gem build command
+
+You can rename a gemspec, copy a gemspec or delete a gemspec
+
+You can select a gemspec by clicking on 'list gemspecs'
+
+You need to select a directory for the gem to be built in by clicking on 'list Gem Directories'
+
+The directory searched in is in the rubyslippers.cnf",
+:viewgemdir_help => "you can view the files in the gem directory before you build it
+You can select a directory for the gem to be built in by clicking on 'list Gem Directories'
+"
+
+)

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

@@ -0,0 +1,13 @@
+# this code is to list the scripts 
+def  listrubyscripts
+  fileList      = Dir.new($shellscript_directory).entries.sort.delete_if { |x| ! (x =~ /rb$/) }
+  @listrubyscriptresult = fileList.rwd_method("fillrubyscriptname")
+end
+ 
+def fillrubyscriptname(inffile)
+  applet                = inffile.gsub(/\.rb$/, "")
+  @a_rubyscriptfilename  = applet
+  $currentrubyscriptname = applet
+  @a_rubyscriptcmd = applet
+end
+

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

@@ -0,0 +1,33 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdshellconfiguration
+ 
+         require 'fileutils'
+          
+               @a_rshellconfigurationfilename = "playscripts.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, "playscripts.cnf")
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_rshellconfigline1=        fd.readline.chomp
+	      @a_rshellconfigline2 =  fd.readline.chomp
+        @a_rshellconfigline3 = fd.readline.chomp
+          @a_rshellconfigline4 = fd.readline.chomp
+        @a_rshellconfigline5 = fd.readline.chomp
+         @a_rshellconfigline6 = fd.readline.chomp 
+          @a_rshellconfigline7 =fd.readline.chomp
+          @a_rshellconfigline8 = fd.readline.chomp
+           @a_rshellconfigline9 = fd.readline.chomp
+	 
+
+
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,13 @@
+   # this method loads the on screen variables into the running class
+   def loadrubyslippersconfigurationvariables
+   
+   configfiletoload = File.join(ConfigurationDir,"rubyslippers.cnf")
+   begin
+    load configfiletoload
+    @extrarsconfigdatadisplay = ""
+@newrsconfigurationresult = "Config Variables loaded"
+rescue
+ @extrarsconfigdatadisplay = ""
+ @newrsconfigurationresult = "loading error"
+ end
+  end

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

@@ -0,0 +1,50 @@
+# this code is to call the help window
+def runhelpwindowrubyslippers
+
+     $help_topic = "GemCommands_help"
+   if @rwd_tab == "Viewgemdata"
+     $help_topic = "rubyslippers_generalhelp"
+   end
+    if @rwd_tab == "geminstall"
+    $help_topic = "Install_Gem"
+    end
+    if @rwd_tab == "gemcommands"
+     $help_topic = "GemCommands_help"
+    end
+    if @rwd_tab == "gemfilesinstalled"
+      $help_topic = "gemfiles_help"
+    end
+    if @rwd_tab == "gemservescan"
+      $help_topic = "gemdocs_help"
+    end
+    if @rwd_tab == "viewrubyslippersconfiguration"
+       $help_topic = "gemconfiguration_help"
+       end
+       
+      if @rwd_tab == "Viewgemspecdata"
+        $help_topic = "gemspecdata_help"
+     end
+     
+     if @rwd_tab == "editgemspecrecordfile"
+       $help_topic = "editgemspec_help"
+       end
+        if @rwd_tab == "gemutilitiesrubyslippers"
+       $help_topic = "buildgem_help"
+       end
+    if @rwd_tab == "viewgemdir"
+    $help_topic = "viewgemdir_help"
+    end
+    
+   $helptopicsarray =  $helptopicsarray | ["rubyslippers_generalhelp", "Install_Gem","GemCommands_help", "gemfilesinstalled","gemdocs_help","gemconfiguration_help","gemspecdata_help","editgemspec_help","buildgem_help","viewgemdir_help"]
+   $previouswindow = @rwd_window
+   $previoustab = @rwd_tab
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

@@ -0,0 +1,22 @@
+  def playrubyscript
+  
+    
+    nametext = "%s" % [@a_rubyscriptcmd]
+	 
+      begin # exception trapped block
+         fileName = "scripts/" + nametext + ".rb"
+        
+	    
+	       rubyfile_contents = File.read( fileName)
+     temp  = eval( rubyfile_contents)
+	      
+      
+	      
+	      
+        
+
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+  end

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

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

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

@@ -0,0 +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 runrwdshellbackwindow
+   @rwd_window = "rwdshellbackwindow"
+   @rwd_tab = "viewrwdshellconfiguration"
+   end   
+    

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

@@ -0,0 +1,57 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrubyslippersmenu1
+   @rwd_window = "main"
+   @rwd_tab = "gemcommands"
+   end   
+  def runrubyslippersmenu2
+   @rwd_window = "main"
+   @rwd_tab = "Viewgemdata"
+   end   
+   
+   
+  def runrubyslippersmenu3
+   @rwd_window = "main"
+   @rwd_tab = "geminstall"
+   end  
+   
+  def runrubyslippersmenu4
+   @rwd_window = "main"
+   @rwd_tab = "gemfilesinstalled"
+   end 
+   def runrubyslippersmenu5
+   @rwd_window = "main"
+   @rwd_tab = "gemservescan"
+   end 
+   
+   def runrubyslippersmenu6
+   @rwd_window = "rubyslippersbackwindow"
+   @rwd_tab = "Viewgemspecdata"
+   end 
+   
+   def runrubyslippersmenu7
+   @rwd_window = "rubyslippersbackwindow"
+   @rwd_tab = "editgemspecrecordfile"
+   end   
+  
+    def runrubyslippersmenu8
+   @rwd_window = "rubyslippersbackwindow"
+   @rwd_tab = "gemutilitiesrubyslippers"
+   end
+        def runrubyslippersmenu9
+   @rwd_window = "rubyslippersbackwindow"
+   @rwd_tab = "viewgemdir"
+   end
+   
+        def runrubyslippersmenu10
+   @rwd_window = "rubyslippersbackwindow"
+   @rwd_tab = "viewrubyslippersconfiguration"
+   end 
+       def runrubyslippersmenu11
+   @rwd_window = "main"
+   @rwd_tab = "documentsrwdtinkerone"
+   end 
+   

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

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saverubyslippersconfiguration
+   require 'fileutils'
+   
+   newname = "rubyslippers.cnf" # grab the filename to create
+   newdata =@a_rsconfigline1.to_s + "\n" + @a_rsconfigline2.to_s + "\n" + @a_rsconfigline3.to_s + "\n" + @a_rsconfigline4.to_s + "\n" + @a_rsconfigline5.to_s + "\n" + @a_rsconfigline6.to_s + "\n" + @a_rsconfigline7.to_s + "\n" + @a_rsconfigline8.to_s + "\n" + @a_rsconfigline9.to_s + "\n"
+	 
+        begin # exception trapped block
+          fileName = File.join( ConfigurationDir, newname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newconfigurationresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

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

@@ -0,0 +1,18 @@
+  def viewrubyscript 
+   require 'fileutils'
+    $currentscriptname = "%s" % [@a_rubyscriptfilename]
+	 
+        begin # exception trapped block
+   	 fileName = $shellscript_directory+  "/" + $currentrubyscriptname + ".rb"
+        
+	fd = File.open(fileName,"r")
+	 @displayrubyscripttext = " "
+	while ! fd.eof?
+	 @displayrubyscripttext = fd.read
+	 end
+	 fd.close
+        rescue
+            @displayrubyscripttext = "\n" + "error"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,100 @@
+#
+
+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
+# Done!
+
+ 
+    commandtext =  @a_remotecommandinput.to_s 
+  
+ remotehostnotfound = true
+
+client = UDPSocket::new()
+client.send(commandtext, 0, ip, port)
+
+
+if (commandtext == "stop")
+begin
+		@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
+end
+
+remotehostnotfound = true
+if (commandtext == "query")
+begin
+		@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
+end
+  if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+     end
+# Close the socket after use
+client.close()
+
+end
+
+def showremoteportoptions
+ 
+ @remoteportoptions = $rwdcontrolports.rwd_options
+  @remotecommandoptions = ["query","stop"].rwd_options
+ end
+
+

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

@@ -0,0 +1,37 @@
+  
+
+ 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",
+     :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",
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used."
+
+)

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/installapplet.rb

@@ -1,21 +1,21 @@
   def installapplet
    require 'fileutils'
+   require 'extras/zip/zip'
     nametext = "%s" % [@a_installapplet]
 	 
         begin # exception trapped block
    	 fullname =  nametext + ".zip"
      fileName = File.join($zipslocation,fullname)
-  	
-	        commandline = $unzipprogram + fileName
-         system( commandline+' > temp.output' )
-        
-    
-      
-    system(commandline)
+
+  zf = Zip::ZipFile.new(fileName)
+ zf.sort.each {
+  |entry|
+      zf.extract(entry.to_s, entry.to_s)
+                     }
    @installapplettext = Message[:applet_installed]  
    
        rescue
-            @installapplettext = "Done! - Check applet list - restart rwd to activate the new applet"
+            @installapplettext = "unzip error - applet may not be installed correctly"
         end # exception rescue
 
   end

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

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