--- loncom/build/distprobe 2019/05/27 01:26:31 1.22 +++ loncom/build/distprobe 2021/12/21 13:57:47 1.26 @@ -2,7 +2,7 @@ # # The LearningOnline Network with CAPA # -# $Id: distprobe,v 1.22 2019/05/27 01:26:31 raeburn Exp $ +# $Id: distprobe,v 1.26 2021/12/21 13:57:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -29,7 +29,15 @@ my $dist='default'; my $unknown; -if (-e '/etc/redhat-release') { +if (-e '/etc/oracle-release') { + open(IN,'; + chomp($versionstring); + close(IN); + if ($versionstring =~ /^Oracle Linux Server release (\d+)/) { + $dist = 'oracle'.$1; + } +} elsif (-e '/etc/redhat-release') { open(IN,'; chomp($versionstring); @@ -56,12 +64,23 @@ if (-e '/etc/redhat-release') { $dist = 'rhes'.$1; } elsif ($versionstring =~ /Red Hat Enterprise Linux release (\d+)/) { $dist = 'rhes'.$1; - } elsif ($versionstring =~ /CentOS(?:| Linux) release (\d+)/) { - $dist = 'centos'.$1; + } elsif ($versionstring =~ /CentOS(| Linux| Stream) release (\d+)/) { + $dist = 'centos'.$2; + if ($1 eq ' Stream') { + $dist .= '-stream'; + } } elsif ($versionstring =~ /Scientific Linux (?:SL )?release ([\d.]+) /) { my $ver = $1; $ver =~ s/\.\d+$//; $dist = 'scientific'.$ver; + } elsif ($versionstring =~ /Rocky Linux release ([\d.]+)/) { + my $ver = $1; + $ver =~ s/\.\d+$//; + $dist = 'rocky'.$ver; + } elsif ($versionstring =~ /AlmaLinux release ([\d.]+)/) { + my $ver = $1; + $ver =~ s/\.\d+$//; + $dist = 'alma'.$ver; } else { warn('Unable to interpret /etc/redhat-release '. 'to determine system type');