From mboxrd@z Thu Jan  1 00:00:00 1970
From: Robin Roevens <robin.roevens@disroot.org>
To: development@lists.ipfire.org
Subject: [PATCH 1/9] pakfire: Refactor dblist seperating UI and logic
Date: Wed, 09 Mar 2022 23:56:47 +0100
Message-ID: <20220309225655.4472-2-robin.roevens@disroot.org>
In-Reply-To: <20220309225655.4472-1-robin.roevens@disroot.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============0145049956173607161=="
List-Id: <development.lists.ipfire.org>

--===============0145049956173607161==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

- Removed UI code from dblist function and refactor it making it return
  a hash representing the pak db for easier handling of this data.
- Moved core update check in dblist to new seperate dbcoreinfo function
  making it return a hash with current and possibly available core
  version info.
- Update existing calls to dblist
- Bring UI parts previously in dblist to pakfire program itself,
  pakfire.cgi and index.cgi with a few small enhancements:
  - Add currently installed version numbers to installed paks list in
    pakfire.cgi
  - Add 'Installed: yes/no' to pakfire list output so people not using
    colors have this information too.
  - Add update available details to pakfire list output if package has
    updates available.

Signed-off-by: Robin Roevens <robin.roevens(a)disroot.org>
---
 html/cgi-bin/index.cgi       |   6 +-
 html/cgi-bin/pakfire.cgi     |  24 +++++-
 src/pakfire/lib/functions.pl | 147 ++++++++++++++++-------------------
 src/pakfire/pakfire          |  99 +++++++++++++++++------
 4 files changed, 168 insertions(+), 108 deletions(-)

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index 18c26942e..6fecae1ff 100644
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -604,7 +604,11 @@ if ($warnmessage) {
 	&Header::closebox();
 }
=20
-&Pakfire::dblist("upgrade", "notice");
+my %coredb =3D &Pakfire::coredbinfo();
+if (defined $coredb{'AvailableRelease'}) {
+	print "<br /><br /><br /><a href=3D'pakfire.cgi'>$Lang::tr{'core notice 1'}=
 $coredb{'Release'} $Lang::tr{'core notice 2'} $coredb{'AvailableRelease'} $L=
ang::tr{'core notice 3'}</a>";
+}
+
 if ( -e "/var/run/need_reboot" ) {
 	print "<div style=3D'text-align:center; color:red;'>";
 	print "<br/><br/>$Lang::tr{'needreboot'}!";
diff --git a/html/cgi-bin/pakfire.cgi b/html/cgi-bin/pakfire.cgi
index 65c67fb90..30a23128b 100644
--- a/html/cgi-bin/pakfire.cgi
+++ b/html/cgi-bin/pakfire.cgi
@@ -370,7 +370,17 @@ print <<END;
 					<select name=3D"UPDPAKS" class=3D"pflist" size=3D"5" disabled>
 END
=20
-	&Pakfire::dblist("upgrade", "forweb");
+	my %coredb =3D &Pakfire::coredbinfo();
+	if (defined $coredb{'AvailableRelease'}) {
+		print "<option value=3D\"core\">Core-Update -- $coredb{'CoreVersion'} -- R=
elease: $coredb{'Release'} -> $coredb{'AvailableRelease'}</option>\n";
+	}
+
+	my %upgradelist =3D &Pakfire::dblist("upgrade");
+	foreach my $pak (sort keys %upgradelist) {
+		print "<option value=3D\"$pak\">Update: $pak -- Version: $upgradelist{$pak=
}{'ProgVersion'} -> $upgradelist{$pak}{'AvailableProgVersion'} -- Release: $u=
pgradelist{$pak}{'Release'} -> $upgradelist{$pak}{'AvailableRelease'}</option=
>\n";
+	}
+
+
 	print <<END;
 					</select>
 					<input type=3D'hidden' name=3D'ACTION' value=3D'upgrade' />
