doodle 0.0.10 → 0.1.0

data/examples/example-01.rb

@@ -2,7 +2,7 @@ $:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 require 'date'
 require 'doodle'
 
-class DateRange < Doodle::Base 
+class DateRange < Doodle 
   has :start_date do
     default { Date.today }
   end

data/examples/example-01.rdoc

@@ -2,7 +2,7 @@ $:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 require 'date'
 require 'doodle'
 
-class DateRange < Doodle::Base 
+class DateRange < Doodle 
   has :start_date do
     default { Date.today }
   end
@@ -12,6 +12,6 @@ class DateRange < Doodle::Base
 end
 
 dr = DateRange.new
-dr.start_date                   # => #<Date: 4909137/2,0,2299161>
-dr.end_date                     # => #<Date: 4909137/2,0,2299161>
+dr.start_date                   # => #<Date: 4909159/2,0,2299161>
+dr.end_date                     # => #<Date: 4909159/2,0,2299161>
 

data/examples/example-02.rb

@@ -1,8 +1,9 @@
 $:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 require 'date'
 require 'doodle'
+require 'doodle/utils' # for try
 
-class DateRange < Doodle::Base 
+class DateRange < Doodle 
   has :start_date, :kind => Date do
     default { Date.today }
     from String do |s|
@@ -25,6 +26,8 @@ class DateRange < Doodle::Base
     m = /(\d{4}-\d{2}-\d{2})\s*(?:to|-|\s)\s*(\d{4}-\d{2}-\d{2})/.match(s)
     if m
       self.new(*m.captures)
+    else
+      raise Exception, "Cannot parse date: '#{s}'"
     end
   end
 end
@@ -57,6 +60,14 @@ dr = DateRange.from '2007-01-01 2007-12-31'
 dr.start_date                   # =>
 dr.end_date                     # =>
 
-dr = DateRange '2008-01-01', '2007-12-31' 
-dr.start_date                   # =>
-dr.end_date                     # =>
+p try {
+  dr = DateRange.from 'Hello World'
+  dr.start_date                   # =>
+  dr.end_date                     # =>
+}
+
+p try {
+  dr = DateRange '2008-01-01', '2007-12-31' 
+  dr.start_date                   # =>
+  dr.end_date                     # =>
+}

data/examples/example-02.rdoc

@@ -1,8 +1,9 @@
 $:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 require 'date'
 require 'doodle'
+require 'doodle/utils' # for try
 
-class DateRange < Doodle::Base 
+class DateRange < Doodle 
   has :start_date, :kind => Date do
     default { Date.today }
     from String do |s|
@@ -25,6 +26,8 @@ class DateRange < Doodle::Base
     m = /(\d{4}-\d{2}-\d{2})\s*(?:to|-|\s)\s*(\d{4}-\d{2}-\d{2})/.match(s)
     if m
       self.new(*m.captures)
+    else
+      raise Exception, "Cannot parse date: '#{s}'"
     end
   end
 end
@@ -57,7 +60,16 @@ dr = DateRange.from '2007-01-01 2007-12-31'
 dr.start_date                   # => #<Date: 4908203/2,0,2299161>
 dr.end_date                     # => #<Date: 4908931/2,0,2299161>
 
-dr = DateRange '2008-01-01', '2007-12-31' 
-dr.start_date                   # => 
-dr.end_date                     # => 
-# ~> -:60: #<DateRange:0xb7a52640 @end_date=#<Date: 4908931/2,0,2299161>, @start_date=#<Date: 4908933/2,0,2299161>> must have end_date >= start_date (Doodle::ValidationError)
+p try {
+  dr = DateRange.from 'Hello World'
+  dr.start_date                   # => 
+  dr.end_date                     # => 
+}
+
+p try {
+  dr = DateRange '2008-01-01', '2007-12-31' 
+  dr.start_date                   # => 
+  dr.end_date                     # => 
+}
+# >> #<Doodle::ConversionError: Cannot parse date: 'Hello World'>
+# >> #<Doodle::ValidationError: DateRange must have end_date >= start_date>

