#!/usr/bin/perl
use strict;
my $var;

my $release['rhel4au'] = qr/Red Hat Enterprise Linux AS release 4 \(Nahant Update ([[:digit:]])\)/;
my $release['rhel4eu'] = qr/Red Hat Enterprise Linux ES release 4 \(Nahant Update ([[:digit:]])\)/;
my $release['rhel5'] = qr/Red Hat Enterprise Linux Server release 5 \(Tikanga\)/;
my $release['rhel5u'] = qr/Red Hat Enterprise Linux Server release 5\.([[:digit:]]) \(Tikanga\)/;

if (-x '/usr/bin/lsb_release') {
  # my $hash{LSBRELEASE} = `/usr/bin/lsb_release -rs`;
  $var = `/usr/bin/lsb_release -ds`;
}
elsif (-f '/etc/redhat-release') {
  $var = `cat /etc/redhat-release`;
}
else {
  exit("No release info available");
}
MatchPrint($var, $release);

sub MatchPrint($var, $release) {
  if ($var =~ m/$release['rhel4au']/ ) {
    print "RHEL4." . $1 . "_AS\n";
  } elsif ( $var =~ m/$release['rhel4eu']/ ) {
    print "RHEL4." . $1 . "_ES\n";
  } elsif ( $var =~ m/$release['rhel5']/ ) {
    print "RHEL5.0\n";
  } elsif ( $var =~ m/$release['rhel5u']/ ) {
    print "RHEL5." . $1 . "\n";
  } else {
    print "unrecognized version\n";
  }
}