clutil 2010.127.0

data/cl/util/clqsend.rb

@@ -0,0 +1,86 @@
+# $Id: clqsend.rb,v 1.1 2002/04/18 13:44:38 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001-2002, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+=end
+require 'cl/util/smtp'
+
+def getSwitch(switch)
+  i = ARGV.index(switch)
+  if i != nil
+    ARGV[i + 1]
+  else
+    nil
+  end
+end
+
+def showhelp
+  puts '-h   Help'
+  puts '-t   To'
+  puts '-f   From'
+  puts '-bf  file name of body'
+  puts '-s   Subject'
+  puts '-i   SMTP ip address or server name'
+end
+
+if ARGV.include?('-h')
+  showhelp
+else
+  to = getSwitch('-t')
+  subj = getSwitch('-s')
+  from = getSwitch('-f')
+  bodyfn = getSwitch('-bf')
+  smtpsrv = getSwitch('-i')
+  params = {
+    :from.to_s => from,
+    :to.to_s => to, 
+    :subj.to_s => subj, 
+    :bodyfn.to_s => bodyfn,
+    :smtpsrv.to_s => smtpsrv
+  }
+  anymissing = false
+  params.each do |key, value| 
+    if value == nil
+      puts 'missing param <' + key + '>'
+      anymissing = true
+    end
+  end
+  
+  body = File.readlines(bodyfn).join
+  
+  if !anymissing
+    puts "sending To:#{to} From:#{from} Subj:#{subj}"
+    puts body
+    sendmail(to, from, subj, body, smtpsrv)
+  else
+    puts
+    showhelp
+  end
+end

data/cl/util/console.rb

@@ -0,0 +1,60 @@
+# $Id: console.rb,v 1.4 2002/10/15 21:00:58 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001-2002, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+=end
+
+def ifSwitch(switch)
+  ARGV.index(switch) != nil
+end
+
+alias :if_switch :ifSwitch
+
+def getSwitch(switch)
+  value = nil
+  i = ARGV.index(switch)
+  value = ARGV[i + 1] if i != nil
+end
+
+alias :get_switch :getSwitch
+
+def yn_prompt(text, &blk)
+  custom_prompt(text + '? (Y/[N]):', /y/i, @yesToAll, &blk)
+end
+
+def custom_prompt(text, execReply=/y/i, autoYield=false)
+  if !autoYield
+    print text
+    reply = $stdin.gets.chomp
+  else
+    puts text
+  end
+  yield reply if reply =~ execReply || autoYield
+end

data/cl/util/cvs.maint.rb

@@ -0,0 +1,41 @@
+require 'sn/util/smtp'
+
+# the commit command will add new folders. then 2nd time this is run
+# files in that folder will be addressed. 
+
+$output = ''
+
+def do_puts(text)
+  $output << text << "\n"
+  puts text 
+end
+
+def execute
+  begin
+    cvscmd = "..\\..\\cvs\\wincvs\\cvs.exe"
+    r = `#{cvscmd} -n up`;                                                 do_puts r 
+    a = r.split("\n");                                                     do_puts a.inspect 
+    a.collect! { |item| item.slice(2..item.length) if item[0..0] == "?" }; do_puts a.inspect 
+    a.compact!;                                                            do_puts a.inspect 
+    outstanding_files = (a.length > 0)
+    if outstanding_files
+      cmd = "#{cvscmd} add " + a.join(" ");                                do_puts cmd 
+      r = `#{cmd}`;                                                        do_puts r 
+      raise 'cmd returned error' if $? != 0
+    end
+    cmd = "#{cvscmd} commit -F cvs.log.txt";                               do_puts cmd 
+    r = `#{cmd}`;                                                          do_puts r 
+    raise 'cmd returned error' if $? != 0
+  end while outstanding_files
+end
+
+to = 'chris.morris@snelling.com'
+from = to
+subj = 'Wiki Cvs Update'
+begin
+  execute
+  sendmail(to, from, subj, $output)
+rescue Exception => e
+  body = $output << "\n" << e.message << "\n" << e.backtrace.join("\n")
+  sendmail(to, from, subj + ' ERROR', body)
+end

