rwdlanguage 0.01

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

@@ -0,0 +1,169 @@
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+
+
+# integrate the new configuration files
+def initiateapplet(nametextlocal)
+	
+	debuginitiate = 0
+	
+	$rwdtinkerlog.info  "initiateapplet: starting config load with: #{nametextlocal}"
+
+  Dir.chdir($progdir )    #changes the current working directory
+	  
+  @confignew =  "configuration/" + "#{nametextlocal}.cnf"
+  @configdist =  "configuration/" + "#{nametextlocal}.dist"
+  Rconftool::install(@configdist,@confignew)
+
+begin 
+
+  configfileload = File.open(@configdist){|f| f.read}
+	 
+       eval configfileload  #load  config file
+       
+	 rescue
+	 
+   $rwdtinkerlog.error  "initiateapplet: error in initiateapplets - config load"
+        
+        debuginitiate += 1
+end
+$tempdoc = " "
+  
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the English Language hash file from the parts
+  require 'lib/rwdtinker/rwdlangdir'
+  
+  tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,"en")
+
+  #writes the contents of doc into the  languagehashvariable 
+  
+  languagehashvariable  =  tempdoc  
+
+  # END of en Lang building
+  $tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+  tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
+
+   #writes the contents of doc into the variable
+
+ languagehashvariable =  languagehashvariable + tempdoc 
+
+  Dir.chdir($progdir) # change back to top program directory
+
+   temp = eval(   languagehashvariable )
+
+  
+  tempguistorage = $rwd_gui_tinker # if gui load fails restore old
+  begin # error trap
+  
+	# build the actual GUI from the gui parts
+  tempdoc = " "
+  
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+ $rwd_gui_tinker = tempdoc
+  
+ rescue
+    $rwd_gui_tinker = tempguistorage # restore old gui
+    
+    $rwdtinkerlog.error  "error in initiateapplets - gui building"
+
+        debuginitiate += 1
+end
+
+begin # error trap
+            # now load in the code files
+
+            $tempdoc  = ""
+              tempcodeinstallline  = ""
+
+            @fileName = "installed/" + nametextlocal + ".inf"
+	    
+	$rwdtinkerlog.debug "initateapplets: loading file: #{@fileName}"
+	
+            tmpfilearray = File.readlines(@fileName)
+  
+            tmpfilearray.each do |line|
+	  
+                        tempcodeinstallline = line.chomp
+                        if tempcodeinstallline.include?('code/')
+	                           findfiles(tempcodeinstallline  + "/**")
+                                    tempcoderesult = eval( $tempdoc ) # read the program code and evaluate
+                        end
+             end 
+
+
+ rescue
+ 
+ $rwdtinkerlog.error "error in initiateapplets - code building"
+   
+        debuginitiate += 1
+    
+
+  end
+  
+          setuphelpaboutoptions # update the help about list
+           setuptinkerdocuments # update the document pull down list
+          runhelpwindow   # update the help menu
+          showjumplinkoptions # update the application link menu
+	  runrwdtinkerbackwindow # back to applet window
+
+         # resultend =  tempcodeinstallline .index("\n",resultstart)
+         tempresult  = @fileName
+ 
+         return " applet loading successful " + tempresult 
+
+
+  
+       if  debuginitiate > 0
+         return " initiateapplet .."
+       else
+	   return " initiateapplet success"
+	end
+
+end
+
+
+def findfiles(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 rwd files
+			if x =~ /rb|rwd|txt/
+				fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
+				$tempdoc+=fileA.read    #reads the file into the doc string
+				fileA.close    
+			end
+		end
+	end
+end
+
+
+  

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

@@ -0,0 +1,38 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# install rwdtinker applet from a long directory location 
+
+def installgemapplet
+	require 'fileutils'
+	require 'lib/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)
+		}
+		
+	rescue
+		
+		         $rwdtinkerlog.error "installgemapplet: unzip error - applet may not be installed correctly"
+	
+                           @installapplettext = " .. "
+	
+        end # exception rescue
+
+                @rwd_ignore_vars << @nametextbase << @returninitiateresults << @installapplettext	
+		tmpnametext = File.basename(nametext)
+		tmpnametext.chop!; tmpnametext.chop!; tmpnametext.chop!; tmpnametext.chop!
+		@nametextbase = tmpnametext.chop!
+		@returninitateresults = initiateapplet(@nametextbase)
+		@installapplettext = Message[:applet_installed] + " " +   @returninitateresults 
+
+				
+       RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+
+	
+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,55 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# 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/
+				    #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,14 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# 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
+

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

@@ -0,0 +1,37 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# 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
+	
+		$zipsarraylocal = []
+		
+	if  $zipslocation.slice(0,1) == "/" ||   $zipslocation.include?(":")
+	    startlangdir = $zipslocation 
+         else	
+	    startlangdir = File.join($progdir, $zipslocation )
+	end
+	
+	#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/
+			        #adds the file to the array to display on the screen
+			$zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+		end
+
+	end
+	
+	@zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+end 
+

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

@@ -0,0 +1,24 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# 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_configurationfile =        fd.read
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end
+

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

@@ -0,0 +1,14 @@
+# 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 @@
+#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()
+