A minimal HTTP server written in LOLCODE.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

82 lines
2.5 KiB

OBTW
httpd.lol -- a minimal HTTP server written in LOLCODE
example:
./lci httpd.lol
point your favorite HTTP-getter to http://127.0.0.1:13337/lol.html
...
profit?
by Justin J. Meza, 2014
TLDR
HAI 1.4
CAN HAS STDIO?
CAN HAS SOCKS?
CAN HAS STRING?
HOW IZ I parse YR header
I HAS A len ITZ I IZ STRING'Z LEN YR header MKAY
I HAS A readin ITZ FAIL
I HAS A file ITZ ""
IM IN YR loop UPPIN YR index TIL BOTH SAEM index AN len
I HAS A char ITZ I IZ STRING'Z AT YR header AN YR index MKAY
BOTH OF BOTH SAEM char AN " " AN readin
O RLY?
YA RLY, FOUND YR file
OIC
readin, O RLY?, YA RLY, file R SMOOSH file AN char MKAY, OIC
BOTH OF BOTH SAEM char AN "/" AN NOT readin
O RLY?
YA RLY, readin R WIN
OIC
IM OUTTA YR loop
FOUND YR ""
IF U SAY SO
BTW bind to a local port
I HAS A sock
sock R I IZ SOCKS'Z BIND YR "127.0.0.1" AN YR 13337 MKAY
IM IN YR loop
BTW receive a connection
I HAS A conn
conn R I IZ SOCKS'Z LISTN YR sock MKAY
BTW get a command
I HAS A cmd
cmd R I IZ SOCKS'Z GET YR sock AN YR conn AN YR 1024 MKAY
VISIBLE "CMD IZ " AN cmd
BTW parse the file name
I HAS A name ITZ I IZ parse YR cmd MKAY
VISIBLE "FIEL IZ " AN name
I HAS A reply ITZ ""
BTW get the file contents
I HAS A file ITZ I IZ STDIO'Z OPEN YR name AN YR "r" MKAY
I IZ STDIO'Z DIAF YR file MKAY, O RLY?
YA RLY
VISIBLE "FIEL NOT FOUND"
reply R "HTTP/1.1 404 Not Found:3:):3:)"
NO WAI
VISIBLE "FIEL FOUND!"
I HAS A data ITZ I IZ STDIO'Z LUK YR file AN YR 1024 MKAY
I HAS A len ITZ I IZ STRING'Z LEN YR data MKAY
I IZ STDIO'Z CLOSE YR file MKAY
VISIBLE "LEN IZ " AN len
VISIBLE "DATA IZ " AN data
reply R SMOOSH "HTTP/1.1 200 OK:3:)"...
AN "Server: httpd.lol/0.1 (lci):3:)"...
AN "Context-Type: text/html:3:)"...
AN "Content-Length: :{len}:3:):3:)"...
AN ":{data}:3:)" MKAY
OIC
BTW serve it up
VISIBLE "REPLY IZ " AN reply
I IZ SOCKS'Z PUT YR sock AND YR conn AN YR reply MKAY
BTW buh-bye
I IZ SOCKS'Z CLOSE YR conn MKAY
IM OUTTA YR loop
KTHXBYE