From mboxrd@z Thu Jan  1 00:00:00 1970
From: Leo Hofmann <hofmann@leo-andres.de>
To: development@lists.ipfire.org
Subject: Re: [PATCH 1/4] pakfire.cgi: Extend the lockfile test
Date: Thu, 02 Dec 2021 16:41:47 +0100
Message-ID: <8d175028-63cb-7210-f4a4-3048669bd52d@leo-andres.de>
In-Reply-To: <20211202153955.1126-1-hofmann@leo-andres.de>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5169232160556204275=="
List-Id: <development.lists.ipfire.org>

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

Hi all,

this is my attempt at an AJAX log viewer for Pakfire, as I promised here:
https://lists.ipfire.org/pipermail/development/2021-November/011585.html

Stefan's patch must be applied beforehand for this to work!
https://patchwork.ipfire.org/patch/4842

In the last patch of this series, I remove the "sleep" calls.
If someone has a very slow system, please test both variants, to see if "slee=
p" is still necessary there.

Happy testing!

Best regards
Leo

Am 02.12.2021 um 16:39 schrieb Leo-Andres Hofmann:
> This implements a function to determine if Pakfire is already running.
> It tests the PID and lockfile and can be expanded easily later.
> 'pidof' checks the full path to avoid confusion.
>
> Removes the unreachable function "refreshpage".
>
> Signed-off-by: Leo-Andres Hofmann <hofmann(a)leo-andres.de>
> ---
>   html/cgi-bin/pakfire.cgi | 30 ++++++++++++++++++------------
>   1 file changed, 18 insertions(+), 12 deletions(-)
>
> diff --git a/html/cgi-bin/pakfire.cgi b/html/cgi-bin/pakfire.cgi
> index 4d6eee284..7957bc154 100644
> --- a/html/cgi-bin/pakfire.cgi
> +++ b/html/cgi-bin/pakfire.cgi
> @@ -44,8 +44,6 @@ $cgiparams{'VALID'} =3D '';
>   $cgiparams{'INSPAKS'} =3D '';
>   $cgiparams{'DELPAKS'} =3D '';
>  =20
> -sub refreshpage{&Header::openbox( 'Waiting', 1, "<meta http-equiv=3D'refre=
sh' content=3D'1;'>" );print "<center><img src=3D'/images/clock.gif' alt=3D''=
 /><br/><font color=3D'red'>$Lang::tr{'pagerefresh'}</font></center>";&Header=
::closebox();}
> -
>   &Header::getcgihash(\%cgiparams);
>  =20
>   &General::readhash("${General::swroot}/main/settings", \%mainsettings);
> @@ -54,7 +52,7 @@ sub refreshpage{&Header::openbox( 'Waiting', 1, "<meta ht=
tp-equiv=3D'refresh' cont
>   &Header::openpage($Lang::tr{'pakfire configuration'}, 1);
>   &Header::openbigbox('100%', 'left', '', $errormessage);
>  =20
> -if (($cgiparams{'ACTION'} eq 'install') && (! -e $Pakfire::lockfile)) {
> +if (($cgiparams{'ACTION'} eq 'install') && (! &_is_pakfire_busy())) {
>   	my @pkgs =3D split(/\|/, $cgiparams{'INSPAKS'});
>   	if ("$cgiparams{'FORCE'}" eq "on") {
>   		&General::system_background("/usr/local/bin/pakfire", "install", "--non=
-interactive", "--no-colors", @pkgs);
> @@ -92,7 +90,7 @@ END
>   		&Header::closepage();
>   		exit;
>   	}
> -} elsif (($cgiparams{'ACTION'} eq 'remove') && (! -e $Pakfire::lockfile)) {
> +} elsif (($cgiparams{'ACTION'} eq 'remove') && (! &_is_pakfire_busy())) {
>   	my @pkgs =3D split(/\|/, $cgiparams{'DELPAKS'});
>   	if ("$cgiparams{'FORCE'}" eq "on") {
>   		&General::system_background("/usr/local/bin/pakfire", "remove", "--non-=
interactive", "--no-colors", @pkgs);
> @@ -131,10 +129,10 @@ END
>   		exit;
>   	}
>  =20
> -} elsif (($cgiparams{'ACTION'} eq 'update') && (! -e $Pakfire::lockfile)) {
> +} elsif (($cgiparams{'ACTION'} eq 'update') && (! &_is_pakfire_busy())) {
>   	&General::system_background("/usr/local/bin/pakfire", "update", "--force=
", "--no-colors");
>   	sleep(1);
> -} elsif (($cgiparams{'ACTION'} eq 'upgrade') && (!-e $Pakfire::lockfile)) {
> +} elsif (($cgiparams{'ACTION'} eq 'upgrade') && (! &_is_pakfire_busy())) {
>   	&General::system_background("/usr/local/bin/pakfire", "upgrade", "-y", "=
--no-colors");
>   	sleep(1);
>   } elsif ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}") {
> @@ -173,11 +171,7 @@ if ($errormessage) {
>   }
>  =20
>   # Check if pakfire is already running.
> -#
> -# The system backpipe command is safe, because no user input is computed.
> -my $pid =3D `pidof pakfire`;
> -
> -if ($pid) {
> +if (&_is_pakfire_busy()) {
>   	&Header::openbox( 'Waiting', 1, "<meta http-equiv=3D'refresh' content=3D=
'10;'>" );
>   	print <<END;
>   	<table>
> @@ -203,7 +197,6 @@ END
>   	&Header::closebigbox();
>   	&Header::closepage();
>   	exit;
> -	refreshpage();
>   }
>  =20
>   my $core_release =3D `cat /opt/pakfire/db/core/mine 2>/dev/null`;
> @@ -314,3 +307,16 @@ END
>   &Header::closebox();
>   &Header::closebigbox();
>   &Header::closepage();
> +
> +###--- Internal functions ---###
> +
> +# Check if pakfire is already running (extend test here if necessary)
> +sub _is_pakfire_busy {
> +	# Get PID of a running pakfire instance
> +	# (The system backpipe command is safe, because no user input is computed=
.)
> +	my $pakfire_pid =3D `pidof -s /usr/local/bin/pakfire`;
> +	chomp($pakfire_pid);
> +
> +	# Test presence of PID or lockfile
> +	return (($pakfire_pid) || (-e "$Pakfire::lockfile"));
> +}

--===============5169232160556204275==--