data/cl/util/decide.rb

@@ -0,0 +1,69 @@
+class Integer
+  def odd?
+    self.divmod(2)[1] != 0
+  end
+end
+
+def decide(items)
+  round = 1
+  while items.length > 1
+    items.sort! { rand(3) - 1 }
+    
+    pairs = []
+    gate = 0
+    items.each { |item|
+      pairs << [item] if gate == 0
+      pairs[-1] << item if gate == 1
+      gate = gate ^ 1
+    }
+    
+    puts "=" * 20
+    puts "Round #{round} :: #{pairs.length} pairs".center(20)
+    puts "=" * 20
+    
+    pairs.each do |pair|
+      begin
+        puts "1) #{pair[0]}"
+        puts "2) #{pair[1]}"
+        print "keep: "
+        keeper = gets.chomp
+      end while keeper !~ /[12]/
+      delete = (keeper.to_i - 1) ^ 1
+      items.delete(pair[delete])
+    end
+    round += 1
+  end
+
+  puts "Winner is: #{items[0]}"
+end
+
+if __FILE__ == $0
+  def do_test
+    puts "Odd number item list test"
+    items = ["a", "b", "c", "d", "e"]
+    decide(items)
+    
+    puts "Even number item list test"
+    items = ["a", "b", "c", "d"]
+    decide(items)
+  end
+  
+  list_fn = ARGV[0]
+  ARGV.clear
+  
+  if list_fn =~ /test/i
+    do_test
+    exit
+  end
+  
+  if list_fn.nil? || !File.exists?(list_fn)
+    puts "Usage: #{File.basename(__FILE__)} [list_filename]"
+    exit
+  end
+  
+  items = File.readlines(list_fn)
+  items.delete_if { |item| item.chomp.empty? }
+  items.compact!
+  decide(items)
+end
+

data/cl/util/dirsize.rb

