diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 13:09:56 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 13:09:56 +0300 |
| commit | bc70de7b3302d5a81515b901cae376b8b51d2004 (patch) | |
| tree | d36d6743e65697f6923b79d0ea8f9f9bf4ef7398 /awklib/eg/network/panic.awk | |
| parent | b9e4a1fd4c8c8753ab8a9887bab55f03efe1e3e2 (diff) | |
| download | egawk-bc70de7b3302d5a81515b901cae376b8b51d2004.tar.gz egawk-bc70de7b3302d5a81515b901cae376b8b51d2004.tar.bz2 egawk-bc70de7b3302d5a81515b901cae376b8b51d2004.zip | |
Move to gawk-3.1.0.
Diffstat (limited to 'awklib/eg/network/panic.awk')
| -rw-r--r-- | awklib/eg/network/panic.awk | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/awklib/eg/network/panic.awk b/awklib/eg/network/panic.awk new file mode 100644 index 00000000..6db8c46d --- /dev/null +++ b/awklib/eg/network/panic.awk @@ -0,0 +1,18 @@ +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) + } +} |