extra/mason/release/upload/upload.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel namespaces make sequences arrays io io.files
   4 io.launcher mason.common mason.platform
   5 mason.release.archive mason.config ;
   6 IN: mason.release.upload
   7
   8 : remote-location ( -- dest )
   9     upload-directory get "/" platform 3append ;
  10
  11 : remote-archive-name ( -- dest )
  12     remote-location "/" archive-name 3append ;
  13
  14 : upload ( -- )
  15     upload-to-factorcode? get [
  16         archive-name
  17         upload-username get
  18         upload-host get
  19         remote-archive-name
  20         upload-safely
  21     ] when ;