The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"suidperl - как исправить ошибку?"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"suidperl - как исправить ошибку?"
Сообщение от Дима emailИскать по авторуВ закладки on 13-Авг-03, 17:56  (MSK)
Почему у меня вылетает такое?
Insecure dependency in system while running setuid at ./3.pl line 9.

Так и не дошло как исправить простейший скрипт! Ткните носом пожалуйста.

Простейший скрипт:

#!/usr/bin/suidperl
use CGI qw(:all);

$ENV{'PATH'}='/bin:/sbin:/usr/bin:/usr/sbin';

$a=$ARGV[0];
$b=$ARGV[1];
system "/usr/bin/htpasswd -b /usr/local/squid/etc/passwd $a $b";

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "suidperl - как исправить ошибку?"
Сообщение от Parish Искать по авторуВ закладки on 13-Авг-03, 22:48  (MSK)
и правильно делает, ты бы еще system "$ARGV[1]" написал
  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру