Обсуждение статьи тематического каталога: Обработка HTML форм в CGI (perl html cgi web howto)Ссылка на текст статьи: http://www.opennet.me/base/dev/html_form2.txt.html
Просто чума!
Я раньше нтчего _такого_ не делал, а тут понадобилось - нашел эти слова на opennet и ВСЕ!
Спасибо Николаю.
Спасибки народу хоть что-то понял в этой белиберде :))
ok!
ГУРУ! Помогите, пож. По образцу статьи сделал скрипт поиска пользователя в домене.
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;
Мой респект автору за работу. Программированием занимался, а вот столкнулся с необходимостью склепать сайт - по части книги отзывов обломался.
ПХП и ЦЖИ вовсе не освоены. По крайней мере понятно, куда двигаться. Ясно, что весь код не совсем понятен, но из общих прнципов программирования попробуем осилить.Если верно понял, то зто и есть содержание файла script.cgi
111