bigtinker 0.93

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

@@ -0,0 +1,33 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdshellconfiguration
+ 
+         require 'fileutils'
+          
+               @a_rshellconfigurationfilename = "rwdshell.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, "rwdshell.cnf")
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_rshellconfigline1=        fd.readline.chomp
+	      @a_rshellconfigline2 =  fd.readline.chomp
+        @a_rshellconfigline3 = fd.readline.chomp
+          @a_rshellconfigline4 = fd.readline.chomp
+        @a_rshellconfigline5 = fd.readline.chomp
+         @a_rshellconfigline6 = fd.readline.chomp 
+          @a_rshellconfigline7 =fd.readline.chomp
+          @a_rshellconfigline8 = fd.readline.chomp
+           @a_rshellconfigline9 = fd.readline.chomp
+	 
+
+
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,13 @@
+   # this method loads the on screen variables into the running class
+   def loadrubyslippersconfigurationvariables
+   
+   configfiletoload = File.join(ConfigurationDir,"rubyslippers.cnf")
+   begin
+    load configfiletoload
+    @extrarsconfigdatadisplay = ""
+@newrsconfigurationresult = "Config Variables loaded"
+rescue
+ @extrarsconfigdatadisplay = ""
+ @newrsconfigurationresult = "loading error"
+ end
+  end

data/code/superant.com.rwdshell/loadscriptrecord.rb

@@ -0,0 +1,20 @@
+   # this method views an existing address record
+  def loadscriptrecord
+ 
+         require 'fileutils'
+        @a_tmpscriptfilename = $currentscriptname
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $shellscript_directory + "/" + $currentscriptname + ".sh"
+        
+	      fd = File.open(fileName,"r")
+	      @a_scriptfirstline  =        fd.readline.chomp
+	      @a_scriptcommentline =  fd.readline.chomp
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.rwdshell/openhelpwindowshell.rb

@@ -0,0 +1,33 @@
+# this code is to call the help window
+def runhelpwindowrwdshell
+
+     $help_topic = "rwdshell_help"
+   if @rwd_tab == "scriptlister"
+     $help_topic = "rwdshell_help"
+   end
+   
+    if @rwd_tab == "viewrwdshellconfiguration"
+       $help_topic = "ShellEnvironment_help"
+       end
+    if @rwd_tab == "EditScriptsrwdshell"
+       $help_topic = "shelledit_help"
+       end
+    if @rwd_tab == "editrubyrecordfile"
+       $help_topic = "shelledit_help"
+       end
+       
+     
+    
+   $helptopicsarray =  $helptopicsarray | ["rwdshell_help", "ShellEnvironment_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,23 @@
+  def playrubyscript
+  
+    
+    nametext = "%s" % [@a_rubyscriptcmd]
+	 
+      begin # exception trapped block
+      
+         fileName = $shellscript_directory + "/" + 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/playscript.rb

@@ -0,0 +1,23 @@
+  def playscript
+  
+    
+    nametext = "%s" % [@a_scriptcmd]
+	 
+      begin # exception trapped block
+      
+         fileName = $shellscript_directory + "/" + nametext + ".sh"
+        
+	      fd = File.open(fileName,"r")
+	      
+	      
+	        commandtext = fd.read
+        fd.close
+	      
+	      
+        @playscript_display = `#{commandtext}`
+
+        
+        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/rubyeval.rb

@@ -0,0 +1,25 @@
+  $buffer = ''
+    def $buffer.write(str) # create a variable to use in rubyeval 
+      self << str
+    end
+   def rubyeval
+     require 'Env'
+     require 'English'
+    commandtextruby = "%s " % [@a_rubyeval]
+     $tmpout = $stdout # save the original STDOUT
+     $stdout = $buffer
+    begin      # begin rescue monitored block	
+	eval( commandtextruby )
+
+        @rubydisplay = $stdout
+    
+    $stdout = $tmpout # restore STDOUT to normal
+        
+	rescue # process exeption
+	$stdout = $tmpout # restore STDOUT to normal
+	 @rubydisplay = "\n" + "error in eval"
+	 end # end of rescue process  # of rescure monitored block        
+	
+
+  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/runrwdshellwindow.rb

@@ -0,0 +1,12 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdshellwindow
+
+   @rwd=window = "main"
+   @rwd_tab="scriptlister"
+   
+   end   
+   

data/code/superant.com.rwdshell/rwdshellversion.rb

@@ -0,0 +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 runrwdshellversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdShell"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdShellVersion
+
+   end
+  

data/code/superant.com.rwdshell/savechangedscript.rb

@@ -0,0 +1,19 @@
+ 
+def savescriptrecord # this method adds a new script file
+  require 'fileutils'
+  if @a_tmpscriptfilename   
+   newdata =@a_scriptfirstline.to_s  + "\n #" + @a_scriptcommentline.to_s + "\n"   
+	 fullnewname = @a_tmpscriptfilename.to_s + ".sh"
+        begin # exception trapped block
+         fileName = File.join( $shellscript_directory, fullnewname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newdisplay=newdata # show the record info in the browser
+   $currentscriptname = "%s" %   [@a_tmpscriptfilename] # grab the new filename to create
+
+       rescue 
+            @newdisplay = "\n" + "system error in createnew method"
+        end  # exception rescue
+   end
+  end # end of createnew

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

@@ -0,0 +1,20 @@
+
+   
+   def shelleval
+   
+    commandtext = "%s " % [@a_shelleval]
+
+        begin # exception trapped block
+         commandtextnext = File.join($shellscript_directory,commandtext)
+
+        
+         @result =`#{commandtext}`
+        
+        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.rwdshell/viewscript.rb

@@ -0,0 +1,18 @@
+  def viewscript 
+   require 'fileutils'
+    $currentscriptname = "%s" % [@a_scriptfilename]
+	 
+        begin # exception trapped block
+   	 fileName = $shellscript_directory +  "/" + $currentscriptname + ".sh"
+        
+	fd = File.open(fileName,"r")
+	 @displayscripttext = " "
+	while ! fd.eof?
+	 @displayscripttext = fd.read
+	 end
+	 fd.close
+        rescue
+            @displayscripttext = "\n" + "error"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,96 @@
+# 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/diagnostictab.rb

@@ -0,0 +1,19 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+require 'resolv'
+require 'date'
+
+# return the platform information
+def runviewplatform
+	@platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+	@platformdisplay =  @platformdisplay + "Ruby Version " + VERSION + "\n" 
+	@platformdisplay  = @platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+	@platformdisplay = @platformdisplay + "program directory " + $progdir + "\n"
+	@platformdisplay = @platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+	@platformdisplay = @platformdisplay  + "application name " +  $rwdapplicationidentity   + "\n"
+	@platformdisplay = @platformdisplay +  "Date " +      Date.today().to_s
+
+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

@@ -0,0 +1,25 @@
+# code in install rwdtinker applets - now uses ruby.zip module
+def installapplet
+
+	nametext = "%s" % [@a_installapplet]
+
+	begin # exception trapped block
+
+
+		require 'extras/zip/zip'
+		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/installgemapplet.rb

@@ -0,0 +1,21 @@
+# 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,20 @@
+# 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,53 @@
+# 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/listinstalledfiles.rb

@@ -0,0 +1,12 @@
+# 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")
+end
+
+def fillappletname(inffile)
+	applet                = inffile.gsub(/\.inf$/, "")
+	@a_installlist        = applet
+	@a_removeapplet       = applet
+end
+