smeserver-audittools/sme7/smeserver-audittools-0.0.2-events.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events
--- smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events      1970-01-01 10:00:00.000000000 +1000
+++ mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events    2008-01-09 11:48:06.000000000 +1100
@@ -0,0 +1,69 @@
+#!/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");
+
+    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 = stat($options{name}) or die "Couldn't stat $options{name}: $!";
+
+    return "MODIFIED " . $rpms[0]->as_nvre if ($st->mtime > $install_time);
+
+    return "OWNED_BY_RPM";
+}
1	bytegw	1.1	diff -Nur -x '.orig' -x '.rej' smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events
2			--- smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events 1970-01-01 10:00:00.000000000 +1000
3			+++ mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/events 2008-01-09 11:48:06.000000000 +1100
4			@@ -0,0 +1,69 @@
5			+#!/usr/bin/perl -w
6			+
7			+#----------------------------------------------------------------------
8			+# copyright (C) 2006 Gordon Rowell <gordonr@gormand.com.au>
9			+#
10			+# This program is free software; you can redistribute it and/or modify
11			+# it under the terms of the GNU General Public License as published by
12			+# the Free Software Foundation; either version 2 of the License, or
13			+# (at your option) any later version.
14			+#
15			+# This program is distributed in the hope that it will be useful,
16			+# but WITHOUT ANY WARRANTY; without even the implied warranty of
17			+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18			+# GNU General Public License for more details.
19			+#
20			+# You should have received a copy of the GNU General Public License
21			+# along with this program; if not, write to the Free Software
22			+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23			+#----------------------------------------------------------------------
24			+
25			+use strict;
26			+use warnings;
27			+
28			+use RPM2;
29			+use File::Find;
30			+use File::Path;
31			+use File::stat;
32			+
33			+# Files not owned by RPMs
34			+# Files modified since install by RPM
35			+# events from "non-standard" RPMs
36			+
37			+use RPM2;
38			+my $rpm2 = RPM2->open_rpm_db();
39			+
40			+find({ wanted => \&events }, "/etc/e-smith/events");
41			+
42			+sub events
43			+{
44			+ return unless -f;
45			+
46			+ my $template = $File::Find::name;
47			+
48			+ my $status = rpm_status(name => $File::Find::name);
49			+
50			+ return if ( $status eq "OWNED_BY_RPM");
51			+
52			+ print "$File::Find::name: $status\n";
53			+}
54			+
55			+sub rpm_status
56			+{
57			+ my (%options) = @_;
58			+
59			+ my @rpms = $rpm2->find_by_file($options{name});
60			+
61			+ return "MANUALLY_ADDED" unless (@rpms);
62			+
63			+ return "MULTIPLE_RPM_OWNERS " . join(", ", map { $_->as_nvre } @rpms)
64			+ if (@rpms >= 2);
65			+
66			+ my $install_time = $rpms[0]->tag("INSTALLTIME");
67			+
68			+ my $st = stat($options{name}) or die "Couldn't stat $options{name}: $!";
69			+
70			+ return "MODIFIED " . $rpms[0]->as_nvre if ($st->mtime > $install_time);
71			+
72			+ return "OWNED_BY_RPM";
73			+}