2008-02-07 18:55:31 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: bootstrap.image.upload
|
|
|
|
|
USING: http.client crypto.md5 splitting assocs kernel io.files
|
|
|
|
|
bootstrap.image sequences io namespaces io.launcher math ;
|
|
|
|
|
|
2008-03-01 05:14:37 -05:00
|
|
|
SYMBOL: upload-images-destination
|
|
|
|
|
|
|
|
|
|
: destination ( -- dest )
|
|
|
|
|
upload-images-destination get
|
2008-03-02 18:51:35 -05:00
|
|
|
"slava@/var/www/factorcode.org/newsite/images/latest/"
|
2008-03-01 05:14:37 -05:00
|
|
|
or ;
|
2008-02-07 18:55:31 -05:00
|
|
|
|
2008-02-26 15:58:16 -05:00
|
|
|
: checksums "checksums.txt" temp-file ;
|
|
|
|
|
|
2008-02-07 18:55:31 -05:00
|
|
|
: boot-image-names images [ boot-image-name ] map ;
|
|
|
|
|
|
|
|
|
|
: compute-checksums ( -- )
|
2008-02-26 15:58:16 -05:00
|
|
|
checksums [
|
2008-02-07 18:55:31 -05:00
|
|
|
boot-image-names [ dup write bl file>md5str print ] each
|
2008-02-15 23:20:31 -05:00
|
|
|
] with-file-writer ;
|
2008-02-07 18:55:31 -05:00
|
|
|
|
|
|
|
|
: upload-images ( -- )
|
|
|
|
|
[
|
2008-02-26 16:22:39 -05:00
|
|
|
"scp" ,
|
|
|
|
|
boot-image-names %
|
|
|
|
|
"temp/checksums.txt" , destination ,
|
2008-02-08 22:15:29 -05:00
|
|
|
] { } make try-process ;
|
2008-02-07 18:55:31 -05:00
|
|
|
|
|
|
|
|
: new-images ( -- )
|
2008-03-01 05:14:37 -05:00
|
|
|
"" resource-path
|
|
|
|
|
[ make-images compute-checksums upload-images ]
|
|
|
|
|
with-directory ;
|
2008-02-07 18:55:31 -05:00
|
|
|
|
|
|
|
|
MAIN: new-images
|
