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

質問

メールフォームからメール送信するページを作成したいのですが、
最初の方の
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 · ベストアンサー

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

お礼

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

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

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

回答No.3

taka451213

こんにちは。

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

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

お礼

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

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

回答No.1

taka451213

こんにちは。

「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 = '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;

補足

>「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;