17 lines
336 B
Scheme
17 lines
336 B
Scheme
|
;;NO RIGHTS RESERVED. CC0 Public domain
|
||
|
|
;;written for Burden
|
||
|
|
;;simple web server for an image-hosting platform
|
||
|
|
;;requires chicken scheme interpreter, sqlite3 and openssl
|
||
|
|
(import
|
||
|
|
(chicken base)
|
||
|
|
(chicken io)
|
||
|
|
spiffy
|
||
|
|
))
|
||
|
|
;;define basic variables
|
||
|
|
(define default_port 80)
|
||
|
|
;;startup the server
|
||
|
|
(define (server_startup)
|
||
|
|
|
||
|
|
(start-server)
|
||
|
|
)
|