my $setupdir = "$globusdir/setup/globus";
my $myname = "setup-openssh.pl";
-print "$myname: Configuring gsi-openssh package";
+print "$myname: Configuring package 'gsi-openssh'\n";
#
# Set up path prefixes for use in the path translations
return 0;
}
+sub setperms()
+{
+ $result = system("chmod 755 $bindir/scp");
+}
+
sub runkeygen
{
print "Generating ssh keys (if necessary)...\n";
}
fixpaths();
+setperms();
runkeygen();
my $metadata = new Grid::GPT::Setup(package_name => "gsi-openssh-setup");