/
githubmirror
/
curl
Обзор
Документация
Войти
/
githubmirror
/
curl
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
tests/libtest/test307.pl
42 строки
1 KB
Viktor Szakats
perl: harden external command invocations
26 мар 2026, 16:20
26 мар 2026, 16:20
20914e3
Код
Авторство
О чём код?
#!/usr/bin/env perl #*************************************************************************** # _ _ ____ _ # Project ___| | | | _ \| | # / __| | | | |_) | | # | (__| |_| | _ <| |___ # \___|\___/|_| \_\_____| # # Copyright (C) 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. # # SPDX-License-Identifier: curl # ########################################################################### use strict; use warnings; # Determine if the given curl executable supports the 'openssl' SSL engine if($#ARGV != 0) { print "Usage: $0 curl-executable\n"; exit 3; } if(!open(CURL, '-|', $ARGV[0], '-s', '--engine', 'list')) { print "Cannot get SSL engine list\n"; exit 2; } while(<CURL>) { exit 0 if(/openssl/); } close CURL; print "openssl engine not supported\n"; exit 1;