--- loncom/build/CHECKRPMS	2009/07/14 14:36:06	1.11
+++ loncom/build/CHECKRPMS	2024/10/24 16:38:32	1.20
@@ -3,6 +3,8 @@
 # The LearningOnline Network with CAPA
 # Checks status of RPM packages on system.
 #
+# $Id: CHECKRPMS,v 1.20 2024/10/24 16:38:32 raeburn Exp $
+#
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -30,7 +32,7 @@
 
 =head1 NAME
 
-B<CHECKRPMS> - automated status report about RPMs (RHEL/Fedora/CentOS/SuSE) 
+B<CHECKRPMS> - automated status report about RPMs (RHEL/Fedora/CentOS/Oracle Linux/SuSE/SLES) 
                or debs (Debian/Ubuntu) on a system. 
 
 =head1 DESCRIPTION
@@ -40,10 +42,12 @@ to LON-CAPA systems. distprobe is used t
 
 The utility which is used to complete the check depends on the distro:
 
-fedora, rhel 5/5+, centos, scientific - yum
+fedora < 22; rhel (5, 6, 7); centos/scientific/oracle linux <=7 - yum
+fedora >= 22 - dnf
+rhel/centos/oracle/rocky/alma linux >= 8 - dnf
 suse 9.X and sles9 - you
-suse 10.2,10.3,11.1 - zypper 
-sles10,suse10.1 - rug
+suse 10.2, 10.3, 11.X and 12.X; sles (>= 11) - zypper
+sles10, suse10.1 - rug
 rhel 4 - up2date
 debian, ubuntu - apt-get
 others - check-rpms
@@ -61,6 +65,7 @@ use Apache::loncommon();
 
 my $tmpfile = '/tmp/CHECKRPMS.'.$$;
 my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');
+my $docroot = $perlvar->{'lonDocRoot'};
 
 # Determine who we email
 my $defdom = $perlvar->{'lonDefDomain'};
@@ -82,11 +87,24 @@ open(TMPFILE,">$tmpfile");
 print TMPFILE localtime(time).'    '.$hostname."\n";
 close(TMPFILE);
 
+if ($docroot ne '') {
+    if (-e "$docroot/lon-status/checkrpms.txt") {
+        unlink("$docroot/lon-status/checkrpms.txt");
+    }
+}
+
 my ($cmd,$send,$addsubj);
-if ($distro =~ /^fedora\d+$/) {
-    $cmd = 'yum update';
-    &prepare_msg($tmpfile,$cmd);
-    ($send,$addsubj) = &check_with_yum($tmpfile);
+if ($distro =~ /^fedora(\d+)$/) {
+    my $version =$1;
+    if ($version > 21) {
+        $cmd = 'dnf update';
+        &prepare_msg($tmpfile,$cmd);
+        ($send,$addsubj) = &check_with_yum_or_dnf($tmpfile,'dnf');
+    } else {
+        $cmd = 'yum update';
+        &prepare_msg($tmpfile,$cmd);
+        ($send,$addsubj) = &check_with_yum_or_dnf($tmpfile,'yum');
+    }
 } elsif ($distro =~ /^(suse|sles)9\.?\d?$/) {
     $cmd = 'you';
     &prepare_msg($tmpfile,$cmd);
@@ -107,25 +125,36 @@ if ($distro =~ /^fedora\d+$/) {
     $cmd = 'rug up';
     &prepare_msg($tmpfile,$cmd);
     ($send,$addsubj) = &check_with_rug($tmpfile);
+} elsif ($distro =~ /^sles(\d+)$/) {
+    $cmd = 'zypper up';
+    &prepare_msg($tmpfile,$cmd);
+    ($send,$addsubj) = &check_with_zypper($tmpfile);
 } elsif ($distro =~ /^rhes(\d+)$/) {
     my $version = $1;
     if ($version == 4) {
         $cmd ='up2date -u --nox';
         &prepare_msg($tmpfile,$cmd);
         ($send,$addsubj) = &check_with_up2date($tmpfile);
-    } elsif ($version > 4) {
+    } elsif ($version <= 7) {
+        $cmd = 'yum update';
+        &prepare_msg($tmpfile,$cmd);
+        ($send,$addsubj) = &check_with_yum_or_dnf($tmpfile,'yum');
+    } else {
+        $cmd = 'dnf update';
+        &prepare_msg($tmpfile,$cmd);
+        ($send,$addsubj) = &check_with_yum_or_dnf($tmpfile,'dnf');
+    }
+} elsif ($distro =~ /^(?:centos|scientific|oracle|rocky|alma)(\d+)$/) {
+    my $version = $1;
+    if ($version <= 7) {
         $cmd = 'yum update';
         &prepare_msg($tmpfile,$cmd);
-        ($send,$addsubj) = &check_with_yum($tmpfile);
+        ($send,$addsubj) = &check_with_yum_or_dnf($tmpfile,'yum');
+    } else {
+        $cmd = 'dnf update';
+        &prepare_msg($tmpfile,$cmd);
+        ($send,$addsubj) = &check_with_yum_or_dnf($tmpfile,'dnf');
     }
-} elsif ($distro =~ /^centos\d+$/) {
-    $cmd = 'yum update';
-    &prepare_msg($tmpfile,$cmd);
-    ($send,$addsubj) = &check_with_yum($tmpfile);
-} elsif ($distro =~ /^scientific\d+\.\d$/) {
-    $cmd = 'yum update';
-    &prepare_msg($tmpfile,$cmd);
-    ($send,$addsubj) = &check_with_yum($tmpfile);
 } elsif ($distro =~ /^(debian|ubuntu)\d+/) {
     $cmd = 'apt-get upgrade';
     &prepare_msg($tmpfile,$cmd);
@@ -136,6 +165,13 @@ if ($distro =~ /^fedora\d+$/) {
 }
 if ($send) {
     $subj .= $addsubj;
+    if ($docroot ne '') {
+        system("cat $tmpfile > $docroot/lon-status/checkrpms.txt");
+        if ($< == 0) {
+            system("chown www:www $docroot/lon-status/checkrpms.txt");
+        }
+        chmod(0600,"$docroot/lon-status/checkrpms.txt");
+    }
     system(qq{mail -s '$subj' "$emailto" < $tmpfile});
 }
 
@@ -198,21 +234,26 @@ sub check_with_you {
     return ($sendflag,$append_to_subj);
 }
 
-sub check_with_yum {
-    my ($tmpfile) = @_;
-    my $yum = '/usr/bin/yum';
+sub check_with_yum_or_dnf {
+    my ($tmpfile,$progname) = @_;
+    my $path_to_exec = '/usr/bin/';
+    if ($progname eq 'dnf') {
+        $path_to_exec .= $progname;
+    } else {
+        $path_to_exec .= 'yum';
+    }
     my $sendflag = 0;
     my $append_to_subj;
 
     #
-    # Execute yum command
-    my $command = $yum.' check-update '.'>>'.$tmpfile;
+    # Execute command
+    my $command = $path_to_exec.' check-update '.'>>'.$tmpfile;
     system($command);
 
     my $returnvalue = $?>>8;
 
     #
-    # Determine status of yum run
+    # Determine status of yum or dnf run
     if (100 == $returnvalue) {
         $sendflag = 1;
         $append_to_subj = ' RPMS to upgrade';
@@ -220,7 +261,7 @@ sub check_with_yum {
         $sendflag = 1;
         $append_to_subj = ' Error running RPM update script';
     } else {
-        # yum returned 0, so everything is up to date.
+        # yum or dnf returned 0, so everything is up to date.
     }
     return ($sendflag,$append_to_subj);
 }