1999-10-13 03:29:15 -04:00
|
|
|
=begin
|
|
|
|
|
2001-07-08 03:00:23 -04:00
|
|
|
= net/pop.rb version 1.2.3
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
Copyright (c) 1999-2001 Yukihiro Matsumoto
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
written & maintained by Minero Aoki <aamine@loveruby.net>
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
This program is free software. You can re-distribute and/or
|
|
|
|
modify this program under the same terms as Ruby itself,
|
|
|
|
Ruby Distribute License or GNU General Public License.
|
2001-02-23 23:53:50 -05:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
NOTE: You can get Japanese version of this document from
|
|
|
|
Ruby Documentation Project (RDP):
|
|
|
|
((<URL:http://www.ruby-lang.org/~rubikitch/RDP.cgi>))
|
2000-09-21 02:58:01 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
== What is This Module?
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
This module provides your program the functions to retrieve
|
|
|
|
mails via POP3, Post Office Protocol version 3. For details
|
|
|
|
of POP3, refer [RFC1939] ((<URL:http://www.ietf.org/rfc/rfc1939.txt>)).
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
== Examples
|
|
|
|
|
|
|
|
=== Retrieving Mails
|
|
|
|
|
|
|
|
This example retrieves mails from server and delete it (on server).
|
|
|
|
Mails are written in file named 'inbox/1', 'inbox/2', ....
|
|
|
|
Replace 'pop3.server.address' your POP3 server address.
|
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
require 'net/pop'
|
|
|
|
|
|
|
|
Net::POP3.start( 'pop3.server.address', 110,
|
|
|
|
'YourAccount', 'YourPassword' ) {|pop|
|
|
|
|
if pop.mails.empty? then
|
|
|
|
puts 'no mail.'
|
|
|
|
else
|
|
|
|
i = 0
|
|
|
|
pop.each_mail do |m| # or "pop.mails.each ..."
|
|
|
|
File.open( 'inbox/' + i.to_s, 'w' ) {|f|
|
|
|
|
f.write m.pop
|
|
|
|
}
|
|
|
|
m.delete
|
|
|
|
i += 1
|
2001-06-26 19:49:21 -04:00
|
|
|
end
|
|
|
|
end
|
2001-06-26 20:59:08 -04:00
|
|
|
puts "#{pop.mails.size} mails popped."
|
|
|
|
}
|
2001-06-26 19:49:21 -04:00
|
|
|
|
|
|
|
=== Shorter Version
|
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
require 'net/pop'
|
|
|
|
Net::POP3.start( 'pop3.server.address', 110,
|
|
|
|
'YourAccount', 'YourPassword' ) {|pop|
|
|
|
|
if pop.mails.empty? then
|
|
|
|
puts 'no mail.'
|
|
|
|
else
|
|
|
|
i = 0
|
|
|
|
pop.delete_all do |m|
|
|
|
|
File.open( 'inbox/' + i.to_s, 'w' ) {|f|
|
|
|
|
f.write m.pop
|
|
|
|
}
|
|
|
|
i += 1
|
|
|
|
end
|
|
|
|
end
|
|
|
|
}
|
|
|
|
|
|
|
|
And here is more shorter example.
|
|
|
|
|
|
|
|
require 'net/pop'
|
|
|
|
i = 0
|
|
|
|
Net::POP3.delete_all( 'pop3.server.address', 110,
|
|
|
|
'YourAccount', 'YourPassword' ) do |m|
|
2001-06-26 19:49:21 -04:00
|
|
|
File.open( 'inbox/' + i.to_s, 'w' ) {|f|
|
|
|
|
f.write m.pop
|
|
|
|
}
|
|
|
|
i += 1
|
|
|
|
end
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
=== Writing to File directly
|
|
|
|
|
|
|
|
All examples above get mail as one big string.
|
|
|
|
This example does not create such one.
|
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
require 'net/pop'
|
|
|
|
Net::POP3.delete_all( 'pop3.server.address', 110,
|
|
|
|
'YourAccount', 'YourPassword' ) do |m|
|
|
|
|
File.open( 'inbox', 'w' ) {|f|
|
|
|
|
m.pop f ####
|
|
|
|
}
|
|
|
|
end
|
2001-06-26 19:49:21 -04:00
|
|
|
|
|
|
|
=== Using APOP
|
|
|
|
|
|
|
|
net/pop also supports APOP authentication. There's two way to use APOP:
|
|
|
|
(1) using APOP class instead of POP3
|
|
|
|
(2) passing true for fifth argument of POP3.start
|
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
# (1)
|
|
|
|
require 'net/pop'
|
|
|
|
Net::APOP.start( 'apop.server.address', 110,
|
|
|
|
'YourAccount', 'YourPassword' ) {|pop|
|
|
|
|
# Rest code is same.
|
|
|
|
}
|
|
|
|
|
|
|
|
# (2)
|
|
|
|
require 'net/pop'
|
|
|
|
Net::POP3.start( 'apop.server.address', 110,
|
|
|
|
'YourAccount', 'YourPassword',
|
|
|
|
true ####
|
|
|
|
) {|pop|
|
|
|
|
# Rest code is same.
|
|
|
|
}
|
2001-06-26 19:49:21 -04:00
|
|
|
|
|
|
|
== Net::POP3 class
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
=== Class Methods
|
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
: new( address, port = 110, apop = false )
|
2001-06-26 20:59:08 -04:00
|
|
|
creates a new Net::POP3 object.
|
|
|
|
This method does not open TCP connection yet.
|
1999-09-22 03:32:33 -04:00
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
: start( address, port = 110, account, password )
|
|
|
|
: start( address, port = 110, account, password ) {|pop| .... }
|
2001-06-26 20:59:08 -04:00
|
|
|
equals to Net::POP3.new( address, port ).start( account, password )
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
Net::POP3.start( addr, port, account, password ) do |pop|
|
|
|
|
pop.each_mail do |m|
|
|
|
|
file.write m.pop
|
|
|
|
m.delete
|
|
|
|
end
|
|
|
|
end
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
: foreach( address, port = 110, account, password ) {|mail| .... }
|
2001-06-26 20:59:08 -04:00
|
|
|
starts POP3 protocol and iterates for each POPMail object.
|
|
|
|
This method equals to
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
Net::POP3.start( address, port, account, password ) {|pop|
|
|
|
|
pop.each_mail do |m|
|
|
|
|
yield m
|
|
|
|
end
|
|
|
|
}
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2001-06-26 20:59:08 -04:00
|
|
|
# example
|
|
|
|
Net::POP3.foreach( 'your.pop.server', 110,
|
|
|
|
'YourAccount', 'YourPassword' ) do |m|
|
|
|
|
file.write m.pop
|
|
|
|
m.delete if $DELETE
|
|
|
|
end
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
: delete_all( address, port = 110, account, password )
|
|
|
|
: delete_all( address, port = 110, account, password ) {|mail| .... }
|
2001-06-26 19:49:21 -04:00
|
|
|
starts POP3 session and delete all mails.
|
|
|
|
If block is given, iterates for each POPMail object before delete.
|
|
|
|
|
|
|
|
# example
|
|
|
|
Net::POP3.delete_all( addr, nil, 'YourAccount', 'YourPassword' ) do |m|
|
|
|
|
m.pop file
|
|
|
|
end
|
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
: auth_only( address, port = 110, account, password )
|
2001-06-26 19:49:21 -04:00
|
|
|
(just for POP-before-SMTP)
|
|
|
|
opens POP3 session and does autholize and quit.
|
|
|
|
This method must not be called while POP3 session is opened.
|
|
|
|
|
|
|
|
# example
|
|
|
|
pop = Net::POP3.auth_only( 'your.pop3.server',
|
|
|
|
nil, # using default (110)
|
|
|
|
'YourAccount',
|
|
|
|
'YourPassword' )
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2001-02-06 06:14:51 -05:00
|
|
|
=== Instance Methods
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: start( account, password )
|
2000-05-18 04:57:37 -04:00
|
|
|
: start( account, password ) {|pop| .... }
|
2001-06-26 19:49:21 -04:00
|
|
|
starts POP3 session.
|
|
|
|
|
|
|
|
When called with block, gives a POP3 object to block and
|
|
|
|
closes the session after block call finish.
|
|
|
|
|
|
|
|
: active?
|
|
|
|
true if POP3 session is started.
|
|
|
|
|
|
|
|
: address
|
|
|
|
the address to connect
|
|
|
|
|
|
|
|
: port
|
|
|
|
the port number to connect
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
: open_timeout
|
|
|
|
: open_timeout=(n)
|
|
|
|
seconds to wait until connection is opened.
|
|
|
|
If POP3 object cannot open a conection in this seconds,
|
|
|
|
it raises TimeoutError exception.
|
|
|
|
|
|
|
|
: read_timeout
|
|
|
|
: read_timeout=(n)
|
|
|
|
seconds to wait until reading one block (by one read(1) call).
|
|
|
|
If POP3 object cannot open a conection in this seconds,
|
|
|
|
it raises TimeoutError exception.
|
|
|
|
|
|
|
|
: finish
|
|
|
|
finishes POP3 session.
|
2001-07-03 15:03:16 -04:00
|
|
|
If POP3 session had not be started, raises an IOError.
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: mails
|
2001-06-26 19:49:21 -04:00
|
|
|
an array of Net::POPMail objects.
|
|
|
|
This array is renewed when session started.
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2000-12-22 13:40:55 -05:00
|
|
|
: each_mail {|popmail| .... }
|
|
|
|
: each {|popmail| .... }
|
2001-06-26 19:49:21 -04:00
|
|
|
is equals to "pop3.mails.each"
|
2000-12-22 13:40:55 -05:00
|
|
|
|
|
|
|
: delete_all
|
|
|
|
: delete_all {|popmail| .... }
|
2001-06-26 19:49:21 -04:00
|
|
|
deletes all mails on server.
|
|
|
|
If called with block, gives mails to the block before deleting.
|
|
|
|
|
|
|
|
# example
|
|
|
|
n = 1
|
|
|
|
pop.delete_all do |m|
|
|
|
|
File.open("inbox/#{n}") {|f| f.write m.pop }
|
|
|
|
n += 1
|
|
|
|
end
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
: auth_only( account, password )
|
|
|
|
(just for POP-before-SMTP)
|
|
|
|
opens POP3 session and does autholize and quit.
|
|
|
|
This method must not be called while POP3 session is opened.
|
|
|
|
# example
|
|
|
|
pop = Net::POP3.new( 'your.pop3.server' )
|
|
|
|
pop.auth_only 'YourAccount', 'YourPassword'
|
2000-12-22 13:40:55 -05:00
|
|
|
|
2000-10-12 05:54:32 -04:00
|
|
|
: reset
|
2001-06-26 20:59:08 -04:00
|
|
|
reset the session. All "deleted mark" are removed.
|
2000-10-12 05:54:32 -04:00
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
== Net::APOP
|
1999-09-22 03:32:33 -04:00
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
This class defines no new methods.
|
|
|
|
Only difference from POP3 is using APOP authentification.
|
1999-09-22 03:32:33 -04:00
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
=== Super Class
|
|
|
|
Net::POP3
|
1999-09-22 03:32:33 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
== Net::POPMail
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
A class of mail which exists on POP server.
|
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
=== Instance Methods
|
1999-10-13 03:29:15 -04:00
|
|
|
|
2000-12-24 15:01:44 -05:00
|
|
|
: pop( dest = '' )
|
2001-06-26 19:49:21 -04:00
|
|
|
This method fetches a mail and write to 'dest' using '<<' method.
|
2000-02-21 10:25:37 -05:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
# example
|
|
|
|
allmails = nil
|
|
|
|
POP3.start( 'your.pop3.server', 110,
|
|
|
|
'YourAccount, 'YourPassword' ) do |pop|
|
|
|
|
allmails = pop.mails.collect {|popmail| popmail.pop }
|
|
|
|
end
|
2000-02-21 10:25:37 -05:00
|
|
|
|
2000-12-24 15:01:44 -05:00
|
|
|
: pop {|str| .... }
|
2001-06-26 19:49:21 -04:00
|
|
|
gives the block part strings of a mail.
|
2000-02-21 10:25:37 -05:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
# example
|
|
|
|
POP3.start( 'localhost', 110 ) {|pop3|
|
|
|
|
pop3.each_mail do |m|
|
|
|
|
m.pop do |str|
|
|
|
|
# do anything
|
|
|
|
end
|
|
|
|
end
|
|
|
|
}
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: header
|
2001-06-26 19:49:21 -04:00
|
|
|
This method fetches only mail header.
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: top( lines )
|
2001-06-26 19:49:21 -04:00
|
|
|
This method fetches mail header and LINES lines of body.
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: delete
|
2001-06-26 19:49:21 -04:00
|
|
|
deletes mail on server.
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: size
|
2001-06-26 19:49:21 -04:00
|
|
|
mail size (bytes)
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
: deleted?
|
2001-06-26 19:49:21 -04:00
|
|
|
true if mail was deleted
|
1999-10-13 03:29:15 -04:00
|
|
|
|
|
|
|
=end
|
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
require 'net/protocol'
|
2001-12-01 09:07:01 -05:00
|
|
|
require 'digest/md5'
|
2000-06-12 12:42:46 -04:00
|
|
|
|
|
|
|
|
|
|
|
module Net
|
|
|
|
|
|
|
|
class POP3 < Protocol
|
|
|
|
|
|
|
|
protocol_param :port, '110'
|
aamine
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb: 1.1.26.
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb:
add module Net::NetPrivate and its inner classes
{Read,Write}Adapter, Command, Socket,
SMTPCommand, POP3Command, APOPCommand, HTTPCommand
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@826 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2000-07-12 02:04:40 -04:00
|
|
|
protocol_param :command_type, '::Net::NetPrivate::POP3Command'
|
2001-02-06 07:26:25 -05:00
|
|
|
protocol_param :apop_command_type, '::Net::NetPrivate::APOPCommand'
|
2000-06-12 12:42:46 -04:00
|
|
|
|
|
|
|
protocol_param :mail_type, '::Net::POPMail'
|
|
|
|
|
2000-12-22 13:40:55 -05:00
|
|
|
class << self
|
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
def foreach( address, port = nil,
|
2000-12-22 13:40:55 -05:00
|
|
|
account = nil, password = nil, &block )
|
|
|
|
start( address, port, account, password ) do |pop|
|
|
|
|
pop.each_mail( &block )
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
def delete_all( address, port = nil,
|
2000-12-22 13:40:55 -05:00
|
|
|
account = nil, password = nil, &block )
|
|
|
|
start( address, port, account, password ) do |pop|
|
|
|
|
pop.delete_all( &block )
|
|
|
|
end
|
|
|
|
end
|
2001-06-26 19:49:21 -04:00
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
def auth_only( address, port = nil,
|
2001-06-26 19:49:21 -04:00
|
|
|
account = nil, password = nil )
|
|
|
|
new( address, port ).auth_only account, password
|
|
|
|
end
|
|
|
|
|
2000-12-22 13:40:55 -05:00
|
|
|
end
|
|
|
|
|
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
def initialize( addr, port = nil, apop = false )
|
2001-02-06 07:26:25 -05:00
|
|
|
super addr, port
|
2000-10-12 05:54:32 -04:00
|
|
|
@mails = nil
|
2001-02-06 07:26:25 -05:00
|
|
|
@apop = false
|
2000-06-12 12:42:46 -04:00
|
|
|
end
|
|
|
|
|
2001-08-16 23:08:45 -04:00
|
|
|
def auth_only( account, password )
|
2001-06-26 19:49:21 -04:00
|
|
|
begin
|
|
|
|
connect
|
|
|
|
@active = true
|
|
|
|
@command.auth address, port
|
|
|
|
@command.quit
|
|
|
|
ensure
|
|
|
|
@active = false
|
|
|
|
disconnect
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
attr :mails
|
|
|
|
|
2000-12-22 13:40:55 -05:00
|
|
|
def each_mail( &block )
|
2000-10-12 05:54:32 -04:00
|
|
|
io_check
|
2000-12-22 13:40:55 -05:00
|
|
|
@mails.each( &block )
|
|
|
|
end
|
|
|
|
|
|
|
|
alias each each_mail
|
|
|
|
|
|
|
|
def delete_all
|
2001-06-26 19:49:21 -04:00
|
|
|
io_check
|
2000-12-22 13:40:55 -05:00
|
|
|
@mails.each do |m|
|
|
|
|
yield m if block_given?
|
|
|
|
m.delete unless m.deleted?
|
|
|
|
end
|
2000-10-12 05:54:32 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
def reset
|
|
|
|
io_check
|
|
|
|
@command.rset
|
|
|
|
@mails.each do |m|
|
|
|
|
m.instance_eval { @deleted = false }
|
|
|
|
end
|
2000-06-12 12:42:46 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
private
|
|
|
|
|
2001-02-06 07:26:25 -05:00
|
|
|
def conn_command( sock )
|
|
|
|
@command =
|
|
|
|
(@apop ? type.apop_command_type : type.command_type).new(sock)
|
|
|
|
end
|
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
def do_start( account, password )
|
|
|
|
@command.auth account, password
|
2000-06-12 12:42:46 -04:00
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
mails = []
|
2000-10-12 05:54:32 -04:00
|
|
|
mtype = type.mail_type
|
2000-06-12 12:42:46 -04:00
|
|
|
@command.list.each_with_index do |size,idx|
|
2001-06-26 19:49:21 -04:00
|
|
|
mails.push mtype.new(idx, size, @command) if size
|
2000-06-12 12:42:46 -04:00
|
|
|
end
|
2001-06-26 19:49:21 -04:00
|
|
|
@mails = mails.freeze
|
2000-06-12 12:42:46 -04:00
|
|
|
end
|
|
|
|
|
2000-10-12 05:54:32 -04:00
|
|
|
def io_check
|
2001-06-26 19:49:21 -04:00
|
|
|
(not @socket or @socket.closed?) and
|
|
|
|
raise IOError, 'pop session is not opened yet'
|
2000-10-12 05:54:32 -04:00
|
|
|
end
|
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
POP = POP3
|
|
|
|
POPSession = POP3
|
|
|
|
POP3Session = POP3
|
|
|
|
|
|
|
|
|
aamine
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb: 1.1.26.
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb:
add module Net::NetPrivate and its inner classes
{Read,Write}Adapter, Command, Socket,
SMTPCommand, POP3Command, APOPCommand, HTTPCommand
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@826 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2000-07-12 02:04:40 -04:00
|
|
|
class APOP < POP3
|
|
|
|
protocol_param :command_type, 'Net::NetPrivate::APOPCommand'
|
|
|
|
end
|
|
|
|
|
|
|
|
APOPSession = APOP
|
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
class POPMail
|
1999-09-22 03:32:33 -04:00
|
|
|
|
1999-12-29 06:14:04 -05:00
|
|
|
def initialize( n, s, cmd )
|
|
|
|
@num = n
|
|
|
|
@size = s
|
|
|
|
@command = cmd
|
1999-09-22 03:32:33 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
@deleted = false
|
|
|
|
end
|
1999-09-22 03:32:33 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
attr :size
|
1999-09-22 03:32:33 -04:00
|
|
|
|
2000-06-12 12:42:46 -04:00
|
|
|
def inspect
|
|
|
|
"#<#{type} #{@num}#{@deleted ? ' deleted' : ''}>"
|
|
|
|
end
|
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
def all( dest = '' )
|
2000-09-12 01:37:38 -04:00
|
|
|
if block_given? then
|
aamine
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb: 1.1.26.
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb:
add module Net::NetPrivate and its inner classes
{Read,Write}Adapter, Command, Socket,
SMTPCommand, POP3Command, APOPCommand, HTTPCommand
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@826 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2000-07-12 02:04:40 -04:00
|
|
|
dest = NetPrivate::ReadAdapter.new( Proc.new )
|
2000-02-21 10:25:37 -05:00
|
|
|
end
|
1999-12-29 06:14:04 -05:00
|
|
|
@command.retr( @num, dest )
|
1999-12-17 10:00:13 -05:00
|
|
|
end
|
|
|
|
alias pop all
|
|
|
|
alias mail all
|
1999-09-22 03:32:33 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
def top( lines, dest = '' )
|
1999-12-29 06:14:04 -05:00
|
|
|
@command.top( @num, lines, dest )
|
1999-12-17 10:00:13 -05:00
|
|
|
end
|
1999-10-18 05:03:16 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
def header( dest = '' )
|
2000-10-12 05:54:32 -04:00
|
|
|
top 0, dest
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
def delete
|
1999-12-29 06:14:04 -05:00
|
|
|
@command.dele( @num )
|
1999-12-17 10:00:13 -05:00
|
|
|
@deleted = true
|
|
|
|
end
|
2000-10-12 05:54:32 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
alias delete! delete
|
1999-10-13 03:29:15 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
def deleted?
|
|
|
|
@deleted
|
|
|
|
end
|
|
|
|
|
|
|
|
def uidl
|
1999-12-29 06:14:04 -05:00
|
|
|
@command.uidl @num
|
1999-12-17 10:00:13 -05:00
|
|
|
end
|
|
|
|
|
|
|
|
end
|
1999-10-13 03:29:15 -04:00
|
|
|
|
1999-09-22 03:32:33 -04:00
|
|
|
|
|
|
|
|
aamine
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb: 1.1.26.
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb:
add module Net::NetPrivate and its inner classes
{Read,Write}Adapter, Command, Socket,
SMTPCommand, POP3Command, APOPCommand, HTTPCommand
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@826 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2000-07-12 02:04:40 -04:00
|
|
|
module NetPrivate
|
1999-09-22 03:32:33 -04:00
|
|
|
|
1999-12-17 10:00:13 -05:00
|
|
|
|
|
|
|
class POP3Command < Command
|
|
|
|
|
|
|
|
def initialize( sock )
|
|
|
|
super
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
|
|
|
check_reply SuccessCode
|
|
|
|
}
|
1999-12-17 10:00:13 -05:00
|
|
|
end
|
|
|
|
|
1999-09-22 03:32:33 -04:00
|
|
|
def auth( acnt, pass )
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
|
|
|
@socket.writeline 'USER ' + acnt
|
|
|
|
check_reply_auth
|
1999-09-22 03:32:33 -04:00
|
|
|
|
2000-03-27 10:52:27 -05:00
|
|
|
@socket.writeline 'PASS ' + pass
|
|
|
|
check_reply_auth
|
|
|
|
}
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
def list
|
|
|
|
arr = []
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
|
|
|
getok 'LIST'
|
|
|
|
@socket.read_pendlist do |line|
|
2001-06-26 19:49:21 -04:00
|
|
|
m = /\A(\d+)[ \t]+(\d+)/.match(line) or
|
|
|
|
raise BadResponse, "illegal response: #{line}"
|
|
|
|
arr[ m[1].to_i ] = m[2].to_i
|
2000-03-27 10:52:27 -05:00
|
|
|
end
|
|
|
|
}
|
|
|
|
arr
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
def rset
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
|
|
|
getok 'RSET'
|
|
|
|
}
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
def top( num, lines = 0, dest = '' )
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
|
|
|
getok sprintf( 'TOP %d %d', num, lines )
|
2001-06-26 19:49:21 -04:00
|
|
|
@socket.read_pendstr dest
|
2000-03-27 10:52:27 -05:00
|
|
|
}
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
def retr( num, dest = '', &block )
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
2001-06-26 19:49:21 -04:00
|
|
|
getok sprintf('RETR %d', num)
|
|
|
|
@socket.read_pendstr dest, &block
|
2000-03-27 10:52:27 -05:00
|
|
|
}
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
def dele( num )
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
2001-06-26 19:49:21 -04:00
|
|
|
getok sprintf('DELE %d', num)
|
2000-03-27 10:52:27 -05:00
|
|
|
}
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
1999-10-18 05:03:16 -04:00
|
|
|
def uidl( num )
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
2001-06-26 19:49:21 -04:00
|
|
|
getok( sprintf('UIDL %d', num) ).msg.split(' ')[1]
|
2000-03-27 10:52:27 -05:00
|
|
|
}
|
1999-10-18 05:03:16 -04:00
|
|
|
end
|
|
|
|
|
2000-03-27 10:52:27 -05:00
|
|
|
def quit
|
|
|
|
critical {
|
|
|
|
getok 'QUIT'
|
|
|
|
}
|
|
|
|
end
|
1999-09-22 03:32:33 -04:00
|
|
|
|
|
|
|
|
2000-03-27 10:52:27 -05:00
|
|
|
private
|
1999-09-22 03:32:33 -04:00
|
|
|
|
|
|
|
def check_reply_auth
|
|
|
|
begin
|
|
|
|
cod = check_reply( SuccessCode )
|
|
|
|
rescue ProtocolError
|
|
|
|
raise ProtoAuthError, 'Fail to POP authentication'
|
|
|
|
end
|
|
|
|
|
|
|
|
return cod
|
|
|
|
end
|
|
|
|
|
|
|
|
def get_reply
|
|
|
|
str = @socket.readline
|
|
|
|
|
|
|
|
if /\A\+/ === str then
|
2000-03-31 08:02:40 -05:00
|
|
|
return Response.new( SuccessCode, str[0,3], str[3, str.size - 3].strip )
|
1999-09-22 03:32:33 -04:00
|
|
|
else
|
2000-03-31 08:02:40 -05:00
|
|
|
return Response.new( ErrorCode, str[0,4], str[4, str.size - 4].strip )
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
class APOPCommand < POP3Command
|
|
|
|
|
|
|
|
def initialize( sock )
|
|
|
|
rep = super( sock )
|
|
|
|
|
2001-06-26 19:49:21 -04:00
|
|
|
m = /<.+>/.match( rep.msg ) or
|
|
|
|
raise ProtoAuthError, "not APOP server: cannot login"
|
2000-04-14 06:41:35 -04:00
|
|
|
@stamp = m[0]
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
2000-05-17 14:39:43 -04:00
|
|
|
def auth( account, pass )
|
2000-03-27 10:52:27 -05:00
|
|
|
critical {
|
2000-05-17 14:39:43 -04:00
|
|
|
@socket.writeline sprintf( 'APOP %s %s',
|
2001-06-26 19:49:21 -04:00
|
|
|
account,
|
2001-12-01 09:07:01 -05:00
|
|
|
Digest::MD5.hexdigest(@stamp + pass) )
|
2000-03-27 10:52:27 -05:00
|
|
|
check_reply_auth
|
|
|
|
}
|
1999-09-22 03:32:33 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
|
aamine
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb: 1.1.26.
* lib/net/protocol.rb, smtp.rb, pop.rb, http.rb:
add module Net::NetPrivate and its inner classes
{Read,Write}Adapter, Command, Socket,
SMTPCommand, POP3Command, APOPCommand, HTTPCommand
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@826 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2000-07-12 02:04:40 -04:00
|
|
|
|
|
|
|
end # module Net::NetPrivate
|
|
|
|
|
|
|
|
end # module Net
|