|
Line
Link Here
|
| 0 |
-- old/epm |
0 |
++ new/epm |
|
Lines 189-195
Link Here
|
| 189 |
my ($p) = @_; |
189 |
my ($p) = @_; |
| 190 |
my ($group, $ename) = $p =~ /^(.+?)\/(.+)$/; |
190 |
my ($group, $ename) = $p =~ /^(.+?)\/(.+)$/; |
| 191 |
my ($key, $value); |
191 |
my ($key, $value); |
| 192 |
my %vals; |
192 |
my %vals = map {$_, '(n/a)'} qw/CATEGORY HOSTNAME DESCRIPTION URL LICENSE NAME RELEASE VERSION SLOT PACKAGER/; |
| 193 |
my $ldbpath = "$dbpath/$p"; |
193 |
my $ldbpath = "$dbpath/$p"; |
| 194 |
my $fmt = <<EOT; |
194 |
my $fmt = <<EOT; |
| 195 |
Name : \%s |
195 |
Name : \%s |
|
Lines 206-212
Link Here
|
| 206 |
open(F, "bzcat $ldbpath/environment.bz2|") |
206 |
open(F, "bzcat $ldbpath/environment.bz2|") |
| 207 |
or die "epm: Can't open $ldbpath/environment.bz2: $!\n"; |
207 |
or die "epm: Can't open $ldbpath/environment.bz2: $!\n"; |
| 208 |
while (<F>) { |
208 |
while (<F>) { |
| 209 |
next unless (/^(CATEGORY|HOSTNAME|DESCRIPTION|HOMEPAGE|LICENSE|PN|PR|PV|SLOT)=(.*)/); |
209 |
next unless (/^(?:declare\s+(?:-[x-]\s+)*)?(CATEGORY|HOSTNAME|DESCRIPTION|HOMEPAGE|LICENSE|PN|PR|PV|SLOT)=(.*)/); |
| 210 |
($key, $value) = ($1, $2); |
210 |
($key, $value) = ($1, $2); |
| 211 |
if ($key eq 'PN') { |
211 |
if ($key eq 'PN') { |
| 212 |
$key = 'NAME'; |
212 |
$key = 'NAME'; |
|
Lines 221-226
Link Here
|
| 221 |
} |
221 |
} |
| 222 |
# Clean up the double and single quotes |
222 |
# Clean up the double and single quotes |
| 223 |
$value =~ s/^'(.*)'$/$1/o; |
223 |
$value =~ s/^'(.*)'$/$1/o; |
|
|
224 |
$value =~ s/^"(.*)"$/$1/o; |
| 224 |
$value =~ s/'\\''/'/go; |
225 |
$value =~ s/'\\''/'/go; |
| 225 |
$value =~ s/\\"/"/go; |
226 |
$value =~ s/\\"/"/go; |
| 226 |
|
227 |
|
