16 lines
487 B
Text
16 lines
487 B
Text
BEGIN {
|
|
POPService = "/inet/tcp/0/emailhost/pop3"
|
|
RS = ORS = "\r\n"
|
|
print "user name" |& POPService
|
|
POPService |& getline
|
|
print "pass password" |& POPService
|
|
POPService |& getline
|
|
print "retr 1" |& POPService
|
|
POPService |& getline
|
|
if ($1 != "+OK") exit
|
|
print "quit" |& POPService
|
|
RS = "\r\n\\.\r\n"
|
|
POPService |& getline
|
|
print $0
|
|
close(POPService)
|
|
}
|