From 4f276ad7e98b08a06c46432d4895d9f07baf5997 Mon Sep 17 00:00:00 2001
From: cphillip <cphillip>
Date: Mon, 14 Jan 2002 17:34:17 +0000
Subject: [PATCH] Changes to when the GPT Setup package is included.

---
 setup/setup-openssh.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl
index 639c3c1..f0bc372 100644
--- a/setup/setup-openssh.pl
+++ b/setup/setup-openssh.pl
@@ -6,11 +6,7 @@
 # adapted from 'fixpath', located in the openssh-3.0.2p1 package
 #
 
-require Grid::GPT::Setup;
-
-my $metadata = new Grid::GPT::Setup(package_name => "gsi-openssh-setup");
-
-$gpath = $ENV{GLOBUS_LCATION};
+$gpath = $ENV{GLOBUS_LOCATION};
 if (!defined($gpath))
 {
     die "GLOBUS_LOCATION needs to be set before running this script"
@@ -23,11 +19,13 @@ if (!defined($gpath))
 
 @INC = (@INC, "$gpath/lib/perl");
 
+require Grid::GPT::Setup;
+
 my $globusdir = $gpath;
 my $setupdir = "$globusdir/setup/globus";
 my $myname = "setup-openssh.pl";
 
-print "$myname: Configuring gsi-openssh package\n";
+print "$myname: Configuring gsi-openssh package";
 
 #
 # Set up path prefixes for use in the path translations
@@ -84,7 +82,7 @@ sub fixpaths
         "${mandir}/${mansubdir}1/sftp.1",
         );
 
-    print "\nTranslating strings in config/man files..\n";
+    print "Translating strings in config/man files...\n";
     for $f (@files)
     {
         $f =~ /(.*\/)*(.*)$/;
@@ -123,7 +121,7 @@ sub fixpaths
 
 sub runkeygen
 {
-    print "\nGenerating ssh keys (if necessary)..\n";
+    print "Generating ssh keys (if necessary)...\n";
     if ( -e "${sysconfdir}/ssh_host_key" )
     {
         print "${sysconfdir}/ssh_host_key already exists, skipping.\n";
@@ -160,4 +158,6 @@ sub runkeygen
 fixpaths();
 runkeygen();
 
+my $metadata = new Grid::GPT::Setup(package_name => "gsi-openssh-setup");
+
 $metadata->finish();
-- 
2.45.2