From mboxrd@z Thu Jan  1 00:00:00 1970
From: Robin Roevens <robin.roevens@disroot.org>
To: development@lists.ipfire.org
Subject: [PATCH 3/3] services.cgi: use new Pakfire::pakinfo function
Date: Fri, 23 Apr 2021 18:15:34 +0200
Message-ID: <20210423161534.32738-4-robin.roevens@disroot.org>
In-Reply-To: <20210423161534.32738-1-robin.roevens@disroot.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============2537188607063570157=="
List-Id: <development.lists.ipfire.org>

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

Use new Pakfire::pakinfo function to determine installed addons and
related services/initscripts more reliable.

Signed-off-by: Robin Roevens <robin.roevens(a)disroot.org>
---
 html/cgi-bin/services.cgi | 96 ++++++++++++++++++++++++---------------
 1 file changed, 59 insertions(+), 37 deletions(-)

diff --git a/html/cgi-bin/services.cgi b/html/cgi-bin/services.cgi
index 38b89ef1e..66b0d711f 100644
--- a/html/cgi-bin/services.cgi
+++ b/html/cgi-bin/services.cgi
@@ -29,6 +29,7 @@ require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
 require "${General::swroot}/graphs.pl";
+require "/opt/pakfire/lib/functions.pl";
=20
 my %color =3D ();
 my %mainsettings =3D ();
@@ -160,48 +161,69 @@ END
=20
 	my $lines=3D0; # Used to count the outputlines to make different bgcolor
=20
-	# Generate list of installed addon pak's
-	opendir (DIR, "/opt/pakfire/db/installed") || die "Cannot opendir /opt/pakf=
ire/db/installed/: $!";
-	my @pak =3D sort readdir DIR;
-	foreach (@pak){
-		chomp($_);
-		next unless (m/^meta-/);
-		s/^meta-//;
-
-		# Check which of the paks are services
-		if (-e "/etc/init.d/$_") {
-			# blacklist some packages
-			#
-			# alsa has trouble with the volume saving and was not really stopped
-			# mdadm should not stopped with webif because this could crash the system
-			#
-			if ( $_ eq 'squid' ) {
-				next;
-			}
-			if ( ($_ ne "alsa") && ($_ ne "mdadm") ) {
-				$lines++;
-				if ($lines % 2){
-					print "<tr>";
-					$col=3D"bgcolor=3D'$color{'color22'}'";
-				}else{
-					print "<tr>";
-					$col=3D"bgcolor=3D'$color{'color20'}'";
+	my ($paklist, $pakinfo);
+	my (@templine, @templine2);
+	my ($listline, $infoline);
+	my @paks;
+	my @addon_services;
+
+	# Generate list of installed addon pak services
+	$Pakfire::enable_colors =3D 0;
+	open OUT, '>', \$paklist;
+	select OUT;
+	eval { \&Pakfire::dblist("installed", "noweb"); };
+	select STDOUT;
+
+	foreach $listline (split(/^/, "$paklist")) {
+		chomp($listline);
+		@templine =3D split(/\: /, $listline);
+
+		if ("@templine[0]" eq "Name") {
+			open OUT, '>', \$pakinfo;
+			select OUT;
+			eval { \&Pakfire::pakinfo("@templine[1]", "installed"); };
+			select STDOUT;
+
+			foreach $infoline (split(/^/, $pakinfo)) {
+				chomp($infoline);
+				@templine2 =3D split(/\: /, $infoline);
+
+				if ("@templine2[0]" eq "InitScripts" && "@templine2[1]") {
+					push(@addon_services, split(" ", "@templine2[1]"));
 				}
-				print "<td align=3D'left' $col width=3D'31%'>$_</td> ";
-				my $status =3D isautorun($_,$col);
-				print "$status ";
-				print "<td align=3D'center' $col width=3D'8%'><a href=3D'services.cgi?$_=
!start'><img alt=3D'$Lang::tr{'start'}' title=3D'$Lang::tr{'start'}' src=3D'/=
images/go-up.png' border=3D'0' /></a></td>";
-				print "<td align=3D'center' $col width=3D'8%'><a href=3D'services.cgi?$_=
!stop'><img alt=3D'$Lang::tr{'stop'}' title=3D'$Lang::tr{'stop'}' src=3D'/ima=
ges/go-down.png' border=3D'0' /></a></td> ";
-				my $status =3D &isrunningaddon($_,$col);
-		 		$status =3D~ s/\=1B\[[0-1]\;[0-9]+m//g;
-
-				chomp($status);
-				print "$status";
-				print "</tr>";
 			}
 		}
 	}
=20
+	foreach (@addon_services) {
+		$lines++;
+		if ($lines % 2){
+			print "<tr>";
+			$col=3D"bgcolor=3D'$color{'color22'}'";
+		}else{
+			print "<tr>";
+			$col=3D"bgcolor=3D'$color{'color20'}'";
+		}
+		print "<td align=3D'left' $col width=3D'31%'>$_</td> ";
+		my $status =3D isautorun($_,$col);
+		print "$status ";
+		# Don't allow user to start/stop folowing services from webui:
+		#  - alsa has trouble with the volume saving and was not really stopped
+		if ($_ eq "alsa") {
+			print "<td align=3D'center' $col width=3D'8%'></td>";
+			print "<td align=3D'center' $col width=3D'8%'></td> ";
+		} else {
+			print "<td align=3D'center' $col width=3D'8%'><a href=3D'services.cgi?$_!=
start'><img alt=3D'$Lang::tr{'start'}' title=3D'$Lang::tr{'start'}' src=3D'/i=
mages/go-up.png' border=3D'0' /></a></td>";
+			print "<td align=3D'center' $col width=3D'8%'><a href=3D'services.cgi?$_!=
stop'><img alt=3D'$Lang::tr{'stop'}' title=3D'$Lang::tr{'stop'}' src=3D'/imag=
es/go-down.png' border=3D'0' /></a></td> ";
+		}
+		my $status =3D &isrunningaddon($_,$col);
+		$status =3D~ s/\=1B\[[0-1]\;[0-9]+m//g;
+
+		chomp($status);
+		print "$status";
+		print "</tr>";
+	}
+
 	print "</table></div>\n";
 	&Header::closebox();
=20
--=20
2.31.1


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


--===============2537188607063570157==--