30 lines
881 B
Factor
30 lines
881 B
Factor
|
! Copyright (C) 2010 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors continuations furnace.actions help.html
|
||
|
|
http.server.responses io.directories io.directories.hierarchy
|
||
|
|
io.launcher io.files io.pathnames kernel memoize
|
||
|
|
webapps.mason.utils ;
|
||
|
|
IN: webapps.mason.docs-update
|
||
|
|
|
||
|
|
: update-docs ( -- )
|
||
|
|
home [
|
||
|
|
"newdocs" make-directory
|
||
|
|
"newdocs" [ { "tar" "xvf" "../docs.tar.gz" } try-process ] with-directory
|
||
|
|
|
||
|
|
"docs" exists? [ "docs" "docs.old" move-file ] when
|
||
|
|
"newdocs/docs" "docs" move-file
|
||
|
|
|
||
|
|
"newdocs" delete-directory
|
||
|
|
"docs.old" exists? [ "docs.old" delete-tree ] when
|
||
|
|
|
||
|
|
\ load-index reset-memoized
|
||
|
|
] with-directory ;
|
||
|
|
|
||
|
|
: <docs-update-action> ( -- action )
|
||
|
|
<action>
|
||
|
|
[ validate-secret ] >>validate
|
||
|
|
[
|
||
|
|
update-docs
|
||
|
|
"OK" "text/plain" <content>
|
||
|
|
] >>submit ;
|