From f113836a8fc282b7c7642eff82a4cf73d8e346fa Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Mon, 28 Dec 2020 18:07:18 +0200
Subject: Additional update in gawkinet.texi.

---
 awklib/eg/network/mailpopclient.awk | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 awklib/eg/network/mailpopclient.awk

(limited to 'awklib/eg/network/mailpopclient.awk')

diff --git a/awklib/eg/network/mailpopclient.awk b/awklib/eg/network/mailpopclient.awk
new file mode 100644
index 00000000..041c5629
--- /dev/null
+++ b/awklib/eg/network/mailpopclient.awk
@@ -0,0 +1,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)
+}
-- 
cgit v1.2.3