head 1.2;
access;
symbols
v3_1_0:1.1.1.1
FSF:1.1.1;
locks; strict;
comment @# @;
1.2
date 2002.06.20.20.54.47; author obrien; state dead;
branches;
next 1.1;
1.1
date 2001.11.02.21.06.07; author obrien; state Exp;
branches
1.1.1.1;
next ;
1.1.1.1
date 2001.11.02.21.06.07; author obrien; state Exp;
branches;
next ;
desc
@@
1.2
log
@Remove GAWK. I removed it from the build 2 weeks ago and the world
did not end. So finish the deed.
@
text
@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)
}
}
@
1.1
log
@Initial revision
@
text
@@
1.1.1.1
log
@Update vendor branch to gawk-3.1.0.
@
text
@@