clutil 2010.127.0

data/cl/util/install.rb

@@ -0,0 +1,107 @@
+# $Id: install.rb,v 1.7 2002/09/09 03:04:38 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 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 'rbconfig'
+require 'find'
+require 'ftools'
+require "#{File.dirname(__FILE__)}/console"
+
+include Config
+
+# altered copy of rbconfig.rb -> Config::expand
+def custom_expand(val, conf)
+  val.gsub!(/\$\(([^()]+)\)/) do |var|
+    key = $1
+    if CONFIG.key? key
+      custom_expand(conf[key], conf)
+    else
+      var
+    end
+  end
+  val
+end
+
+def get_conf(customizations)
+  conf = {}
+  MAKEFILE_CONFIG.each{|k,v| conf[k] = v.dup}
+  customizations.each do |k, v| 
+    conf[k] = v
+  end
+  conf.each_value do |val| custom_expand(val, conf) end
+  conf
+end
+
+def init
+  prefixdir = get_switch('-p')
+  customizations = {}
+  customizations['prefix'] = prefixdir if prefixdir
+  conf = get_conf(customizations)
+  
+  $version = conf["MAJOR"]+"."+conf["MINOR"]
+  $libdir = File.join(conf["libdir"], "ruby", $version)
+  
+  $bindir =  conf["bindir"]
+  $sitedir = conf["sitedir"] || File.join($libdir, "site_ruby")
+  $siteverdir = File.join($sitedir, $version)
+  $archdir = File.join($libdir, "i586-mswin32")
+end
+
+def install_executables(files)
+  tmpfn = "cl_tmp"
+  files.each do |aFile, dest|
+    File.open(aFile) do |ip|
+      File.open(tmpfn, "w") do |op|
+        ruby = File.join($bindir, "ruby")
+        op.puts "#!#{ruby}"
+        op.write ip.read
+      end
+    end
+
+    File::makedirs(dest)
+    # 0755 I assume means read/write/execute, not needed for Windows
+    File::chmod(0755, dest, true)
+    File::install(tmpfn, File.join(dest, File.basename(aFile)), 0755, true)
+    File::unlink(tmpfn)
+  end
+end
+
+def install_lib(files)
+  files.each do |aFile, dest|
+    File::makedirs(dest)
+    File::install(aFile, File.join(dest, File.basename(aFile)), 0644, true)
+  end
+end
+
+if __FILE__ == $0
+  init
+end

data/cl/util/install.util.rb

@@ -0,0 +1,67 @@
+# $Id: install.util.rb,v 1.8 2003/06/27 17:46:03 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 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 "#{File.dirname(__FILE__)}/install"
+init
+
+$cldir = File.join($siteverdir, "cl")
+$clutildir = File.join($cldir, "util")
+$clutiltestdir = File.join($clutildir, "test")
+
+$libfiles = { 'util.rb'    => $cldir ,
+
+              "file.rb"    => $clutildir ,
+              "win.rb"     => $clutildir ,
+              "dirsize.rb" => $clutildir ,
+              "test.rb" => $clutildir ,
+              "time.rb" => $clutildir ,
+              "console.rb" => $clutildir ,
+              "progress.rb" => $clutildir ,
+              "install.rb" => $clutildir ,
+              "smtp.rb"    => $clutildir ,
+              "string.rb"  => $clutildir ,
+              "version.rb" => $clutildir ,
+              "clqsend.rb"   => $bindir ,
+
+              "./test/dirsizetest.rb" => $clutiltestdir,
+              "./test/filetest.rb" => $clutiltestdir ,
+              "./test/installtest.rb" => $clutiltestdir ,
+              "./test/progresstest.rb" => $clutiltestdir,
+              "./test/stringtest.rb" => $clutiltestdir,
+              "./test/versiontest.rb" => $clutiltestdir,
+              "./test/wintest.rb" => $clutiltestdir
+            }
+
+if __FILE__ == $0
+  install_lib($libfiles)
+end

data/cl/util/net.rb

@@ -0,0 +1,15 @@
+module ClUtilNet
+  def ping(host)
+    (`ping -n 1 #{host}` =~ "Request timed out") == nil
+  end
+end
+
+if __FILE__ == $0
+  include ClUtilNet
+  
+  puts "Pinging 66.169.210.208"
+  puts ping("66.169.210.208")
+  
+  puts "Pinging localhost"
+  puts ping("localhost")
+end

data/cl/util/progress.rb

@@ -0,0 +1,104 @@
+# $Id: progress.rb,v 1.2 2003/09/12 14:53:50 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 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
+
+class Progress
+  def initialize(total)
+    @total = total
+    @current = 0
+  end
+
+  def start
+    @start = Time.now
+    @in_place_called_already = false
+  end
+
+  def step
+    @current += 1
+  end
+
+  def elapsed
+    (Time.now - @start)
+  end
+
+  def format_seconds(seconds)
+    minutes, seconds = seconds.divmod 60
+    hours, minutes = minutes.divmod 60
+    sprintf("%02d:%02d:%02d", hours, minutes, seconds)
+  end
+
+  def elapsedf
+    format_seconds(elapsed)
+  end
+
+  def done
+    @current
+  end
+
+  def remaining
+    @total - @current
+  end
+
+  def est_remaining_time
+    ((elapsed / done) * remaining)
+  end
+
+  def est_remaining_timef
+    format_seconds(est_remaining_time)
+  end
+
+  def progress(doStep=false)
+    step if doStep
+    "#{@current.to_s}/#{@total.to_s} done. Elapsed: #{elapsedf} Est Remain: #{est_remaining_timef}"
+  end
+
+
+  def pct_done
+    if @total > 0
+      pct = ((done.to_f / @total.to_f) * 100).to_i
+    else
+      pct = 0
+    end
+
+    pct.to_s.rjust(3) + '%'
+  end
+
+  def in_place_pct(doStep=false)
+    step if doStep
+    rubout = 8.chr
+    out = ''
+    out << (rubout * 4) if @in_place_called_already
+    out << pct_done
+    @in_place_called_already = true
+    out
+  end
+end

