Update Nummer 2

[people/teissler/ipfire-2.x.git] / src / pakfire / lib / functions.pl

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index af7137bf16fb8aa2bb7fc8bced7b780da576d045..8544e054f191765555bd07ab55a749e5e7d21ec6 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -349,6 +349,21 @@ sub dblist {
        close(FILE);
 
        if ("$filter" eq "upgrade") {
+               getcoredb();
+               eval(`grep "core_" $Conf::dbdir/lists/core-list.db`);
+               if ("$core_release" gt "$Conf::core_mine") {
+                       if ("$forweb" eq "forweb") {
+                               print "<option value=\"core\">Core-Update -- $Conf::version -- Release: $Conf::core_mine -> $core_release</option>\n";
+                       } else {
+                               my $command = "Core-Update $Conf::version\nRelease: $Conf::core_mine -> $core_release\n";
+                               if ("$Pakfire::enable_colors" eq "1") {
+                                       print "$color{'lila'}$command$color{'normal'}\n";
+                               } else {
+                                       print "$command\n";
+                               }
+                       }
+               }
+       
                opendir(DIR,"$Conf::dbdir/meta");
                my @files = readdir(DIR);
                closedir(DIR);