awklib/eg/network/mailpopclient.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

BEGIN {
  POPService  = "/inet/tcp/0/var{emailhost}/pop3"
  RS = ORS = "\r\n"
  print "user var{name}"             |& POPService
  POPService                    |& getline
  print "pass var{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)
}