diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/net/imap.rb | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lib/net/imap.rb b/lib/net/imap.rb index 3404700297..fded6cc152 100644 --- a/lib/net/imap.rb +++ b/lib/net/imap.rb @@ -3471,15 +3471,17 @@ if __FILE__ == $0 $user = ENV["USER"] || ENV["LOGNAME"] $auth = "login" $ssl = false + $starttls = false def usage - $stderr.print <<EOF + <<EOF usage: #{$0} [options] <host> --help print this message --port=PORT specifies port --user=USER specifies user --auth=AUTH specifies auth type + --starttls use starttls --ssl use ssl EOF end @@ -3510,6 +3512,7 @@ EOF ['--port', GetoptLong::REQUIRED_ARGUMENT], ['--user', GetoptLong::REQUIRED_ARGUMENT], ['--auth', GetoptLong::REQUIRED_ARGUMENT], + ['--starttls', GetoptLong::NO_ARGUMENT], ['--ssl', GetoptLong::NO_ARGUMENT]) begin parser.each_option do |name, arg| @@ -3522,26 +3525,27 @@ EOF $auth = arg 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 imap = Net::IMAP.new($host, :port => $port, :ssl => $ssl) begin + imap.starttls if $starttls password = get_password imap.authenticate($auth, $user, password) while true |