rwddemo 0.8 → 0.90

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,99 @@
+# 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
+
+ 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
+
+

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

@@ -0,0 +1,58 @@
+# 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
+      ",
+     :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.",
+  :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/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/installapplet.rb

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

@@ -0,0 +1,31 @@
+# this code is to list the zipped applets that can be installed
+
+ 
+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/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/loadconfigurationrecord.rb

@@ -1,4 +1,4 @@
-   # this method views an existing address record
+   # this method puts the configuration rexord on the screen
   def loadconfigurationrecord
  
          require 'fileutils'

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

@@ -1,4 +1,4 @@
-   # this method clears the on screen variables
+   # this method loads the on screen variables into the running class
    def loadconfigurationvariables
    
    configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)

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 = $rwdcontrolports[0].to_i
+	 
+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()
+