| 記事No | ： 12419 |
| 投稿日 | ： 2013/10/29(Tue) 14:31:39 |
| タイトル | ： textareaで入力されて文字列の文頭・文末に文字列を挿入 |
| ID情報 | ： hirogan |
| 投稿者 | ： hirogan |
| URL | ： http://one-client.heteml.jp/iwaki-test/navi-quest/index.html |
いつもお世話になっております。
ご質問させて頂きます。
POSTMAILを使用しております。
その中で、<textarea>に入力された文章の文頭と文末に、文字列を挿入してメール送信実行をしたいと考えています。
なお、複数<textarea>が存在する為、それぞれ別々の文字列を挿入したいです。
入力確認画面は利用しません。
例：
【フォーム入力画面】
<textarea>に「これはテストです」と入力
【メール受信画面】
<挿入文字>これはテストです<挿入文字>
宜しくお願い致します。
| 記事No | ： 12424 |
| 投稿日 | ： 2013/10/30(Wed) 12:46:33 |
| タイトル | ： Re: textareaで入力されて文字列の文頭・文末に文字列を挿入 |
| ID情報 | ： kent |
| 投稿者 | ： KENT |
> いつもお世話になっております。
> ご質問させて頂きます。
>
> POSTMAILを使用しております。
> その中で、<textarea>に入力された文章の文頭と文末に、文字列を挿入してメール送信実行をしたいと考えています。
> なお、複数<textarea>が存在する為、それぞれ別々の文字列を挿入したいです。
> 入力確認画面は利用しません。
>
> 例：
> 【フォーム入力画面】
> <textarea>に「これはテストです」と入力
>
> 【メール受信画面】
> <挿入文字>これはテストです<挿入文字>
postmail.cgi側から見ると、どの項目が <textarea> かが分からないので、これは難しいでしょうね。
特定のname値から、それに対して前後に文字を挟むことはできると思います。
（例）name値「comment」の場合
previewサブルーチンのできるだけ上部の位置に記述
$$in{comment} = "[挿入文字]$$in{comment}[挿入文字]";
| 記事No | ： 12425 |
| 投稿日 | ： 2013/10/30(Wed) 13:13:14 |
| タイトル | ： Re^2: textareaで入力されて文字列の文頭・文末に文字列を挿入 |
| ID情報 | ： hirogan |
| 投稿者 | ： hirogan |
| URL | ： http://one-client.heteml.jp/iwaki-test/navi-quest/index.html |
> > いつもお世話になっております。
> > ご質問させて頂きます。
> >
> > POSTMAILを使用しております。
> > その中で、<textarea>に入力された文章の文頭と文末に、文字列を挿入してメール送信実行をしたいと考えています。
> > なお、複数<textarea>が存在する為、それぞれ別々の文字列を挿入したいです。
> > 入力確認画面は利用しません。
> >
> > 例：
> > 【フォーム入力画面】
> > <textarea>に「これはテストです」と入力
> >
> > 【メール受信画面】
> > <挿入文字>これはテストです<挿入文字>
>
> postmail.cgi側から見ると、どの項目が <textarea> かが分からないので、これは難しいでしょうね。
>
> 特定のname値から、それに対して前後に文字を挟むことはできると思います。
>
> （例）name値「comment」の場合
>
> previewサブルーチンのできるだけ上部の位置に記述
>
> $$in{comment} = "[挿入文字]$$in{comment}[挿入文字]";
ありがとうございます！
<textarea name="textarea01">にしてpostmail.cgiの下記に部分についかしましたが、
エラーになります。
Software error:
Unrecognized character \xE6 at postmail.cgi line 116, <DATA> line 855.
記述が間違っていますでしょうか？
宜しくお願い致します。
#-----------------------------------------------------------
# プレビュー
#-----------------------------------------------------------
sub preview {
$$in{textarea01} = "[挿入文字]$$in{textarea01}[挿入文字]";
# 送信内容チェック
&error("データを取得できません") if (@$key == 0);
# メール書式チェック
&check_email($$in{email}) if ($$in{email});
# 時間取得
my $time = time;
# セッション生成
my $ses = &make_ses($time);
# テンプレート読込
open(IN,"$cf{tmpldir}/conf.html") or &error("open err: conf.html");
my $tmpl = join('', <IN>);
close(IN);
# テンプレート分割
my ($head,$loop,$foot) = $tmpl =~ /(.+)<!-- cell_begin -->(.+)<!-- cell_end -->(.+)/s
? ($1,$2,$3) : &error("テンプレートが不正です");
# 引数
my $hidden;
$hidden .= qq|<input type="hidden" name="mode" value="send" />\n|;
$hidden .= qq|<input type="hidden" name="ses_id" value="$ses" />\n|;
# 項目
my ($bef,$item);
foreach my $key (@$key) {
next if ($bef eq $key);
next if ($key eq "x");
next if ($key eq "y");
next if ($key eq "need");
next if ($key eq "match");
next if ($$in{match} && $key eq $match2);
if ($key eq 'subject') {
$hidden .= qq|<input type="hidden" name="$key" value="$$in{subject}" />\n|;
next;
}
# 引数
check_key($key) if ($cf{check_key});
my $val = b64_encode($$in{$key});
$hidden .= qq|<input type="hidden" name="$key" value="$val" />\n|;
# 改行変換
$$in{$key} =~ s/\t/<br \/>/g;
my $tmp = $loop;
if (defined($cf{replace}->{$key})) {
$tmp =~ s/!key!/$cf{replace}->{$key}/;
} else {
$tmp =~ s/!key!/$key/;
}
$tmp =~ s/!val!/$$in{$key}/;
$item .= $tmp;
$bef = $key;
}
# 文字置換
for ( $head, $foot ) {
s/!mail_cgi!/$cf{mail_cgi}/g;
s/<!-- hidden -->/$hidden/g;
}
# 画面展開
print "Content-type: text/html; charset=utf-8\n\n";
print $head, $item;
# フッタ表示
&footer($foot);
}
| 記事No | ： 12428 |
| 投稿日 | ： 2013/10/30(Wed) 16:15:12 |
| タイトル | ： Re^3: textareaで入力されて文字列の文頭・文末に文字列を挿入 |
| ID情報 | ： kent |
| 投稿者 | ： KENT |
> ありがとうございます！
> <textarea name="textarea01">にしてpostmail.cgiの下記に部分についかしましたが、
> エラーになります。
>
> Software error:
> Unrecognized character \xE6 at postmail.cgi line 116, <DATA> line 855.
>
> 記述が間違っていますでしょうか？
> 宜しくお願い致します。
>
>
> #-----------------------------------------------------------
> # プレビュー
> #-----------------------------------------------------------
> sub preview {
>
> $$in{textarea01} = "[挿入文字]$$in{textarea01}[挿入文字]";
[挿入文字]のところは、実際に入れたい文字を入れてください。
| 記事No | ： 12431 |
| 投稿日 | ： 2013/10/30(Wed) 17:09:55 |
| タイトル | ： Re^4: textareaで入力されて文字列の文頭・文末に文字列を挿入 |
| ID情報 | ： hirogan |
| 投稿者 | ： hirogan |
| URL | ： http://one-client.heteml.jp/iwaki-test/navi-quest/index.html |
> > ありがとうございます！
> > <textarea name="textarea01">にしてpostmail.cgiの下記に部分についかしましたが、
> > エラーになります。
> >
> > Software error:
> > Unrecognized character \xE6 at postmail.cgi line 116, <DATA> line 855.
> >
> > 記述が間違っていますでしょうか？
> > 宜しくお願い致します。
> >
> >
> > #-----------------------------------------------------------
> > # プレビュー
> > #-----------------------------------------------------------
> > sub preview {
> >
> > $$in{textarea01} = "[挿入文字]$$in{textarea01}[挿入文字]";
>
> [挿入文字]のところは、実際に入れたい文字を入れてください。
| 記事No | ： 12433 |
| 投稿日 | ： 2013/10/30(Wed) 17:21:57 |
| タイトル | ： Re^5: textareaで入力されて文字列の文頭・文末に文字列を挿入 |
| ID情報 | ： hirogan |
| 投稿者 | ： hirogan |
| URL | ： http://one-client.heteml.jp/iwaki-test/navi-quest/index.html |
> > > ありがとうございます！
> > > <textarea name="textarea01">にしてpostmail.cgiの下記に部分についかしましたが、
> > > エラーになります。
> > >
> > > Software error:
> > > Unrecognized character \xE6 at postmail.cgi line 116, <DATA> line 855.
> > >
> > > 記述が間違っていますでしょうか？
> > > 宜しくお願い致します。
> > >
> > >
> > > #-----------------------------------------------------------
> > > # プレビュー
> > > #-----------------------------------------------------------
> > > sub preview {
> > >
> > > $$in{textarea01} = "[挿入文字]$$in{textarea01}[挿入文字]";
> >
> > [挿入文字]のところは、実際に入れたい文字を入れてください。
ありがとうございます！
無事できました！本当に感謝です！
今後ともよろしくお願い致します。