rwdshell 0.9

data/Readme.txt

@@ -0,0 +1,57 @@
+rwdapplications are web brower applications
+
+The GUI interface used is RubyWebDialogs 
+
+RubyWebDialogs is a platform independent graphical user interface for Ruby applications. It generates HTML and serves it with an internal HTTP server, so you can use your favorite web browser as the front end for your Ruby application. All this means, that it can be used on almost every platform, like Ruby itself. http://www.erikveen.dds.nl/rubywebdialogs/
+
+
+Start the program by:
+changing to the directory and
+ruby init.rb
+
+Then point your web browser to:
+http://localhost:7701/
+
+Or to the port that shows on the console or in the config.cnf file
+
+Requirements:
+RubyWebDialogs - I am using 0.0.11 2004-3-9
+ This package you downloaded should have a runtime version of 
+ the needed rubywebdialog files
+
+Ruby I am using version 1.8.2
+
+I have tested this under Linux-Debian kernel 2.6.9
+
+Operation:
+The code files reside in the code directory and are combined before 
+the main Class is loaded
+
+The rwd files in gui are combined before the gui is activated
+
+Trouble shooting:
+
+untar the file
+tar zxvf rwdapplication-x.y.tar.gz
+then cd to the directory
+cd rwdapplication-x.y
+then start the init.rb program file
+ruby init.rb
+
+
+If the program is not working, try looking at the ev subdirectory. That is where
+the runtime of rubywebdialogs are.
+
+for long term installation, I would suggest putting most files in a lib directory
+like /usr/lib/rwdshell
+then make a writable directory the local directory for command files to be written
+like ~/rwdshell
+
+
+Closing the browser doesn't terminate the application. You have to use the application's close-button  And terminating the application doesn't terminate the application when running in network mode. You just log out.
+
+Don't use the back-button of the browser! Strange and unpredictable things may and will happen!
+
+Steven Gibson
+stevengibson@superant.com
+http://rwdapplications.rubyforge.org/

data/bin/rwdshell

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2004 Steven Gibson <steven@superant.com>
+#   RwdTinker application
+#
+# This program is free software. It may be redistributed and/or modified under
+# the terms of the GPL version 2 (or later), or the
+# Ruby licence.
+# 
+#++
+
+
+$progdir = File::expand_path( File.dirname(__FILE__))
+
+Dir.chdir($progdir)
+
+Dir.chdir("..")
+
+`ruby init.rb` 

data/code/ag1core/aa0begin.rb

@@ -0,0 +1,18 @@
+# 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
+# This class is the top class for the RwdTinker application 
+ 
+class RwdTinker  < RWDialog
+ 
+  def main
+  @rwd_window = "main"
+    @result = "idle"
+    @display= "idle"
+  end
+  
+  def inspect
+   "Rwdtinker Application " 
+   end
+  

data/code/ag1core/rwdtinkerversion.rb

@@ -0,0 +1,15 @@
+# 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 runrwdtinkerversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTinker"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTinkerVersion
+
+   end
+  
+  

data/code/al5languagefiles/alanguagehashbegin.rb

@@ -0,0 +1,4 @@
+  
+
+ Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+    langmessage = {

data/code/al5languagefiles/languagehash.rb

@@ -0,0 +1,4 @@
+        # The encoding for the webpages. This should match the encoding used
+        # to create these messages.
+  
+

data/code/al5languagefiles/templangfile.rb

@@ -0,0 +1,6 @@
+ # English Language files for RwdTinker core
+
+      :module_unknown              => "Module unknown",
+      :applet_installed          => "applet installed!.",
+  
+

data/code/al5languagefiles/zlanguagehashend.rb

@@ -0,0 +1,6 @@
+
+    }
+    langmessage.each { |kk, vv| Message[kk] = vv }
+  
+
+

data/code/cb7rubyeval/cb7rubyeval.rb

@@ -0,0 +1,23 @@
+  $buffer = ''
+    def $buffer.write(str) # create a variable to use in rubyeval 
+      self << str
+    end
+   def rubyeval
+    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/dd0shelleval/dd0shelleval.rb

@@ -0,0 +1,20 @@
+
+   
+   def shelleval
+   
+    commandtext = "%s " % [@a_shelleval]
+
+        begin # exception trapped block
+         system(commandtext+' > temp.output')
+
+        
+         @result =`#{commandtext}`
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end
+
+
+

data/code/ek0shellscripts/ek0playscript.rb

@@ -0,0 +1,22 @@
+  def playscript
+  
+    
+    nametext = "%s" % [@a_scriptcmd]
+	 
+      begin # exception trapped block
+         fileName = "scripts/" + 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/ek0shellscripts/em0listscripts.rb

@@ -0,0 +1,12 @@
+# this code is to list the scripts 
+def  listscripts
+  fileList      = Dir.new($shellscript_directory).entries.sort.reverse.delete_if { |x| ! (x =~ /sh$/) }
+  @listscriptresult = fileList.rwd_method("fillscriptname")
+end
+ 
+def fillscriptname(inffile)
+  applet                = inffile.gsub(/\.sh$/, "")
+  @a_scriptlist  = applet
+  @a_scriptcmd = applet
+end
+

