rubyslippers 0.99 → 1.00

data/Readme.txt

@@ -157,6 +157,15 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 =Changelog
+version 1.00
+ correct view gemspec screen
+ added rconftool use to update configuration files
+ changed applets removal to not use external rm
+ removed version number from directory name
+ 
+version 0.99
+ bug fix - "view gem" tab - name selection
+
 version 0.98
  updated for rwdtinker version 1.50
  changed width of text fields with help from RubyWebDialogs author

data/code/01rwdcore/03helptexthash.rb

@@ -13,33 +13,7 @@ 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",
 
-           :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.",
+          
   :documents_rwdtinker => "Documents:
   
   
@@ -47,5 +21,11 @@ Then you should be able to login at: http://yourhostname:8080",
   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"
+  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/openhelpwindow.rb

@@ -1,41 +1,22 @@
 # 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
-   $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
-   $previouswindow = @rwd_window
-   $previoustab = @rwd_tab
-   
-end  
-
- if @rwd_window == "tinkerbackwindow"
-    if @rwd_tab == "filelister" 
-       $help_topic = "applet_viewing"
-    $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
-    end
-      if @rwd_tab == "zipslister" 
-       $help_topic = "applet_installation"
-       $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
-    end
-     if @rwd_tab == "editconfigurationfile"
-       $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 
+ 
+end
  
    if @rwd_window == "rwdtinkerhelpwindow"
-    $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
+   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")

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/superant.com.rubyslippers/listgemrecord.rb

@@ -1,12 +1,13 @@
 # this code is to list the gemspecs
 def listgemrecordfiles
   fileList      = Dir.new($gemspecificationsdirectory).entries.sort.delete_if { |x| ! (x =~ /gemspec$/) }
-# fileList      = Dir.new($gemspecificationsdirectory).entries.sort
+
   @listgemrecordfilesresult = fileList.rwd_method("fillgemrecordname")
 end
  
 def fillgemrecordname(inffile)
-  applet                = inffile.gsub(/\.gemspec$/, "")
-  @a_viewgemdata  = applet
+  applet                = inffile.gsub(/\.gemspec$/, "")
+  puts applet
+  @a_viewgemdata  = applet.to_s
   
 end

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

@@ -0,0 +1,54 @@
+# this code is to list the zips
+
+
+def fillhypernotename(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet = applet
+  
+end
+
+ def findzipfiles(d)
+         a = Array.new(Dir[d].entries.sort)
+         #loop through and get the files names
+         a.each do |x|
+               #adjust the filters to the files you want to see...
+               if(!test(?d,x))
+               # only zip files
+                  if x =~ /\.zip/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $zipsarray =  $zipsarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def listgemzips
+ startlangdir = $geminstalled_directory
+ #get a list of the files and subdirectories on the starting directory only
+        alanghash = Array.new(Dir[startlangdir].entries.sort)
+        p alanghash
+        #loop through the list, ignore the files and add all new directories found
+        alanghash.each do |x|
+          #if a directory...
+          if(test(?d,x))
+            # add to the original list of directories
+            @@tmproot = x + "/**"
+            #adds the new ones to the array
+            blanghash = Dir[@@tmproot].entries.sort
+            blanghash.each do |x|
+              if(test(?d,x))
+                alanghash.push(x)  #appends to the end of the array...
+              end
+            end
+          end
+        end
+        alanghash.each do |x|
+                #if it is a file...
+                if(!test(?d,x))
+                        alanghash.delete(x)
+                  else              #it is a directory...
+                        findzipfiles(x + "/**")
+                end
+        end
+         @zipslistresult = $zipsarray.rwd_method("fillhypernotename")
+      end  

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

@@ -22,7 +22,11 @@
           @a_rsconfigline7 =fd.readline.chomp
           @a_rsconfigline8 = fd.readline.chomp
            @a_rsconfigline9 = fd.readline.chomp
-	 
+           @a_rsconfigline10 = fd.readline.chomp
+           @a_rsconfigline11 = fd.readline.chomp
+           @a_rsconfigline12 = fd.readline.chomp
+           @a_rsconfigline13 = fd.readline.chomp
+	  @a_rsconfigline14 = fd.readline.chomp
 	      while ! fd.eof?
 	        @extrarsconfigdatadisplay = fd.readline
 	      end

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

@@ -3,7 +3,7 @@
    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"
+   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"+ @a_rsconfigline10.to_s + "\n"+ @a_rsconfigline11.to_s + "\n"+ @a_rsconfigline12.to_s + "\n"+ @a_rsconfigline13.to_s + "\n"+ @a_rsconfigline14.to_s + "\n"
 	 
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )

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

