rwdschedule 0.5

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/gg1rwdschedule.cnf

@@ -0,0 +1,3 @@
+
+RwdScheduleVersion = "0.5"
+$rwdschedule_directory = "schedules"

data/configuration/gh1rwdcalendar.cnf

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

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