WEBSER - HTTP server.

Written by Paul Svensson, who gave permission in 2017 to include this with DB ITS. Source from SV: HACK; WEBSER 19, dated 2003-05-15. Build XFILE from SV: HACK; MAKE WEBSER, dated 2011-07-09.
2026-03-10 12:48:25 +00:00 · 2018-07-27 00:17:26 +01:00
parent e2fe757d6a
commit 5caa245c9a
8 changed files with 1258 additions and 1 deletions
--- a/3
+++ b/3
@@ -17,7 +17,8 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
      xfont maxout ucode moon acount alan channa fonts games graphs humor \
      kldcp libdoc lisp _mail_ midas quux scheme manual
 BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon \
-      graphs draw datdrw fonts fonts1 fonts2 games macsym maxer1 maint imlac
+      graphs draw datdrw fonts fonts1 fonts2 games macsym maxer1 maint imlac \
+      _www_

 SUBMODULES = dasm itstar klh10 mldev simh sims supdup tapeutils

--- a/bin/_www_/main.1
+++ b/bin/_www_/main.1
@@ -0,0 +1 @@
+<html><body><h1>ITS works!</h1></body></html>
--- a/bin/_www_/robots.1
+++ b/bin/_www_/robots.1
@@ -0,0 +1,3 @@
+User-agent: *
+Disallow: /
+
--- a/bin/_www_/robots._txt
+++ b/bin/_www_/robots._txt
@@ -0,0 +1 @@
+_www_/robots.>
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -310,6 +310,10 @@ respond "*" ":midas sysbin;_sysnet;datsrv\r"
 expect ":KILL"
 respond "*" ":link device;tcp syn015,sysbin;datsrv bin\r"

+# WEBSER
+respond "*" ":xfile hack;make webser"
+expect "*:kill"
+
 # mailt
 respond "*" ":link sys;ts mailt,sys2;ts emacs\r"

--- a/doc/programs.md
+++ b/doc/programs.md
@@ -248,6 +248,7 @@
 - VV/VJ/DETREE, list jobs.
 - XHOST, tool for replacing host nicknames with real hostnames.
 - WA, a Wumpus advisor game.
+- WEBSER, HTTP server.
 - WHAT, humorous quips to various "what" questions.
 - WHO%, list index/uname/jname/%time in sorted list.
 - WHOLIN, mode line for display terminals (with date/time/job/etc info).
--- a/src/hack/make.webser
+++ b/src/hack/make.webser
@@ -0,0 +1,8 @@
+:midas .temp.;_hack;webser /l
+:job webser
+:load .temp.;webser bin
+:corblk none wwwtst
+:corblk pure go
+debug/0
+:pdump device;tcp syn120
+:kill
--- a/src/hack/webser.19
+++ b/src/hack/webser.19
				`@@ -0,0 +1 @@`
				`<html><body><h1>ITS works!</h1></body></html>`