Pakfire: Add Core-Version to "status"

Add the IPFire-Core-Version to the status message.

Signed-off-by: Alexander Koch <ipfire@starkstromkonsument.de>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index 9ed911d0ce46d36949c220c8d2eefadf2e39a962..460eaf303c383721e535c11e02200a920329fc70 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -925,7 +925,8 @@ sub reboot_required {
 
 sub status {
        # General info
 
 sub status {
        # General info

-       my $return = "Core-Update-Level: $Conf::core_mine\n";
+       my $return = "Core-Version: $Conf::version\n";
+       $return .= "Core-Update-Level: $Conf::core_mine\n";

        $return .= "Last update: " . &General::age("/opt/pakfire/db/core/mine") . " ago\n";
        $return .= "Last core-list update: " . &General::age("/opt/pakfire/db/lists/core-list.db") . " ago\n";
        $return .= "Last server-list update: " . &General::age("/opt/pakfire/db/lists/server-list.db") . " ago\n";
        $return .= "Last update: " . &General::age("/opt/pakfire/db/core/mine") . " ago\n";
        $return .= "Last core-list update: " . &General::age("/opt/pakfire/db/lists/core-list.db") . " ago\n";
        $return .= "Last server-list update: " . &General::age("/opt/pakfire/db/lists/server-list.db") . " ago\n";