rwdhypernote 0.03

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

@@ -0,0 +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
+end
+ 
+def superantcomremotegemappletdirsname(inffile)
+  applet                = inffile
+  @superantcominstallremoteappletinput       = applet
+  
+end

data/code/superant.com.rwdtinkerbackwindow/removeapplet.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/superant.com.rwdtinkerbackwindow/runrwdtinkerbackwindow.rb

@@ -0,0 +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 = "rwdzipslister"
+   end   
+   

data/code/superant.com.rwdtinkerbackwindow/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/superant.com.rwdtinkerbackwindow/saveconfigurationrecord.rb

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

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

@@ -0,0 +1,21 @@
+  def viewappletcontents
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     fileName = File.join($zipslocation,fullname)
+  tempfilecontents = " "
+  zf = Zip::ZipFile.new(fileName)
+ zf.sort.each {
+  |entry|
+      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+                     }
+   @appletcontentstext = tempfilecontents 
+   
+       rescue
+            @installapplettext = "unzip error - error opening applet"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,21 @@
+  def viewgemappletcontents
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     
+  tempfilecontents = " "
+  zf = Zip::ZipFile.new(fullname)
+ zf.sort.each {
+  |entry|
+      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+                     }
+   @appletcontentstext = tempfilecontents 
+   
+       rescue
+            @installapplettext = "unzip error - error opening applet"
+        end # exception rescue
+
+  end

data/code/zz0applicationend/zz0end.rb

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

data/configuration/language.cnf

@@ -0,0 +1,5 @@
+
+#$lang = "jp"
+$lang= "en"
+#$lang= "nl"
+#$lang= "es"

data/configuration/rwdapplicationidentity.cnf

@@ -0,0 +1,3 @@
+
+$rwdapplicationidentity = "rwdtinker main application"
+

data/configuration/rwdhypernote.cnf

@@ -0,0 +1,9 @@
+
+$rwdhypernote_directory = "Notes"
+ $notesarray = ["Notes/changes.txt"]
+$noteslinksarray = ["Notes/changes.lnk"]
+$rwdschedule_ftpsite = "ftp.mysite.com"
+$rwdschedule_ftplogin = "mylogin"
+$rwdschedule_ftppassword = "mypassword"
+$rwdschedule_ftpdirectory = "/incoming/rwdschedules/"
+$rwdschedule_updatedirectory = "updates"

data/configuration/rwdhypernoteversion.cnf

@@ -0,0 +1,3 @@
+
+RwdHyperNoteVersion = "0.03"
+

data/configuration/rwdtinker.cnf

@@ -0,0 +1,16 @@
+
+ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
+CodeName = "rwdtinker"
+CodeNameFile = CodeName + ".rb"
+LangNameFile = "rwdlanguage.rb"
+RWDFile	= "rwdtinker.rwd"
+LangDir = "lang"
+TempLangHashFile = LangDir + "/" + "templangfile.rb"
+LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb" 
+ CodeDir = "code" 
+ GuiDir = "gui"  
+  $help_topic = "general_help"
+   $helptopicsarray = [ "general_help","network_help"]
+  $prevouswindow ="main" 
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
+ $port = 7705

data/configuration/rwdtinkerversion.cnf

@@ -0,0 +1,2 @@
+
+RwdTinkerVersion = "1.54"

data/configuration/tinkerwin2variables.cnf

@@ -0,0 +1,12 @@
+
+TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
+$zipslocation = "zips" # location of applets to add
+ $zipsarray = [""] ; $zipsarraylocal = [""]
+ $xpcommand = " "  # Linux machines
+# $xpcommand =  "cmd /C "  # XP machines with cmd shell
+ $gemdirectory_withgemfiles = "/usr/lib/ruby/gems/1.8/gems"
+# $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
+# $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
+ $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux
+
+

data/configuration/tinkerwin2version.cnf

@@ -0,0 +1,3 @@
+
+RwdTinkerWin2Version = "0.8"
+

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

data/ev/ftools.rb