@@ -1,28 +1,22 @@
-#
+# Bind message passing socket to rwdtinker application
 
 def runcontrolcommand
 require 'socket'
 
 # Change this line... 
-ip =  '127.0.0.1' 
+ ip =  '127.0.0.1' 
 # And this one...
-port =  $rwdcontrolport1
-if @a_remoteportinput
-port = @a_remoteportinput.to_i
-end
-# Done!
+ port =  $rwdcontrolport1
+ if @a_remoteportinput
+ port = @a_remoteportinput.to_i
+ end
 
- 
     commandtext =  @a_remotecommandinput.to_s 
-  
- remotehostnotfound = true
-
-client = UDPSocket::new()
-client.send(commandtext, 0, ip, port)
-
-
-if (commandtext == "stop")
-begin
+   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
@@ -51,17 +45,20 @@ begin
      @remotecommandresult =  "Remote Host not running"
      end
  @socket.close
-end
+  # Close the socket after use
+ client.close()
+ end
 
-remotehostnotfound = true
-if (commandtext == "query")
-begin
+ 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} "
@@ -82,18 +79,20 @@ begin
 	 # Rescue all other errors
 	 end
 @socket.close
-end
-  if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
-     end
+
 # 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 = ["#{$rwdcontrolport1}","#{$rwdcontrolport2}","#{$rwdcontrolport3}"].rwd_options
+ @remoteportoptions = $rwdcontrolports.rwd_options
   @remotecommandoptions = ["query","stop"].rwd_options
  end
 

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

@@ -0,0 +1,61 @@
+# help text files used by context sensitive help  
+
+ 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
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      to install applets you need the ruby zlib library installed
+      ",
+     :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
+       to install applets you need the ruby zlib library installed",
+
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
+)

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

@@ -1,9 +1,12 @@
+# code in install rwdtinker applets - now uses ruby.zip module
   def installapplet
-   require 'fileutils'
-   require 'extras/zip/zip'
+   
     nametext = "%s" % [@a_installapplet]
-	 
+
         begin # exception trapped block
+
+
+   require 'extras/zip/zip'
    	 fullname =  nametext + ".zip"
      fileName = File.join($zipslocation,fullname)
 

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

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

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

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

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

@@ -0,0 +1,12 @@
+# this code is to list the gem directories that are installed
+def superantcomshowgemfiledirs
+ 
+  fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+  @superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+end
+ 
+def superantcomshowgemappletdirsname(inffile)
+  applet                = inffile
+  @a_gemfiledirsinput       = applet
+  
+end

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

@@ -0,0 +1,54 @@
+# this code is to list the zips
+
+
+def fillzipappletname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet = applet
+  
+end
+
+ def findzipfiles(d)
+         a = Array.new(Dir[d].entries.sort)
+         #loop through and get the files names
+         a.each do |x|
+               #adjust the filters to the files you want to see...
+               if(!test(?d,x))
+               # only zip files
+                  if x =~ /\.zip/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $zipsarray =  $zipsarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def listgemzips
+ startlangdir = $geminstalled_directory
+ #get a list of the files and subdirectories on the starting directory only
+        alanghash = Array.new(Dir[startlangdir].entries.sort)
+        p alanghash
+        #loop through the list, ignore the files and add all new directories found
+        alanghash.each do |x|
+          #if a directory...
+          if(test(?d,x))
+            # add to the original list of directories
+            @@tmproot = x + "/**"
+            #adds the new ones to the array
+            blanghash = Dir[@@tmproot].entries.sort
+            blanghash.each do |x|
+              if(test(?d,x))
+                alanghash.push(x)  #appends to the end of the array...
+              end
+            end
+          end
+        end
+        alanghash.each do |x|
+                #if it is a file...
+                if(!test(?d,x))
+                        alanghash.delete(x)
+                  else              #it is a directory...
+                        findzipfiles(x + "/**")
+                end
+        end
+         @zipslistresult = $zipsarray.rwd_method("fillzipappletname")
+      end  

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

