rwdschedule 0.93 → 0.94

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

@@ -1,21 +1,21 @@
-  def installapplet
-   require 'fileutils'
-    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)
-   @installapplettext = Message[:applet_installed]  
-   
-       rescue
-            @installapplettext = "Done! - Check applet list - restart rwd to activate the new applet"
-        end # exception rescue
-
-  end
+  def installapplet
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     fileName = File.join($zipslocation,fullname)
+
+  zf = Zip::ZipFile.new(fileName)
+ 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/listinstalledfiles.rb

@@ -1,4 +1,4 @@
-# this code is to list the applets that are installed
+# this code is to list the applets that are installed
 def listinstalledfiles
   fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
   @filesresult  = fileList.rwd_method("fillappletname")

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

@@ -1,8 +1,8 @@
-# this code is to list the zipped applets that can be installed
-def listzipfilestoinstall
+# 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")
+  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
   end
 end
  
@@ -11,6 +11,6 @@ def fillziptoinstallname(inffile)
   @a_installapplet        = applet
   
 end
-
-
-
+
+
+

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

@@ -1,32 +1,32 @@
    # this method puts the configuration rexord on the screen
-  def loadconfigurationrecord
- 
-         require 'fileutils'
-         if TinkerWin2ConfigurationFileName 
-               @a_configurationfilename = TinkerWin2ConfigurationFileName 
-         end
-	      
-        begin # exception trapped block
-       
-       Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
-        
-	      fd = File.open(fileName,"r")
-	      @a_configline1=        fd.readline.chomp
-	      @a_configline2 =  fd.readline.chomp
-        @a_configline3 = fd.readline.chomp
-          @a_configline4 = fd.readline.chomp
-        @a_configline5 = fd.readline.chomp
-         @a_configline6 = fd.readline.chomp 
-          @a_configline7 =fd.readline.chomp
-          @a_configline8 = fd.readline.chomp
-	 
-	      while ! fd.eof?
-	        @extraconfigdatadisplay = fd.readline
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
-
-  end
+  def loadconfigurationrecord
+ 
+         require 'fileutils'
+         if TinkerWin2ConfigurationFileName 
+               @a_configurationfilename = TinkerWin2ConfigurationFileName 
+         end
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
+        
+	      fd = File.open(fileName,"r")
+	      @a_configline1=        fd.readline.chomp
+	      @a_configline2 =  fd.readline.chomp
+        @a_configline3 = fd.readline.chomp
+          @a_configline4 = fd.readline.chomp
+        @a_configline5 = fd.readline.chomp
+         @a_configline6 = fd.readline.chomp 
+          @a_configline7 =fd.readline.chomp
+          @a_configline8 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extraconfigdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -1,13 +1,13 @@
-   # this method loads the on screen variables into the running class
-   def loadconfigurationvariables
-   
-   configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)
-   begin
-    load configfiletoload
-    @extraconfigdatadisplay = ""
-@newconfigurationresult = "Config Variables loaded"
-rescue
- @extraconfigdatadisplay = ""
- @newconfigurationresult = "loading error"
- end
-  end
+   # this method loads the on screen variables into the running class
+   def loadconfigurationvariables
+   
+   configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)
+   begin
+    load configfiletoload
+    @extraconfigdatadisplay = ""
+@newconfigurationresult = "Config Variables loaded"
+rescue
+ @extraconfigdatadisplay = ""
+ @newconfigurationresult = "loading error"
+ end
+  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/openappletname.rb

@@ -1,18 +1,18 @@
-  def openappletname 
-   require 'fileutils'
-    nametext = "%s" % [@a_installlist]
-	 
-        begin # exception trapped block
-   	 fileName = "installed/" + nametext + ".inf"
-        
-	fd = File.open(fileName,"r")
-	 @displaytext = " "
-	while ! fd.eof?
-	 @displaytext = fd.read
-	 end
-	 fd.close
-        rescue
-            @displaytext = "\n" + "error"
-        end # exception rescue
-
-  end
+  def openappletname 
+   require 'fileutils'
+    nametext = "%s" % [@a_installlist]
+	 
+        begin # exception trapped block
+   	 fileName = "installed/" + nametext + ".inf"
+        
+	fd = File.open(fileName,"r")
+	 @displaytext = " "
+	while ! fd.eof?
+	 @displaytext = fd.read
+	 end
+	 fd.close
+        rescue
+            @displaytext = "\n" + "error"
+        end # exception rescue
+
+  end

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/removeapplet.rb

