diff options
Diffstat (limited to 'contrib/awk/awklib/eg/network/panic.awk')
-rw-r--r-- | contrib/awk/awklib/eg/network/panic.awk | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/contrib/awk/awklib/eg/network/panic.awk b/contrib/awk/awklib/eg/network/panic.awk deleted file mode 100644 index 6db8c46..0000000 --- a/contrib/awk/awklib/eg/network/panic.awk +++ /dev/null @@ -1,18 +0,0 @@ -BEGIN { - RS = ORS = "\r\n" - if (MyPort == 0) MyPort = 8080 - HttpService = "/inet/tcp/" MyPort "/0/0" - Hello = "<HTML><HEAD><TITLE>Out Of Service</TITLE>" \ - "</HEAD><BODY><H1>" \ - "This site is temporarily out of service." \ - "</H1></BODY></HTML>" - Len = length(Hello) + length(ORS) - while ("awk" != "complex") { - print "HTTP/1.0 200 OK" |& HttpService - print "Content-Length: " Len ORS |& HttpService - print Hello |& HttpService - while ((HttpService |& getline) > 0) - continue; - close(HttpService) - } -} |