17 lines
356 B
Scheme
Executable File
17 lines
356 B
Scheme
Executable File
#!/usr/bin/slidescript
|
|
# SlideScript example, start a disposable http server
|
|
#
|
|
# Function nethttp "<portvalue>" "<forkvalue>"
|
|
# fork values:
|
|
# * 0 = do not fork to background
|
|
# * 1 = fork to background
|
|
|
|
port1=8081
|
|
port2=8080
|
|
|
|
# Daemonize
|
|
nethttp "%port1%" "1"
|
|
nethttp "%port1%" "0"
|
|
|
|
print "Server on %port1% still running in the background"
|