メールフォームからメール送信するページを作成したいのですが、

解決済

質問者：asakichi00
質問日時：2010/08/31 15:28
回答数：3件

メールフォームからメール送信するページを作成したいのですが、
最初の方の
require 'perl-lib.pl';
の所で、処理が止まってしまいます。

#↓=======================================
#!c:/Perl/bin/perl
print "Content-type: text/html\n\n";
require "cgi-lib.pl";
require "jcode.pl";
require "perl-lib.pl"; # ←ここでとまる。
　：

#↑=======================================

サーバは、社内のWebサーバです。
サーバの環境は、
・OS：WindowsXP
・サーバソフト：Apache HTTP Server 2.0.54
・ActivePerl 5.8.7 Build 813
です。

perl-lib.plの保存先フォルダを変えてもダメでした。
（もちろん、その際、requireのパスも変更）

perl-lib.plは、クライアントからアスキーモードでアップロードしました。
パーミッションは777です。ｌ
perl-lib.plは、
http://www.tryhp.net/perllib.htm
よりダウンロードしました。

原因が分からず行き詰っております。
どのようなことが考えられるでしょうか。
どなたかご存知の方、ご教授願います。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.1

回答者： taka451213
回答日時：2010/08/31 17:55

こんにちは。

「perl-lib.pl」の中でrequireしているものがないとか・・・？

この回答への補足

>「perl-lib.pl」の中でrequireしているものがないとか・・・？

よくわかりませんが、
メールフォーム作成のソースをそのままコピペしただけなのですが。

#!/usr/local/bin/perl
require 'jcode.pl';
require 'perl-lib.pl';
$sendmail = '/usr/lib/sendmail';
$uuencode = '/usr/bin/uuencode';
readparts('QUERY', '<>=', 'sjis');
$subject = 'ありがとうございました';
$master = '（メルアド）';
$body = 'ご登録ありがとうございました。';
$body .= '今後ともよろしくお願いします。';
&jcode'convert(*subject,'jis');
&jcode'convert(*body,'jis');
$err = (send_email($sendmail,$uuencode,$subject,$master,$QUERY{'email'},'','',$body,'',''));
$err && &error_view($err);
html_head('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',0,0,'');
print "<center>\n";
print "<table border=1><tr><td bgxolor=#FFFFAA><font size=2>\n";
print $body;
print "</font></td></tr></table>\n";
print "</center>\n";
print "</body></html>\n";
exit;

補足日時：2010/09/01 12:34

通報する

- 0
- 件

通報する

この回答へのお礼

>「perl-lib.pl」の中でrequireしているものがないとか・・・？

よくわかりませんが、
メールフォーム作成のソースをそのままコピペしただけなのですが。

#!/usr/local/bin/perl
require 'jcode.pl';
require 'perl-lib.pl';
$sendmail = '/usr/lib/sendmail';
$uuencode = '/usr/bin/uuencode';
readparts('QUERY', '<>=', 'sjis');
$subject = 'ありがとうございました';
$master = 'info@trythehomepage.com';
$body = 'ご登録ありがとうございました。';
$body .= '今後ともよろしくお願いします。';
&jcode'convert(*subject,'jis');
&jcode'convert(*body,'jis');
$err = (send_email($sendmail,$uuencode,$subject,$master,$QUERY{'email'},'','',$body,'',''));
$err && &error_view($err);
html_head('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',0,0,'');
print "<center>\n";
print "<table border=1><tr><td bgxolor=#FFFFAA><font size=2>\n";
print $body;
print "</font></td></tr></table>\n";
print "</center>\n";
print "</body></html>\n";
exit;