ГУРУ! Помогите, пож. По образцу статьи сделал скрипт поиска пользователя в домене.
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;