@@ -1,28 +1,28 @@
-  def removeapplet
-   require 'fileutils'
-    nametext = "%s" % [@a_removeapplet]
-	 
-        begin # exception trapped block
-   	 fileName = "installed/" + nametext + ".inf"
-        count =  0
-	fd = File.open(fileName,"r") 
-	       
-   	    
-   	    fd.each { |oneline|   
-         if count == 1
-        commandline = "rm -r " + oneline
-         system( commandline+' > temp.output' )
-         end
-         count = 1
-      }
-   fd.close
-    commandline = "rm " + fileName
-    
-    system(commandline)
-   @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
- 
-        rescue
-            @removeapplettext = "\n" + "error"
-        end # exception rescue
-
-  end
+  def removeapplet
+   require 'fileutils'
+    nametext = "%s" % [@a_removeapplet]
+	 
+        begin # exception trapped block
+   	 fileName = "installed/" + nametext + ".inf"
+        count =  0
+	fd = File.open(fileName,"r") 
+	       
+   	    
+   	    fd.each { |oneline|   
+         if count == 1
+        commandline = "rm -r " + oneline
+         system( commandline+' > temp.output' )
+         end
+         count = 1
+      }
+   fd.close
+    commandline = "rm " + fileName
+    
+    system(commandline)
+   @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
+ 
+        rescue
+            @removeapplettext = "\n" + "error"
+        end # exception rescue
+
+  end

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

@@ -1,12 +1,12 @@
-# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
-# This application is a framework for writing programs from RubyWebDialogs
-# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
-# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the rwdtinker helpwindow  
-
-  def runrwdtinkerbackwindow
-   @rwd_window = "tinkerbackwindow"
-   @rwd_tab = "filelister"
-   end   
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the rwdtinker helpwindow  
+
+  def runrwdtinkerbackwindow
+   @rwd_window = "tinkerbackwindow"
+   @rwd_tab = "rwdzipslister"
+   end   
    

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

@@ -1,14 +1,14 @@
-# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
-# This application is a framework for writing programs from RubyWebDialogs
-# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
-# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
-  
-  # return the version constant defined in the config file
-  def runrwdtinkerwin2version
-  @rwd_window = "applicationversion"
-  @versionappnamedisplay = "RwdTinkerWin2"
-  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
-  @versionnumberdisplay =  "Version " + RwdTinkerWin2Version
-
-   end
-  
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # return the version constant defined in the config file
+  def runrwdtinkerwin2version
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTinkerWin2"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTinkerWin2Version
+
+   end
+  

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

@@ -1,18 +1,18 @@
-  # this method adds a new address record
-  def saveconfigurationrecord 
-   require 'fileutils'
-   if @a_configurationfilename
-   newname = "%s" %   [@a_configurationfilename] # grab the filename to create
-   newdata =@a_configline1.to_s + "\n" + @a_configline2.to_s + "\n" + @a_configline3.to_s + "\n" + @a_configline4.to_s + "\n" + @a_configline5.to_s + "\n" + @a_configline6.to_s + "\n" + @a_configline7.to_s + "\n" + @a_configline8.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
-  end
+  # this method adds a new address record
+  def saveconfigurationrecord 
+   require 'fileutils'
+   if @a_configurationfilename
+   newname = "%s" %   [@a_configurationfilename] # grab the filename to create
+   newdata =@a_configline1.to_s + "\n" + @a_configline2.to_s + "\n" + @a_configline3.to_s + "\n" + @a_configline4.to_s + "\n" + @a_configline5.to_s + "\n" + @a_configline6.to_s + "\n" + @a_configline7.to_s + "\n" + @a_configline8.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
+  end