diff -ur globus_gatekeeper_setup-2.2.orig/setup-globus-gatekeeper globus_gatekeeper_setup-2.2/setup-globus-gatekeeper
--- globus_gatekeeper_setup-2.2.orig/setup-globus-gatekeeper	2004-03-04 21:13:19.000000000 +0100
+++ globus_gatekeeper_setup-2.2/setup-globus-gatekeeper	2009-07-31 22:34:30.738499397 +0200
@@ -1,3 +1,3 @@
 #! /bin/sh
 
-perl $GLOBUS_LOCATION/setup/globus/setup-globus-gatekeeper.pl "$@"
+perl ${GLOBUS_LOCATION:-/usr}/setup/globus/setup-globus-gatekeeper.pl "$@"
diff -ur globus_gatekeeper_setup-2.2.orig/setup-globus-gatekeeper.pl globus_gatekeeper_setup-2.2/setup-globus-gatekeeper.pl
--- globus_gatekeeper_setup-2.2.orig/setup-globus-gatekeeper.pl	2004-03-04 21:13:19.000000000 +0100
+++ globus_gatekeeper_setup-2.2/setup-globus-gatekeeper.pl	2009-08-04 20:42:25.015218865 +0200
@@ -4,12 +4,7 @@
 
 if (!defined($gpath))
 {
-  $gpath = $ENV{GLOBUS_LOCATION};
-}
-
-if (!defined($gpath))
-{
-   die "GPT_LOCATION or GLOBUS_LOCATION needs to be set before running this script"
+  $gpath = "/usr";
 }
 
 @INC = (@INC, "$gpath/lib/perl");
@@ -50,9 +45,9 @@
 
 my $metadata = new Grid::GPT::Setup(package_name => "globus_gatekeeper_setup");
 
-my $globusdir = $ENV{GLOBUS_LOCATION};
-my $setupdir = "$globusdir/setup/globus/";
-my $gk_conf = "$globusdir/etc/globus-gatekeeper.conf";
+use Globus::Core::Path;
+
+my $gk_conf = "$Globus::Core::Path::sysconfdir/globus-gatekeeper.conf";
 
 print "Creating gatekeeper configuration file...\n";
 
@@ -66,27 +61,26 @@
   -x509_user_cert $x509_user_cert
   -x509_user_key $x509_user_key
   -gridmap $gridmap
-  -home $globusdir
-  -e libexec
-  -logfile var/globus-gatekeeper.log
+  -e $Globus::Core::Path::sbindir
+  -logfile $Globus::Core::Path::localstatedir/log/globus-gatekeeper.log
   -port 2119
-  -grid_services etc/grid-services
+  -grid_services $Globus::Core::Path::sysconfdir/grid-services
   -inetd
 EOF
 
 print "Done\n";
 
-if ( ! -d "$globusdir/var" )
+if ( ! -d "$Globus::Core::Path::localstatedir/log" )
 {
    print "Creating gatekeeper log directory...\n";
-   system "mkdir -p $globusdir/var";
+   system "mkdir -p $Globus::Core::Path::localstatedir/log";
    print "Done\n";
 }
 
-if ( ! -d "$globusdir/etc/grid-services" )
+if ( ! -d "$Globus::Core::Path::sysconfdir/grid-services" )
 {
    print "Creating grid services directory...\n";
-   system "mkdir -p $globusdir/etc/grid-services";
+   system "mkdir -p $Globus::Core::Path::sysconfdir/grid-services";
    print "Done\n";
 }