clutil 2014.304.0 → 2014.304.1

data/cl/util/install.rb

@@ -0,0 +1,84 @@
+require 'rbconfig'
+require 'find'
+require 'fileutils'
+require "#{File.dirname(__FILE__)}/console"
+
+module CLabs
+  class Install
+    include RbConfig
+
+    attr_reader :version, :libdir, :bindir, :sitedir, :siteverdir, :archdir
+
+    def initialize
+      init
+    end
+
+    # 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
+  end
+end
+
+

data/cl/util/install.util.rb

@@ -0,0 +1,34 @@
+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,35 @@
+module ClUtilNet
+  def ping(host)
+    (`ping -n 1 #{host}` =~ "Request timed out") == nil
+  end
+end
+
+class NetUse
+  def initialize(unc, user='', password='')
+    @unc = unc
+    @user = user
+    @password = password
+  end
+
+  def attached?
+
+  end
+
+  def attach(drive='')
+
+  end
+
+  def detach
+    
+  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,71 @@
+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,138 @@
+require 'net/smtp'
+require 'time'
+
+module ClUtil
+  class Attachment
+    def self.load_from_file(filename)
+      data = nil
+      File.open(filename, 'rb') do |f|
+        data = f.read()
+      end
+      data = [data].pack("m*")
+      Attachment.new(File.basename(filename), data)
+    end
+
+    attr_reader :name, :data
+
+    def initialize(name, data)
+      @name = name
+      @data = data
+    end
+  end
+
+  class Smtp
+    attr_reader :attachments
+    attr_accessor :from, :subj, :body, :extra_headers, :username, :password, :auth_type, :enable_starttls, :port
+
+    def initialize(smtpsrv='localhost', port=25)
+      @smtpsrv = smtpsrv
+      @port = port
+      @attachments = []
+      @username = nil
+      @password = nil
+      @auth_type = :login
+      @enable_starttls = false
+    end
+
+    def to
+      @to
+    end
+
+    def to=(value)
+      @to = [value].flatten
+    end
+
+    def sendmail
+      msg = build_message
+      @smtp = Net::SMTP.new(@smtpsrv, @port)
+      start_tls_if_needed
+      @smtp.start('localhost.localdomain', @username, @password, @auth_type) do |smtp|
+        smtp.sendmail(msg, @from, @to)
+      end
+    end
+
+    def start_tls_if_needed
+      return if !@enable_starttls
+      # require 'rubygems'
+      # gem 'smtp_tls'
+      # require 'smtp_tls'
+      @smtp.enable_starttls
+    end
+
+    def content_type
+      @body =~ /<html>/ ? "text/html" : "text/plain"
+    end
+
+    def build_message
+      msg = format_headers
+      boundary = create_boundary
+
+      if !@attachments.empty?
+        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.empty?
+        msg << [
+          "Content-Type: #{content_type}; charset=\"iso-8859-1\"\n",
+          "Content-Transfer-Encoding: 8bit\n",
+          "\n",
+          "#{@body}\n",
+          "\n"
+        ]
+      end
+
+      @attachments.each do |attachment|
+        basename = attachment.name
+        msg << [
+          "--#{boundary}\n",
+          "Content-Type: application/octet-stream; name=\"#{basename}\"\n",
+          "Content-Transfer-Encoding: base64\n",
+          "Content-Disposition: attachment; filename=\"#{basename}\"\n",
+          "\n",
+          "#{attachment.data}",  # no \n needed
+          "\n"
+        ]
+      end
+
+      msg << ["--#{boundary}--\n"] if !@attachments.empty?
+
+      msg.flatten!
+    end
+
+    def create_boundary()
+      return "_____clabs_smtp_boundary______#{Time.new.to_i.to_s}___"
+    end
+
+    def format_headers
+      headers = ["Subject: #{subj}", "From: #{from}", "To: #{to.join(";")}", "Date: #{Time.now.rfc2822}", "MIME-Version: 1.0" ]
+      headers << @extra_headers if @extra_headers
+      headers.flatten!
+      headers.collect! { |hdr| hdr.strip << "\n" }
+      [headers].flatten
+    end
+  end
+end
+
+# deprecated - use ClUtil::Smtp instead. The attachments argument is designed
+# to be either a single filename or an array of filenames.
+def sendmail(to, from, subj, body, smtpsrv=nil, attachments=nil, extra_headers=nil)
+  smtpsrv = 'localhost' if !smtpsrv
+  smtp = ClUtil::Smtp.new(smtpsrv)
+  smtp.to = to
+  smtp.from = from
+  smtp.subj = subj
+  smtp.body = body
+  smtp.extra_headers = extra_headers
+  attachments = [attachments].flatten
+  attachments.compact!
+  attachments.each do |attachment_fn|
+    smtp.attachments << ClUtil::Attachment.load_from_file(attachment_fn)
+  end
+  smtp.sendmail
+end

data/cl/util/string.rb

@@ -0,0 +1,38 @@
+class String
+  def get_indent
+    scan(/^(\s*)/).flatten[0].to_s
+  end
+
+  def rbpath
+    self.gsub(/\\/, '/')
+  end
+
+  def winpath
+    self.gsub(/\//, "\\")
+  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
+  indent(s, add_indent_amt - trim_indent_amt)
+end

data/cl/util/test.rb

@@ -0,0 +1,56 @@
+require File.dirname(__FILE__) + '/file'
+require 'fileutils'
+require 'tmpdir'
+require 'test/unit'
+
+class TempDirTest < Test::Unit::TestCase
+  def set_temp_dir
+    @temp_dir = Dir.mktmpdir
+  end
+
+  def setup
+    @file_name_inc = 0
+    set_temp_dir
+    FileUtils::makedirs(@temp_dir) if !FileTest.directory?(@temp_dir)
+  end
+
+  def teardown
+    ClUtilFile.delTree(@temp_dir)
+  end
+
+  # to ward off the new Test::Unit detection of classes with no test
+  # methods
+  def default_test
+    super unless(self.class == TempDirTest)
+  end
+  
+  def make_sub_dir(dirname)
+    newdirname = File.join(@temp_dir, dirname)
+    FileUtils::makedirs(newdirname) if !FileTest.directory?(newdirname)
+    newdirname
+  end
+
+  def make_sample_text_file(dirname='', size=0)
+    crlf_length = 2
+
+    if size == 0
+      content = 'this is a sample file'
+    else
+      content = ''
+      (size - crlf_length).times do content << 'x' end
+    end
+
+    if dirname.empty?
+      sample_file_dir = @temp_dir
+    else
+      sample_file_dir = File.join(@temp_dir, dirname)
+    end
+
+    @file_name_inc += 1
+    filename = File.join(sample_file_dir, 'sample' + @file_name_inc.to_s + '.txt')
+    File.open(filename, 'w+') do |f|
+      f.puts content
+    end
+    filename
+  end
+end