steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

webapps.mason: fixes

db4
Slava Pestov 2010-09-06 17:47:39 -07:00
parent 9b6db6b0e3
commit 04d1bbb0ca
3 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/webapps/mason/docs-update/docs-update.factor
View File

@ -9,7 +9,7 @@ IN: webapps.mason.docs-update
: update-docs ( -- ) : update-docs ( -- )
home [ home [
"newdocs" make-directory "newdocs" make-directory
"newdocs" [ { "tar" "xvf" "../docs.tar.gz" } try-process ] with-directory "newdocs" [ { "tar" "xfz" "../docs.tar.gz" } try-process ] with-directory
"docs" exists? [ "docs" "docs.old" move-file ] when "docs" exists? [ "docs" "docs.old" move-file ] when
"newdocs/docs" "docs" move-file "newdocs/docs" "docs" move-file

1
extra/webapps/mason/status-update/status-update.factor
View File

@ -56,7 +56,6 @@ IN: webapps.mason.status-update
{ "message" [ v-one-line ] } { "message" [ v-one-line ] }
{ "arg" [ [ v-one-line ] v-optional ] } { "arg" [ [ v-one-line ] v-optional ] }
{ "report" [ ] } { "report" [ ] }
{ "secret" [ v-one-line ] }
} validate-params } validate-params
validate-secret validate-secret

1
extra/webapps/mason/utils/utils.factor
View File

@ -56,5 +56,6 @@ IN: webapps.mason.utils
adjust-url ; adjust-url ;
: validate-secret ( -- ) : validate-secret ( -- )
{ { "secret" [ v-one-line ] } } validate-params
"secret" value status-secret get = "secret" value status-secret get =
[ validation-failed ] unless ; [ validation-failed ] unless ;