1 files changed, 14 insertions, 0 deletions
diff --git a/awklib/eg/network/hello-serv.awk b/awklib/eg/network/hello-serv.awk
new file mode 100644
index 00000000..003ee088
--- /dev/null
+++ b/awklib/eg/network/hello-serv.awk
@@ -0,0 +1,14 @@
+BEGIN {
+  RS = ORS = "\r\n"
+  HttpService = "/inet/tcp/8080/0/0"
+  Hello = "<HTML><HEAD>" \
+          "<TITLE>A Famous Greeting</TITLE></HEAD>" \
+          "<BODY><H1>Hello, world</H1></BODY></HTML>"
+  Len = length(Hello) + length(ORS)
+  print "HTTP/1.0 200 OK"          |& HttpService
+  print "Content-Length: " Len ORS |& HttpService
+  print Hello                      |& HttpService
+  while ((HttpService |& getline) > 0)
+     continue;
+  close(HttpService)
+}