<gitweb> ( path -- responder )

Vocabulary

websites.concatenative

Inputs

path

an object

Outputs

responder

an object

Definition

USING: accessors furnace.redirection http.server.cgi
http.server.dispatchers http.server.static kernel urls ;

IN: websites.concatenative

: <gitweb> ( path -- responder )
    <dispatcher> swap <static> enable-cgi >>default
    URL" /gitweb.cgi" <redirect-responder> "" add-responder
    URL" /github-sync.cgi" <redirect-responder> "github-sync"
    add-responder ;