extra/webapps/mason/version/common/common.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors calendar io io.encodings.ascii io.launcher
   4 kernel make mason.config namespaces ;
   5 IN: webapps.mason.version.common
   6
   7 : execute-on-server ( string -- )
   8     [ "ssh" , package-host get , "-l" , package-username get , ] { } make
   9     <process>
  10         swap >>command
  11         5 minutes >>timeout
  12     ascii [ write ] with-process-writer ;