## Copyright (C) 2016 Julien Bect <address@hidden>
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, see <http://www.gnu.org/licenses/>.

function ofadmin_remote_exec (mode, user, varargin)

poi = page_output_immediately (1);

unwind_protect

  switch mode

    case "ssh"
      cmd = sprintf ([ ...
        "ssh -T %s,address@hidden <<END\n", ...
        "cd \"/home/project-web/octave/\"\n"], user);

    case "sftp" 
      cmd = sprintf ( ...
        "sftp %s,address@hidden <<END\n", user);

    otherwise
      if ~ ischar (mode)
        error ("Incorrect mode (should be a string)");
      else
        error (sprintf ("Unknown mode: %s", mode));
      endif

  endswitch

  C = cellfun (@(s) sprintf ("%s\n", s), varargin, "UniformOutput", false);

  cmd = strcat (cmd, C{:}, "END");

  prefix = sprintf ("***** ofadmin_remote_exec by %s (%s):", mode, user);

  fprintf ("%s cmd = \n", prefix);  disp (cmd);
  fprintf ("%s running...\n", prefix); 

  if (status = system (cmd)) ~= 0
    error (sprintf ("[ofadmin_ssh]  ssh failed with error code %d", status));
  endif

  fprintf ("%s finished\n\n", prefix);

unwind_protect_cleanup

  poi = page_output_immediately (1);

end_unwind_protect
  
endfunction