diff options
author | Oliver Tappe | 2007-05-18 19:59:01 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-05-18 19:59:01 +0200 |
commit | e8198517caad8a97977a29cb5350018165eae2df (patch) | |
tree | 537740c3ac5be6371be6993ed491a4b9b6649cf6 /installer/OpenSLX/OSSetup/Packager/rpm.pm | |
parent | * fixed incorrect use of private-path instead of stage1-path, as reported (diff) | |
download | core-e8198517caad8a97977a29cb5350018165eae2df.tar.gz core-e8198517caad8a97977a29cb5350018165eae2df.tar.xz core-e8198517caad8a97977a29cb5350018165eae2df.zip |
* added support to packager for getting a list of the packages that are
already installed
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1087 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/OpenSLX/OSSetup/Packager/rpm.pm')
-rw-r--r-- | installer/OpenSLX/OSSetup/Packager/rpm.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/installer/OpenSLX/OSSetup/Packager/rpm.pm b/installer/OpenSLX/OSSetup/Packager/rpm.pm index d689f160..12093501 100644 --- a/installer/OpenSLX/OSSetup/Packager/rpm.pm +++ b/installer/OpenSLX/OSSetup/Packager/rpm.pm @@ -93,4 +93,13 @@ sub installPackages } } +sub getInstalledPackages +{ + my $self = shift; + + my $rpmCmd = 'rpm -qa --queryformat="%{NAME}\n"'; + my $pkgList = `$rpmCmd`; + return split "\n", $pkgList; +} + 1;
\ No newline at end of file |