mirror of
https://github.com/moparisthebest/curl
synced 2024-11-14 13:35:03 -05:00
265b14d6b3
Warning: this will make existing curl command lines that use metalink to stop working. Reasons for removal: 1. We've found several security problems and issues involving the metalink support in curl. The issues are not detailed here. When working on those, it become apparent to the team that several of the problems are due to the system design, metalink library API and what the metalink RFC says. They are very hard to fix on the curl side only. 2. The metalink usage with curl was only very briefly documented and was not following the "normal" curl usage pattern in several ways, making it surprising and non-intuitive which could lead to further security issues. 3. The metalink library was last updated 6 years ago and wasn't so active the years before that either. An unmaintained library means there's a security problem waiting to happen. This is probably reason enough. 4. Metalink requires an XML parsing library, which is complex code (even the smaller alternatives) and to this day often gets security updates. 5. Metalink is not a widely used curl feature. In the 2020 curl user survey, only 1.4% of the responders said that they'd are using it. In 2021 that number was 1.2%. Searching the web also show very few traces of it being used, even with other tools. 6. The torrent format and associated technology clearly won for downloading large files from multiple sources in parallel. Cloes #7176
73 lines
2.2 KiB
Perl
Executable File
73 lines
2.2 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
#***************************************************************************
|
|
# _ _ ____ _
|
|
# Project ___| | | | _ \| |
|
|
# / __| | | | |_) | |
|
|
# | (__| |_| | _ <| |___
|
|
# \___|\___/|_| \_\_____|
|
|
#
|
|
# Copyright (C) 1998 - 2021, Daniel Stenberg, <daniel@haxx.se>, et al.
|
|
#
|
|
# This software is licensed as described in the file COPYING, which
|
|
# you should have received as part of this distribution. The terms
|
|
# are also available at https://curl.se/docs/copyright.html.
|
|
#
|
|
# You may opt to use, copy, modify, merge, publish, distribute and/or sell
|
|
# copies of the Software, and permit persons to whom the Software is
|
|
# furnished to do so, under the terms of the COPYING file.
|
|
#
|
|
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
|
# KIND, either express or implied.
|
|
#
|
|
###########################################################################
|
|
# Determine if curl-config --protocols/--features matches the
|
|
# curl --version protocols/features
|
|
if ( $#ARGV != 2 )
|
|
{
|
|
print "Usage: $0 curl-config-script curl-version-output-file features|protocols\n";
|
|
exit 3;
|
|
}
|
|
|
|
my $what=$ARGV[2];
|
|
|
|
# Read the output of curl --version
|
|
my $curl_protocols="";
|
|
open(CURL, "$ARGV[1]") || die "Can't get curl $what list\n";
|
|
while( <CURL> )
|
|
{
|
|
$curl_protocols = lc($_) if ( /$what:/i );
|
|
}
|
|
close CURL;
|
|
|
|
$curl_protocols =~ s/\r//;
|
|
$curl_protocols =~ /\w+: (.*)$/;
|
|
@curl = split / /,$1;
|
|
|
|
# These features are not supported by curl-config
|
|
@curl = grep(!/^(Debug|TrackMemory|CharConv)$/i, @curl);
|
|
@curl = sort @curl;
|
|
|
|
# Read the output of curl-config
|
|
my @curl_config;
|
|
open(CURLCONFIG, "sh $ARGV[0] --$what|") || die "Can't get curl-config $what list\n";
|
|
while( <CURLCONFIG> )
|
|
{
|
|
chomp;
|
|
# ignore curl-config --features not in curl's feature list
|
|
push @curl_config, lc($_);
|
|
}
|
|
close CURLCONFIG;
|
|
|
|
@curl_config = sort @curl_config;
|
|
|
|
my $curlproto = join ' ', @curl;
|
|
my $curlconfigproto = join ' ', @curl_config;
|
|
|
|
my $different = $curlproto ne $curlconfigproto;
|
|
if ($different) {
|
|
print "Mismatch in $what lists:\n";
|
|
print "curl: $curlproto\n";
|
|
print "curl-config: $curlconfigproto\n";
|
|
}
|
|
exit $different;
|