data/code/ek0shellscripts/em1viewscript.rb

@@ -0,0 +1,18 @@
+  def viewscript 
+   require 'fileutils'
+    nametext = "%s" % [@a_scriptlist]
+	 
+        begin # exception trapped block
+   	 fileName = "scripts/" + nametext + ".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/ek0shellscripts/en0createnewscript.rb

@@ -0,0 +1,18 @@
+ 
+def createnew # this method adds a new script file
+  require 'fileutils'
+   
+   newname = "%s" %   [@a_filename] # grab the new filename to create
+   newdata =@a_firstline.to_s  + "\n #" + @a_commentline.to_s + "\n"   
+	 fullnewname = newname + ".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
+       rescue 
+            @newdisplay = "\n" + "system error in createnew method"
+        end  # exception rescue
+
+  end # end of createnew

data/code/gh9calendar/gh9calendar.rb

@@ -0,0 +1,16 @@
+ require 'fileutils'
+ 
+ def showmonth
+      
+    begin      # begin rescue monitored block	
+
+     command_file_path = File.join( $extras_directory, 'cal.rb' )   
+     
+     @showmonthresult = `ruby  #{command_file_path} -c #{$lang} #{@a_month.to_i} #{@a_year.to_i} ` 
+        
+   rescue # process exeption
+     @showmonthresult = "\n" + "error in eval"
+   end # end of rescue process  # of rescure monitored block        
+
+  end
+  

data/code/ii3calculator/ca2multiply.rb

@@ -0,0 +1,5 @@
+
+  def multiply
+    @result = "%s * %s = %s" % [@a_calc, @b_calc, @a_calc.to_i*@b_calc.to_i]
+  end
+	

data/code/ii3calculator/ca4add.rb

@@ -0,0 +1,5 @@
+  def add
+ @result ="%s + %s = %s" % [@a_calc, @b_calc, @a_calc.to_i+@b_calc.to_i]
+ end
+
+	

data/code/lm1installapplets/ll5listzips.rb

@@ -0,0 +1,14 @@
+# this code is to list the zipped applets that can be installed
+def listzipfilestoinstall
+  fileList      = Dir.new("zips").entries.sort.reverse.delete_if { |x| ! (x =~ /zip$/) }
+  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
+end
+ 
+def fillziptoinstallname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet        = applet
+  
+end
+
+
+

data/code/lm1installapplets/lm1installapplet.rb

@@ -0,0 +1,20 @@
+  def installapplet
+   require 'fileutils'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fileName = "zips/" + nametext + ".zip"
+  	
+	        commandline = "unzip -o " + 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

data/code/ssdiagnostictab/diagnostictab.rb

@@ -0,0 +1,20 @@
+# 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 Ruby constant 
+  def runrubyversion
+   @rubyversion = "Version " + VERSION
+   end
+   
+   # return the platform constan
+   def runviewplatform
+   @platformdisplay = "Platform is " + RUBY_PLATFORM
+   end
+   
+   # return Rwdtinker version to diagnostic tab
+   def rwdtinkerversiondiagnostic
+   @rwdtinkerversionreturn = "rwdtinker version " + RwdTinkerVersion
+   end
+  

data/code/xa5rwdtinkercallable/callable.rb

@@ -0,0 +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
+  
+  # call the rwdtinker helpwindow  
+  def runrwdtinkerhelpwindow
+   @rwd_window = "rwdtinkerhelpwindow"
+   end
+  def runrwdtinkerbackwindow
+   @rwd_window = "tinkerbackwindow"
+   end   
+   

data/code/xb1rwdtinkerbackwindow/05listinstalledfiles.rb

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

@@ -0,0 +1,20 @@
+# 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 Ruby constant 
+  def runrubyversion
+   @rubyversion = "Version " + VERSION
+   end
+   
+   # return the platform constan
+   def runviewplatform
+   @platformdisplay = "Platform is " + RUBY_PLATFORM
+   end
+   
+   # return Rwdtinker version to diagnostic tab
+   def rwdtinkerversiondiagnostic
+   @rwdtinkerversionreturn = "rwdtinker version " + RwdTinkerVersion
+   end
+  

data/code/xb1rwdtinkerbackwindow/ll1openname.rb

@@ -0,0 +1,18 @@
+  def openname 
+   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/xb1rwdtinkerbackwindow/ll5listzips.rb

@@ -0,0 +1,14 @@
+# this code is to list the zipped applets that can be installed
+def listzipfilestoinstall
+  fileList      = Dir.new("zips").entries.sort.reverse.delete_if { |x| ! (x =~ /zip$/) }
+  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
+end
+ 
+def fillziptoinstallname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet        = applet
+  
+end
+
+
+

data/code/xb1rwdtinkerbackwindow/lm1installapplet.rb

@@ -0,0 +1,20 @@
+  def installapplet
+   require 'fileutils'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fileName = "zips/" + nametext + ".zip"
+  	
+	        commandline = "unzip -o " + 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

