pakfire: Replace dbgetlist duplicate code

Replace dbgetlist code duplicating dblist and getmetafile
workings with call to actual dblist and getmetafile functions.

Signed-off-by: Robin Roevens <robin.roevens@disroot.org>

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index 19160503e87275a8eb7b9d109dbc55c5fa997b6a..971aa2d5956c0d96182efaa1fb7246592e0d14c0 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -410,9 +410,7 @@ sub dbgetlist {
        my %metadata;
        my @templine;
 
-       open(FILE, "<$Conf::dbdir/lists/packages_list.db");
-       my @db = <FILE>;
-       close(FILE);
+    my %paklist = &Pakfire::dblist("all");
 
        opendir(DIR,"$Conf::dbdir/meta");
        my @files = readdir(DIR);
@@ -424,12 +422,12 @@ sub dbgetlist {
                next if ( $file =~ /^old/ );
                %metadata = parsemetafile("$Conf::dbdir/meta/$file");
 
-               foreach $prog (@db) {
-                       @templine = split(/\;/,$prog);
-                       if (("$metadata{'Name'}" eq "$templine[0]") && ("$metadata{'Release'}" ne "$templine[2]")) {
-                               move("$Conf::dbdir/meta/meta-$metadata{'Name'}","$Conf::dbdir/meta/old_meta-$metadata{'Name'}");
-                               getmetafile($metadata{'Name'});
-                       }
+               if ((defined $paklist{"$metadata{'Name'}"}) && (
+                       ("$paklist{\"$metadata{'Name'}\"}{'Release'}" ne "$metadata{'Release'}") ||
+                       (defined $paklist{"$metadata{'Name'}"}{'AvailableRelease'}))
+                  ) {
+                       move("$Conf::dbdir/meta/meta-$metadata{'Name'}","$Conf::dbdir/meta/old_meta-$metadata{'Name'}");
+                       getmetafile($metadata{'Name'});
                }
        }
 }