From mboxrd@z Thu Jan 1 00:00:00 1970 From: Adolf Belka To: development@lists.ipfire.org Subject: Re: [PATCH 2/2] services.cgi: Fix status/actions on services with name != addon name Date: Mon, 03 Oct 2022 19:09:44 +0200 Message-ID: In-Reply-To: <20221003152720.13140-4-robin.roevens@disroot.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1079797586674051025==" List-Id: --===============1079797586674051025== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Tested-by: Adolf Belka On 03/10/2022 17:27, Robin Roevens wrote: > * addonctrl's new functionality to control explicit addon services was > implemented. > * Change 'Addon' column header to 'Addon Service' to be clear that > it's not addons but services listed here. > * Services not matching the name of the addon now display the addon > name between parentheses, so the user knows where the service comes > from. > * When no valid runlevel symlink is found by addonctrl for a service, > the 'enable on boot' checkbox is replaced by a small exclamation point > with alt-text "No valid runlevel symlink was found for the initscript of > this service." to inform user why a service can't be enabled. > * Added German and Dutch translation for above message. > > Fixes: Bug#12935 > Signed-off-by: Robin Roevens > --- > html/cgi-bin/services.cgi | 103 +++++++++++++++----------------------- > langs/de/cgi-bin/de.pl | 1 + > langs/en/cgi-bin/en.pl | 1 + > langs/nl/cgi-bin/nl.pl | 1 + > 4 files changed, 42 insertions(+), 64 deletions(-) > > diff --git a/html/cgi-bin/services.cgi b/html/cgi-bin/services.cgi > index 29926ecc3..e91da884b 100644 > --- a/html/cgi-bin/services.cgi > +++ b/html/cgi-bin/services.cgi > @@ -142,14 +142,14 @@ END > my $paramstr=3D$ENV{QUERY_STRING}; > my @param=3Dsplit(/!/, $paramstr); > if ($param[1] ne ''){ > - &General::system("/usr/local/bin/addonctrl", "$param[0]", "$param[1]"); > + &General::system("/usr/local/bin/addonctrl", "$param[0]", "$param[1]", "= $param[2]"); > } > =20 > print <
> > > - > + > > > > @@ -170,33 +170,35 @@ END > foreach my $pak (keys %paklist) { > my %metadata =3D &Pakfire::getmetadata($pak, "installed"); > =09 > + my $service; > + > if ("$metadata{'Services'}") { > - foreach my $service (split(/ /, "$metadata{'Services'}")) { > - push(@addon_services, $service); > - } > - } > - } > + foreach $service (split(/ /, "$metadata{'Services'}")) { > + $lines++; > + if ($lines % 2) { > + print ""; > + $col=3D"bgcolor=3D'$color{'color22'}'"; > + } else { > + print ""; > + $col=3D"bgcolor=3D'$color{'color20'}'"; > + } > =20 > - foreach (@addon_services) { > - $lines++; > - if ($lines % 2){ > - print ""; > - $col=3D"bgcolor=3D'$color{'color22'}'"; > - }else{ > - print ""; > - $col=3D"bgcolor=3D'$color{'color20'}'"; > + # Add addon name to displayname of service if servicename differs from= addon > + my $displayname =3D ($pak ne $service) ? "$service ($pak)" : $service; > + print " "; > + > + my $status =3D isautorun($pak,$service,$col); > + print "$status "; > + print ""; > + print " "; > + my $status =3D isrunningaddon($pak,$service,$col); > + $status =3D~ s/\=1B\[[0-1]\;[0-9]+m//g; > + > + chomp($status); > + print "$status"; > + print ""; > + } > } > - print " "; > - my $status =3D isautorun($_,$col); > - print "$status "; > - print ""; > - print " "; > - my $status =3D isrunningaddon($_,$col); > - $status =3D~ s/\=1B\[[0-1]\;[0-9]+m//g; > - > - chomp($status); > - print "$status"; > - print ""; > } > =20 > print "
AddonAddon $Lang::tr{service}Boot$Lang::tr{'action'}$Lang::tr{'status'}
$displayname3D'$Lang::tr{'start'}'3D'$Lang::tr{'stop'}'
$_3D'$Lang::tr{'start'}'3D'$Lang::tr{'stop'}'
\n"; > @@ -215,51 +217,24 @@ END > } > =20 > sub isautorun (@) { > - my ($cmd, $col) =3D @_; > - > - # Init directory. > - my $initdir =3D "/etc/rc.d/rc3.d/"; > - > - my $status =3D ""; > + my ($pak, $service, $col) =3D @_; > + my @testcmd =3D &General::system_output("/usr/local/bin/addonctrl", "$pak= ", "boot-status", "$service"); > + my $testcmd =3D @testcmd[0]; > + my $status =3D "3D'$Lang::tr{'service"; > =20 > - # Check if autorun for the given cmd is enabled. > - if ( &find_init("$cmd", "$initdir") ) { > + # Check if autorun for the given service is enabled. > + if ( $testcmd =3D~ /enabled\ on\ boot/ ) { > # Adjust status. > - $status =3D "3D'$Lang::tr{'deactivate'}'"; > - } else { > + $status =3D "3D'$Lang::tr{'deactivate'}'= "; > + } elsif ( $testcmd =3D~ /disabled\ on\ boot/ ) { > # Adjust status. > - $status =3D "3D'$Lang::tr{'activate'}'"; > + $status =3D "3D'$Lang::tr{'activate'}'"; > } > =20 > # Return the status. > return $status; > } > =20 > -sub find_init (@) { > - my ($cmd, $dir) =3D @_; > - > - # Open given init directory. > - opendir (INITDIR, "$dir") || die "Cannot opendir $dir: $!"; > - > - # Read-in init files from directory. > - my @inits =3D readdir(INITDIR); > - > - # Close directory handle. > - closedir(INITDIR); > - > - # Loop through the directory. > - foreach my $init (@inits) { > - # Check if the current processed file belongs to the given command. > - if ($init =3D~ /S\d+\d+$cmd\z/) { > - # Found, return "1" - True. > - return "1"; > - } > - } > - > - # Nothing found, return nothing. > - return; > -} > - > sub isrunning (@) { > my ($cmd, $col) =3D @_; > my $status =3D "$Lang::tr{'stopped'}"; > @@ -313,7 +288,7 @@ sub isrunning (@) { > } > =20 > sub isrunningaddon (@) { > - my ($cmd, $col) =3D @_; > + my ($pak, $service, $col) =3D @_; > =20 > my $status =3D "$Lang::tr{'stopped'}"; > my $pid =3D ''; > @@ -321,7 +296,7 @@ sub isrunningaddon (@) { > my $exename; > my @memory; > =20 > - my @testcmd =3D &General::system_output("/usr/local/bin/addonctrl", "$cmd= ", "status"); > + my @testcmd =3D &General::system_output("/usr/local/bin/addonctrl", "$pak= ", "status", "$service"); > my $testcmd =3D @testcmd[0]; > =20 > if ( $testcmd =3D~ /is\ running/ && $testcmd !~ /is\ not\ running/){ > diff --git a/langs/de/cgi-bin/de.pl b/langs/de/cgi-bin/de.pl > index 798abcffc..db7d117b0 100644 > --- a/langs/de/cgi-bin/de.pl > +++ b/langs/de/cgi-bin/de.pl > @@ -2251,6 +2251,7 @@ > 'server string' =3D> 'Server String', > 'service' =3D> 'Dienst', > 'service added' =3D> 'Benutzerdefinierter Netzwerkdienst wurde hinzugef= =C3=BCgt', > +'service boot setting unavailable' =3D> 'F=C3=BCr das Initscript dieses Di= enstes wurde kein g=C3=BCltiger Runlevel-Symlink gefunden.', > 'service name' =3D> 'Name des Dienstes:', > 'service removed' =3D> 'Benutzerdefinierter Netzwerkdienst wurde entfernt= ', > 'service updated' =3D> 'Benutzerdefinierter Netzwerkdienst wurde aktualis= iert', > diff --git a/langs/en/cgi-bin/en.pl b/langs/en/cgi-bin/en.pl > index f770e7cd9..60dca5be4 100644 > --- a/langs/en/cgi-bin/en.pl > +++ b/langs/en/cgi-bin/en.pl > @@ -2306,6 +2306,7 @@ > 'server string' =3D> 'Server String', > 'service' =3D> 'Service', > 'service added' =3D> 'Custom network service added', > +'service boot setting unavailable' =3D> 'No valid runlevel symlink was fou= nd for the initscript of this service.', > 'service name' =3D> 'Service name:', > 'service removed' =3D> 'Custom network service removed', > 'service updated' =3D> 'Custom network service updated', > diff --git a/langs/nl/cgi-bin/nl.pl b/langs/nl/cgi-bin/nl.pl > index 49dabec99..4fd6955cc 100644 > --- a/langs/nl/cgi-bin/nl.pl > +++ b/langs/nl/cgi-bin/nl.pl > @@ -1899,6 +1899,7 @@ > 'server string' =3D> 'Server String', > 'service' =3D> 'Dienst', > 'service added' =3D> 'Aangepaste netwerkdienst toegevoegd', > +'service boot setting unavailable' =3D> 'Er werd voor het initscript van d= eze service geen geldige runlevel symlink gevonden.', > 'service name' =3D> 'Dienstennaam:', > 'service removed' =3D> 'Aangepaste netwerkdienst verwijderd', > 'service updated' =3D> 'Aangepaste netwerkdienst bijgewerkt', --=20 Sent from my laptop --===============1079797586674051025==--