data/cl/util/smtp.rb

@@ -0,0 +1,131 @@
+# $Id: smtp.rb,v 1.4 2008/12/09 06:58:56 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001-2005, 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 'net/smtp'
+require 'time'
+                            
+def get_filedata(filename)
+  data = nil
+  File.open(filename, 'rb') do |f|
+    data = f.read()
+  end
+  data = [data].pack("m*")
+  data
+end
+
+def create_boundary()
+  return "_____clabs_smtp_boundary______#{Time.new.to_i.to_s}___"
+end
+
+def sendmail(to, from, subj, body, smtpsrv=nil, attachments=nil, extra_headers=nil)
+  smtpsrv = 'localhost' if !smtpsrv
+  attachments = [attachments].flatten
+  attachments.compact!
+  attachments = nil if attachments.empty?
+  to = [to].flatten
+  
+  headers = ["Subject: #{subj}", "From: #{from}", "To: #{to.join(";")}", "Date: #{Time.now.rfc2822}", "MIME-Version: 1.0" ]
+  headers << extra_headers if !extra_headers.nil?
+  headers.flatten!
+  headers.collect! { |hdr| hdr.strip << "\n" }
+  msg = [ headers ].flatten
+  
+  boundary = create_boundary
+  
+  if attachments
+    msg << [
+      "Content-Type: multipart/mixed; boundary=\"#{boundary}\"\n",
+      "\n",
+      "This is a multi-part message in MIME format.\n",
+      "\n"
+    ]
+  end 
+  
+  if body
+    msg << [ "--#{boundary}\n" ] if attachments
+    msg << [
+      "Content-Type: text/plain; charset=\"iso-8859-1\"\n",
+      "Content-Transfer-Encoding: 8bit\n",  
+      "\n", 
+      "#{body}\n",
+      "\n"
+    ]
+  end
+  
+  attachments.each do |filename|
+    basename = File.basename(filename)
+    filedata = get_filedata(filename)
+    msg << [
+      "--#{boundary}\n",
+      "Content-Type: application/octet-stream; name=\"#{basename}\"\n",
+      "Content-Transfer-Encoding: base64\n",
+      "Content-Disposition: attachment; filename=\"#{basename}\"\n",
+      "\n",
+      "#{filedata}",  # no \n needed
+      "\n"
+    ]
+  end if attachments
+
+  msg << ["--#{boundary}--\n"] if attachments
+
+  msg.flatten!
+
+  Net::SMTP.start(smtpsrv) do |smtp|
+    smtp.sendmail(msg, from, to)
+  end
+end
+
+if __FILE__ == $0
+  require 'test/unit'
+  
+  class TestSendMail < Test::Unit::TestCase
+    def testsendmail
+      addr = 'chrismo@clabs.org'
+      sendmail(addr, addr, 'unit test', 'this is a unit test')
+      sendmail([addr, addr], addr, 'unit test', 'this is a unit test')
+    end
+    
+    def testattachment
+      File.open('test.txt', 'w+') do |f| f.print "test attachment\n" end
+      addr = 'chrismo@clabs.org'
+      sendmail(addr, addr, 'unit test', 'this is a unit test', nil, 'test.txt')
+      sendmail(addr, addr, 'unit test', 'this is a unit test', nil, ['test.txt', 'smtp.rb'])
+    end
+    
+    def test_thread
+      addr = 'chrismo@clabs.org'
+      headers = ["In-Reply-To: <foo@clabs.org>"]
+      sendmail(addr, addr, 'smtp.rb thread test', 'body', nil, nil, headers)
+      sendmail(addr, addr, 'smtp.rb thread test', 'body', nil, nil, headers)
+    end
+  end
+end

data/cl/util/string.rb

@@ -0,0 +1,65 @@
+# $Id: string.rb,v 1.2 2003/06/27 17:46:03 chrismo Exp $
+=begin
+----------------------------------------------------------------------------
+Copyright (c) 2001 - 2003, 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)
+=end
+
+class String
+  def get_indent
+    scan(/^(\s*)/).to_s
+  end
+end
+
+def indent(s, amt)
+  a = s.split("\n", -1)
+  if amt >= 0
+    a.collect! do |ln| 
+      if !ln.empty? 
+        (' ' * amt) + ln
+      else
+        ln
+      end
+    end
+  else
+    a.collect! do |ln|
+      (1..amt.abs).each do ln = ln[1..-1] if ln[0..0] == ' ' end
+      ln
+    end
+  end
+  a.join("\n")
+end
+  
+def here_ltrim(s, add_indent_amt=0)
+  a = s.split("\n", -1)
+  trim_indent_amt = a[0].get_indent.length
+  s = indent(s, add_indent_amt - trim_indent_amt)
+end