From mboxrd@z Thu Jan 1 00:00:00 1970 From: Robin Roevens To: development@lists.ipfire.org Subject: [PATCH 2/3] pakfire: add 'info ' option Date: Fri, 23 Apr 2021 18:15:33 +0200 Message-ID: <20210423161534.32738-3-robin.roevens@disroot.org> In-Reply-To: <20210423161534.32738-1-robin.roevens@disroot.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============6947056349382793892==" List-Id: --===============6947056349382793892== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Add an 'info ' option to pakfire to display pakfile metadata and current state of the pak on the system. Signed-off-by: Robin Roevens --- src/pakfire/lib/functions.pl | 124 ++++++++++++++++++++++++++++++++++- src/pakfire/pakfire | 21 ++++++ 2 files changed, 144 insertions(+), 1 deletion(-) diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl index 4d5c6219a..46da06a88 100644 --- a/src/pakfire/lib/functions.pl +++ b/src/pakfire/lib/functions.pl @@ -110,7 +110,8 @@ sub usage { &Pakfire::message("Usage: pakfire [options] "); &Pakfire::message(" - Contacts the servers for new = lists of paks."); &Pakfire::message(" - Installs the latest version = of all paks."); - &Pakfire::message(" - Outputs a short list with all a= vailable paks."); + &Pakfire::message(" [installed/notinstalled] - Output= s a list with all, installed or available paks."); + &Pakfire::message(" - Output pak metadata."); &Pakfire::message(" - Outputs a summary about avail= able core upgrades, updates and a required reboot"); &Pakfire::message(""); &Pakfire::message(" Global options:"); @@ -538,6 +539,127 @@ sub dblist { } } =20 +sub pakinfo { + ### This subroutine shows available info for a package + # Pass package name and type of info as argument: &Pakfire::pakinfo(packa= ge, "latest")=20 + # Type can be "latest" or "installed" + # Usage is always with two argument. + my $pak =3D shift; + my $info_type =3D shift; + + my $found =3D 0; + my @templine; + my ($available_version, $available_release); + + if ("$info_type" eq "latest") { + ### Make sure that the info is not outdated.=20 + &Pakfire::dbgetlist("noforce"); + + ### Check if package is in packages_list and get latest available version + open(FILE, "<$Conf::dbdir/lists/packages_list.db"); + my @db =3D ; + close(FILE); + =09 + foreach (@db) { + @templine =3D split(/;/,$_); + if ("$templine[0]" eq "$pak" ) { + $found =3D 1; + $available_version =3D $templine[1]; + $available_release =3D $templine[2]; + break; + } + } + } +=09 + ### Parse latest package metadata + my $installed =3D !&isinstalled("$pak"); + my @file; + + if ($found && "$info_type" eq "latest") { + getmetafile("$pak"); + + open(FILE, "<$Conf::dbdir/meta/meta-$pak"); + @file =3D ; + close(FILE); + } elsif ($installed) { + open(FILE, "<$Conf::dbdir/installed/meta-$pak"); + @file =3D ; + close(FILE); + } else { + message("PAKFIRE WARN: Pak '$pak' not found."); + return 1; + } + + my ($name, $summary, $size, $dependencies, $pakfile, $initscripts); + foreach $line (@file) { + @templine =3D split(/\: /,$line); + if ("$templine[0]" eq "Name") { + $name =3D $templine[1]; + chomp($name); + } elsif ("$templine[0]" eq "Summary") { + $summary =3D $templine[1]; + chomp($summary); + } elsif ("$templine[0]" eq "Size") { + $size =3D &beautifysize("$templine[1]"); + chomp($size); + } elsif ("$templine[0]" eq "Dependencies") { + $dependencies =3D $templine[1]; + chomp($dependencies); + } elsif ("$templine[0]" eq "File") { + $pakfile =3D $templine[1]; + chomp($pakfile); + } elsif ("$templine[0]" eq "InitScripts") { + $initscripts =3D $templine[1]; + chomp($initscripts); + }=20 + } + + ### Get installed version information + my ($installed_version, $installed_release); + + if ($installed) { + open(FILE, "<$Conf::dbdir/installed/meta-$pak"); + @file =3D ; + close(FILE); + + foreach $line (@file) { + @templine =3D split(/\: /,$line); + if ("$templine[0]" eq "ProgVersion") { + $installed_version =3D $templine[1]; + chomp($installed_version); + } elsif ("$templine[0]" eq "Release") { + $installed_release =3D $templine[1]; + chomp($installed_release); + } + } + } + + print "Name: $name\n"; + if ("$info_type" eq "latest") { + print "Version: $available_version-$available_release\n"; + } else { + print "Version: $installed_version-$installed_release\n"; + } + print "Summary: $summary\nSize: $size\nDependencies: $dependencies\nPakfile= : $pakfile\nInitScripts: $initscripts\n"; + if ($installed) { + print "Installed: Yes\n"; + } else { + print "Installed: No\n"; + } + if ("$info_type" eq "latest") { + if (!$found) { + print "Status: obsolete (version $installed_version-$installed_release is= installed)\n"; + } elsif ($installed && "$installed_release" < "$available_release") { + print "Status: outdated (version $installed_version-$installed_release is= installed)\n"; + } elsif ($installed) { + print "Status: up-to-date\n"; + } else { + print "Status: not installed\n"; + } + } + print "\n"; +} + sub resolvedeps_one { my $pak =3D shift; =09 diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire index c69a8d3ad..5507c8e92 100644 --- a/src/pakfire/pakfire +++ b/src/pakfire/pakfire @@ -303,6 +303,27 @@ &Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[= 1]);=20 &Pakfire::dblist("all", "noweb"); } + + } elsif ("$ARGV[0]" eq "info") { + shift; + + my @paks; + my $pak; + foreach $pak (@ARGV) { + unless ("$pak" =3D~ "^-") { + push(@paks,$pak); + } + } + + unless ("@paks") { + &Pakfire::message("PAKFIRE ERROR: missing package name"); + &Pakfire::usage; + exit 1; + } + + foreach $pak (@paks) { + &Pakfire::pakinfo("$pak", "latest"); + } =09 } elsif ("$ARGV[0]" eq "resolvedeps") { foreach (@ARGV) { --=20 2.31.1 --=20 Dit bericht is gescanned op virussen en andere gevaarlijke inhoud door MailScanner en lijkt schoon te zijn. --===============6947056349382793892==--