Я пытаюсь запустить уже существующее веб-приложение PERL на моем локальном сервере MAMP apache2, и у меня возникают проблемы с получением почтовых данных. Приложение использует cgi.pm, чтобы попытаться получить данные из $cgi->param, но параметр всегда пуст, даже когда отправляются должным образом отформатированные данные в формате x-www-form-urlencoded.
Кроме того, STDIN всегда пуст и выдает ошибку, если перед ним не указано \ *.
привет-мир-form.cgi:
#!/[localpath]/perl5/perlbrew/perls/perl-5.24.0/bin/perl -d
use strict;
use warnings;
print "Content-type: text/html\n\n";
print qq(
<!doctype html>
<html>
<body>
<form action=\"hello-world.cgi\" method=\"POST\">
<input type=\"text\" name=\"myparam\" />
<input type=\"submit\" value=\"submit post var\" />
</form>
</body>
</html>
);
привет-world.cgi:
#!/[localpath]/perlbrew/perls/perl-5.24.0/bin/perl -d
use strict;
use warnings;
use CGI;
my $q = CGI->new();
print "Content-type: text/html\n\n";
print "<p>key = " . $q->param('myparam') . "</p>\n"; #this is always empty
my @names = $q->param;
foreach my $name (@names) {
print "<p>$name = " . $q->param($name) . "</p>"; #this never runs
}
my $postdata = '';
my $in = \*STDIN;
my $bytes = read($in, $postdata, $ENV{'CONTENT_LENGTH'});
print "<p>postdata = $postdata</p>\n"; # postdata is empty
print "<p>content length = " . $ENV{'CONTENT_LENGTH'} . "</p>\n"; # this number seems correct
foreach my $key (keys %ENV) {
print "<p>$key --> $ENV{$key}</p>\n"; # nothing special here
}
httpd.conf:
...
LoadModule cgi_module modules/mod_cgi.so
LoadModule perl_module modules/mod_perl.so
...
ScriptAlias /cgi-bin/ "/[siteroot]/cgi-bin/"
Alias /perl/ "/Applications/MAMP/cgi-bin/"
<IfModule perl_module>
PerlModule ModPerl::Registry
<Location /perl>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
PerlOptions +ParseHeaders
Options +ExecCGI
</Location>
</IfModule>
Я использую PERL v5.24.0 через perlbrew с этими модулями:
> perlbrew list-modules
CGI
Date::Parse
Encode::Locale
HTML::Parser
HTML::Tagset
HTTP::Date
HTTP::Message
IO::HTML
LWP::MediaTypes
Perl
Sub::Uplevel
Test::Deep
Test::Needs
Test::NoWarnings
Test::Warn
Try::Tiny
URI
Есть идеи?