1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
#!/usr/bin/perl
use strict;
use vars qw($USAGE $VERSION $revision $cmd %opts $file $hdr $installed $ret);
use Getopt::Long;
use File::Basename qw(basename);
use RPM::Database qw(%RPM);
use RPM::Header;
$cmd = basename $0;
$revision = q$Revision: 1.1 $;
$VERSION = sprintf("%d.%02d", $revision =~ /(\d+)\.(\d+)/);
$USAGE = "USAGE:
$cmd [ --newer ] [ --older ] [ --equal ] [ --uninst ]
[ --invert ] file [ file ... ]
Where:
--newer (--nonewer) Show (do not show) those files which are newer
--older (--noolder) Show (do not show) those that are older
--equal (--noequal) Show (do not show) those that match the database
--uninst (--nouninst) Show (do not show) those that are not in the database
--invert Invert the given selection logic
The default is:
--newer --noolder --noequal --uninst
";
$opts{newer} = 1;
$opts{older} = 0;
$opts{equal} = 0;
$opts{uninst} = 1;
GetOptions(\%opts, qw(help newer! older! equal! uninst! invert)) or
die "$USAGE\nStopped";
if ($opts{help})
{
print $USAGE;
exit 0;
}
if ($opts{invert})
{
$opts{$_} = 1 - $opts{$_} for (qw(newer older equal uninst));
}
for $file (@ARGV)
{
$hdr = new RPM::Header $file;
unless ($hdr)
{
warn "$file: $RPM::err\n";
next;
}
$installed = $RPM{$hdr->{name}};
unless ($installed)
{
# It isn't currently installed, so there is no conflict
print "$file\n" if $opts{uninst};
undef $hdr;
next;
}
$ret = $hdr->cmpver($installed);
print "$file\n" if ($ret < 0 and $opts{older});
print "$file\n" if ($ret == 0 and $opts{equal});
print "$file\n" if ($ret > 0 and $opts{newer});
undef $hdr;
}
exit;
__END__
=head1 NAME
rpmprune - Remove unneeded files from a list of RPM package files
=head1 SYNOPSIS
rpmprune [ --newer ] [ --older ] [ --equal ] [ --uninst ]
[ --invert ] filelist ...
=head1 DESCRIPTION
The B<rpmprune> tool is a simple example of using some of the B<RPM> Perl
bindings.
With B<rpm> version 3 and newer, multiple files given on the command-line
for an install, uninstall or update command are treated as a single
I<transaction>. If any of the files in the set cannot be acted upon, the
whole transaction must be rejected. This is inconvenient for casual package
upgrades where a directory may have many B<rpm> files, some of which are
already installed. A command of:
rpm -Uhv *.rpm
would fail, as one (or more) files in the set is already installed. This
can lead to careless use of options such as C<--force>.
In the simplest usage, this tool eases that situation by allowing:
rpm -Uhv `rpmprune *.rpm`
When the back-ticks are evaluated, B<rpmprune> has only echoed the names of
those files that are either newer than their installed counterparts, or are
not installed at all.
=head1 OPTIONS
For maximum flexibility, B<rpmprune> supports more options than anyone will
realistically put to use:
=over
=item --help
Print a summary of the options and general usage.
=item --newer (--nonewer)
If selected, all files that are newer than their installed counterparts
will be echoed. Prefix with "no" to suppress the printing of these.
=item --older (--noolder)
If selected, all files that are older than their installed counterparts
will be echoed. Prefix with "no" to suppress them, instead.
=item --equal (--noequal)
If selected, all files that are the same version as their installed
counterparts will be echoed. Prefix with "no" to suppress them, instead.
=item --uninst (--nouninst)
If selected, all files that are for packages not currently installed on
the system will be echoed. Prefix with "no" to suppress them, instead.
=item --invert
Invert the logic of all four of the previous selectors.
=back
Without any arguments, B<rpmprune> acts as if the following were the command
line:
rpmprune --newer --noolder --noequal --uninst ...
The C<--invert> option is applied last, after all others have been processed.
=head1 AUTHOR
Randy J. Ray <rjray@blackperl.com>
|
