はじめまして。Enzo と申します。

現在Postmail v3.3を使わせて頂いておりますが、セキュリティ対策の施されたものを使わせて頂きたいと思い、v4.1をDLしました。
その際、↓を参考に表記の事を設定したいのですが、何処をどのようにすればよいのでしょうか？

http://www.kent-web.com/support/old/64/0179.html

＊記事番号[8967]の未入力項目の非表示は設定できました。


お手数ですが、御指導の程お願い致します。
設置urlは下記の通りです。

現行postmail v.3.3
http://www.toyo-seitai.net/form/

新postmail v.4.1
http://www.toyo-seitai.net/form/form3/postmail.html

> はじめまして。Enzo と申します。
>
> 現在Postmail v3.3を使わせて頂いておりますが、セキュリティ対策の施されたものを使わせて頂きたいと思い、v4.1をDLしました。
> その際、↓を参考に表記の事を設定したいのですが、何処をどのようにすればよいのでしょうか？
>
> http://www.kent-web.com/support/old/64/0179.html
>
> ＊記事番号[8967]の未入力項目の非表示は設定できました。
>
>
> お手数ですが、御指導の程お願い致します。
> 設置urlは下記の通りです。
>
> 現行postmail v.3.3
> http://www.toyo-seitai.net/form/
>
> 新postmail v.4.1
> http://www.toyo-seitai.net/form/form3/postmail.html


v4.1で動作確認済みです。
postmail.cgi 312行目付近

# 入力チェック確認画面
if ($check || $max_flg) { &err_check; }

