const ctimeout := 100
function unlock (c : char, s : string, var cond : int) : boolean
if cond <= length (s) then
if c = s (cond) then
cond += 1
else
cond := 1
end if
if cond = length (s) + 1 then
result true
end if
else
result false
end if
result false
end unlock
function mid (s : string, n1, n2 : int) : string
var s2 : string := ""
for i : n1 .. n2
s2 := s2 + s (i)
end for
result s2
end mid
var p1, ns, fnum, count, cond, cond2, cond3 : int := 1
var netaddress, file : string
var data : char
var datas : string
p1 := 80
loop
ns := Net.WaitForConnection (p1, netaddress)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Recieving%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
loop
if Net.CharAvailable (ns) then
get : ns, data
put data ..
if unlock (data, "GET", cond2) then
loop
if Net.LineAvailable (ns) then
get : ns, datas : *
exit
end if
end loop
put ""
put "-----------------Input--------------------"
put datas
put "------------------------------------------"
file := mid (datas, 3, length (datas) - 8)
end if
if unlock (data, "Connection: Keep-Alive", cond) then
exit
end if
else
cond3 += 1
exit when cond3>=ctimeout
end if
end loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Reading%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
put : ns, "HTTP/1.1 200 OK\nCache-control: private"
open : fnum, file, get
loop
exit when eof (fnum)
get : fnum, data
count += 1
end loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Sending%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
put : ns, " Content-type: text/html\nContent-length: ", count, "\n"
open : fnum, file, get
loop
exit when eof (fnum)
get : fnum, data
put : ns, data ..
end loop
close (ns)
end loop
|
a webserver writen in turing? I'd like to see that work.
and it works.
But still works. Make sure that your firewall allows turing to act as a server then go to 