data/examples/mail-datatypes.rb

@@ -0,0 +1,104 @@
+$:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$:.unshift(File.join(File.dirname(__FILE__), '.'))
+
+require 'doodle'
+require 'doodle/datatypes'
+require 'net/smtp'
+require 'time'
+require 'datatypes'
+require 'smtp_tls'
+
+# note: translated from Florian Frank's example in dslkit [http://dslkit.rubyforge.org/]
+
+class Mail < Doodle
+  doodle do
+    string :mail_server, :default => ENV['MAILSERVER'] || 'mail'
+    string :body
+    email :from do
+      default do
+        if ENV['USER']
+          ENV['USER'] + '@' + mail_server
+        else
+          'from@example.com'
+        end
+      end
+    end
+    email :to
+    string :subject, :default => 'Test Email'
+    date :date do
+      default { Time.now.rfc2822 }
+    end
+    string :message_id do
+      default do
+        key = [ ENV['HOSTNAME'] || 'localhost', $$ , Time.now ].join
+        (::Digest::MD5.new << key).to_s
+      end
+    end
+    string :msg do
+      default do
+        [
+         "From: #{from}",
+         "To: #{to}",
+         "Subject: #{subject}",
+         "Date: #{date}",
+         "Message-Id: <#{message_id}@#{mail_server}>",
+         '',
+         body
+        ] * "\n"
+      end
+    end
+  end
+  
+  def send_message
+    if true
+      puts msg
+    else
+      ::Net::SMTP.start(mail_server, 25) do |smtp|
+        smtp.send_message msg, from, to
+      end
+    end
+  end
+end
+
+require 'highline/import'
+def prompt_for_password
+  ask("Enter your password:  ") { |q| q.echo = '*' }
+end
+
+class GMail < Mail
+  has :mail_server, :default => 'smtp.gmail.com'
+  has :port, :default => 587
+  has :username, :default => 'sean.ohalpin@gmail.com'
+  has :password, :default => 'sesame'
+#   has :password do
+#     init do
+#       prompt_for_password
+#     end
+#   end
+  has :host, :default => 'localhost.localdomain'
+  has :message_format, :default => 'plain'
+  
+  def send_message
+    puts msg
+    return
+    ::Net::SMTP.start(mail_server, 
+                      port,
+                      host, 
+                      username, 
+                      password, 
+                      message_format) do |smtp|
+      smtp.send_message(msg, from, to)
+    end
+  end
+end
+
+GMail do
+  subject subject + ': Hi!'
+  to 'sean.ohalpin@gmail.com'
+  body <<BODY
+Hi,
+
+this is a test email from Ruby.
+
+BODY
+end.send_message

data/examples/mail.rb

