version 1.1, 2002/04/21 16:44:29
|
version 1.3, 2003/04/15 15:25:51
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
|
# YEAR=2002 |
# YEAR=2002 |
# 4/21 Scott Harrison |
|
|
|
my $dist='default'; |
my $dist='default'; |
if (-e '/etc/redhat-release') { |
if (-e '/etc/redhat-release') { |
Line 12 if (-e '/etc/redhat-release') {
|
Line 11 if (-e '/etc/redhat-release') {
|
my $version=(split(/\s+/,$versionstring))[4]; |
my $version=(split(/\s+/,$versionstring))[4]; |
if ($version=~/^7\./) { |
if ($version=~/^7\./) { |
$dist='redhat7'; |
$dist='redhat7'; |
|
} elsif ($version=~/^8\./) { |
|
$dist='redhat8'; |
} |
} |
} |
} |
elsif (-e '/etc/debian_version') { |
elsif (-e '/etc/debian_version') { |