data/code/xb1rwdtinkerbackwindow/mm1removeapplet.rb

@@ -0,0 +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

data/code/xb1rwdtinkerbackwindow/rwdtinkerwin2version.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 runrwdtinkerwin2version
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTinkerWin2"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTinkerWin2Version
+
+   end
+  

data/code/zz0applicationend/zz0end.rb

@@ -0,0 +1,4 @@
+
+
+end # end of rwdtinker class
+	

data/configuration/aa0rwdframework.cnf

@@ -0,0 +1,11 @@
+RwdTinkerVersion = "1.23"
+CodeName = "rwdtinker"
+CodeNameFile = CodeName + ".rb"
+RWDFile	= "rwdtinker.rwd"
+$lang = "en"
+ @@codedir = "code"
+ @@guidir = "gui" + "/" + $lang
+ @@langdir = "lang"
+
+TempLangHashFile = @@codedir + "/" + "al5languagefiles" + "/" + "templangfile.rb"
+$port = 7705

data/configuration/ab1tinkerwin2.cnf

@@ -0,0 +1,3 @@
+RwdTinkerWin2Version = "0.5"
+ZipsLocation = "zips" # not yet functional
+

data/configuration/ek0playscripts.cnf

@@ -0,0 +1,2 @@
+
+$shellscript_directory = "scripts"

data/configuration/gh1rwdcalendar.cnf

@@ -0,0 +1,26 @@
+
+$extras_directory = "extras"
+
+class LanguageTextrwdcalendar
+
+ def locale(languagecode,wordtotranslate)
+
+  case languagecode
+
+   when "en"
+    case wordtotranslate
+     when "year"
+      return "year"
+     when "month"
+      return "month"   
+    end
+   when "nl"
+    case wordtotranslate
+     when "year"
+      return "jaar"
+     when "month"
+      return "maand"   
+    end
+  end
+ end
+end

data/ev/browser.rb

@@ -0,0 +1,109 @@
+require "ev/ruby"
+require "ev/net"
+
+begin
+  require "win32ole"
+  require "win32/registry"
+rescue LoadError
+  $".push "win32ole.so"
+  $".push "win32/registry.rb"
+end
+
+def windowsbrowser
+  $stderr.puts "Looking for default browser..."
+
+  filetype	= "htmlfile"
+  application	= nil
+
+  begin
+    Win32::Registry::HKEY_CLASSES_ROOT.open('.html') do |reg|
+      filetype		= reg[""]
+    end
+
+    Win32::Registry::HKEY_CLASSES_ROOT.open(filetype + '\shell\open\command') do |reg|
+      application	= reg[""]
+    end
+  rescue NameError
+    $stderr.puts "Only available for Windows."
+  end
+
+  application
+end
+
+def linuxbrowser
+  application	= ""
+
+  application	= `which galeon		2> /dev/null`.chomp	if application.empty?
+  application	= `which mozilla	2> /dev/null`.chomp	if application.empty?
+  application	= `which firefox	2> /dev/null`.chomp	if application.empty?
+  application	= `which opera		2> /dev/null`.chomp	if application.empty?
+  application	= `which konqueror	2> /dev/null`.chomp	if application.empty?
+  application	= `which htmlview	2> /dev/null`.chomp	if application.empty?
+  application	= nil						if application.empty?
+
+  application
+end
+
+def defaultbrowser
+  res	= nil
+  res	= windowsbrowser	if windows?
+  res	= linuxbrowser		if linux?
+  res
+end
+
+def showinbrowser(html, browser=defaultbrowser)
+  port, io	= TCPServer.freeport(7701, 7709)
+
+  unless browser.nil?
+    Thread.new do
+      begin
+	#command	= "1234 \"http://localhost:#{port}\""										if linux?
+	#command	= "L:/prog/MozillaFirefox/firefox.exe \"http://localhost:#{port}\""						if cygwin?
+	#command	= Win32::Registry::HKEY_CLASSES_ROOT.open('htmlfile\shell\open\command')[0] + " \"http://localhost:#{port}/\""	if windows?
+
+	command	= "#{browser} \"http://localhost:#{port}\""
+
+	Thread.pass
+
+	system(command)
+      rescue
+      end
+    end
+  end
+
+  HTTPServer.serve([port, io]) do |req, resp|
+    resp << html
+
+    resp.stop
+  end
+end
+
+def tab2html(tab)
+  res	= ""
+
+  tab	= tab.to_html(false)
+
+  res << "<html>\n"
+  res << "<body>\n"
+  res << "<table align='center' border='1' cellspacing='0' cellpadding='3'>\n"
+  res << "<tbody>\n"
+
+  tab.split(/\r*\n/).each do |line|
+    res << "<tr>\n"
+
+    line.split(/\t/, -1).each do |veld|
+      veld	= "&nbsp;"	if veld.compress.empty?
+
+      res << "<td>%s</td>\n" % veld
+    end
+
+    res << "</tr>\n"
+  end
+
+  res << "</tbody>\n"
+  res << "</table>\n"
+  res << "</body>\n"
+  res << "</html>\n"
+
+  res
+end