@@ -0,0 +1,170 @@
+require "ftools"
+
+class Dir
+  def self.mkdirrec(dir)
+    pdir	= File.dirname(dir)
+
+    if not pdir.empty? and not File.directory?(pdir)
+      Dir.mkdirrec(pdir)
+    end
+
+    Dir.mkdir(dir)	rescue nil
+  end
+
+  def self.copy(from, to)
+    if File.directory?(from)
+      pdir	= Dir.pwd
+      todir	= File.expand_path(to)
+
+      mkdirrec(todir)
+
+      Dir.chdir(from)
+        Dir.new(".").each do |e|
+          Dir.copy(e, todir+"/"+e)	if not [".", ".."].include?(e)
+        end
+      Dir.chdir(pdir)
+    else
+      todir	= File.dirname(File.expand_path(to))
+
+      mkdirrec(todir)
+
+      File.copy(from, to)
+    end
+  end
+
+  def self.move(from, to)
+    Dir.copy(from, to)
+    Dir.rm_rf(from)
+  end
+
+  def self.rm_rf(entry)
+    if File.ftype(entry) == "directory"
+      pdir	= Dir.pwd
+
+      Dir.chdir(entry)
+        Dir.new(".").each do |e|
+          Dir.rm_rf(e)	if not [".", ".."].include?(e)
+        end
+      Dir.chdir(pdir)
+
+      Dir.delete(entry)
+    else
+      File.delete(entry)
+    end
+  end
+
+  def self.find(entry=nil, mask=nil)
+    entry	= "."	if entry.nil?
+
+    entry	= entry.gsub!(/[\/\\]*$/, "")	unless entry.nil?
+
+    mask	= /^#{mask}$/i	if mask.kind_of?(String)
+
+    res	= []
+
+    if File.directory?(entry)
+      pdir	= Dir.pwd
+
+      res += ["%s/" % entry]	if mask.nil? or entry =~ mask
+
+      begin
+        Dir.chdir(entry)
+
+        begin
+          Dir.new(".").each do |e|
+            res += Dir.find(e, mask).collect{|e| entry+"/"+e}	unless [".", ".."].include?(e)
+          end
+        ensure
+          Dir.chdir(pdir)
+        end
+      rescue Errno::EACCES => error
+        puts error
+      end
+    else
+      res += [entry]	if mask.nil? or entry =~ mask
+    end
+
+    res
+  end
+end
+
+class File
+  def self.rollbackup(file, mode=nil)
+    backupfile	= file + ".RB.BACKUP"
+    controlfile	= file + ".RB.CONTROL"
+    res		= nil
+
+    File.touch(file)    unless File.file?(file)
+
+	# Rollback
+
+    if File.file?(backupfile) and File.file?(controlfile)
+      $stdout.puts "Restoring #{file}..."
+
+      File.copy(backupfile, file)				# Rollback from phase 3
+    end
+
+	# Reset
+
+    File.delete(backupfile)	if File.file?(backupfile)	# Reset from phase 2 or 3
+    File.delete(controlfile)	if File.file?(controlfile)	# Reset from phase 3 or 4
+
+	# Backup
+
+    File.copy(file, backupfile)					# Enter phase 2
+    File.touch(controlfile)					# Enter phase 3
+
+	# The real thing
+
+    if block_given?
+      if mode.nil?
+        res	= yield
+      else
+        File.open(file, mode) do |f|
+          res	= yield(f)
+        end
+      end
+    end
+
+	# Cleanup
+
+    File.delete(backupfile)					# Enter phase 4
+    File.delete(controlfile)					# Enter phase 5
+
+	# Return, like File.open
+
+    res	= File.open(file, (mode or "r"))	unless block_given?
+
+    res
+  end
+
+  def self.touch(file)
+    File.open(file, "a"){|f|}
+  end
+
+  def self.which(file)
+    res	= nil
+
+    if windows?
+      file	= file.gsub(/\.exe$/i, "") + ".exe"
+      sep		= ";"
+    else
+      sep		= ":"
+    end
+
+    catch :stop do
+      ENV["PATH"].split(/#{sep}/).reverse.each do |d|
+        if File.directory?(d)
+          Dir.new(d).each do |e|
+             if e.downcase == file.downcase
+               res	= File.expand_path(e, d)
+               throw :stop
+            end
+          end
+        end
+      end
+    end
+
+    res
+  end
+end