| 記事No | ： 13644 |
| 投稿日 | ： 2015/01/13(Tue) 22:11:31 |
| タイトル | ： 最新版でのpostmail通し番号設置について |
| ID情報 | ： kan0000 |
| 投稿者 | ： KAN |
| URL | ： http://nobel-leather.jp/postmail/check.cgi |
先ほどcheck.cgiの件でお世話になった者です。
無事出来まして、感謝しております！
ありがとうございました。
もう一つだけお教えいただけますでしょうか？
過去記事No3057やNo2969を参考にしながら、
通し番号・自動連番できるよう、postmail.cgiをいじっているのですが、
行や書き方が最新バージョンと違うのもあり、ソフトウエアエラーが出てしまうのです（汗）
本文中に、6桁の番号が受信順に付加されるようなものを作れればと思っております。
【受付番号】[No.000000]といったイメージです。
みなさま、お忙しいとは思いますが、
お時間あります時に、ご教授いただければと思います。
何卒よろしくお願いいたしますm(_ _)m
| 記事No | ： 13645 |
| 投稿日 | ： 2015/01/14(Wed) 09:45:55 |
| タイトル | ： Re: 最新版でのpostmail通し番号設置について |
| ID情報 | ： hirayama |
| 投稿者 | ： hirayama |
| URL | ： http://shade-search.com/sts/fsw/wiki.cgi |
一案です。
mail.txtに
▼送信内容
------------------------------------------------------------
!count!
!message!
のように!count!を追加します。
postmail.cgiの252行目あたり
$mail =~ s/!host!/$host/g;
の下に
my $count = '【受付番号】[No.' . sprintf("%06d",(stat('./count.dat'))[7]) . ']';
$mail =~ s/!count!/$count/g;
と追加します。
さらにその下
# 本文送信
open(MAIL,"| $scmd") or error("メール送信失敗");
print MAIL "$body\n";
close(MAIL);
の下あたりに
open(COUNT,">>./count.dat");
print COUNT "1";
close(COUNT);
を追加します。
| 記事No | ： 13649 |
| 投稿日 | ： 2015/01/14(Wed) 22:19:21 |
| タイトル | ： Re^2: 最新版でのpostmail通し番号設置について |
| ID情報 | ： kan0000 |
| 投稿者 | ： KAN |
| URL | ： http://nobel-leather.jp/postmail/check.cgi |
> 一案です。
> mail.txtに
>
> ▼送信内容
> ------------------------------------------------------------
> !count!
> !message!
>
> のように!count!を追加します。
>
> postmail.cgiの252行目あたり
>
> $mail =~ s/!host!/$host/g;
> の下に
>
> my $count = '【受付番号】[No.' . sprintf("%06d",(stat('./count.dat'))[7]) . ']';
> $mail =~ s/!count!/$count/g;
>
> と追加します。
>
> さらにその下
>
> # 本文送信
> open(MAIL,"| $scmd") or error("メール送信失敗");
> print MAIL "$body\n";
> close(MAIL);
>
> の下あたりに
>
> open(COUNT,">>./count.dat");
> print COUNT "1";
> close(COUNT);
>
> を追加します。
hirayama様、ご返信遅くなりまして申し訳ありませんm(_ _)m
ご指示通りにしたところ、表示されました！
ありがとうございます。
本当に感謝しております。
ちなみにreply.txtにも受付番号を表示したくて、
!count!を入れてみたのですが、
!count!のままになってしまいました。
こちらにも同じ通し番号を入れてきたいのですが、
お教えいただいてもよろしいですか（汗）
素人が手を出すのは難しすぎましたが、
お力をお借りして、ぜひ完成させたいです。
お時間あります時に、ご教授お願いいたしますm(_ _)m
| 記事No | ： 13651 |
| 投稿日 | ： 2015/01/15(Thu) 00:59:05 |
| タイトル | ： Re^3: 最新版でのpostmail通し番号設置について |
| ID情報 | ： hirayama |
| 投稿者 | ： hirayama |
| URL | ： http://shade-search.com/sts/fsw/wiki.cgi |
編集したことによって
postmail.cgiの269行目あたりになっているかと思いますが、
# 変数変換
$reply =~ s/!date!/$date1/g;
の下に
$reply =~ s/!count!/$count/g;
を追加すればいいと思います。
| 記事No | ： 13652 |
| 投稿日 | ： 2015/01/15(Thu) 13:27:10 |
| タイトル | ： Re^4: 最新版でのpostmail通し番号設置について |
| ID情報 | ： kan0000 |
| 投稿者 | ： KAN |
| URL | ： http://nobel-leather.jp/postmail/check.cgi |
hirayama様、お忙しいところ、ご教授いただき、
ありがとうございました。
両方のメールに番号が表示されるようになりました！
本当に助かりました。
もう一つだけ改良してみたいのですが、お聞きしてもよろしいでしょうか？
[No.000000]を[No.150000]と
最初の二桁を任意の数字に変えることは出来るのでしょうか？
000001始まりですと、少々恥ずかしく思いまして（汗）。。。
これ以上の贅沢は申しません。
お忙しいところ、大変恐縮ですが、
何卒よろしくお願いいたしますm(_ _)m
| 記事No | ： 13653 |
| 投稿日 | ： 2015/01/15(Thu) 16:49:42 |
| タイトル | ： Re^5: 最新版でのpostmail通し番号設置について |
| ID情報 | ： hirayama |
| 投稿者 | ： hirayama |
my $count = '【受付番号】 [No.' . sprintf("%06d",(stat('./count.dat'))[7]) . ']';
の行 を
my $count = '【受付番号】 [No.' . sprintf("%06d",150000 + (stat('./count.dat'))[7]) . ']';
とすればいいと思います。
| 記事No | ： 13654 |
| 投稿日 | ： 2015/01/15(Thu) 17:34:57 |
| タイトル | ： Re^6: 最新版でのpostmail通し番号設置について |
| ID情報 | ： kan0000 |
| 投稿者 | ： KAN |
| URL | ： http://nobel-leather.jp/postmail/check.cgi |
hirayama様、
何度もお付き合いいただきまして、ありがとうございます。
ご指示通りにしたところ、イメージ通りにすることができました。
本当にありがとうございましたm(_ _)m
心からお礼申し上げます！