ssh-mime-winxp.c 1.39 KB
Newer Older
1 2 3 4 5 6
/* ssh-mime-winxp.exe - Exe wrapper for a Perl script, making
 *                      it acceptable as a file-type opener.
 *
 * Compile with gcc -o ssh-mime-winxp.{exe,c}
 *
 * Copyright (c) 2000-2003 University of Utah and the Flux Group.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
 * 
 * {{{EMULAB-LICENSE
 * 
 * This file is part of the Emulab network testbed software.
 * 
 * This file is free software: you can redistribute it and/or modify it
 * under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or (at
 * your option) any later version.
 * 
 * This file 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 Affero General Public
 * License for more details.
 * 
 * You should have received a copy of the GNU Affero General Public License
 * along with this file.  If not, see <http://www.gnu.org/licenses/>.
 * 
 * }}}
26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
 */
#include <stdlib.h>
#include <stdio.h>

int main(int argc, char **argv)
{
  if (argc != 2)
    printf("Usage: ssh-mime-winxp.exe pcxxx.tbssh\n");
  else
  {
    /* Just pass the file argument on to the Perl script. */
    argv[0] = "ssh-mime-winxp.pl";
    execvp(argv[0], argv);       /* Shouldn't return. */
    perror("ssh-mime-winxp.pl");
  }
  sleep(5);
  return 1;
}