/usr/sbin/globus-gridftp-server-enable-sshftp is in globus-gridftp-server-progs 6.38-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | #! /usr/bin/perl
#
# Copyright 1999-2006 University of Chicago
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
BEGIN
{
if(exists $ENV{GLOBUS_LOCATION})
{
unshift(@INC, "$ENV{GLOBUS_LOCATION}/lib/perl");
}
else
{
unshift(@INC, '/usr/share/perl5');
}
}
use strict;
use warnings;
use Globus::Core::Paths;
use Getopt::Long;
use English;
use File::Path;
my ($opt_help, $opt_force, $opt_nonroot, $target);
if(!GetOptions("help|h" => \$opt_help,
"force|f" => \$opt_force,
"nonroot|n" => \$opt_nonroot,
"out|o=s" => \$target))
{
usage(1);
}
if(defined($opt_help))
{
usage(0);
}
######################################################
my $sshftp = <<EOF;
#!/bin/sh
#
# Copyright 1999-2006 University of Chicago
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
if [ -z "\$GLOBUS_LOCATION" ]; then
GLOBUS_LOCATION=$Globus::Core::Paths::prefix
export GLOBUS_LOCATION
fi
if [ -f \$GLOBUS_LOCATION/etc/globus-user-env.sh ]; then
. \$GLOBUS_LOCATION/etc/globus-user-env.sh
fi
#export GLOBUS_TCP_PORT_RANGE=50000,50100
exec \$GLOBUS_LOCATION/sbin/globus-gridftp-server -ssh
# -data-interface <interface to force data connections>
EOF
######################################################
umask(022);
if(!defined($target))
{
if(defined($opt_nonroot))
{
mkdir "$ENV{HOME}/.globus" unless (-d "$ENV{HOME}/.globus");
$target = "$ENV{HOME}/.globus/sshftp";
}
else
{
mkdir "/etc/grid-security" unless (-d "/etc/grid-security");
$target = "/etc/grid-security/sshftp";
}
}
if(-e $target && !defined($opt_force))
{
die("$target exists. Use option --force to overwrite.\n");
}
open(FILE, "> $target") ||
die("Error while trying to open $target. Check your permissions.\n");
print FILE $sshftp;
close(FILE);
chmod 0755, $target;
print "Successfully created $target.\n";
sub usage
{
my $ex = shift;
print "Usage: globus-gridftp-server-enable-sshftp [opts]\n".
"opts: [-nonroot | -out <path>] [-force] [-help|-h]\n".
" Creates gridftp startup script used by sshftp clients.\n".
" Default location is /etc/grid-security/sshftp.\n".
" -nonroot creates ~/.globus/sshftp.\n";
exit $ex;
}
|