90 lines
2.3 KiB
Perl
90 lines
2.3 KiB
Perl
#!/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
|
|
# Templates from "non-standard" RPMs
|
|
# Templates overridden in templates-custom
|
|
|
|
use RPM2;
|
|
my $rpm2 = RPM2->open_rpm_db();
|
|
|
|
for my $dir ( qw(templates templates-user) )
|
|
{
|
|
find({ wanted => \&custom_templates }, "/etc/e-smith/$dir-custom");
|
|
|
|
find({ wanted => \&templates }, "/etc/e-smith/$dir");
|
|
}
|
|
|
|
sub custom_templates
|
|
{
|
|
return unless -f;
|
|
|
|
my $template = $File::Find::name;
|
|
$template =~ s/-custom//;
|
|
|
|
my $status = rpm_status(name => $File::Find::name);
|
|
|
|
print "$File::Find::name: $status, " .
|
|
((-e $template) ? "OVERRIDE" : "ADDITION"), "\n";
|
|
|
|
}
|
|
|
|
sub templates
|
|
{
|
|
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";
|
|
}
|