summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-08-18 14:59:01 +0000
committerOlivier Blin <oblin@mandriva.com>2008-08-18 14:59:01 +0000
commit07a5a611fd36f268d32eafe57c3b586e85e51181 (patch)
tree0b50f014854b9dbba1bfec50b5402e83a548a976 /perl-install/pkgs.pm
parent9825534728892ab93876532d4d65a26254ea19f1 (diff)
downloaddrakx-07a5a611fd36f268d32eafe57c3b586e85e51181.tar
drakx-07a5a611fd36f268d32eafe57c3b586e85e51181.tar.gz
drakx-07a5a611fd36f268d32eafe57c3b586e85e51181.tar.bz2
drakx-07a5a611fd36f268d32eafe57c3b586e85e51181.tar.xz
drakx-07a5a611fd36f268d32eafe57c3b586e85e51181.zip
move rpmsrate functions in pkgs module
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 405bfe75b..be139d6c5 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -140,4 +140,15 @@ sub read_rpmsrate {
return ($rates, $flags) if $::isStandalone;
}
+
+sub simple_read_rpmsrate() {
+ require pkgs;
+ my ($rates, $flags) = read_rpmsrate({}, { }, '/usr/share/meta-task/rpmsrate-raw', 0);
+ grep { member('TRUE', @{$flags->{$_}}) && $rates->{$_} >= 5 } keys %$flags;
+}
+
+sub list_hardware_packages() {
+ grep { !/openoffice/ } simple_read_rpmsrate();
+}
+
1;