Test Page

Т > HTTPServer &Т Deliver a webpage using the HTTP Т (C)2010 SPROW (0Т Modified by JGH to use BBC Sockets Library 2: 0 ▄ Рdorequest(httpreq%,ipaddrblk!4):Рskt_close(httpreq%):httpreq%=-1 ЧЩ0 : щРdorequest(socket%,remote%) Йsize% &4size%=єskt_recv(socket%,httprecvblk,httpsize%,0) 0.Гsize%<=0 ▄ А:Т Stream closed unexpectedly :.httprecvblk?size%=13:Т Ensure a terminator D"Гю$httprecvblk,5)<>"GET /" ▄ А N7ЯєIP_Stn(remote%);" sent '"ю$httprecvblk,16);"...'" X=Т There are no sub pages, any 'GET' will return this HTML bT$httpsendblk="HTTP/1.1 200 OK"+Ґ13+Ґ10+"Content-type: text/html"+Ґ13+Ґ10+Ґ13+Ґ10 lIГєskt_send(socket%,httpsendblk,44,0)<=0 ▄ Я"Failed to deliver header" v`$httpsendblk="Test PageTime is "+ц▒+"" ─RГєskt_send(socket%,httpsendblk,╘$httpsendblk,0)<=0 ▄ Я"Failed to deliver page" ┼А ■: ·: ╗Т > BLib.IP 1.00 12Feb2009 ╡: ╪0Т IP_Stn - Returns dotted net&station number ф0Т ------------------------------------------ п*щєIP_Stn(A%):Й B%:ч B%-1:!B%=A%:B%!4=0 з'=цB%?3+"."+цB%?2+"."+цB%?1+"."+ц?B% Д: НBТ IP_StnFixed - Returns fixed-length dotted net&station number ЬFТ ---------------------------------------------------------------- (щєIP_StnFixed(A%):Й B%:ч B%-1:!B%=A% ?=єd0(B%?3,3)+"."+єd0(B%?2,3)+"."+єd0(B%?1,3)+"."+єd0(?B%,3) : >Т IP_StnNum - Convert dotted IP address string into number *>Т -------------------------------------------------------- 42щєIP_StnNum(A$):Й B%:ч B%-1:!B%=0:У!B%=!B%+╩A$ >/A%=їA$,"."):ГA%:A$=аA$,A%+1):B%!1=!B%:?B%=0 HЩA%=0:=!B% R: \/Т swap_16 - Swap b0-b7 and b8-b15 of number f1Т ------------------------------------------- pщєswap_16(A%) z,Й B%:ч B%-1:!B%=A%:B%!2=A%:=(B%!1)─&FFFF └: ▌0Т swap_32 - word from &AABBCCDD to &DDCCBBAA ≤2Т -------------------------------------------- ╒щєswap_32(A%) ╛9Й B%:ч B%-1:!B%=A%:B%?4=B%?2:B%?5=B%?1:B%?6=?B%:=B%!3 І: ю#щєd0(A%,N%)=б"00000000"+цA%,N%) й: т: ч$Т > BLib.Socket 1.00 12-Dec-2010 ХТ Sockets Library Р5Т Requires X%->32-byte control block, Y%=X%DIV256 Э+Т FNIP_gethost requires name%->80 bytes : Т FNIP_gethost(name$) Т ------------------- $TщєIP_gethost(A$):!X%=&411808:X%!4=name%:$name%=A$:A%=192:ж&FFF1:ГX%?3:=0 ▀ =X%+4 .: 8!Т FNskt_open(pf%,type%,prot%) B"Т ---------------------------- LHщєskt_open(X%!4,X%!8,X%!12):!X%=&810:A%=192:ж&FFF1:ГX%?3:=-1 ▀ =X%!4 V: `(Т FNskt_bind(handle%,addr%,addrlen%) j(Т ---------------------------------- tJщєskt_bind(X%!4,X%!8,X%!12):!X%=&10810:A%=192:ж&FFF1:ГX%?3:=-1 ▀ =X%!4 ~: ┬"Т FNskt_listen(handle%,count%) ▓"Т ---------------------------- °Fщєskt_listen(X%!4,X%!8):!X%=&2080C:A%=192:ж&FFF1:ГX%?3:=-1 ▀ =X%!4 і: ╟*Т FNskt_accept(handle%,addr%,addrlen%) ╨*Т ------------------------------------ дLщєskt_accept(X%!4,X%!8,X%!12):!X%=&30816:A%=192:ж&FFF1:ГX%?3:=-1 ▀ =X%!4 н: ь+Т FNskt_connect(handle%,addr%,addrlen%) Б+Т ------------------------------------- ЛMщєskt_connect(X%!4,X%!8,X%!12):!X%=&40816:A%=192:ж&FFF1:ГX%?3:=-1 ▀ =X%!4 Ж: *Т FNskt_recv(handle%,data%,len%,opts%) *Т ------------------------------------ Pщєskt_recv(X%!4,X%!8,X%!12,X%!16):!X%=&50814:A%=192:ж&FFF1:ГX%?3:=-1 ▀ =X%!4 : (*Т FNskt_send(handle%,data%,len%,opts%) 2*Т ------------------------------------