とほほラウンジで発言時に自動メールを送信するには
[上に]
[前に]
[次に]
タック
[E-Mail]
1999/11/07(日) 14:32:41
とほほラウンジで、発言がある毎にメールを管理者に送信したいのですが、ソースをどのように変えるといいでしょうか。
Aurai
[E-Mail]
1999/11/07(日) 23:24:04
>sub appendMessage
の中にある
> # 質問者にメールで知らせる
あたりのソースをいじってみましょう
タック
[E-Mail]
1999/11/08(月) 13:32:29
素人なのでとてつもない時間がかかりそう・・・。どなたか、実際に改造して使っているかたはいらっしゃらないでしょうか？(^_^;
みなみ
1999/11/08(月) 20:27:24
> 素人なのでとてつもない時間がかかりそう・・・。
そんなに難しくはないと思います。
wwwlng.cgiの「質問者にメールで知らせる」の部分を見ると、
"Reply-To:"があれば$mailto=メールアドレスとして
$mailtoが空でなければそこにメールを送る
…というようになっているようなので、
これを、
・自分のメールアドレスを送信先にする
・$mailtoが空でなければ送信先を追加する
・条件によらずメールを送るようにする
というようにすればいいはずです。
# sendmailの宛先を複数にする方法は
# ラウンジの検索で見つけられます。
タック
[E-Mail]
1999/11/09(火) 10:28:14
[[解決]]
みなみさんありがとうございます。「・・でなければ・・する」とかという記述もしたことがないので、今の知識では不可能です(^.^)。また、出直しできます。（一応解決・・・）
みなみ
1999/11/09(火) 16:18:33
それでは、以下の方法で試してみてください。
・「#グローバル変数」のあたりで、
「$mailme="管理者のメールアドレス"」と書いておく。
（「@」を「\@」とするのを忘れずに）
・「#質問者にメールで知らせる」を次のように書き換える。
（ここでは字下げに全角スペースを使っています。
実際は半角スペースかタブを使ってください）
==書き換え前==========
if ($mailto ne "") {
seek(IN, 0, 0);
$msg = "To: $mailto\n";
$msg .= "Subject: TwnLounge Report\n";
$msg .= "\n";
while (<IN>) {
（略。ここは書き換えなし）
}
&jcode'convert(*msg, "jis");
open(OUT, "| $g_sendmail $mailto");
print OUT $msg;
close(OUT);
}
==ここまで============
↓
==書き換え後==========
if ($mailto ne "") {
$report = $mailme.','.$mailto;
} else {
$report = $mailme;
}
seek(IN, 0, 0);
$msg = "To: $mailto\n";
$msg .= "Subject: TwnLounge Report\n";
$msg .= "\n";
while (<IN>) {
（略。ここは書き換えなし）
}
&jcode'convert(*msg, "jis");
open(OUT, "| $g_sendmail $report");
print OUT $msg;
close(OUT);
==ここまで============
一応テストしてみてうまくいきました。
# 私も「とほほのperl入門」を見ながら書いているくらいで
# 知識量は他の解答者様の足元にも及びません…。
みなみ
1999/11/09(火) 16:21:20
>「$mailme="管理者のメールアドレス"」と書いておく。
「$mailme="管理者のメールアドレス";」
です。
タック
[E-Mail]
1999/11/10(水) 07:42:24
[[解決]]
Internal Server Errorがでますが、ここまでわかれば、チェックする元気も出てきたので、いろいろやってみます。みなみさんありがとうございました。
みなみ
1999/11/10(水) 11:02:53
解決してるのにしつこくレスつけてすみません。
メールアドレスの「@」をエスケープしているか、
全角スペースを使っていないか、
括弧がきちんと対応しているか、
確認してみてください。
私が利用しているサーバでは、
http://www.coma.ais.ne.jp/~minami/test/wwwlng.txt
できちんと動いてくれたのですが。
タック
[E-Mail]
1999/11/10(水) 11:49:17
お言葉に甘えて再質問させてください。エラーは回復しましたが、管理者メールアドレスに送信されてこないです。グローバル変数の場所にはアドレスも入っており「\@」の処理もしています。
タック
[E-Mail]
1999/11/10(水) 12:12:33
（追伸） みなみさんのアドレスの分もダウンロードさせていただきテストしましたが、同様でした。
みなみ
1999/11/10(水) 12:45:29
あらら、どうしてでしょう…。
To:ヘッダが関係あるのでしょうか？
sendmailのことはよく知らないので、
どなたか詳しい方がこれをご覧になっていましたら
回答をお願いいたします。
代案として、
$mailme = "管理者のメールアドレス";
のかわりに
@report = "管理者のメールアドレス";
と書いておき、
前回書き換えた部分を
==ここから==================
if ($mailto ne "") {
push(@report,$mailto);
}
foreach $to (@report) {
seek(IN, 0, 0);
$msg = "To: $to\n";
$msg .= "Subject: TwnLounge Report\n";
$msg .= "\n";
while (<IN>) {
（略）
}
&jcode'convert(*msg, "jis");
open(OUT, "| $g_sendmail $to");
print OUT $msg;
close(OUT);
}
==ここまで==================
とするといいかもしれません。
タック
1999/11/10(水) 13:32:02
みなみさん、いろいろお手数をおかけしました。メールが届かないうんぬんはどうやら、私のところのメールのちょっと複雑な転送設定のためのようです。いろいろ試して、確かに２通届くのを確認しました。ありがとうございました。勉強になりました。
[上に]
[前に]
[次に]