/usr/share/perl5/Grid/GPT/LocalEnv.pm is in grid-packaging-tools 3.6.7-1.
This file is owned by root:root, with mode 0o644.
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 | package Grid::GPT::LocalEnv;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
require AutoLoader;
use Grid::GPT::Localize;
use Cwd;
@ISA = qw(Exporter AutoLoader);
$VERSION = '0.01';
sub get_tool_location {
my $program = shift;
my %locations = (
gtar => "/bin/tar",
gzip => "/bin/gzip",
gunzip => "/bin/gunzip",
gmake => "/usr/bin/make",
perl => "/usr/bin/perl",
rpm => "rpm",
rpmbuild => "",
);
return $locations{$program};
}
sub get_rpm_setting {
my $item = shift;
my %rpm = (
license => '@license@',
vendor => '@vendor@',
ftpsite => '@ftpsite@',
url => '@url@',
packager => '@packager@',
prefix => '/usr',
'/usr/sbin/Check' => '@/usr/sbin/Check@',
);
return $rpm{$item};
}
sub get_target {
return Grid::GPT::Localize::get_target();
}
sub use_system_tar {return "/bin/tar"}
sub listconfig {
if (use_system_tar) {
print "Using system tar and gzip programs to unpack packages\n";
print "GNU tar located at " , get_tool_location('gtar') , "\n";
print "GNU zip located at " , get_tool_location('gzip') , "\n";
print "GNU unzip located at " , get_tool_location('gunzip') , "\n";
} else {
print "Using Archive::Tar and Compress::Zlib to unpack packages\n";
}
print "GNU make located at " , get_tool_location('gmake') , "\n";
print "Perl located at " , get_tool_location('perl') , "\n";
print "rpm located at " , get_tool_location('rpm') , "\n";
print "rpmbuild located at " , get_tool_location('rpmbuild') , "\n";
print "RPM Package License set to " , get_rpm_setting('license') , "\n";
print "RPM Package Vendor set to " , get_rpm_setting('vendor') , "\n";
print "RPM Package FTP Site set to " , get_rpm_setting('ftpsite') , "\n";
print "RPM Package URL set to " , get_rpm_setting('url') , "\n";
print "RPM Packager set to " , get_rpm_setting('packager') , "\n";
print "RPM Prefix set to " , get_rpm_setting('prefix') , "\n";
print "/usr/sbin/Check is supressed\n"
if get_rpm_setting('/usr/sbin/Check') eq 'Supress';
print "GNU target platform set to " , get_target() , "\n";
}
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
|