From bc70de7b3302d5a81515b901cae376b8b51d2004 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 13:09:56 +0300
Subject: Move to gawk-3.1.0.

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

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

diff --git a/awklib/eg/network/protbase.awk b/awklib/eg/network/protbase.awk
new file mode 100644
index 00000000..16199e45
--- /dev/null
+++ b/awklib/eg/network/protbase.awk
@@ -0,0 +1,11 @@
+{ request = request "\n" $0 }
+
+END {
+  BLASTService     = "/inet/tcp/0/www.ncbi.nlm.nih.gov/80"
+  printf "POST /cgi-bin/BLAST/nph-blast_report HTTP/1.0\n" |& BLASTService
+  printf "Content-Length: " length(request) "\n\n"         |& BLASTService
+  printf request                                           |& BLASTService      
+  while ((BLASTService |& getline) > 0)
+      print $0
+  close(BLASTService)
+}
-- 
cgit v1.2.3