The OpenNET Project / Index page

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



Индекс форумов
Составление сообщения

Исходное сообщение
"Обработка HTML форм в CGI (perl html cgi web howto)"
Отправлено Сергей куприн, 24-Июл-09 14:34 
ГУРУ! Помогите, пож. По образцу статьи сделал скрипт поиска пользователя в домене.
cat poisk.html
...
form METHOD="POST" ENCTYPE="multipart/form-data" action="../cgi-bin/poisk.cgi"
Введите фамилию  input type="text" name="name"
input type="submit"  value=" ok "
...

Программа ldap.pl работает сама по себе отлично. А вот в скрипте последняя выполненная команда
print $val;
дальше тишина.

#!/usr/bin/perl -w

########################################

$program="/usr/local/sbin/ldap.pl";

sub main::get_parameters {
     local (*in) = shift;
     local ($i, $key, $val);


read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
@in=split(/&/,$in);


foreach $i (0 .. $#in)  {
  $in[$i] =~ s/\+/ /g;
  ($key,$val)=split(/=/,$in[$i],2);
  $val=~s/%(..)/pack("c",hex($1))/ge;
  $in{$key} .= "\0" if (defined($in{$key}));
  $in{$key} .= $val;
        }
        print $val;
             return scalar(@in);
}1;


&get_parameters(*input);
        $userName=$input{'name'};
        $result= `$program cn=$userName`;
        print $result;

 

Ваше сообщение
Имя*:
EMail:
Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
  Введите код, изображенный на картинке: КОД
 
При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.



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

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