initial commit of file from CVS for smeserver-audittools on Mon 10 Jul 08:35:16 BST 2023

root/sbin/e-smith/audittools/events

@@ -0,0 +1,71 @@
+#!/usr/bin/perl -w
+
+#----------------------------------------------------------------------
+# copyright (C) 2006 Gordon Rowell <gordonr@gormand.com.au>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
+#----------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+use RPM2;
+use File::Find;
+use File::Path;
+use File::stat;
+
+# Files not owned by RPMs
+# Files modified since install by RPM
+# events from "non-standard" RPMs
+
+use RPM2;
+my $rpm2 = RPM2->open_rpm_db();
+
+find({ wanted => \&events }, "/etc/e-smith/events");
+
+sub events
+{
+    return unless -f;
+
+    my $template = $File::Find::name;
+
+    my $status = rpm_status(name => $File::Find::name);
+
+    return if ( $status eq "OWNED_BY_RPM");
+
+    return if ( $File::Find::name =~ /^\/etc\/e-smith\/events\/temp/);
+
+    print "$File::Find::name: $status\n";
+}
+
+sub rpm_status
+{
+    my (%options) = @_;
+
+    my @rpms = $rpm2->find_by_file($options{name});
+
+    return "MANUALLY_ADDED" unless (@rpms);
+
+    return "MULTIPLE_RPM_OWNERS " . join(", ", map { $_->as_nvre } @rpms)
+        if (@rpms >= 2);
+
+    my $install_time = $rpms[0]->tag("INSTALLTIME");
+
+    my $st = lstat($options{name}) or die "Couldn't stat $options{name}: $!";
+
+    return "MODIFIED " . $rpms[0]->as_nvre if ($st->mtime > $install_time);
+
+    return "OWNED_BY_RPM";
+}