rubyslippers 0.97 → 0.98

data/code/01rwdcore/03helptexthash.rb

@@ -44,5 +44,8 @@ Then you should be able to login at: http://yourhostname:8080",
   
   
   when you click on a document name, the document should pop up in a 
-  browser window, or in another browser tab."
+  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"
       

data/code/01rwdcore/openhelpwindow.rb

@@ -24,10 +24,15 @@ end
        $help_topic = "applet_tinkerbackeditconfiguration"
       $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
     end
-     
+     if @rwd_tab == "rwdremotecontrol"
+      $help_topic = "remote_control"
+      $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing", "remote_control"]
+      end
+      
        $previouswindow = @rwd_window
       $previoustab = @rwd_tab
   end 
+ 
    if @rwd_window == "rwdtinkerhelpwindow"
     $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
    end

data/code/superant.com.rubyslippers/gemcommands.rb

@@ -15,5 +15,5 @@
 
 
 def showgemcommandoptions
- @gemcommandoptions = ["help","--version","list --local","check -a","check --test"," "].rwd_options
+ @gemcommandoptions = ["help","--version","list --local","check -a","check --test","search","search --remote","specification","uninstall"," "].rwd_options
  end

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

@@ -20,11 +20,23 @@
        Click on Show Environment
        This will show your setup
        
-       You can run a Gem command or a shell command
+       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.",
+       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
@@ -36,8 +48,34 @@
        :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 "
-       
-      
+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.rubyslippers/listgemrecord.rb

@@ -1,4 +1,4 @@
-# this code is to list the gems that are installed
+# this code is to list the gemspecs
 def listgemrecordfiles
 #  fileList      = Dir.new($gemspecificationsdirectory).entries.sort.reverse.delete_if { |x| ! (x =~ /gemspec$/) }
  fileList      = Dir.new($gemspecificationsdirectory).entries.sort

data/code/superant.com.rubyslippers/listinstalledgemsfiles.rb

@@ -0,0 +1,13 @@
+# this code is to list the gem installed
+def listinstalledgemsfiles
+
+ fileList      = Dir.new($gemspecificationsdirectory).entries.sort
+  @listgemrecordfilesresult = fileList.rwd_method("fillgemspecname")
+  @gemcommandresult = " "
+end
+ 
+def fillgemspecname(inffile)
+  applet                = inffile.gsub(/\.gemspec$/, "")
+  @a_gemcommandoptioninput  = applet
+  
+end

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

@@ -1,7 +1,7 @@
 # this code is to call the help window
 def runhelpwindowrubyslippers
 
-     $help_topic = "rubyslippers_generalhelp"
+     $help_topic = "GemCommands_help"
    if @rwd_tab == "Viewgemdata"
      $help_topic = "rubyslippers_generalhelp"
    end
@@ -17,8 +17,25 @@ def runhelpwindowrubyslippers
     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"]
+   $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
    

data/code/superant.com.rubyslippers/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 = "rubyslippersselectiontab"
+   end   
+   

data/code/superant.com.rubyslippers/runrubyslippersmenu1.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.rubyslippers/viewgemdata.rb

@@ -8,7 +8,7 @@
 	  fd = File.open(fileName,"r")
     @viewgemdatadisplay = " "
    	while ! fd.eof?
-	    @viewgemdatadisplay = fd.read
+	    @a_viewgemdatadisplay = fd.read
 	  end
 	  fd.close
     rescue SystemCallError, StandardError

data/code/superant.com.rubyslippersbackwindow/listgemdir.rb

@@ -0,0 +1,19 @@
+ # this code is to list the gem directory
+ def listgemdir
+ begin
+ gemdirectory_gemfiles = File.join($gembuild_directory,@a_gemdirectoryinput)
+   fileList      = Dir.new(gemdirectory_gemfiles ).entries.sort
+   
+   @gemdirresult  = fileList.rwd_method("fillviewgemdir")
+ rescue
+  @gemdirresult = "file error"
+ end
+ 
+ end
+ 
+ # this method is to help fill in list of gemspecs
+ def fillviewgemdir(inffile)
+  applet                = inffile
+  @a_gemdirectoryinput        = applet
+ end
+

data/code/superant.com.rubyslippersbackwindow/listgemdirectories.rb

@@ -2,8 +2,11 @@
 def listgemdirectories
  gemdirectory_gemfiles =  $gembuild_directory
   fileList      = Dir.new(gemdirectory_gemfiles).entries.sort
+  Dir.chdir(gemdirectory_gemfiles)
+  fileList.delete_if {|x| !test(?d,x)}
   @listgemspecrecordfilesresult = ""
-  @listgemdirectoriesresult  = fileList.rwd_method("fillshowgemdirsname")
+  @listgemdirectoriesresult  = fileList.rwd_method("fillshowgemdirsname")
+  Dir.chdir($progdir)
 end
  
 def fillshowgemdirsname(inffile)

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 = ["#{$rwdcontrolport1}","#{$rwdcontrolport2}","#{$rwdcontrolport3}"].rwd_options
+  @remotecommandoptions = ["query","stop"].rwd_options
+ end
+
+

data/code/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/network.rb

@@ -0,0 +1,87 @@
+#!ruby
+require 'socket'		# Network stuff
+require 'timeout'		# Timeout functions
+
+def network_start
+ if RUBY_PLATFORM != "i386-mswin32"
+ processone = fork { 
+  network_demon }
+  Process.detach(processone)
+
+ else
+  puts "fork not tried winXP?"
+ end
+  @viewremotecommandresult = "starting controller on next available port"
+end
+
+  def network_demon
+	 # Find configuration variables
+	 host = "127.0.0.1"
+	 port = $rwdcontrolport1
+	 
+openportfound = false
+until openportfound
+   
+	 # Create a socket to listen on and bind it to the host and port 
+	 begin
+		@socket = UDPSocket::new()
+		@socket.bind(host, port)
+	 # Rescue the "Address in use" error
+     openportfound = true
+   
+	 rescue Errno::EADDRINUSE
+		 puts "controller startup: Port #{port} on host #{host} is already in use."
+		port=port+1
+	 # Rescue the "Address not available' error
+	 rescue Errno::EADDRNOTAVAIL
+		puts "Network plugin: Address #{host} is not available to bind."
+		port=port+1
+	 # Rescue "permission denied errors
+    rescue Errno::EACCES
+		puts "controller startup: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+		port=port+1
+	 # Rescue all other errors
+	 rescue
+   puts "Network plugin: An error occured."
+		port = port+1
+	 # Rescue all other errors
+	 end
+ 
+   end
+   
+
+	 # Get all acceptable hosts 
+	 hosts = ["localhost","vaio-sag"] 
+	 # Do some nice errorchecking
+	 if(hosts.type != Array)
+		puts "Network plugin: No hosts found in networkConfig/acceptHosts. Shutting down plugin."
+		return -1 # Return the errorcode for plugin failure
+	 end
+
+	 # Main loop 
+	 while(true)
+		# Get data and client data from the client
+		data, info = @socket.recvfrom(256)
+
+		# Is this an acceptable IP address?
+		if(hosts.include?(info[2]) || hosts.include?(info[3]))
+		  command, parameter = data.split(';')
+		  
+		  # Command actions
+		  command.downcase!()
+		  case command
+      
+		  when 'stop'
+						  @socket.send("hello world",0,info[3],info[1].to_i)
+				
+      		  when 'query'
+							  @socket.send("#{$rwdapplicationidentity} on port #{$port}",0,info[3],info[1].to_i)
+				
+      
+		  end # case command
+
+		end # Access control if
+	 end # while(true)
+
+  end # Network::start()
+