なかだです。

lib/net/imap.rbを直接実行すると使える簡易IMAPクライアントを、
starttlsに対応させてみました。


Index: lib/net/imap.rb =================================================================== --- lib/net/imap.rb (revision 28780) +++ lib/net/imap.rb (working copy) @@ -3472,7 +3472,8 @@ if __FILE__ == $0 $auth = "login" $ssl = false + $starttls = false def usage - $stderr.print <<EOF + <<EOF usage: #{$0} [options] <host> @@ -3481,4 +3482,5 @@ usage: #{$0} [options] <host> --user=USER specifies user --auth=AUTH specifies auth type + --starttls use starttls --ssl use ssl EOF @@ -3511,4 +3513,5 @@ EOF ['--user', GetoptLong::REQUIRED_ARGUMENT], ['--auth', GetoptLong::REQUIRED_ARGUMENT], + ['--starttls', GetoptLong::NO_ARGUMENT], ['--ssl', GetoptLong::NO_ARGUMENT]) begin @@ -3523,20 +3526,20 @@ EOF when "--ssl" $ssl = true + when "--starttls" + $starttls = true when "--debug" Net::IMAP.debug = true when "--help" usage - exit(1) + exit end end rescue - usage - exit(1) + abort usage end $host = ARGV.shift unless $host - usage - exit(1) + abort usage end @@ -3543,4 +3546,5 @@ imap = Net::IMAP.new($host, :port => $port, :ssl => $ssl) begin + imap.starttls if $starttls password = get_password imap.authenticate($auth, $user, password)
-- --- 僕の前にBugはない。 --- 僕の後ろにBugはできる。 中田 伸悦