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

メールフォームからメール送信するページを作成したいのですが、
最初の方の
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
よりダウンロードしました。


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

No.2 ベストアンサー 回答者： YkazubonY 回答日時： 2010/09/01 15:30

perl-lib.plの中に、

require 'Jcode.pm';
の記述があるので、これをコメントにしてみたらどうでしょう。

この回答へのお礼

ご回答、誠にありがとうございます。

>これをコメントにしてみたらどうでしょう。

ご指摘のとおり、対応してみたら、解消しました。
基本的な質問で、誠に申し訳ございませんでした。
ありがとうございました。

お礼日時：2010/09/01 16:28

No.3 回答者： taka451213 回答日時： 2010/09/01 16:01

こんにちは。

＞よくわかりませんが、
なんでわからん？？？

「perl-lib.pl」のソース見たら、useしたりrequireしたりしてるでしょ？？？
ここのパスがおかしいとか、そういう事ではないんですか？
という回答なんですが？？？

この回答へのお礼

>>>なんでわからん？？？

わからんから、わからん言うとんねん。

お礼日時：2010/09/01 16:25

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

この回答へのお礼

>「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 = '[e-mail]';
$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 06:42