/usr/share/doc/gawk/examples/network
NameSizeModeActions
coreserv.awk33910644editdlrm
eliza.awk102200644editdlrm
fingerclient.awk1610644editdlrm
geturl.awk7870644editdlrm
hello-serv.awk4630644editdlrm
maze.awk26550644editdlrm
mobag.awk28410644editdlrm
panic.awk5750644editdlrm
PostAgent.sh2740644editdlrm
protbase.awk4000644editdlrm
protbase.request1620644editdlrm
protbase.result6420644editdlrm
remconf.awk21860644editdlrm
statist.awk36120644editdlrm
stoxdata.txt1650644editdlrm
stoxpred.awk56370644editdlrm
testserv.awk3340644editdlrm
urlchk.awk10530644editdlrm
webgrab.awk1870644editdlrm
Edit: /usr/share/doc/gawk/examples/network/panic.awk (575B)
BEGIN { RS = ORS = "\r\n" if (MyPort == 0) MyPort = 8080 HttpService = "/inet/tcp/" MyPort "/0/0" Hello = "Out Of Service" \ "

" \ "This site is temporarily out of service." \ "

" 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) } }