[devel] Re: Ликбез по Perl

From: Mikhail Zabaluev <mhz@alt-linux.org>
To: Devel-Sisyphus List <devel@altlinux.ru>
Subject: [devel] Re: Ликбез по Perl
Date: Mon, 15 Oct 2001 02:10:03 +0400
Message-ID: <20011015021002.A2321@localhost.localdomain> (raw)
In-Reply-To: <20011014205745.A319@home-pool4-120.com2com.ru>; from yznews@hotbox.ru on Sun, Oct 14, 2001 at 08:57:45PM +0400

Hello Yura,

On Sun, Oct 14, 2001 at 08:57:45PM +0400, Yura Zotov wrote:
>
> Подскажите, пожалуйста, кто может.
> 
> У меня есть перлина, которая должна создать файл  в каталоге
> /etc/ppp/peers. Однако, при попытке это сделать вываливается с
> сообщением
> 
> Insecure dependency in open while running with -T switch at
> ./pptp-command line 181, <STDIN> line 8.
> 
> 181 строчка выглядит так:
> open(PEER, ">$tunnel_dir/$name")
> 
> Насколько я понял, это из-за наличия при запуске Perl ключа -T.
> Без этого ключа программа работает как надо. Так вот, проясните,
> пожалуйста, смысл этого ключа -T. Где про него можно
> по-подробнее прочитать?

man perlsec

Грубо говоря, этот ключ вводит флаг "чистоты" на всех значениях. Все
данные, полученные извне программы или производные от них, считаются
"грязными" и не разрешены к использованию в чувствительных для
безопасности операциях, таких, как open. "Отмыть" данные можно
только одним способом -- подвергнуть разбору по регулярному выражению
и вычленить разобранные последовательности; предполагается, что при
этом должна происходить валидация значений.

-- 
Stay tuned,
  MhZ                                     JID: mookid@jabber.org
___________
Reality is for people who lack imagination.
_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel