rwddemo 0.91 → 0.92

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

@@ -1,87 +1,87 @@
-#!ruby
+#network
 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()
+	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,19 @@
-  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
+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
 
-  end

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

@@ -1,42 +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
+
+	# $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

@@ -1,24 +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
+	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
+	applet                = inffile
+	@superantcominstallremoteappletinput       = applet
+	
+end
+

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

@@ -1,32 +1,33 @@
-  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
-        if File.exist?(oneline.chop)
-        FileUtils.rm_rf( oneline.chop)
-         end
-        
-         end
-         count = 1
-      }
-   fd.close
-   
-    FileUtils.rm_rf( fileName)
-    
-    
-   @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
- 
-        rescue
-           @removeapplettext = "\n" + "error"
-       
-   end # exception rescue
-
-  end
+# method to remove a tinker applet
+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
+				if File.exist?(oneline.chop)
+					FileUtils.rm_rf( oneline.chop)
+				end
+
+			end
+			count = 1
+		}
+		fd.close
+
+		FileUtils.rm_rf( fileName)
+
+
+		@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,11 @@
 # 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  
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the rwdtinker helpwindow  
+
+def runrwdtinkerbackwindow
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "rwdzipslister"
+end   
 
-  def runrwdtinkerbackwindow
-   @rwd_window = "tinkerbackwindow"
-   @rwd_tab = "rwdzipslister"
-   end   
-   

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

@@ -1,14 +1,13 @@
 # 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
+# For information  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
 
-   end
-  

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

@@ -1,18 +1,19 @@
-  # this method saves the configuration 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 saves the configuration 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
+