" if $html;
print "Debian is distributed (";
print $html ? "mirrored" : "mirrored";
print ") on hundreds of servers on the Internet.\n";
print < " if $html;
print <
END
} else {
print <
" if $html;
print "\n";
print <
" if $html;
print "\n";
print <
" if $html;
print "\n";
}
sub primary_mirrors {
my $format = shift;
die "must get format for primary_mirrors()" unless $format;
my $html = 1 if ($format eq 'html');
my $text = 1 if ($format eq 'text');
my $wml = 1 if ($format eq 'wml');
my %primaries = ();
if ($html) {
print <
\n" if ($html);
}
# meant to be output into a file which is then included into a .wml file
# and processed by WML
sub primary_mirror_sponsors {
print <
END
} elsif ($text) {
print <Country
Site
Architectures
$countryplain
$mirror[$id]{site}$mirror[$id]{method}{'archive-http'}
$arches
END
} elsif ($text) {
printf " %-14s %-20s %-14s %s\n", $countryplain, $mirror[$id]{site}, $mirror[$id]{method}{'archive-http'}, $arches;
} elsif ($wml) {
# this creates a hash of with keys like \$country
\$countrysite\$elems[0]
\$elems[1]
EOM
}
}
EOF
}
print "<${countrycode}c>
$mirror[$id]{site}
END
if (exists $mirror[$id]{includes}) {
my $numsubsites = @{ $mirror[$id]{includes} };
my $snum = 0;
foreach my $subsite (@{ $mirror[$id]{includes} }) {
# XXX Note this is a little bit wrong; if there is more than one id
# for a subsite, it just takes the first one. This problem
# could occur if a subsite begins mirroring some other arch,
# like amd64.
my $subsite_id;
foreach my $mid (0..$#mirror) {
if ($mirror[$mid]{site} eq $subsite) {
$subsite_id=$mid;
last;
}
}
die "can't find $subsite, wtf?!" unless defined $subsite_id; # must be an error
die "can't find sponsor for $subsite, wtf?!" unless defined $mirror[$subsite_id]{sponsor}; # must be an error
my $numsponsors = @{ $mirror[$subsite_id]{sponsor} };
my $num = 0;
my ($sponsorname, $sponsorurl);
foreach my $sponsor (@{ $mirror[$subsite_id]{sponsor} }) {
if ($sponsor =~ /^(.+) (https?:.*)$/) {
$sponsorname = $1;
$sponsorurl = $2;
} else {
warn "can't find sponsor URL for sponsor $sponsor of $subsite";
$sponsorname = $sponsor;
}
encode_entities($sponsorname, $encode);
if ($sponsorurl) {
print "$sponsorname";
} else {
print "$sponsorname";
}
$num++;
print ", " unless ($num >= $numsponsors);
}
$snum++;
print ", " unless ($snum >= $numsubsites);
}
} else {
die "$mirror[$id]{site} has no sponsor\n" unless exists $mirror[$id]{sponsor}; # must be an error
my $numsponsors = @{ $mirror[$id]{sponsor} };
my $num = 0;
my ($sponsorname, $sponsorurl);
foreach my $sponsor (@{ $mirror[$id]{sponsor} }) {
if ($sponsor =~ /^(.+) (http:.*)$/) {
$sponsorname = $1;
$sponsorurl = $2;
} else {
warn "can't find sponsor URL for sponsor $sponsor of $mirror[$id]{site}";
$sponsorname = $sponsor;
}
encode_entities($sponsorname, $encode);
if ($sponsorurl) {
print "$sponsorname";
} else {
print "$sponsorname";
}
$num++;
print ", " unless ($num >= $numsponsors);
}
}
print < ${countrycode} <${countrycode}c>
$mirror[$id]{site}
END
if (exists $mirror[$id]{'included-in'}) {
print "
(";
print join (", ", @{ $mirror[$id]{'included-in'} });
print ")";
}
print <
END
my $numsponsors = @{ $mirror[$id]{sponsor} };
my $num = 0;
my ($sponsorname, $sponsorurl);
foreach my $sponsor (@{ $mirror[$id]{sponsor} }) {
if ($sponsor =~ /^(.+) (https?:.*)$/) {
$sponsorname = $1;
$sponsorurl = $2;
} else {
warn "can't find sponsor URL for sponsor $sponsor of $mirror[$id]{site}";
$sponsorname = $sponsor;
}
encode_entities($sponsorname, $encode);
if ($sponsorurl) {
print "$sponsorname";
} else {
print "$sponsorname";
}
$num++;
print ",\n" unless ($num >= $numsponsors);
}
print "\n";
print < \n";
foreach $line (sort langcmp @cdmirrors)
{
print "
\n";