From mboxrd@z Thu Jan  1 00:00:00 1970
From: Adolf Belka <adolf.belka@ipfire.org>
To: development@lists.ipfire.org
Subject: Re: [PATCH] pakfire: Better errorhandling on downloads
Date: Mon, 07 Mar 2022 15:11:16 +0100
Message-ID: <9789b768-890c-d032-4f8d-4d0f05a8b2fc@ipfire.org>
In-Reply-To: <60cebc04de4f93b6b9a7a380cd8d1d67461a23a4.camel@sicho.home>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============3683324302673339530=="
List-Id: <development.lists.ipfire.org>

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

Hi Robin,

On 07/03/2022 14:33, Robin Roevens wrote:
> Hi Adolf
>=20
> Thanks for testing.
>=20
> Adolf Belka schreef op vr 04-03-2022 om 16:08 [+0100]:
>> Hi All,
>>
>> I have run a test with this patch. I set up a CU 165 vm and ran
>> pakfire
>> with and without internet access to try and download 4 different
>> addons.
>> I then patched the pakfire functions.pl file and redid the test.
>>
>> In both cases with internet access the four addons were successfully
>> downloaded.
>>
>> In both cases with no internet access I got the same error message
>> that
>> I needed Internet access to install addons.
>>
>>  =C2=A0From the point of view of a pakfire user there is no difference
>> between
>> with and without the patch.
>=20
> The main pain points are when no meta-data could be downloaded (and is
> not already in cache) or when any of the lists is missing or could only
> be partly downloaded.
>=20
> For my tests, I disabled internet by stopping unbound:
> [root(a)ipfire-test lists]# /etc/init.d/unbound stop
> Stopping Unbound DNS Proxy...                                  [  OK  ]
>=20
> Before/after differences:
> - Installing a package with missing server-list.db:
> [root(a)ipfire-test lists]# mv server-list.db server-list.db.old
>=20
> BEFORE:
> ---
> [root(a)ipfire-test lists]# pakfire install wio
>=20
> Giving up: There was no chance to get the file "2.27.2-
> x86_64/lists/server-list.db" from any available server.
> There was an error on the way. Please fix it.
>=20
> Giving up: There was no chance to get the file "2.27.2-
> x86_64/lists/server-list.db" from any available server.
> There was an error on the way. Please fix it.
>=20
> Giving up: There was no chance to get the file "2.27.2-
> x86_64/lists/server-list.db" from any available server.
> There was an error on the way. Please fix it.
>=20
> Giving up: There was no chance to get the file "2.27.2-
> x86_64/lists/server-list.db" from any available server.
> There was an error on the way. Please fix it.
>=20
> Giving up: There was no chance to get the file "2.27.2-
> x86_64/lists/server-list.db" from any available server.
> There was an error on the way. Please fix it.
> MIRROR ERROR: Could not find or download a server list
> ---
>=20
> AFTER: (less clutter)
> ---
> [root(a)ipfire-test lists]# pakfire install wio
> PAKFIRE RESV: wio: Resolving dependencies...
>=20
> Giving up: There was no chance to get the file "2.27.2-
> x86_64/lists/server-list.db" from any available server.
> There was an error on the way. Please fix it.
> MIRROR ERROR: Could not find or download a server list
> ---
>=20
> - Installing a package with meta-data already in cache:
> BEFORE:
> ---
> [root(a)ipfire-test lists]# pakfire install fping
> PAKFIRE RESV: fping: Resolving dependencies...
>=20
>=20
> PAKFIRE INFO: Packages to install:
> PAKFIRE INFO: fping 	 - 30.00 KB
>=20
> PAKFIRE INFO: Total size: 	 ~ 30.00 KB
>=20
> PAKFIRE INFO: Is this okay? [y/N]
> y
>=20
> Giving up: There was no chance to get the file "paks/fping-5.0-
> 6.ipfire" from any available server.
> There was an error on the way. Please fix it.
>=20
> PAKFIRE INST: fping: Decrypting...
>=20
> Giving up: There was no chance to get the file "paks/fping-5.0-
> 6.ipfire" from any available server.
> There was an error on the way. Please fix it.
> sh: line 1: /opt/pakfire/cache/fping-5.0-6.ipfire: No such file or
> directory
> tar: This does not look like a tar archive
> tar: Exiting with failure status due to previous errors
> ---
>=20
> AFTER: (clean error message, no attempted untar of non-existent file)
> ---
> [root(a)ipfire-test lists]# pakfire install fping
> PAKFIRE RESV: fping: Resolving dependencies...
>=20
>=20
> PAKFIRE INFO: Packages to install:
> PAKFIRE INFO: fping 	 - 30.00 KB
>=20
> PAKFIRE INFO: Total size: 	 ~ 30.00 KB
>=20
> PAKFIRE INFO: Is this okay? [y/N]
> y
>=20
> Giving up: There was no chance to get the file "paks/fping-5.0-
> 6.ipfire" from any available server.
> There was an error on the way. Please fix it.
> PAKFIRE ERROR: Unable to download fping.
> ---
>=20
> - Installing a package without meta-data already in cache:
>=20
> BEFORE:
> ---
> [root(a)ipfire-test lists]# pakfire install fping
>=20
> Giving up: There was no chance to get the file "meta/meta-fping" from
> any available server.
> There was an error on the way. Please fix it.
> PAKFIRE RESV: fping: Resolving dependencies...
>=20
>=20
> PAKFIRE INFO: Packages to install:
>=20
> Giving up: There was no chance to get the file "meta/meta-fping" from
> any available server.
> There was an error on the way. Please fix it.
> PAKFIRE INFO: fping 	 - 0.00 B
>=20
> Giving up: There was no chance to get the file "meta/meta-fping" from
> any available server.
> There was an error on the way. Please fix it.
>=20
> PAKFIRE INFO: Total size: 	 ~ 0.00 B
>=20
> PAKFIRE INFO: Is this okay? [y/N]
> y
>=20
> Giving up: There was no chance to get the file "meta/meta-fping" from
> any available server.
> There was an error on the way. Please fix it.
> No filename given in meta-file.
> ---
>=20
> --> Resulted in empty meta-file for package:
> [root(a)ipfire-test lists]# ls -lia /opt/pakfire/db/meta/meta-fping
> 24871 -rw-r--r-- 1 root root 0 Mar  6 21:52 /opt/pakfire/db/meta/meta-
> fping
>=20
> AFTER: (clean error without asking user to confirm installation which
> is already doomed to fail, or maybe possibly succeed if package is
> already in cache but without installing dependencies since meta-data is
> missing)
> ---
> [root(a)ipfire-test lists]# pakfire install fping
> PAKFIRE RESV: fping: Resolving dependencies...
>=20
> Giving up: There was no chance to get the file "meta/meta-fping" from
> any available server.
> There was an error on the way. Please fix it.
> PAKFIRE ERROR: Error retrieving dependency information on fping. Unable
> to resolve dependencies.
> ---
>=20
> --> no empty meta-file is generated:
> [root(a)ipfire-test lists]# ls -lia /opt/pakfire/db/meta/meta-fping
> ls: cannot access '/opt/pakfire/db/meta/meta-fping': No such file or
> directory
>=20
> - Install core upgrade without meta-data already cached:
>=20
> BEFORE:
> ---
> [root(a)ipfire-test lists]# pakfire upgrade
> CORE UPGR: Upgrading from release 164 to 165
>=20
> Giving up: There was no chance to get the file "meta/meta-core-upgrade-
> 165" from any available server.
> There was an error on the way. Please fix it.
> No filename given in meta-file.
> ---
>=20
> --> Resulted in empty meta-file for core:
> [root(a)ipfire-test lists]# ls -lia /opt/pakfire/db/meta/meta-core-
> upgrade-165
> 24855 -rw-r--r-- 1 root root 0 Mar  6 21:57 /opt/pakfire/db/meta/meta-
> core-upgrade-165
>=20
>=20
> AFTER: (clean error instead of 'no filename given..')
> ---
> [root(a)ipfire-test lists]# pakfire upgrade
> CORE UPGR: Upgrading from release 164 to 165
>=20
> Giving up: There was no chance to get the file "meta/meta-core-upgrade-
> 165" from any available server.
> There was an error on the way. Please fix it.
> PAKFIRE ERROR: Unable to retrieve core-upgrade-165 metadata.
> ---
>=20
> --> no empty meta-file for core
> [root(a)ipfire-test lists]# ls -lia /opt/pakfire/db/meta/meta-core-
> upgrade-165
> ls: cannot access '/opt/pakfire/db/meta/meta-core-upgrade-165': No such
> file or directory
>=20
> When unbound is started and internet is available, there is no
> difference to the user before or after the patch.
>=20
> Not sure if any of the above errors messages would reach the user when
> pakfire wui is used, but at least there is less chance that meta-files
> or list.db's are getting corrupted or empty.
I suspect that the error messages on the WUI are simplified.