@@ -0,0 +1,85 @@
+$:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$:.unshift(File.join(File.dirname(__FILE__), '.'))
+require 'doodle'
+require 'doodle/rfc822'
+require 'net/smtp'
+require 'time'
+
+# note: translated from Florian Frank's example in dslkit [http://dslkit.rubyforge.org/]
+
+class Mail < Doodle
+  has :mail_server, :default => ENV['MAILSERVER'] || 'mail'
+  has :body, :kind => String
+
+  has :from, :kind => String do
+    default do
+      if ENV['USER']
+        ENV['USER'] + '@' + mail_server
+      else
+        'from@example.com'
+      end
+    end
+    must 'be valid email address' do |s|
+      s =~ RFC822::EmailAddress
+    end
+  end
+
+  has :to, :kind => String do
+    must 'be valid email address' do |s|
+      s =~ RFC822::EmailAddress
+    end
+  end
+  has :subject, :default => 'Test Email'
+  has :date do
+    default { Time.now.rfc2822 }
+  end
+  has :message_id do
+    default do
+      key = [ ENV['HOSTNAME'] || 'localhost', $$ , Time.now ].join
+      (::Digest::MD5.new << key).to_s
+    end
+  end
+  has :msg, :kind => String do
+    default do
+      [
+       "From: #{from}",
+       "To: #{to}",
+       "Subject: #{subject}",
+       "Date: #{date}",
+       "Message-Id: <#{message_id}@#{mail_server}>",
+       '',
+       body
+      ] * "\n"
+    end
+  end
+
+  def send
+    if true
+      puts msg
+    else
+      ::Net::SMTP.start(mail_server, 25) do |smtp|
+        smtp.send_message msg, from, to
+      end
+    end
+  end
+end
+
+def mail(&block)
+  Mail.new(&block)
+end
+
+def prompt
+  return 'someone@example.com'
+  STDOUT.print "Send to? "
+  STDOUT.flush
+  STDIN.gets.strip
+end
+
+m = Mail do
+  subject subject + ': Hi!'
+  if rcpt = prompt
+    to      rcpt
+  end
+  body "Hello, world!\n"
+end
+m.send

data/examples/parent.rb

@@ -0,0 +1,40 @@
+$:.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'doodle'
+require 'yaml'
+
+class Child < Doodle
+  has :name
+  has :dad do
+    # I'm treating block arguments and Proc object (proc/lambda) arguments
+    # to :init differently:
+    # - a proc/lamba is treated as a literal argument, i.e. the
+    # - value is set to a Proc
+    # - a block argument, on the other hand, is instance
+    # - evaluated during initialization
+    # - consequences
+    #   - can only be done in init block
+    #   - somewhat subtle difference (from programmer's point of
+    #   - view) between a proc and a block
+    
+    # Also note re: Doodle.parent - its value is only valid
+    # during initialization - this is a way to capture that
+    # value for ues later
+    
+    init do
+      parent
+    end
+  end
+end
+
+class Parent < Child
+  has :children, :collect => Child
+end
+
+parent = Parent 'Conn' do
+  child 'Sean'
+end
+
+puts parent.to_yaml
+
+
+

data/examples/profile-options.rb

@@ -0,0 +1,67 @@
+require 'lib/doodle'
+
+module CommandLine
+  class Base < Doodle::Base
+    has :name
+    singleton_class do
+      has :doc
+    end
+    def to_s
+      name
+    end
+  end
+  class Command < Base
+  end
+  class KeyValue < Base
+    # specify order (should I need to do this?)
+    has :name
+    has :value
+    def to_s
+      %[--#{name}="#{value}"]
+    end
+  end
+  class Flag < Base
+    def to_s
+      %[--#{name}]
+    end
+  end
+end
+
+module Zenity
+  include CommandLine
+  class Entry < Flag
+    # specifying name here has effect of re-ordering positional args
+    doc "Display text entry dialogue"
+    has :name, :default => :entry
+  end
+  class Text < KeyValue
+    doc "Set the dialogue text"
+    has :name, :default => :text
+  end
+  class EntryText < KeyValue
+    doc "Set the entry text"
+    has :name, :default => 'entry-text'
+  end
+  class HideText < KeyValue
+    doc "Hide the entry text"
+    has :name, :default => 'hide-text'
+  end
+end
+
+include Zenity
+
+1.upto(100) do
+  cmd = [
+         Command.new("zenity"),
+         Entry.new(),
+         #       KeyValue.new("text", "Enter name:"),
+         #       KeyValue.new(:name => "text", :value => "Enter name:"),
+         #       Text.new(:value => "Enter name:"),
+         Text.new(:value => "Enter name:"),
+         EntryText.new(:value => "Enter text"),
+        ].join(' ')
+  #puts cmd
+end
+#result = `#{cmd}`
+#puts "result=#{result}"
+

data/examples/smtp_tls.rb

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