@@ -1,16 +1,31 @@
 # this code is to list the zipped applets that can be installed
-def listzipfilestoinstall
- if File.exist?($zipslocation)
-  fileList      = Dir.new($zipslocation).entries.sort.delete_if { |x| ! (x =~ /zip$/) }
-  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
-  end
-end
+
  
 def fillziptoinstallname(inffile)
   applet                = inffile.gsub(/\.zip$/, "")
   @a_installapplet        = applet
   
 end
+
 
 
-
+  
+def  listzipfilestoinstall
+ startlangdir = File.join($progdir, $zipslocation )
+ #get a list of the files and subdirectories on the starting directory only
+      
+    
+        a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
+        
+         #loop through and get the files names
+         a.each do |x|
+               # only zip files
+                  if x =~ /\.zip/
+                  #  puts "#{x}"        #adds the file to the array to display on the screen
+                   $zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+               end
+              
+             end
+      
+         @zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+      end  

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

@@ -17,7 +17,7 @@ end
   def network_demon
 	 # Find configuration variables
 	 host = "127.0.0.1"
-	 port = $rwdcontrolport1
+	 port = $rwdcontrolports[0].to_i
 	 
 openportfound = false
 until openportfound

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

@@ -0,0 +1,42 @@
+# this code is to call the help window
+def runhelpwindowtinkerwin2
+ 
+  # $helptopicsarray =  $helptopicsarray | [""]
+
+        $help_topic = "tinkerwin2_help"
+   if @rwd_tab == "rwdzipslister"
+     $help_topic = "tinkerwin2_help"
+   end
+  
+    if @rwd_tab == "filelister" 
+       $help_topic = "applet_viewing"
+   
+    end
+      if @rwd_tab == "zipslister" 
+       $help_topic = "applet_installation"
+       
+    end
+     if @rwd_tab == "editconfigurationfile"
+       $help_topic = "applet_tinkerbackeditconfiguration"
+      
+    end
+     if @rwd_tab == "rwdremotecontrol"
+      $help_topic = "remote_control"
+      
+      end
+       if @rwd_tab == "superantcomremotezipsinstall"
+       $help_topic = "remotegemapplet_install"
+       end
+          
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+      else
+           $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

@@ -0,0 +1,24 @@
+# This tinker method is to retrieve the list of rwdzip applets available to install from the remote repository
+  
+def superantcomremotegemlist
+  gemcommandoption = "search --remote "
+    gemfilename = "rwdzip"
+    commandtext = "gem search --remote rwdzip"  
+    commandtemp = $xpcommand  + commandtext
+    begin # exception trapped block
+         
+     tempremotegemappletsresult = `#{commandtemp}  2>&1`
+     @superantcomremotegemappletsfullresult = tempremotegemappletsresult
+     fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
+    
+  @superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
+      rescue SystemCallError, StandardError
+     @superantcomremotegemappletsresult  = "system call error: " + $!
+    end # exception rescue
+end
+ 
+def superantcomremotegemappletdirsname(inffile)
+  applet                = inffile
+  @superantcominstallremoteappletinput       = applet
+  
+end

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

@@ -10,19 +10,23 @@
    	    
    	    fd.each { |oneline|   
          if count == 1
-        commandline = "rm -r " + oneline
-         system( commandline+' > temp.output' )
+        if File.exist?(oneline.chop)
+        FileUtils.rm_rf( oneline.chop)
+         end
+        
          end
          count = 1
       }
    fd.close
-    commandline = "rm " + fileName
+   
+    FileUtils.rm_rf( fileName)
+    
     
-    system(commandline)
    @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
  
         rescue
-            @removeapplettext = "\n" + "error"
-        end # exception rescue
+           @removeapplettext = "\n" + "error"
+       
+   end # exception rescue
 
   end

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

@@ -1,4 +1,4 @@
-  # this method adds a new address record
+  # this method saves the configuration record
   def saveconfigurationrecord 
    require 'fileutils'
    if @a_configurationfilename