1 files changed, 11 insertions, 0 deletions

diff --git a/contrib/awk/awklib/eg/network/protbase.awk b/contrib/awk/awklib/eg/network/protbase.awk
new file mode 100644
index 000000000000..16199e45121e
--- /dev/null
+++ b/contrib/awk/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)
+}