rwdtinker 1.48 → 1.51

data/Readme.txt

@@ -1,14 +1,11 @@
 = RwdTinker framework for RubyWebDialogs
 
-
 RwdTinker is a web brower interface to and system for developing programs
 
 == Usage
 
-
 How to Use the Tinker framework Program (rwdtinker)
 
-
 1. stand alone application
 2. framework for building applications
 3. Open brower windows with html documents
@@ -22,13 +19,10 @@ ruby init.rb
 Then point your web browser to:
 http://localhost:7705/
 
-
 == Viewing installed Applets:
-
  
 Go to "List Scripts" tab
 
-
      You can get a list of all installed applets by clicking the listfiles button
      
       To see the text of a install file
@@ -233,6 +227,25 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+version 1.51
+ changed return to main
+ changed configuration of remote ports
+ updated context sensitive help
+
+version 1.50
+ changed unzip applet to be internal code - no exec to unzip program
+ changed order of tabs on back window - list applets now first
+ added rwdwcalc applet in to zips directory
+ changed width of text fields with help from RubyWebDialogs author
+ changed listing of help options, vertical instead of horizontal  
+
+version 1.49
+ added demon function for remote queries
+ startup application on first available port
+ 
+version 1.48
+ fix in context sensitive help so that applets can use it better
+
 version 1.47
  change to context sensitive help
 

data/code/01rwdcore/03helptexthash.rb

@@ -13,36 +13,19 @@ 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:
   
   
   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
+  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,36 +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"]
+ 
+end
+ 
+   if @rwd_window == "rwdtinkerhelpwindow"
+   puts "in help window processing"
+  else
    $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
-     
-       $previouswindow = @rwd_window
-      $previoustab = @rwd_tab
-  end 
-   if @rwd_window == "rwdtinkerhelpwindow"
-    $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing"]
    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.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/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 = $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()
+

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

@@ -0,0 +1,39 @@
+# 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_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+      else
+           $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

@@ -7,6 +7,6 @@
 
   def runrwdtinkerbackwindow
    @rwd_window = "tinkerbackwindow"
-   @rwd_tab = "filelister"
+   @rwd_tab = "rwdzipslister"
    end   
    

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

@@ -0,0 +1,21 @@
+  def viewappletcontents
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     fileName = File.join($zipslocation,fullname)
+  tempfilecontents = " "
+  zf = Zip::ZipFile.new(fileName)
+ zf.sort.each {
+  |entry|
+      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+                     }
+   @appletcontentstext = tempfilecontents 
+   
+       rescue
+            @installapplettext = "unzip error - error opening applet"
+        end # exception rescue
+
+  end

data/configuration/rwdapplicationidentity.cnf

@@ -0,0 +1,3 @@
+
+$rwdapplicationidentity = "rwdtinker main application"
+

data/configuration/rwdtinker.cnf

@@ -12,4 +12,5 @@ LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb"
   $help_topic = "general_help"
    $helptopicsarray = [ "general_help","network_help"]
   $prevouswindow ="main"
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705

data/configuration/rwdtinkerversion.cnf

@@ -1,2 +1,2 @@
 
-RwdTinkerVersion = "1.48"
+RwdTinkerVersion = "1.51"

data/ev/rwd.rb

@@ -267,7 +267,7 @@ class OpenTag
       template	= $rwd_html_PDA_1	if pda
 
       res <<(template(template, args))
-    when "p"		then res << "<p #{align}>"
+    when "p"		then     res << "<p #{align} > "
     when "pre"		then res << "<pre #{align}>"
     when "big"		then res << "<p #{align}><big>"
     when "small"	then res << "<p #{align}><small>"
@@ -308,9 +308,10 @@ class OpenTag
     when "hidden"	then res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='hidden'>"
     when "text"
       maxlength	= ""
-      maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
+       maxlength	= "maxlength='%s'" % @args["maxlength"]	if @args.include?("maxlength")
       size	= ""
-      size	= "size='%s'" % 10			if pda
+      size = "size='%s'" % @args["size"] if @args.include?("size")
+        size	= "size='%s'" % 10			if pda
       res << "<p #{align}><input name='#{@args["name"]}' value='#{value1}' type='text' #{maxlength} #{size}>"
       oneormorefields	<< "true"
     when "textarea"

data/extras/zip/ioextras.rb

@@ -0,0 +1,114 @@
+module IOExtras
+  module FakeIO
+    def kind_of?(object)
+      object == IO || super
+    end
+  end
+
+  # Implements many of the convenience methods of IO
+  # such as gets, getc, readline and readlines 
+  # depends on: input_finished?, produce_input and read
+  module AbstractInputStream  
+    include Enumerable
+    include FakeIO
+
+    def initialize
+      super
+      @lineno = 0
+      @outputBuffer = ""
+    end
+
+    attr_accessor :lineno
+
+    def readlines(aSepString = $/)
+      retVal = []
+      each_line(aSepString) { |line| retVal << line }
+      return retVal
+    end
+    
+    def gets(aSepString=$/)
+      @lineno = @lineno.next
+      return read if aSepString == nil
+      aSepString="#{$/}#{$/}" if aSepString == ""
+      
+      bufferIndex=0
+      while ((matchIndex = @outputBuffer.index(aSepString, bufferIndex)) == nil)
+	bufferIndex=@outputBuffer.length
+	if input_finished?
+	  return @outputBuffer.empty? ? nil : flush 
+	end
+	@outputBuffer << produce_input
+      end
+      sepIndex=matchIndex + aSepString.length
+      return @outputBuffer.slice!(0...sepIndex)
+    end
+    
+    def flush
+      retVal=@outputBuffer
+      @outputBuffer=""
+      return retVal
+    end
+    
+    def readline(aSepString = $/)
+      retVal = gets(aSepString)
+      raise EOFError if retVal == nil
+      return retVal
+    end
+    
+    def each_line(aSepString = $/)
+      while true
+	yield readline(aSepString)
+      end
+    rescue EOFError
+    end
+    
+    alias_method :each, :each_line
+  end
+
+
+  #relies on <<
+  module AbstractOutputStream 
+    include FakeIO
+
+    def write(data)
+      self << data
+      data.to_s.length
+    end
+
+
+    def print(*params)
+      self << params.to_s << $\.to_s
+    end
+
+    def printf(aFormatString, *params)
+      self << sprintf(aFormatString, *params)
+    end
+
+    def putc(anObject)
+      self << case anObject
+	      when Fixnum then anObject.chr
+	      when String then anObject
+	      else raise TypeError, "putc: Only Fixnum and String supported"
+	      end
+      anObject
+    end
+    
+    def puts(*params)
+      params << "\n" if params.empty?
+      params.flatten.each {
+	|element|
+	val = element.to_s
+	self << val
+	self << "\n" unless val[-1,1] == "\n"
+      }
+    end
+
+  end
+
+end # IOExtras namespace module
+
+
+
+# Copyright (C) 2002-2004 Thomas Sondergaard
+# rubyzip is free software; you can redistribute it and/or
+# modify it under the terms of the ruby license.