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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/bootstrap/image/upload/upload.factor
View File

@ -4,7 +4,12 @@ IN: bootstrap.image.upload
USING: http.client crypto.md5 splitting assocs kernel io.files USING: http.client crypto.md5 splitting assocs kernel io.files
bootstrap.image sequences io namespaces io.launcher math ; 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 ; : checksums "checksums.txt" temp-file ;
@ -23,6 +28,8 @@ bootstrap.image sequences io namespaces io.launcher math ;
] { } make try-process ; ] { } make try-process ;
: new-images ( -- ) : new-images ( -- )
make-images compute-checksums upload-images ; "" resource-path
[ make-images compute-checksums upload-images ]
with-directory ;
MAIN: new-images MAIN: new-images