| 記事No | ： 11947 |
| 投稿日 | ： 2013/06/04(Tue) 19:38:03 |
| タイトル | ： Topics Board で日付の他に曜日、時刻も表示させた |
| ID情報 | ： rofu |
| 投稿者 | ： 山中 |
| URL | ： http://www.kent-web.com/bbs/topics.html |
連続投稿申し訳ございません。
現行のプログラムだと、記事の更新日は、2013/6/4 と西暦と日付だけ表示されますが、
これを投稿フォームで送信ボタンをおした時の曜日、日時
例）
2013/06/03(Mon) 23:50:59
上記のように、曜日、時刻も表記するようにするにはどこ部分を修正すればよろしいでしょうか。
| 記事No | ： 11949 |
| 投稿日 | ： 2013/06/04(Tue) 20:11:15 |
| タイトル | ： Re: Topics Board で日付の他に曜日、時刻も表示させた |
| ID情報 | ： rofu |
| 投稿者 | ： 山中 |
| URL | ： http://www.kent-web.com/bbs/topics.html |
補足です。
送信ボタンを押した時のプログラムが複雑であった場合は、管理の「処理メニュー」内の新規記事作成ボタンを押したときに、投稿フォームの年月日に デフォルトで2013/06/03(Mon) 23:50:59
のようにすべてが入る形式でもよいです。
| 記事No | ： 11950 |
| 投稿日 | ： 2013/06/04(Tue) 20:49:59 |
| タイトル | ： Re^2: Topics Board で日付の他に曜日、時刻も表示させた |
| ID情報 | ： hamel |
| 投稿者 | ： Hamel |
| URL | ： http://drc3.news-site.net/script1/product.html |
> 補足です。
>
> 送信ボタンを押した時のプログラムが複雑であった場合は、管理の「処理メニュー」内の新規記事作成ボタンを押したときに、投稿フォームの年月日に デフォルトで2013/06/03(Mon) 23:50:59
> のようにすべてが入る形式でもよいです。
>
管理モードの投稿フォーム内に自動で表示される日時が記録されて
記事に反映するのだと思います。
admin.cgi内１０６行目あたり
# 新規投稿時は年月日を取得
my ($hidden,$md);
if ($in{data_new}) {
$ENV{TZ} = "JST-9";
my ($mday,$mon,$year) = (localtime(time))[3..5];
$date = sprintf("%04d/%02d/%02d", $year+1900,$mon+1,$mday);
↑を↓のように
# 新規投稿時は年月日を取得
my ($hidden,$md);
if ($in{data_new}) {
$ENV{TZ} = "JST-9";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);
# 日時のフォーマット
my @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",
$year+1900,$mon+1,$mday,$week[$wday],$hour,$min,$sec);
これでいかがでしょう？
※上記の変更以降から「2013/06/04(Tue) 20:38:55」のように表示されるはずです。それ以前の記事には反映されません。
| 記事No | ： 11954 |
| 投稿日 | ： 2013/06/05(Wed) 19:59:08 |
| タイトル | ： Re^3: Topics Board で日付の他に曜日、時刻も表示させた |
| ID情報 | ： rofu |
| 投稿者 | ： 山中 |
| URL | ： http://www.kent-web.com/bbs/topics.html |
Hamel様
お世話になっております。
下記の件、きちんと動作することができました！ありがとうございました。
> > 補足です。
> >
> > 送信ボタンを押した時のプログラムが複雑であった場合は、管理の「処理メニュー」内の新規記事作成ボタンを押したときに、投稿フォームの年月日に デフォルトで2013/06/03(Mon) 23:50:59
> > のようにすべてが入る形式でもよいです。
> >
>
> 管理モードの投稿フォーム内に自動で表示される日時が記録されて
> 記事に反映するのだと思います。
>
> admin.cgi内１０６行目あたり
>
> # 新規投稿時は年月日を取得
> my ($hidden,$md);
> if ($in{data_new}) {
> $ENV{TZ} = "JST-9";
> my ($mday,$mon,$year) = (localtime(time))[3..5];
> $date = sprintf("%04d/%02d/%02d", $year+1900,$mon+1,$mday);
>
> ↑を↓のように
> # 新規投稿時は年月日を取得
> my ($hidden,$md);
> if ($in{data_new}) {
> $ENV{TZ} = "JST-9";
> my ($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);
> # 日時のフォーマット
> my @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
> $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",
> $year+1900,$mon+1,$mday,$week[$wday],$hour,$min,$sec);
>
>
> これでいかがでしょう？
> ※上記の変更以降から「2013/06/04(Tue) 20:38:55」のように表示されるはずです。それ以前の記事には反映されません。
| 記事No | ： 11951 |
| 投稿日 | ： 2013/06/04(Tue) 21:09:11 |
| タイトル | ： Re^2: Topics Board で日付の他に曜日、時刻も表示させた |
| ID情報 | ： hirayama |
| 投稿者 | ： 平山 |
新記事作成の選択ボタンを押した日時が
投稿フォームに表示され、それがそのままログに保存されるという仕様なので、
希望通りにするなら、年月日フォームは無視して
送信ボタンを押した時の日時をログファイルに保存するように改造することになると思います。
具体的には、admin.cgiの430行目あたりを、
# 更新
unshift(@file,"$num<>$in{date}<>$in{sub}<>$in{comment}<>$e1<>$w1<>$h1<>$e2<>$w2<>$h2<>$e3<>$w3<>$h3<>$in{tag}<>$in{clip}<>$in{tube}<>\n");
↓
# 更新
my @wname = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
$in{date} = sprintf("%04d/%02d/%02d($wname[$wday])%02d:%02d:%02d", $year+1900,$mon+1,$mday,,$hour,$min,$sec);
unshift(@file,"$num<>$in{date}<>$in{sub}<>$in{comment}<>$e1<>$w1<>$h1<>$e2<>$w2<>$h2<>$e3<>$w3<>$h3<>$in{tag}<>$in{clip}<>$in{tube}<>\n");
| 記事No | ： 11953 |
| 投稿日 | ： 2013/06/05(Wed) 19:55:58 |
| タイトル | ： Re^3: Topics Board で日付の他に曜日、時刻も表示させた |
| ID情報 | ： rofu |
| 投稿者 | ： 山中 |
| URL | ： http://www.kent-web.com/bbs/topics.html |
平山様
お世話になります。
きちんと動作しました！ありがとうございました。
> 新記事作成の選択ボタンを押した日時が
> 投稿フォームに表示され、それがそのままログに保存されるという仕様なので、
> 希望通りにするなら、年月日フォームは無視して
> 送信ボタンを押した時の日時をログファイルに保存するように改造することになると思います。
> 具体的には、admin.cgiの430行目あたりを、
> # 更新
> unshift(@file,"$num<>$in{date}<>$in{sub}<>$in{comment}<>$e1<>$w1<>$h1<>$e2<>$w2<>$h2<>$e3<>$w3<>$h3<>$in{tag}<>$in{clip}<>$in{tube}<>\n");
>
> ↓
>
> # 更新
> my @wname = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
> my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
> $in{date} = sprintf("%04d/%02d/%02d($wname[$wday])%02d:%02d:%02d", $year+1900,$mon+1,$mday,,$hour,$min,$sec);
> unshift(@file,"$num<>$in{date}<>$in{sub}<>$in{comment}<>$e1<>$w1<>$h1<>$e2<>$w2<>$h2<>$e3<>$w3<>$h3<>$in{tag}<>$in{clip}<>$in{tube}<>\n");