@@ -386,7 +396,11 @@ END
 					<select name=3D"INSPAKS" class=3D"pflist" size=3D"10" multiple>
 END
=20
-	&Pakfire::dblist("notinstalled", "forweb");
+	my %notinstalledlist =3D &Pakfire::dblist("notinstalled");
+	foreach my $pak (sort keys %notinstalledlist) {
+		print "<option value=3D\"$pak\">$pak-$notinstalledlist{$pak}{'ProgVersion'=
}-$notinstalledlist{$pak}{'Release'}</option>\n";
+	}
+
 	print <<END;
 					</select>
 					<input type=3D'hidden' name=3D'ACTION' value=3D'install' />
@@ -398,7 +412,11 @@ END
 					<select name=3D"DELPAKS" class=3D"pflist" size=3D"10" multiple>
 END
=20
-	&Pakfire::dblist("installed", "forweb");
+	my %installedlist =3D &Pakfire::dblist("installed");
+	foreach my $pak (sort keys %installedlist) {
+		print "<option value=3D\"$pak\">$pak-$installedlist{$pak}{'ProgVersion'}-$=
installedlist{$pak}{'Release'}</option>\n";
+	}
+
 	print <<END;
 					</select>
 					<input type=3D'hidden' name=3D'ACTION' value=3D'remove' />
diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index d4e338f23..f08f43622 100644
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -2,7 +2,7 @@
 ############################################################################=
###
 #                                                                           =
  #
 # IPFire.org - A linux based firewall                                       =
  #
-# Copyright (C) 2007-2021   IPFire Team   <info(a)ipfire.org>               =
    #
+# Copyright (C) 2007-2022   IPFire Team   <info(a)ipfire.org>               =
    #
 #                                                                           =
  #
 # This program is free software: you can redistribute it and/or modify      =
  #
 # it under the terms of the GNU General Public License as published by      =
  #
@@ -44,7 +44,7 @@ my @VALID_KEY_FINGERPRINTS =3D (
 );
=20
 # A small color-hash :D
-my %color;
+our %color;
 	$color{'normal'}      =3D "\033[0m";
 	$color{'black'}       =3D "\033[0;30m";
 	$color{'darkgrey'}    =3D "\033[1;30m";
@@ -426,108 +426,93 @@ sub dbgetlist {
 	}
 }