# E-Mail書式チェック
if ($in{'email'} =~ /\,/) {
&error("メールアドレスにコンマ ( , ) が含まれています");
}
if ($in{'email'} && $in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
&error("メールアドレスの書式が不正です");
}
#▼ここから▼
while (my($key, $val) = each(%in)) {
next unless($key =~ /^item_/);
if($key =~ /^item_(.+)/) {
my $i = $1;
$in{$i} = ''; my $cut;
$cut = $1 if($val =~ /cut:(.+)$/);
for my $j (@$i) {
last if ($j eq "cut:$cut");
$in{$i} .= "$in{$j}$cut";
undef $in{$j};
@key = grep { $j ne $_ } @key;
$in{'need'} = join(' ',grep { $j ne $_ } split(/\s/,$in{'need'}));
}
$in{$i} =~ s/$cut$// if($cut);
$in{'need'} .= " $i";
push(@key,$i);
undef $in{$key};
}
}
#▲ここまで▲
# プレビュー
if ($preview && $in{'mode'} ne "send") {


#-------------------------------------------------
# フォームデコード
#-------------------------------------------------
-- 途中省略 --
# 必須入力項目
if ($key =~ /^_(.+)/) {
$key = $1;
push(@need,$key);

if ($val eq "") { $check++; push(@err,$key); }
}
@{$1} = split(/\s/,$val) if($key =~ /^item_(.+)/); ## ←追加
$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val;
push(@key,$key) unless($key =~ /^item_(.+)/); ## ←追加
#push(@key,$key); ## ←コメントアウト

BAL 様

お忙しい中、動作確認までして頂きありがとうございます。
早速設定してみます。

ほんとうにありがとうございました。

>
> v4.1で動作確認済みです。
> postmail.cgi 312行目付近
>
> # 入力チェック確認画面
> if ($check || $max_flg) { &err_check; }
>
> # E-Mail書式チェック
> if ($in{'email'} =~ /\,/) {
> &error("メールアドレスにコンマ ( , ) が含まれています");
> }
> if ($in{'email'} && $in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
> &error("メールアドレスの書式が不正です");
> }
> #▼ここから▼
> while (my($key, $val) = each(%in)) {
> next unless($key =~ /^item_/);
> if($key =~ /^item_(.+)/) {
> my $i = $1;
> $in{$i} = ''; my $cut;
> $cut = $1 if($val =~ /cut:(.+)$/);
> for my $j (@$i) {
> last if ($j eq "cut:$cut");
> $in{$i} .= "$in{$j}$cut";
> undef $in{$j};
> @key = grep { $j ne $_ } @key;
> $in{'need'} = join(' ',grep { $j ne $_ } split(/\s/,$in{'need'}));
> }
> $in{$i} =~ s/$cut$// if($cut);
> $in{'need'} .= " $i";
> push(@key,$i);
> undef $in{$key};
> }
> }
> #▲ここまで▲
> # プレビュー
> if ($preview && $in{'mode'} ne "send") {
>
>
> #-------------------------------------------------
> # フォームデコード
> #-------------------------------------------------
> -- 途中省略 --
> # 必須入力項目
> if ($key =~ /^_(.+)/) {
> $key = $1;
> push(@need,$key);
>
> if ($val eq "") { $check++; push(@err,$key); }
> }
> @{$1} = split(/\s/,$val) if($key =~ /^item_(.+)/); ## ←追加
> $in{$key} .= "\0" if (defined($in{$key}));
> $in{$key} .= $val;
> push(@key,$key) unless($key =~ /^item_(.+)/); ## ←追加
> #push(@key,$key); ## ←コメントアウト

BAL 様

的確なアドバイスをありがとうございました。
期待通りの動きで、感動でした。

そこで、BAL 様にもう２つお伺いしたい事があります。

１）記事No ： 7348にあるようにメールの件名に投稿者の名前を記載する
方法

２）記事No ： 8541にあるようなbccの設定方法

厚かましいお願いなのですが、どうぞお願い致します。

> BAL 様
>
> 的確なアドバイスをありがとうございました。
> 期待通りの動きで、感動でした。
>
> そこで、BAL 様にもう２つお伺いしたい事があります。
>
> １）記事No ： 7348にあるようにメールの件名に投稿者の名前を記載する
> 方法
>
> ２）記事No ： 8541にあるようなbccの設定方法
>
> 厚かましいお願いなのですが、どうぞお願い致します。

質問内容が異なる場合は新規でスレッドを作成した方が好ましいのですが。


if ($in{'name'}) {
$from = &base64("\"$in{'name'}\"") . " <$email>";
} else {
$from = $email;
}
}
$name = &base64(" <$in{'name'} 様>"); ## ←追加
# 送信内容フォーマット化
$body = "To: $mailto\n";
$body .= "From: $from\n";
if ($cc_mail && $email) { $body .= "Cc: $email\n"; }
$body .= "Bcc: $bcc\n"; ## ←追加
$body .= "Subject: $subject2 $name\n"; ## ←修正
$body .= "MIME-Version: 1.0\n";
$body .= "Content-type: text/plain; charset=iso-2022-jp\n";
$body .= "Content-Transfer-Encoding: 7bit\n";
$body .= "Date: $date2\n";
$body .= "X-Mailer: $ver\n\n";
$body .= "$tbody\n";


基本設定に追加
$bcc = 'xxxxx@xxxxx';

BAL 様

> 質問内容が異なる場合は新規でスレッドを作成した方が好ましいのですが。

大変申し訳ございません。
Postmail v4.1 に関することなので同じスレッド内でもいいかなと・・・。

>
> if ($in{'name'}) {
> $from = &base64("\"$in{'name'}\"") . " <$email>";
> } else {
> $from = $email;
> }
> }
> $name = &base64(" <$in{'name'} 様>"); ## ←追加
> # 送信内容フォーマット化
> $body = "To: $mailto\n";
> $body .= "From: $from\n";
> if ($cc_mail && $email) { $body .= "Cc: $email\n"; }
> $body .= "Bcc: $bcc\n"; ## ←追加
> $body .= "Subject: $subject2 $name\n"; ## ←修正
> $body .= "MIME-Version: 1.0\n";
> $body .= "Content-type: text/plain; charset=iso-2022-jp\n";
> $body .= "Content-Transfer-Encoding: 7bit\n";
> $body .= "Date: $date2\n";
> $body .= "X-Mailer: $ver\n\n";
> $body .= "$tbody\n";
>
>
> 基本設定に追加
> $bcc = 'xxxxx@xxxxx';

-------------------------------------
446行目付近
# sendmail起動
を
$name = &base64(" <$in{'name'} 様>");
# sendmail起動
-------------------------------------
は下記
-------------------------------------------------
> $name = &base64(" <$in{'name'} 様>"); ## ←追加
> # 送信内容フォーマット化
-------------------------------------------------
で良かったのですか？

早速、設定します。

ありがとうございました。