@@ -0,0 +1,144 @@
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+=end
+
+=begin
+uses Classes;
+
+type
+  { future, make a cache/factory object for TDirSizes, so we don't have to
+    recalc dirs we've already sized }
+
+  TDirSize = class(TObject)
+  private
+    @diskSpace: Int64;
+    @fileCount: integer;
+    @fileSize: Int64;
+    FClusterSize: Int64;
+    FDirectory: string;
+    FParent: TDirSize;
+
+    FChildDirs: TList;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    function AvgFileSize(IncludeSubs: boolean): Int64;
+    function DiskSpace(IncludeSubs: boolean): Int64;
+    function FileCount(IncludeSubs: boolean): integer;
+    function FileSize(IncludeSubs: boolean): Int64;
+    procedure GetSize;
+    function UnusedDiskSpace(IncludeSubs: boolean): Int64;
+
+    property ChildDirs: TList read FChildDirs;
+    property ClusterSize: Int64 read FClusterSize write FClusterSize;
+    property Directory: string read FDirectory write FDirectory;
+    property Parent: TDirSize read FParent;
+    end
+=end
+
+class DirSize
+  attr_reader :childDirs, :exception
+  attr_accessor :clusterSize, :directory, :parent
+
+  def avgFileSize(includeSubs=false)
+    aFileCount = fileCount(includeSubs)
+    if aFileCount != 0
+      fileSize(includeSubs) / aFileCount
+    else
+      0
+    end
+  end
+
+  def initialize
+    @childDirs = []
+    @fileSize = 0
+    @diskSpace = 0
+    @fileCount = 0
+  end
+
+  def diskSpace(includeSubs=false)
+    total = 0
+    @childDirs.each do |adir|
+      total += adir.diskSpace(includeSubs)
+    end if includeSubs
+    total + @diskSpace
+  end
+
+  def fileCount(includeSubs=false)
+    result = @fileCount
+    @childDirs.each do |adir|
+      result += adir.fileCount(includeSubs)
+    end if includeSubs
+    result
+  end
+
+  def fileSize(includeSubs=false)
+    total = 0
+    @childDirs.each do |adir|
+      total += adir.fileSize(includeSubs)
+    end if includeSubs
+    total + @fileSize
+  end
+
+  def getSize(&block)
+    @fileSize = 0
+    @diskSpace = 0
+    @fileCount = 0
+    begin
+      Dir.foreach(@directory) do |entry|
+        if (entry != '.') && (entry != '..')
+          entry = File.join(@directory, entry)
+          if (File.directory?(entry))
+            childDirSize = DirSize.new
+            childDirSize.parent = self
+            childDirSize.directory = entry
+            childDirSize.clusterSize = @clusterSize
+            childDirSize.getSize(&block)
+            @childDirs << childDirSize
+          else
+            if !block_given? || yield(entry)
+              @fileCount += 1
+              @fileSize += File.size(entry)
+              @diskSpace += ((@fileSize / @clusterSize) * @clusterSize) + @clusterSize
+            end
+          end
+        end
+      end
+    rescue Exception => e
+      @exception = e  
+    end
+  end
+
+  def unusedDiskSpace(includeSubs=false)
+    diskSpace(includeSubs) - fileSize(includeSubs)
+  end
+end

data/cl/util/doc/License

@@ -0,0 +1,14 @@
+--------------------------------------------------------------------------------
+Copyright (c) 2001-2010, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this software may be used to endorse or promote products derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------

data/cl/util/doc/Readme

@@ -0,0 +1,22 @@
+=cLabs Ruby Utilities
+
+Home Page:: http://clabs.org/ruby.htm
+
+===Overview
+
+A set of miscellaneous utilities for Ruby.
+
+===License
+
+Copyright (c) 2001-2010, Chris Morris (mailto:chrismo@clabs.com). BSD license.
+
+===Usage
+
+RDoc docs in future versions. For now, browse the code and unit tests.
+
+===Change Log
+
+* [hrm - probably out of date]
+* win.rb: system_return_exitcode added, since the system cmd with a 
+  ruby.exe built with MSVC does not set $?
+* version.rb: execute the file itself to get template code in stdout

data/cl/util/file.rb

@@ -0,0 +1,210 @@
+# $Id: file.rb,v 1.9 2010/04/26 02:11:27 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001 - 2002, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+(based on BSD Open Source License)
+
+code in copyTree includes code from rubycookbook.org under the following license:
+--------------------------------------------------------------------------------
+Copyright (c) Phil Tomson, Brian Takita
+
+All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, and/or sell copies of the
+Software, and to permit persons to whom the Software is furnished to do so,
+provided that the above copyright notice(s) and this permission notice appear in
+all copies of the Software and that both the above copyright notice(s) and this
+permission notice appear in supporting documentation.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF THIRD PARTY RIGHTS. IN NO EVENT
+SHALL THE COPYRIGHT HOLDER OR HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY
+CLAIM, OR ANY SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
+WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+Except as contained in this notice, the name of a copyright holder shall not be
+used in advertising or otherwise to promote the sale, use or other dealings in
+this Software without prior written authorization of the copyright holder.
+--------------------------------------------------------------------------------
+(X11 license)
+=end
+
+require 'ftools'
+#require 'cl/util/win'
+
+class Dir
+  def Dir.empty?(dirname)
+    Dir.entries(dirname).length == 2
+  end
+
+  def Dir.files(dirname)
+    # Dir[dirname + '*'] does the same, except it includes the directory name
+    result = []
+    Dir.entries(dirname).each do |entry|
+      result << entry if File.stat(File.join(dirname, entry)).file?
+    end
+    result
+  end
+end
+
+class << File
+  def extension(filename)
+    res = filename.scan(/\.[^.]*$/).to_s
+    res.gsub!(/\./, '')
+    res = nil if res.empty?
+    res
+  end
+  
+  def delete_all(*files)
+    files.flatten!
+    files.each do |file|
+      # make writable to allow deletion
+      File.chmod(0644, file)
+      File.delete(file)
+    end
+  end
+  
+  def backup(src, dst, bincompare=false)
+    if (
+         File.exists?(dst) &&
+         (
+           (File.stat(src).mtime != File.stat(dst).mtime) ||
+           (File.stat(src).size != File.stat(dst).size)
+         )
+       ) || !File.exists?(dst) || bincompare
+      File.install src, dst, nil, true
+    end
+    
+    if !File.stat(dst).writable?
+      File.chmod(0644, dst) 
+      set_ro = true
+    else
+      set_ro = false
+    end
+    new_atime = Time.now
+    File.utime(new_atime, File.stat(src).mtime, dst)
+    File.chmod(0444, dst) if set_ro
+  end
+
+  # human readable size
+  def h_size(filename)
+    size = File.size(filename)
+    return '0B' if size == 0
+    units = %w{B KB MB GB TB}
+    e = (Math.log(size) / Math.log(1024)).floor
+    s = "%.0f" % (size.to_f / 1024**e)
+    s.sub(/\.?0*$/, units[e])
+  end
+end
+
+module ClUtilFile
+  ALL_FILES = '*'
+
+  def ClUtilFile.delTree(rootDirName, pattern=ALL_FILES)
+    if (rootDirName == '/') or (rootDirName.empty?)
+      raise 'Cannot delete root or empty?'
+    end
+
+    if !File.exists?(rootDirName)
+      raise 'rootDirName does not exist'
+    end
+
+    # puts all sub-dirs and filenames in array.
+    # Sub-dirs will be breadth first search.
+    dirsAndFiles = Dir["#{rootDirName}/**/" + pattern]
+
+    # delete all files first
+    dirsAndFiles.each do | dirOrFileName |
+      if FileTest.file?(dirOrFileName)
+        if block_given?
+          File.delete_all(dirOrFileName) if yield dirOrFileName
+        else
+          File.delete_all(dirOrFileName)
+        end
+      end
+    end
+
+    # go through array backward to delete dirs in proper order
+    dirsAndFiles.reverse_each do | dirOrFileName |
+      if FileTest.directory?(dirOrFileName)
+        Dir.delete(dirOrFileName) if Dir.empty?(dirOrFileName)
+      end
+    end
+
+    Dir.delete(rootDirName) if Dir.empty?(rootDirName)
+  end
+
+=begin
+  1.8 FileUtils has cp_r in it ...
+
+  def ClUtilFile.copyTree(fromDir, toDir, pattern=ALL_FILES)
+    ##################################################################
+    # cp_r  - recursive copy
+    # usage: cp_r(from,to,file_param,permissions)
+    ##################################################################
+    def cp_r(from,to,file_param=".*",permissions = 0644)
+      Dir.mkdir(to) unless FileTest.exists?(to)
+      Dir.chdir(to)
+
+      dirContents = Dir["#{from}/*"]
+      dirContents.each { |entry|
+        file = File.basename(entry)
+
+        if FileTest.directory?(entry)
+          Dir.mkdir(file) unless FileTest.exists?(file)
+          cp_r(entry,file,file_param)
+          Dir.chdir("..") #get back to the dir we were working on
+        else
+          if file =~ file_param
+              begin
+                p = permissions
+                if FileTest.executable?(entry)
+                   p = 0744 #make it executable
+                end
+                File.install(entry,file,p)
+              rescue
+                  puts "could not copy #{entry} to #{file}"
+              end
+            end
+        end
+      }
+    end #cp_r
+    #example usage
+    #cp_r("/usr/local","my_tmp",".*\.html?")
+
+  end
+=end
+end