=20
+sub coredbinfo {
+	### This subroutine returns core db version information in a hash.
+	# Usage is without arguments
+
+	eval(`grep "core_" $Conf::dbdir/lists/core-list.db`);
+
+	my %coredb =3D (
+		CoreVersion =3D> $Conf::version,
+		Release =3D> $Conf::core_mine,
+	);
+
+	$coredb{'AvailableRelease'} =3D $core_release if ("$Conf::core_mine" < "$co=
re_release");
+
+	return %coredb;
+}
+
 sub dblist {
-	### This subroutine lists the packages.
-	#   You may also pass a filter: &Pakfire::dblist(filter)
-	#   Usage is always with two arguments.
-	#   filter may be: all, notinstalled, installed
+	### This subroutine returns the packages from the packages_list db in a has=
h.
+	#   It uses the currently cached version of packages_list. To ensure latest=
=20
+	#   data, run Pakfire::dbgetlist first.
+	#   You may also pass a filter: &Pakfire::dblist(filter)=20
+	#   Usage is always with one argument.
+	#   filter may be: all, notinstalled, installed, upgrade
 	my $filter =3D shift;
-	my $forweb =3D shift;
-	my @updatepaks;
+	my %paklist =3D ();
 	my $file;
 	my $line;
-	my $prog;
 	my %metadata;
 	my @templine;
-
-	### Make sure that the list is not outdated.
-	#dbgetlist("noforce");
-
+=09
 	open(FILE, "<$Conf::dbdir/lists/packages_list.db");
 	my @db =3D <FILE>;
 	close(FILE);
=20
-	if ("$filter" eq "upgrade") {
-		if ("$forweb" ne "forweb" && "$forweb" ne "notice" ) {getcoredb("noforce")=
;}
-		eval(`grep "core_" $Conf::dbdir/lists/core-list.db`);
-		if ("$core_release" > "$Conf::core_mine") {
-			if ("$forweb" eq "forweb") {
-				print "<option value=3D\"core\">Core-Update -- $Conf::version -- Release=
: $Conf::core_mine -> $core_release</option>\n";
-			}
-			elsif ("$forweb" eq "notice") {
-				print "<br /><br /><br /><a href=3D'pakfire.cgi'>$Lang::tr{'core notice =
1'} $Conf::core_mine $Lang::tr{'core notice 2'} $core_release $Lang::tr{'core=
 notice 3'}</a>";
-			} else {
-				my $command =3D "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";
-				}
-			}
-		}
-
+	if ("$filter" ne "notinstalled") {
 		opendir(DIR,"$Conf::dbdir/installed");
 		my @files =3D readdir(DIR);
 		closedir(DIR);
+
 		foreach $file (@files) {
 			next if ( $file eq "." );
 			next if ( $file eq ".." );
 			next if ( $file =3D~ /^old/ );
 			%metadata =3D parsemetafile("$Conf::dbdir/installed/$file");
=20
-			foreach $prog (@db) {
-				@templine =3D split(/\;/,$prog);
-				if (("$metadata{'Name'}" eq "$templine[0]") && ("$metadata{'Release'}" <=
 "$templine[2]" && "$forweb" ne "notice")) {
-					push(@updatepaks,$metadata{'Name'});
-					if ("$forweb" eq "forweb") {
-						print "<option value=3D\"$metadata{'Name'}\">Update: $metadata{'Name'}=
 -- Version: $metadata{'ProgVersion'} -> $templine[1] -- Release: $metadata{'=
Release'} -> $templine[2]</option>\n";
-					} else {
-						my $command =3D "Update: $metadata{'Name'}\nVersion: $metadata{'ProgVe=
rsion'} -> $templine[1]\nRelease: $metadata{'Release'} -> $templine[2]\n";
-						if ("$Pakfire::enable_colors" eq "1") {
-							print "$color{'lila'}$command$color{'normal'}\n";
-						} else {
-							print "$command\n";
-						}
-					}
+			foreach $line (@db) {
+				next unless ($line =3D~ /.*;.*;.*;/ );
+				@templine =3D split(/\;/,$line);
+				if (("$metadata{'Name'}" eq "$templine[0]") && ("$metadata{'Release'}" <=
 "$templine[2]")) { #&& "$forweb" ne "notice")) {
+					# Add all upgradable paks to list
+					$paklist{"$metadata{'Name'}"} =3D {
+						ProgVersion =3D> $metadata{'ProgVersion'},
+						Release =3D> $metadata{'Release'},
+						AvailableProgVersion =3D> $templine[1],
+						AvailableRelease =3D> $templine[2],
+						Installed =3D> "yes"
+					};
+					last;
+				} elsif (("$metadata{'Name'}" eq "$templine[0]") && ("$filter" ne "upgra=
de")) {
+					# Add installed paks without an upgrade available to list
+					$paklist{"$metadata{'Name'}"} =3D {
+						ProgVersion =3D> $metadata{'ProgVersion'},
+						Release =3D> $metadata{'Release'},
+						Installed =3D> "yes"
+					};
+					last;
 				}
 			}
 		}
-		return @updatepaks;
-	} else {
-		my $line;
-		my $use_color;
-		my @templine;
-		my $count;
-		foreach $line (sort @db) {
+	}
+
+	# Add all not installed paks to list
+	if (("$filter" ne "upgrade") && ("$filter" ne "installed")) {
+		foreach $line (@db) {
 			next unless ($line =3D~ /.*;.*;.*;/ );
-			$use_color =3D "";
 			@templine =3D split(/\;/,$line);
-			if ("$filter" eq "notinstalled") {
-				next if ( -e "$Conf::dbdir/installed/meta-$templine[0]" );
-			} elsif ("$filter" eq "installed") {
-				next unless ( -e "$Conf::dbdir/installed/meta-$templine[0]" );
-			}
-			$count++;
-			if ("$forweb" eq "forweb")
-			 {
-				if ("$filter" eq "notinstalled") {
-					print "<option value=3D\"$templine[0]\">$templine[0]-$templine[1]-$temp=
line[2]</option>\n";
-				} else {
-					print "<option value=3D\"$templine[0]\">$templine[0]</option>\n";
-				}
-			} else {
-				if ("$Pakfire::enable_colors" eq "1") {
-					if (&isinstalled("$templine[0]")) {
-						$use_color =3D "$color{'red'}"
-					} else {
-						$use_color =3D "$color{'green'}"
-					}
-				}
-				print "${use_color}Name: $templine[0]\nProgVersion: $templine[1]\nReleas=
e: $templine[2]$color{'normal'}\n\n";
-			}
+			next if ((defined $paklist{"$templine[0]"}) || (&isinstalled($templine[0]=
) =3D=3D 0));
+
+			$paklist{"$templine[0]"} =3D {
+				ProgVersion =3D> "$templine[1]",
+				Release =3D> "$templine[2]",
+				Installed =3D> "no"
+			};
 		}
-		print "$count packages total.\n" unless ("$forweb" eq "forweb");
 	}
+
+	return %paklist;
 }
=20
 sub resolvedeps_one {
@@ -896,10 +881,10 @@ sub progress_bar {
=20
 sub updates_available {
 	# Get packets with updates available
-	my @upgradepaks =3D &Pakfire::dblist("upgrade", "noweb");
+	my %upgradepaks =3D &Pakfire::dblist("upgrade");
=20
-	# Get the length of the returned array
-	my $updatecount =3D scalar @upgradepaks;
+	# Get the length of the returned hash
+	my $updatecount =3D keys %upgradepaks;
=20
 	return "$updatecount";
 }
diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire
index 6c77695c8..b4930e85d 100644
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -270,14 +270,25 @@
 		&Pakfire::getcoredb("$force");
=20
 	} elsif ("$ARGV[0]" eq "upgrade") {
+		my $use_color =3D "";
+		my $reset_color =3D "";
+
+		if ("$Pakfire::enable_colors" eq "1") {
+			$reset_color =3D "$Pakfire::color{'normal'}";
+			$use_color =3D "$Pakfire::color{'lightpurple'}";
+		}
+
 		&Pakfire::upgradecore();
-		my @upgradepaks =3D &Pakfire::dblist("upgrade", "noweb");
+	=09
 		my @deps =3D ();
-
-		if (@upgradepaks) {
+		if (my %upgradepaks =3D &Pakfire::dblist("upgrade")) {
 			# Resolve the dependencies of the to be upgraded packages
-			@deps =3D &Pakfire::resolvedeps_recursive(@upgradepaks);
+			@deps =3D &Pakfire::resolvedeps_recursive(keys %upgradepaks);
=20
+			foreach $pak (sort keys %upgradepaks) {
+				print "${use_color}Update: $pak\nVersion: $upgradepaks{$pak}{'ProgVersio=
n'} -> $upgradepaks{$pak}{'AvailableProgVersion'}\n";
+				print "Release: $upgradepaks{$pak}{'Release'} -> $upgradepaks{$pak}{'Ava=
ilableRelease'}${reset_color}\n";
+			}
 			&Pakfire::message("");
 			&Pakfire::message("PAKFIRE UPGR: We are going to install all packages lis=
ted above.");
 			if ($interactive) {
@@ -290,36 +301,78 @@
 				  exit 1;
 				}
 			}
-		}
+	=09
+			# Download packages
+			foreach $pak (sort keys %upgradepaks) {
+				&Pakfire::getpak("$pak", "");
+			}
=20
-		# Download packages
-		foreach $pak (@upgradepaks) {
-			&Pakfire::getpak("$pak", "");
+			# Download dependencies
+			foreach $pak (@deps) {
+				&Pakfire::getpak("$pak", "");
+			}
+
+			# Install dependencies first
+			foreach $pak (@deps) {
+				&Pakfire::setuppak("$pak");
+			}
+
+			# Install all upgrades
+			foreach $pak (sort keys %upgradepaks) {
+				&Pakfire::upgradepak("$pak");
+			}
+		} else {
+			&Pakfire::message("PAKFIRE WARN: No new package upgrades available.");
 		}
=20
-		# Download dependencies
-		foreach $pak (@deps) {
-			&Pakfire::getpak("$pak", "");
+	} elsif ("$ARGV[0]" eq "list") {
+		my $count;
+		my $use_color =3D "";
+		my $reset_color =3D "";
+		my $filter =3D "all";
+
+		if ("$ARGV[1]" =3D~ /installed|notinstalled/) {
+			$filter =3D "$ARGV[1]";
+		} else {
+			&Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[=
1]);=20
 		}
=20
-		# Install dependencies first
-		foreach $pak (@deps) {
-			&Pakfire::setuppak("$pak");
+		my $pak;
+		my %paklist =3D &Pakfire::dblist($filter);
+
+		if ("$Pakfire::enable_colors" eq "1") {
+			$reset_color =3D "$Pakfire::color{'normal'}";
+			$use_color =3D "$Pakfire::color{'lightgreen'}";
 		}
=20
-		# Install all upgrades
-		foreach $pak (@upgradepaks) {
-			&Pakfire::upgradepak("$pak");
+		foreach $pak (sort keys %paklist) {
+			if ("$Pakfire::enable_colors" eq "1") {
+				if ("$paklist{$pak}{'Installed'}" eq "yes") {
+					if (defined $paklist{$pak}{'AvailableProgVersion'}) {
+						$use_color =3D "$Pakfire::color{'lightgreen'}";
+					} else {
+						$use_color =3D "$Pakfire::color{'green'}";
+					}
+				} else {
+					$use_color =3D "$Pakfire::color{'red'}";=20
+				}
+			}
+
+			print "${use_color}Name: $pak\nProgVersion: $paklist{$pak}{'ProgVersion'}=
\n";
+			print "Release: $paklist{$pak}{'Release'}\nInstalled: $paklist{$pak}{'Ins=
talled'}\n";
+			if (defined $paklist{$pak}{'AvailableProgVersion'}) {
+				print "Update available:\n Version: $paklist{$pak}{'ProgVersion'} -> $pa=
klist{$pak}{'AvailableProgVersion'}\n Release: $paklist{$pak}{'Release'} -> $=
paklist{$pak}{'AvailableRelease'}\n";
+			}
+			print "${reset_color}\n";
+		=09
 		}
=20
-	} elsif ("$ARGV[0]" eq "list") {
-		if ("$ARGV[1]" =3D~ /installed|notinstalled/) {
-			&Pakfire::dblist("$ARGV[1]", "noweb");
+		$count =3D keys %paklist;
+		if ($count > 0) {
+			print "$count packages total.\n";
 		} else {
-			&Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[=
1]);
-			&Pakfire::dblist("all", "noweb");
+			&Pakfire::message("PAKFIRE WARN: No packages where found using filter $fi=
lter.");
 		}
-
 	} elsif ("$ARGV[0]" eq "resolvedeps") {
 		foreach (@ARGV) {
 			next if ("$_" eq "resolvedeps");
--=20
2.34.1


--=20
Dit bericht is gescanned op virussen en andere gevaarlijke
inhoud door MailScanner en lijkt schoon te zijn.


--===============0145049956173607161==--