From c3fd171547dfc70edde49072d811f7a61ba53037 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sat, 1 Mar 2008 04:14:37 -0600
Subject: [PATCH] bootstrap.image.upload: destination is configurable fix
cwd dependency
---
extra/bootstrap/image/upload/upload.factor | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/extra/bootstrap/image/upload/upload.factor b/extra/bootstrap/image/upload/upload.factor
index 1fa8ee4f41..110547d963 100755
--- a/extra/bootstrap/image/upload/upload.factor
+++ b/extra/bootstrap/image/upload/upload.factor
@@ -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