I will retry the patch and look in the log file directly just to confirm that=
 I get the same as you did.

Regards,
Adolf.
>=20
>>
>> One thing I did notice with the current CU 165 is that after
>> installing
>> the selected addons the wui goes back to the original pakfire screen
>> and
>> does not show the addons having been installed in the right hand box.
>> If
>> I select the pakfire menu item again then the additional addons are
>> shown. It looks like the wui page is not being updated after the
>> addons
>> have been installed. Should I raise this as a bug or is this an
>> interim
>> status as CU 165 is still a work in progress.
>=20
> I see this behavior too in cu 165, both with original functions.pl and
> my patched version. So I don't think it is related with my changes.
>=20
> Regards
>=20
> Robin
>=20
>>
>> Regards,
>> Adolf.
>>>>> Best,
>>>>> -Michael
>>>>>
>>>>>> ---
>>>>>> src/pakfire/lib/functions.pl | 84 +++++++++++++++++++++------
>>>>>> ------
>>>>>> ---
>>>>>> 1 file changed, 49 insertions(+), 35 deletions(-)
>>>>>>
>>>>>> diff --git a/src/pakfire/lib/functions.pl
>>>>>> b/src/pakfire/lib/functions.pl
>>>>>> index d4e338f23..24c55fd4a 100644
>>>>>> --- a/src/pakfire/lib/functions.pl
>>>>>> +++ b/src/pakfire/lib/functions.pl
>>>>>> @@ -2,7 +2,7 @@
>>>>>> #############################################################
>>>>>> ######
>>>>>> ############
>>>>>> #
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> # IPFire.org - A linux based
>>>>>> firewall=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> -# Copyright (C) 2007-2021=C2=A0=C2=A0 IPFire Team
>>>>>> <info(a)ipfire.org>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> +# Copyright (C) 2007-2022=C2=A0=C2=A0 IPFire Team
>>>>>> <info(a)ipfire.org>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> #
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> # This program is free software: you can redistribute it
>>>>>> and/or
>>>>>> modify=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> # it under the terms of the GNU General Public License as
>>>>>> published
>>>>>> by=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #
>>>>>> @@ -206,7 +206,7 @@ sub fetchfile {
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ( $code eq "500" ) {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 m=
essage("Giving up: There was no
>>>>>> chance to
>>>>>> get the file \"$getfile\" from any available server.\nThere
>>>>>> was an
>>>>>> error on the way. Please fix it.");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 0;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ($response->is_success) {
>>>>>> @@ -226,7 +226,7 @@ sub fetchfile {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 logger("DOWNLOAD FINISHED:
>>>>>> $file");
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 $allok =3D 1;
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 0;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 1;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }=
 else {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 logger("DOWNLOAD ERROR:
>>>>>> Could not
>>>>>> open $Conf::tmpdir/$bfile for writing.");
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> @@ -235,7 +235,7 @@ sub fetchfile {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 message("DOWNLOAD ER=
ROR: There was no chance to get
>>>>>> the
>>>>>> file \"$getfile\" from any available server.\nMay be you
>>>>>> should run
>>>>>> \"pakfire update\" to get some new servers.");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 0;
>>>>>> }
>>>>>>
>>>>>> sub getmirrors {
>>>>>> @@ -256,9 +256,14 @@ sub getmirrors {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ("$force" eq "for=
ce") {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 fetchfile("$Conf::version/lists/server-
>>>>>> list.db",
>>>>>> "$Conf::mainserver");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 move("$Conf::cachedir/server-list.db",
>>>>>> "$Conf::dbdir/lists/server-list.db");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 if (fetchfile("$Conf::version/lists/server-
>>>>>> list.db", "$Conf::mainserver")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 move("$Conf::=
cachedir/server-
>>>>>> list.db",
>>>>>> "$Conf::dbdir/lists/server-list.db");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 } elsif (! -e "$Conf::dbdir/lists/server-
>>>>>> list.db" )
>>>>>> {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 # if we end u=
p with no server-list at
>>>>>> all,
>>>>>> return failure
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 0;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 1;
>>>>>> }
>>>>>>
>>>>>> sub getcoredb {
>>>>>> @@ -279,8 +284,9 @@ sub getcoredb {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ("$force" eq "for=
ce") {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 fetchfile("lists/core-list.db", "");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 move("$Conf::cachedir/core-list.db",
>>>>>> "$Conf::dbdir/lists/core-list.db");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 if (fetchfile("lists/core-list.db", "")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 move("$Conf::=
cachedir/core-list.db",
>>>>>> "$Conf::dbdir/lists/core-list.db");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> }
>>>>>>
>>>>>> @@ -318,15 +324,13 @@ sub selectmirror {
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ### Check if there i=
s a current server list and read
>>>>>> it.
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #=C2=A0=C2=A0 If the=
re is no list try to get one.
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my $count =3D 0;
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 while (!(open(FILE, "<$Conf::dbd=
ir/lists/server-
>>>>>> list.db"))
>>>>>> && ($count lt 5)) {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 $count++;
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 getmirrors("noforce");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ($count =3D=3D 5) {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 message("MIRROR ERROR: Could not find or
>>>>>> download a
>>>>>> server list");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 exit 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 unless (open(FILE, "<$Conf::dbdi=
r/lists/server-
>>>>>> list.db")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 unless (getmirrors("noforce")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 message("MIRR=
OR ERROR: Could not find
>>>>>> or
>>>>>> download a server list");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 exit 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> +
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my @lines =3D <FILE>;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 close(FILE);
>>>>>>
>>>>>> @@ -390,8 +394,13 @@ sub dbgetlist {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ("$force" eq "for=
ce") {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 fetchfile("lists/packages_list.db", "");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 move("$Conf::cachedir/packages_list.db",
>>>>>> "$Conf::dbdir/lists/packages_list.db");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 if (fetchfile("lists/packages_list.db", ""))
>>>>>> {
>>>>>> +
>>>>>> move("$Conf::cachedir/packages_list.db",
>>>>>> "$Conf::dbdir/lists/packages_list.db");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 } elsif ( -e
>>>>>> "$Conf::dbdir/lists/packages_list.db"
>>>>>> ) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 # If we end u=
p with no db file after
>>>>>> download error there
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 # is nothing =
more we can do here.
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 0;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 # Update the meta da=
tabase if new packages was in
>>>>>> the
>>>>>> package list
>>>>>> @@ -419,8 +428,7 @@ sub dbgetlist {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 @=
templine =3D split(/\;/,$prog);
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 i=
f (("$metadata{'Name'}" eq
>>>>>> "$templine[0]")
>>>>>> && ("$metadata{'Release'}" ne "$templine[2]")) {
>>>>>>                                 =20
>>>>>> move("$Conf::dbdir/meta/meta-
>>>>>> $metadata{'Name'}","$Conf::dbdir/meta/old_meta-
>>>>>> $metadata{'Name'}");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 fetchfile("meta/meta-
>>>>>> $metadata{'Name'}", "");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 move("$Conf::cachedir/meta-
>>>>>> $metadata{'Name'}", "$Conf::dbdir/meta/meta-
>>>>>> $metadata{'Name'}");
>>>>>> +
>>>>>> getmetafile($metadata{'Name'});
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> @@ -532,11 +540,14 @@ sub dblist {
>>>>>>
>>>>>> sub resolvedeps_one {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my $pak =3D shift;
>>>>>> -
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 getmetafile("$pak");
>>>>>> -
>>>>>> +
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 message("PAKFIRE RES=
V: $pak: Resolving
>>>>>> dependencies...");
>>>>>>
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 unless (getmetafile("$pak")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 message("PAKFIRE ERROR: Error retrieving
>>>>>> dependency
>>>>>> information on $pak. Unable to resolve dependencies.");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 exit 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 };
>>>>>> +
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my %metadata =3D
>>>>>> parsemetafile("$Conf::dbdir/meta/meta-
>>>>>> $pak");
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my @all;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my @deps =3D split(/=
 /, $metadata{'Dependencies'});
>>>>>> @@ -629,14 +640,10 @@ sub cleanup {
>>>>>>
>>>>>> sub getmetafile {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my $pak =3D shift;
>>>>>> -
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 unless ( -e "$Conf::dbdir/meta/m=
eta-$pak" ) {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 fetchfile("meta/meta-$pak", "");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 move("$Conf::cachedir/meta-$pak",
>>>>>> "$Conf::dbdir/meta/meta-$pak");
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> -
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ( -z "$Conf::dbdir/meta/meta-=
$pak" ) {
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 fetchfile("meta/meta-$pak", "");
>>>>>> +
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 # Try to download meta-file if w=
e don't have one yet,
>>>>>> or it
>>>>>> is empty for some reason
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 if ((! -e "$Conf::dbdir/meta/met=
a-$pak" ) || ( -z
>>>>>> "$Conf::dbdir/meta/meta-$pak" )) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 return 0 unless (fetchfile("meta/meta-$pak",
>>>>>> ""));
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 move("$Conf::cachedir/meta-$pak",
>>>>>> "$Conf::dbdir/meta/meta-$pak");
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>
>>>>>> @@ -651,6 +658,7 @@ sub getmetafile {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 print FILE $string;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 close(FILE);
>>>>>> +
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return 1;
>>>>>> }
>>>>>>
>>>>>> @@ -713,8 +721,11 @@ sub getpak {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my $pak =3D shift;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my $force =3D shift;
>>>>>>
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 getmetafile("$pak");
>>>>>> -
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 unless (getmetafile("$pak")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 message("PAKFIRE ERROR: Unable to retrieve
>>>>>> $pak
>>>>>> metadata.");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 exit 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> +
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my %metadata =3D
>>>>>> parsemetafile("$Conf::dbdir/meta/meta-
>>>>>> $pak");
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 my $file =3D $metada=
ta{'File'};
>>>>>>
>>>>>> @@ -728,8 +739,11 @@ sub getpak {
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 r=
eturn $file;
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>> -
>>>>>> -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 fetchfile("paks/$file", "");
>>>>>> +
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 unless (fetchfile("paks/$file", =
"")) {
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 message("PAKFIRE ERROR: Unable to download
>>>>>> $pak.");
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 exit 1;
>>>>>> +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 }
>>>>>>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 return $file;
>>>>>> }
>>>>>>
>>>>>> --=20
>>>>>> 2.34.1
>>>>>>
>>>>>>
>>>>>> --=20
>>>>>> Dit bericht is gescanned op virussen en andere gevaarlijke
>>>>>> inhoud door MailScanner en lijkt schoon te zijn.
>>>>>>
>>>>>
>>>> --=20
>>>> Dit bericht is gescanned op virussen en andere gevaarlijke
>>>> inhoud door MailScanner en lijkt schoon te zijn.
>>
>> --=20
>> Sent from my laptop
>>
>>
>=20

--===============3683324302673339530==--