bootstrap.image.upload:

destination is configurable
  fix cwd dependency
db4
Eduardo Cavazos 2008-03-01 04:14:37 -06:00
parent b1a9ba8806
commit c3fd171547
1 changed files with 9 additions and 2 deletions
extra/bootstrap/image/upload

View File

@ -4,7 +4,12 @@ IN: bootstrap.image.upload
USING: http.client crypto.md5 splitting assocs kernel io.files
bootstrap.image sequences io namespaces io.launcher math ;
: destination "slava@factorcode.org:www/images/latest/" ;
SYMBOL: upload-images-destination
: destination ( -- dest )
upload-images-destination get
"slava@/var/www/factorcode.org/w/images/latest/"
or ;
: checksums "checksums.txt" temp-file ;
@ -23,6 +28,8 @@ bootstrap.image sequences io namespaces io.launcher math ;
] { } make try-process ;
: new-images ( -- )
make-images compute-checksums upload-images ;
"" resource-path
[ make-images compute-checksums upload-images ]
with-directory ;
MAIN: new-images