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
|
package RPM;
use 5.005;
use strict;
use subs qw(bootstrap_Constants bootstrap_Header bootstrap_Database);
use vars qw($VERSION $revision @ISA @EXPORT @EXPORT_OK);
require DynaLoader;
require Exporter;
@ISA = qw(Exporter DynaLoader);
$VERSION = '0.291';
$revision = do { my @r=(q$Revision: 1.12 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
@EXPORT = qw(rpm_osname rpm_archname);
@EXPORT_OK = (@EXPORT, 'vercmp');
bootstrap RPM $VERSION;
# These are stubs into the sub-module bootstraps, hacked into RPM.xs
bootstrap_Constants($VERSION);
bootstrap_Header($VERSION);
bootstrap_Database($VERSION);
bootstrap_Error($VERSION);
bootstrap_Package($VERSION);
1;
###############################################################################
#
# Sub Name: vercmp
#
# Description: Compare two sets of version/release values as though they
# were from headers.
#
# Arguments: NAME IN/OUT TYPE DESCRIPTION
# $verA in scalar First version component
# $relA in scalar First release component
# $verB in scalar Second version component
# $relB in scalar Second release component
#
# Globals: None.
#
# Environment: None.
#
# Returns: -1, 0 or 1, as a comparison operator
#
###############################################################################
sub vercmp
{
my ($verA, $relA, $verB, $relB) = @_;
require RPM::Header unless $INC{'RPM/Header.pm'};
my $headA = new RPM::Header;
my $headB = new RPM::Header;
$headA->{version} = $verA;
$headA->{release} = $relA;
$headB->{version} = $verB;
$headB->{release} = $relB;
$headA->cmpver($headB);
}
__END__
=head1 NAME
RPM - Perl interface to the API for the RPM Package Manager
=head1 DESCRIPTION
The B<Perl-RPM> package is an extension for natively linking the
functionality of the B<RPM Package Manager> with the extension facility of
Perl. The aim is to offer all the functionality made available via the C
API in the form of Perl object classes.
At present, the package-manipulation functionality is not yet implemented.
The B<RPM::Database> and B<RPM::Header> packages do provide access to the
information contained within the database of installed packages, and
individual package headers, respectively. The B<RPM::Error> package is
available, which provides support routines for signaling and catching
errors. Additionally, there is the B<RPM::Constants> package which provides
a number of values from the B<rpm> library, referred to by the same name used
at the C level.
=head1 UTILITY FUNCTIONS
The following utility functions are exported by default from B<RPM>:
=over
=item rpm_osname
Returns the text name of the O/S, as derived from the B<rpm> configuration
files. This is the O/S token that B<rpm> will use to refer to the running
system.
=item rpm_archname
As above, but returns the architecture string instead. Again, this may not
directly match the running system, but rather is the value that B<rpm> is
using. B<rpm> will use the lowest-matching architecture whenever possible,
for maximum cross-platform compatibility.
=back
The following utility function may be explicitly requested via B<use> or
B<import>:
=over vercmp($verA, $relA, $verB, $relB)
Allows RPM-style comparison of version/release pairs without having the full
B<RPM::Header> objects in memory. This enables programs to compare versions
without having to worry about how RPM handles the mixture of alphanumeric
cases that are supported internally. The return value is -1, 0 or 1, as with
any comparison operator. This is purposefully named differently from the
B<cmpver> method in B<RPM::Header> so as to avoid confusion.
=back
=head1 DIAGNOSTICS
When an error occurs in either the C-level B<rpm> library or internally
within these libraries, it is made available via a special dual-nature
variable B<$RPM::err>. When evaluated in a numeric context, it returns the
integer code value of the error. When taken in a string context, it returns
the text message associated with the error. This is intended to closely
mimic the behavior of the special Perl variable "C<$!>".
=head1 CAVEATS
This is currently regarded as alpha-quality software. The interface is
subject to change in future releases.
=head1 SEE ALSO
L<RPM::Constants>, L<RPM::Database>, L<RPM::Error>, L<RPM::Header>,
L<perl>, L<rpm>
=head1 AUTHOR
Randy J. Ray <rjray@blackperl.com>
=cut
|
