kamila 1.0.1

data/lib/mypdf.rb

@@ -0,0 +1,215 @@
+# ******************** kamila version 1.0.1 - Framework *********************
+#
+# Copyright (C) 2008 Edgar Gonzalez (egonzale.wordpress.com)
+#
+# This framework is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This framework is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this framework; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+# Este framework es software libre; puedes redistribuirlo y/o modificarlo
+# bajo los terminos de la licencia publica general GNU tal y como fue publicada
+# por la Fundacion del Software Libre; desde la version 2.1 o cualquier
+# versión superior.
+#
+# Este framework es distribuido con la esperanza de ser util pero SIN NINGUN
+# TIPO DE GARANTIA; sin dejar atras su LADO MERCANTIL o PARA FAVORECER ALGUN
+# FIN EN PARTICULAR. Lee la licencia publica general para mas detalles.
+#
+# Debes recibir una copia de la Licencia Publica General GNU junto con este
+# framework, si no es asi, escribe a Fundacion del Software Libre Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# ***************************************************************************
+=begin
+  super class: FPDF
+  class      : Mypdf
+  Source     : mypdf.rb
+  Autor      : Edgar Gonzalez
+  Email      : edgargonzalezmunoz@gmail.com
+  Blog       : egonzale.wordpress.com
+  Website    : www.myjavaserver.com/~egonzale
+  Framework  : kamila versión 1.0.1
+  Fecha      : 18 de Julio del 2008
+
+  This is based directly on the fifth tutorial example given on the
+  FPDF website (http://www.fpdf.org).
+=end
+require 'rubygems'
+require 'fpdf'
+
+class Mypdf < FPDF
+    private
+    @font = nil
+    @fontf = nil
+    @image1 = nil
+    @image2 = nil
+    @xy1 = nil
+    @xy2 = nil
+    @xy3 = nil
+    @xy4 = nil
+    @title1 = nil
+    @title2 = nil
+    @title3 = nil
+    @title4 = nil
+    @lines = nil
+    @y = nil
+    @pagef = nil
+
+    public
+    #Encabezado de Pagina. Metodo agregado por Edgargonzalezmunoz@gmail.com
+    def HeaderPage(font,image1,image2,xy1,title1,xy2,title2,xy3,title3,xy4,title4,lines)
+     @font = font
+     @image1 = image1
+     @image2 = image2
+     @xy1 = xy1
+     @xy2 = xy2
+     @xy3 = xy3
+     @xy4 = xy4
+     @title1 = title1
+     @title2 = title2
+     @title3 = title3
+     @title4 = title4
+     @lines = lines
+    end
+
+    def Header()
+     #Font
+     SetFont(@font[0].to_s,@font[1].to_s,@font[2])
+     # Logos
+     Image(@image1[0].to_s,@image1[1],@image1[2],@image1[3],@image1[4])
+     Image(@image2[0].to_s,@image2[1],@image2[2],@image2[3],@image2[4])
+     # titulos 4 lineas de encabezado
+     SetXY(@xy1[0],@xy1[1])
+     Cell(@title1[0],@title1[1],@title1[2].to_s,@title1[3],@title1[4],@title1[5].to_s)
+     SetXY(@xy2[0],@xy2[1])
+     Cell(@title2[0],@title2[1],@title2[2].to_s,@title2[3],@title2[4],@title2[5].to_s)
+     SetXY(@xy3[0],@xy3[1])
+     Cell(@title3[0],@title3[1],@title3[2].to_s,@title3[3],@title3[4],@title3[5].to_s)
+     SetXY(@xy4[0],@xy4[1])
+     Cell(@title4[0],@title4[1],@title4[2].to_s,@title4[3],@title4[4],@title4[5].to_s)
+     # Salto de lineas
+     Ln(@lines)
+    end
+
+    # Pie de pagina. Metodo agregado por Edgargonzalezmunoz@gmail.com
+    def FooterPage(font,y,page)
+     @fontf = font
+     @y = y
+     @pagef = page
+    end
+
+    def Footer()
+     # font
+     SetFont(@fontf[0].to_s,@fontf[1].to_s,@fontf[2])
+     # Posicion: a -y cms del final
+     SetY(@y)
+     # Numero de pagina
+     nro = PageNo()
+     Cell(@pagef[0],@pagef[1],@pagef[2].to_s+nro.to_s+'/{nb}',@pagef[3],@pagef[4],@pagef[5].to_s)
+    end
+
+    # Load data
+    def LoadData(file)
+     data = Array.new
+     # Read file lines
+     IO.foreach(file) {|line| data.push(line.chop.split(';'))}
+     return data
+    end
+
+    # Simple table
+    def BasicTable(header, data)
+     # Header
+     header.each do |col|
+     Cell(40, 7, col, 1)
+     end
+     Ln()
+     # Data
+     data.each do |row| 
+      row.each {|col| Cell(40, 6, col, 1)}
+      Ln()
+     end
+    end
+
+    # Better table
+    def ImprovedTable(header, data, wh, wd)
+     # Column widths
+     j=0
+     0.upto(header.length - 1) do |i|
+      Cell(wh[i,j], wh[i,j+1], header[i], wh[i,j+2], wh[i,j+3], wh[i,j+4].to_s)
+     end
+     Ln()
+     # Data
+     i=0
+     k=0
+     longitud = data.length
+     data.each do |row| 
+      row.each do |col| 
+       #col.to_s.reverse.gsub(/\d{3}(?=\d)/, '\&,').reverse
+       Cell(wd[i,j], wd[i,j+1], col.to_s, wd[i,j+2].to_s, wd[i,j+3], wd[i,j+4].to_s)
+       i=i+1
+      end
+      if k!=longitud
+       Ln()
+      end
+      k=k+1
+     end
+     # Closure line
+     sum = 0
+     for i in 0..header.length-1
+      sum += wh[i,0]
+     end
+     Cell(sum, 0, '', 'T')
+    end
+
+    # Colored table
+    def FancyTable(header, data, wh, wd, fillcolor, textcolor, drawcolor, linewidth, font, fillcolorRestart, textcolorRestart, fontRestart)
+     # Colors, line width and bold font
+     SetFillColor(fillcolor[0], fillcolor[1], fillcolor[2])
+     SetTextColor(textcolor)
+     SetDrawColor(drawcolor[0], drawcolor[1], drawcolor[2])
+     SetLineWidth(linewidth)
+     SetFont(font[0].to_s,font[1].to_s,font[2])
+     # Column widths
+     j=0
+     0.upto(header.length - 1) do |i|
+      Cell(wh[i,j], wh[i,j+1], header[i], wh[i,j+2], wh[i,j+3], wh[i,j+4].to_s,1)
+     end
+     Ln()
+     # Color and font restoration
+     SetFillColor(fillcolorRestart[0], fillcolorRestart[1], fillcolorRestart[2])
+     SetTextColor(textcolorRestart)
+     SetFont(fontRestart[0].to_s,fontRestart[1].to_s,fontRestart[2])
+     # Data
+     fill = 0 
+     # Data
+     i=0
+     k=0
+     longitud = data.length
+     data.each do |row| 
+      row.each do |col| 
+       Cell(wd[i,j], wd[i,j+1], col.to_s, wd[i,j+2].to_s, wd[i,j+3], wd[i,j+4].to_s,fill)
+       i=i+1
+      end
+      if k!=longitud
+       Ln()
+      end
+      k=k+1
+      fill = (fill == 0 ? 1 : 0)
+     end
+     # Closure line
+     sum = 0
+     for i in 0..header.length-1
+      sum += wh[i,0]
+     end
+     Cell(sum, 0, '', 'T')
+    end
+end

data/lib/overload.rb

@@ -0,0 +1,197 @@
+# ******************** kamila version 1.0.1 - Framework *********************
+#
+# Copyright (C) 2008 Edgar Gonzalez (egonzale.wordpress.com)
+#
+# This framework is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This framework is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this framework; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+# Este framework es software libre; puedes redistribuirlo y/o modificarlo
+# bajo los terminos de la licencia publica general GNU tal y como fue publicada
+# por la Fundacion del Software Libre; desde la version 2.1 o cualquier
+# versión superior.
+#
+# Este framework es distribuido con la esperanza de ser util pero SIN NINGUN
+# TIPO DE GARANTIA; sin dejar atras su LADO MERCANTIL o PARA FAVORECER ALGUN
+# FIN EN PARTICULAR. Lee la licencia publica general para mas detalles.
+#
+# Debes recibir una copia de la Licencia Publica General GNU junto con este
+# framework, si no es asi, escribe a Fundacion del Software Libre Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# ***************************************************************************
+
+class Method
+  module Overload
+    Version = %w$Revision: 0.6 $[1]	# -*- package version -*-
+  end
+
+  class Signature < Array
+    defined?(NoMethodError) or NoMethodError = NameError
+
+    def invalid(func = nil)
+      msg = "Invalid signature: "
+      msg << func.to_s if func
+      TypeError.new(msg << to_s)
+    end
+
+    def nomatch(recv, func, level = 1)
+      raise NoMethodError, "no method match to `#{func}#{self}' for #{recv.class}", caller(level)
+    end
+
+    def varargs?
+      !(empty? or last)
+    end
+
+    def arity
+      varargs? ? -length : length
+    end
+
+    def to_str
+      sig = Array[*self]
+      sig.pop if v = varargs?
+      sig = sig.inspect
+      sig[-1, 0] = ', ...' if v
+      sig
+    end
+
+    def inspect
+      self.class.name+self
+    end
+
+    def to_s
+      sig = to_str
+      sig[0] = ?(
+      sig[-1] = ?)
+      sig
+    end
+
+    def ===(args)
+      if varargs?
+	(l = length-1) <= args.length or return false
+      else
+	(l = length) == args.length or return false
+      end
+      l.times {|i| self[i] === args[i] or return false}
+      true
+    rescue StandardError
+      false
+    end
+
+    def >(sig)
+      v1, l1 = varargs?, length
+      v2, l2 = sig.varargs?, sig.length
+      l1 -= 1 if v1
+      l2 -= 1 if v2
+      begin
+	[l1, l2].min.times do |i|
+	  return false if sig[i] > self[i]
+	end
+      rescue TypeError
+	return false
+      end
+      if v1
+	return false if l1 > l2
+      elsif v2
+	return false
+      else
+	return false unless l1 == l2
+      end
+      true
+    end
+
+    def <(sig)
+      sig > self
+    end
+
+    def <=>(sig)
+      if self > sig
+	1
+      elsif sig > self
+	-1
+      else
+	0
+      end
+    end
+
+    def dispatch(*types, &block)
+      throw :dispatched, yield(*self) if self.class[*types] === self
+    end
+  end
+
+  module Overload
+    Signature = Signature
+
+    private
+
+    def overload(args)
+      args = Signature[*args]
+      catch(:dispatched) do
+	yield args
+	raise args.invalid
+      end
+    end
+  end
+
+  def self.dispatch(recv, func, args, block)
+    klass = tbl = sig = meth = nil
+    recv.class.ancestors.find do |klass|
+      tbl = klass.instance_eval {defined?(@overload) and @overload} or next
+      tbl = tbl[func] or next
+      sig, meth = tbl.find {|sig, meth| sig === args}
+      meth
+    end
+    meth or Signature[*args].nomatch(recv, func, 3)
+    begin
+      recv.__send__(meth, *args, &block)
+    rescue Exception
+      n = -caller.size
+      $@[n-2, 3] = nil
+      $@[n].sub!(/\`#{func}\'\z/, "\`#{meth}\'")
+      raise
+    end
+  end
+end
+
+class Module
+  private
+
+  def overload(func, *types)
+    func = func.intern if func.respond_to? :intern
+    sig = Method::Signature[*types]
+    meth = instance_method(func)
+    if meth.arity < 0
+      sig << nil unless sig.varargs?
+    elsif meth.arity > sig.length
+      sig.concat(Array.new(meth.arity - sig.length, Object))
+    elsif meth.arity < sig.length
+      raise ArgumentError, "too many arguments for #{func}(#{sig.length} for #{meth.arity})"
+    end
+    alias_method(meth = "#{func}#{sig}".intern, func)
+    tbl = @overload ||= {}
+    (tbl[func] ||= []) << [sig, meth]
+    module_eval "def #{func}(*a, &b) Method.dispatch(self, :#{func}, a, b) end", __FILE__, __LINE__
+    if $VERBOSE
+      dummy = "!"
+      undef_method(dummy) if method_defined?(dummy)
+      alias_method(dummy, func)
+      undef_method(dummy)
+    end
+  end
+
+  def unoverload(func, *types)
+    func = func.intern if func.respond_to? :intern
+    sig = Method::Signature[*types]
+    remove_method("#{func}#{sig}".intern)
+    tbl = @overload[func] and tbl.delete(sig) if @overload
+  end
+end

data/lib/scanear_disco.rb

@@ -0,0 +1,169 @@
+# /****************************************************************************/
+# /*                   clase ScanearDisco                                     */
+# /*                                                                          */
+# /* Clase que crea un arbol de un directorio dado, depende de tree-0.2.1.gem */
+# /* Fuente del gem: http://gems.ruby.inoack.com/                             */
+# /****************************************************************************/
+# /*
+#  Version: 1.0 en ruby 1.8.x
+#  Fecha  : 28 de Marzo 2008
+#  Autor  : Prof. Edgar Gonzalez
+#  Email  : edgargonzalezmunoz@gmail.com
+# */
+require 'cf_yiyi'
+require "fileutils"
+require 'tree'
+require 'open-uri'
+require 'rexml/document'
+# Usa el modulo de construccion REXML
+include REXML
+
+class ScanearDisco
+    private
+    @control = false
+    @directorio = nil
+    @nivel = nil
+    @raiz = nil
+
+    public
+    attr_reader :directorio,:nivel,:raiz
+
+    #/** Constructor */
+    def initialize()
+     #puts "Scaneando..."
+     cf = CfYiyi.new()
+     if (cf.control())
+      @control = true
+      @directorio = Array.new
+      @nivel = -1
+     end
+    end
+
+    public
+    def getArchivo(archivo)
+     nombrearchivo = ""
+     r=archivo.to_s.size()
+     while r>=0
+      if archivo.to_s[r,1] != "/"
+       nombrearchivo = archivo.to_s[r,1] + nombrearchivo
+      else
+       r=0
+      end
+      r=r-1
+     end
+     return nombrearchivo
+    end
+
+    public
+    #/* Scanea el disco a partir de un directorio.
+    # * Para el parametro
+    # *  nodo siempre debe ser: nil para la primera llamada
+    # *  DirActual usar para:
+    # *                      windows: C:/archivos de programa
+    # *                      linux  : /var/lib
+    # */
+    def scandisco(nodo,dirActual)
+     if nodo == nil
+      nombrearchivo = getArchivo(dirActual)
+      nodo = Tree::TreeNode.new(nombrearchivo, dirActual) 
+      @raiz = nodo
+     end
+     existe = false
+     if (@control)
+      if (File.directory?(dirActual))
+       existe = true
+       @nivel = @nivel + 1
+       @directorio[@nivel] = dirActual
+       Dir.chdir(dirActual)
+       archivos = Dir.glob('*')
+       if (archivos.size()-1>=0)
+        j = archivos.size()-1
+        for i in 0..j
+         nombrearchivo = getArchivo(archivos[i].to_s)
+         rama = Tree::TreeNode.new(nombrearchivo, dirActual+'/'+archivos[i].to_s)
+         nodo.add(rama)
+         if (File.directory?(archivos[i].to_s))
+          dirActual = dirActual+'/'+archivos[i].to_s
+          scandisco(rama,dirActual)
+          @nivel = @nivel - 1
+          dirActual = @directorio[@nivel]
+          Dir.chdir(dirActual)
+         end
+        end
+       end
+      end
+     else 
+      existe = false
+      dirActual = new String("")
+      #puts "Directorio no existe"
+     end
+     return existe
+    end
+
+    def imprimirArbol()
+     #@raiz.each { |node| node.content.reverse; puts node }
+     @raiz.printTree(3)
+    end
+
+    def adicionarElementos(elementoArray,rama)
+     elementorow = nil
+     if rama.isRoot?
+      elementorow = Element.new("rows")
+      elementoArray.pop()
+      elementoArray.push(elementorow)
+      elementorow = Element.new("row")
+      elementorow.attributes["id"] = rama.content
+      elementocell = Element.new("cell")
+      elementocell.attributes["image"] = "folder.gif"
+      elementocell.text = rama.name
+      elementorow.add elementocell
+      elementoArray.push(elementorow)
+     else
+      elementorow = Element.new("row")
+      elementorow.attributes["id"] = rama.content
+      elementocell = Element.new("cell")
+      elementocell.attributes["image"] = "folder.gif"
+      elementocell.text = rama.name
+      elementorow.add elementocell
+      elementoArray.push(elementorow)
+     end
+     if rama.hasChildren?
+      hijos = rama.children
+      for i in 0..hijos.length()-1
+       adicionarElementos(elementoArray,hijos[i])
+      end
+     end
+     elemento2 = elementoArray.pop()
+     elemento1 = elementoArray.pop()
+     elemento1.add elemento2
+     elementoArray.push(elemento1)
+    end
+
+    def generarXML(archivo)
+     raiz = @raiz
+     file = Kernel.open(archivo.to_s,"w+")
+     linea = '<?xml version="1.0" encoding="UTF-8"?>' + "\n"
+     linea = linea + '<!DOCTYPE rows SYSTEM "dhtmlxtreegrid.dtd">' + "\n"
+     doc = Document.new(linea)
+     #doc << XMLDecl.new()
+     docArray = Array.new
+     docArray.push(doc)
+     elemento = nil
+     elementoArray = Array.new
+     elementoArray.push(elemento)
+     adicionarElementos(elementoArray,raiz)
+     j=0
+     while j<elementoArray.length()-1
+      elemento2 = elementoArray.pop()
+      elemento1 = elementoArray.pop()
+      elemento1.add elemento2
+      elementoArray.push(elemento1)
+     end
+     elemento = elementoArray.pop()
+     doc.add_element elemento
+     doc.write(file,0)
+     file.close()
+    end
+
+end
+

data/lib/smtp_tls.rb

@@ -0,0 +1,66 @@
+require "openssl"
+require "net/smtp"
+
+Net::SMTP.class_eval do
+  private
+  def do_start(helodomain, user, secret, authtype)
+    raise IOError, 'SMTP session already started' if @started
+    check_auth_args user, secret, authtype if user or secret
+
+    sock = timeout(@open_timeout) { TCPSocket.open(@address, @port) }
+    @socket = Net::InternetMessageIO.new(sock)
+    @socket.read_timeout = 60 #@read_timeout
+
+    check_response(critical { recv_response() })
+    do_helo(helodomain)
+
+    if starttls
+      raise 'openssl library not installed' unless defined?(OpenSSL)
+      ssl = OpenSSL::SSL::SSLSocket.new(sock)
+      ssl.sync_close = true
+      ssl.connect
+      @socket = Net::InternetMessageIO.new(ssl)
+      @socket.read_timeout = 60 #@read_timeout
+      do_helo(helodomain)
+    end
+
+    authenticate user, secret, authtype if user
+    @started = true
+  ensure
+    unless @started
+      # authentication failed, cancel connection.
+      @socket.close if not @started and @socket and not @socket.closed?
+      @socket = nil
+    end
+  end
+
+  def do_helo(helodomain)
+     begin
+      if @esmtp
+        ehlo helodomain
+      else
+        helo helodomain
+      end
+    rescue Net::ProtocolError
+      if @esmtp
+        @esmtp = false
+        @error_occured = false
+        retry
+      end
+      raise
+    end
+  end
+
+  def starttls
+    getok('STARTTLS') rescue return false
+    return true
+  end
+
+  def quit
+    begin
+      getok('QUIT')
+    rescue EOFError
+    end
+  end
+end
+

data/lib/utilidades.rb

@@ -0,0 +1,29 @@
+# /****************************************************************************/
+# /*                   clase Utilidades                                       */
+# /*                                                                          */
+# /* Clase con funcionalidades generales                                     */
+# /****************************************************************************/
+# /*
+#  Version: 1.0 en ruby 1.8.x
+#  Fecha  : 18 de Abril 2008
+#  Autor  : Prof. Edgar Gonzalez
+#  Email  : edgargonzalezmunoz@gmail.com
+# */
+
+class Utilidades
+    def initialize()
+    end
+    def getNombreArchivo(archivo)
+     nombrearchivo = ""
+     r=archivo.to_s.size()
+     while r>=0
+      if archivo.to_s[r,1] != "/"
+       nombrearchivo = archivo.to_s[r,1] + nombrearchivo
+      else
+       r=0
+      end
+      r=r-1
+     end
+     return nombrearchivo
+    end
+end

data/test/testEscapeShellCmd.rb

@@ -0,0 +1,12 @@
+#!ruby
+# fuente: http://d.hatena.ne.jp/babie/20051201/p1
+require 'test/unit'
+require 'escape_shell_cmd'
+
+class TestEscapeShellCmd < Test::Unit::TestCase
+   def test_escape_semicolon
+      cmd = 'date;date'
+      assert_equal('date\;date', escape_shell_cmd(cmd), ';(semi-colon) must be escaped')
+   end
+end
+