openbsd/ports
1
0
Fork 0
mirror of https://github.com/openbsd/ports.git synced 2026-06-17 23:13:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

give more info in dist/bad.log:

Browse Source 
FIRST means this is the first site in the list
BACKUP means we're out of main sites, and if it fetches eventually, it
will be a backup site.
This commit is contained in:
espie
2023-09-07 11:50:46 +00:00
parent ac8847ce95
commit ca5026f2bd
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
infrastructure/lib/DPB/Job/Fetch.pm
+16 -4
View File
@@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Fetch.pm,v 1.29 2023/06/11 16:53:17 espie Exp $
# $OpenBSD: Fetch.pm,v 1.30 2023/09/07 11:50:46 espie Exp $
#
# Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org>
#
@@ -98,9 +98,12 @@ sub new($class, $job)
my $o;
if (@{$job->{sites}}) {
$o = bless { site => $job->{sites}[0]}, $class;
$job->{normal_site} = 1;
} elsif (@{$job->{bak}}) {
$o = bless { site => $job->{bak}[0]}, $class->backup_class;
$job->{normal_site} = 0;
}
$job->{first} = $job->{prefirst};
if (defined $o) {
my $sz = (stat $job->{file}->tempfilename)[7];
if (defined $sz) {
@@ -197,20 +200,28 @@ sub new_fetch_task($self)
sub next_site($self)
{
$self->{prefirst} = 0;
shift @{$self->{sites}} || shift @{$self->{bak}};
}
sub bad_file($job, $task, $core)
{
my $fh = $job->{file}->logger->append("fetch/bad");
print $fh $task->{site}.$job->{file}{short}, "\n";
print $fh $job->{file}->fullpkgpath, ": ",
$task->{site}.$job->{file}{short};
if ($job->{first}) {
print $fh " FIRST";
}
if ($job->new_fetch_task) {
$core->{status} = 0;
return 1;
} else {
$core->{status} = 1;
return 0;
}
if (!$job->{normal}) {
print $fh " BACKUP";
}
print $fh "\n";
return !$core->{status};
}
sub new_checksum_task($self, $fetcher, $status)
@@ -226,6 +237,7 @@ sub new($class, $file, $e, $fetcher, $logger)
sites => [@{$file->{site}// []}],
bak => [@{$fetcher->{state}{backup_sites}}],
file => $file,
prefirst => 1,
tasks => [],
endcode => $e,
fetcher => $fetcher,