adds http configuration effect (%form) and port notification move (%live)

This commit is contained in:
Joe Bryan 2018-06-13 15:08:10 -04:00
parent 2a15e83fc3
commit 461e0e9d14
2 changed files with 29 additions and 2 deletions

View File

@ -636,7 +636,14 @@
=. our ?~(hov our u.hov) :: XX
=. p.top our :: XX necessary?
?- -.kyz
$born +>.$(ged hen) :: register external
$born
%= +>.$
ged hen :: register external
mow :_(mow [hen [%give %form [~ ?=(%king our) & &]]])
==
::
$live +>.$ :: XX save ports
::
$serv
=< ~&([%serving (en-beam top)] .)
?^(p.kyz +>.$(top p.kyz) +>.$(q.top p.kyz))

View File

@ -661,7 +661,8 @@
++ able ^?
|%
+= gift :: out result <-$
$% [%mass p=mass] :: memory usage
$% [%form p=http-config] :: configuration
[%mass p=mass] :: memory usage
[%mack p=(unit tang)] :: message ack
[%sigh p=cage] :: marked http response
[%that p=@p q=@ud r=?] :: get proxied request
@ -676,6 +677,7 @@
[%crud p=@tas q=(list tank)] :: XX rethink
[%hiss p=(unit user) q=mark r=cage] :: outbound user req
[%init p=@p] :: report install
[%live p=@ud q=(unit @ud)] :: http/s ports
[%serv p=$@(desk beam)] :: set serving root
[%them p=(unit hiss)] :: outbound request
[%they p=@ud q=httr] :: inbound response
@ -734,6 +736,24 @@
++ host (each (list @t) @if) :: http host
++ hoke %+ each {$localhost $~} :: local host
?($.0.0.0.0 $.127.0.0.1) ::
:: +http-config: full http-server configuration
::
+= http-config
$: :: secure: PEM-encoded RSA private key and certificate chain
::
secure=(unit [key=wain certificate=wain])
:: proxy: reverse TCP proxy HTTP(s)
::
proxy=?
:: log: keep HTTP(s) access logs
::
log=?
:: redirect: send 301 redirects to upgrade HTTP to HTTPS
::
:: Note: requires certificate.
::
redirect=?
==
++ httq :: raw http request
$: p/meth :: method
q/@t :: unparsed url