110 lines
2.7 KiB
Text
110 lines
2.7 KiB
Text
|
|
||
|
|
"#httpserver/base.spl" import
|
||
|
|
"#httpserver/static.spl" import
|
||
|
|
|
||
|
|
use net:http:Server
|
||
|
|
1048576 net:http:server:=bufsize
|
||
|
|
|
||
|
|
construct Branch {
|
||
|
|
name
|
||
|
|
commit
|
||
|
|
;
|
||
|
|
construct { this | with name commit this ;
|
||
|
|
name this:=name
|
||
|
|
commit this:=commit
|
||
|
|
this
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
construct Branches {
|
||
|
|
main
|
||
|
|
release
|
||
|
|
loader
|
||
|
|
;
|
||
|
|
construct { this | with dir this ;
|
||
|
|
func read-commit { s | with file ;
|
||
|
|
[ "unzip" "-p" file "commit" ] StreamTypes:cmd:create:read-to-end<32>:to-str
|
||
|
|
}
|
||
|
|
"Loader" dir "/BaseBand-Loader.jar" concat read-commit Branch:new this:=loader
|
||
|
|
"Broadway" dir "/BaseBand-release.jar" concat read-commit Branch:new this:=release
|
||
|
|
"Iceland" dir "/BaseBand-main.jar" concat read-commit Branch:new this:=main
|
||
|
|
this properties props-to-json
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
construct Object404 {
|
||
|
|
error
|
||
|
|
;
|
||
|
|
construct { this | with this ;
|
||
|
|
"Endpoint not found" this:=error
|
||
|
|
this properties props-to-json
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
construct Refreshed {
|
||
|
|
ok
|
||
|
|
;
|
||
|
|
construct { this | with this ;
|
||
|
|
"true" this:=ok
|
||
|
|
this properties props-to-json
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
func props-to-json { | with props ;
|
||
|
|
props:last:get<1> dup null eq not if {
|
||
|
|
"\"" swap _str :replace<"\\" "\\\\">:replace<"\"" "\\\""> concat "\"" concat 2 stop
|
||
|
|
} pop
|
||
|
|
"{"
|
||
|
|
props
|
||
|
|
:iter
|
||
|
|
:filter<{ b | :to-stack pop with key ; key ":" eq not key ";" eq not and }>
|
||
|
|
:map<{ s |
|
||
|
|
:to-stack with key value ;
|
||
|
|
"\""
|
||
|
|
key :replace<"\\" "\\\\">:replace<"\"" "\\\""> concat
|
||
|
|
"\": " concat
|
||
|
|
value properties props-to-json concat
|
||
|
|
}>
|
||
|
|
:join<", "> concat
|
||
|
|
"}" concat
|
||
|
|
}
|
||
|
|
|
||
|
|
func main { exitcode | with args ;
|
||
|
|
def server Server:new<"::0" 40002> =server
|
||
|
|
while { 1 } {
|
||
|
|
server:accept &handle-client fork;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
func dir { | with client dir location ;
|
||
|
|
dir "/BaseBand-release.jar" concat location "/download/client/release" concat client:serve-file-cached;<"application/octet-stream">
|
||
|
|
dir "/BaseBand-main.jar" concat location "/download/client/main" concat client:serve-file-cached;<"application/octet-stream">
|
||
|
|
dir "/BaseBand-Loader.jar" concat location "/download/loader" concat client:serve-file-cached;<"application/octet-stream">
|
||
|
|
|
||
|
|
location "/branches" concat client:path eq if {
|
||
|
|
dir Branches:new client:write-ok:write-content-type<"application/json">:write-str-body:finish;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
func handle-client { | with client ;
|
||
|
|
client:read;
|
||
|
|
"index.html" "/" client:serve-html-cached;
|
||
|
|
|
||
|
|
client "rewrite" "/1.12.2" dir
|
||
|
|
|
||
|
|
client "ednieva" "/ednieva" dir
|
||
|
|
|
||
|
|
"/refresh" client:path eq if {
|
||
|
|
"refresh" println;
|
||
|
|
client:server:cached-files if {
|
||
|
|
client:server:cached-files:clear;
|
||
|
|
}
|
||
|
|
Refreshed:new client:write-ok:write-content-type<"application/json">:write-str-body:finish;
|
||
|
|
}
|
||
|
|
|
||
|
|
client:wrote-body not if {
|
||
|
|
Object404:new client:write-head<404 "Not Found">:write-content-type<"application/json">:write-str-body:finish;
|
||
|
|
}
|
||
|
|
}
|