| 記事No | ： 2433 |
| 投稿日 | ： 2007/12/24(Mon) 06:06:24 |
| タイトル | ： 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
| URL | ： http://biwa28.lolipop.jp/ |
cosmo naviの新着サイトの登録日と時間を表示させる方法を教えてください。よろしくお願いします。
| 記事No | ： 2436 |
| 投稿日 | ： 2007/12/24(Mon) 14:13:39 |
| タイトル | ： Re: 登録日と時間の表示 |
| ID情報 | ： fuyuki |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
> cosmo naviの新着サイトの登録日と時間を表示させる方法を教えてください。よろしくお願いします。
以下の修正を。
list.pl
#------------------------------------------------
# ■記事表示
#------------------------------------------------
sub mydata {
local($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco) = @_;
local(@posi) = split(/,/, $class[$cls1]);
my ($date,$mdate) = &get_time($tim) if ($mode eq "new"); ## ←追加
print "<hr><table width=\"100%\" class=\"site\" cellpadding=\"4\"><tr><td>";
print "<img src=\"$imgurl/list.gif\" valign=\"top\" alt=\"list\" width=\"9\" height=\"9\">\n";
print "<a href=\"$script?jump=$no\" target=\"$target\"><b>$sub</b></a> ";
# newアイコン
if ($now - $tim < $new_mark*24*3600) {
print "<img src=\"$imgurl/new.gif\" width=\"21\" height=\"11\" alt=\"新着\" align=\"top\">\n";
}
# 推薦マーク
if ($reco == 1) {
print "<img src=\"$imgurl/reco.gif\" width=\"42\" height=\"12\" alt=\"推薦\" align=\"top\"> ";
}
print "[ $posi[0] > $posi[$cls2] ] 管理者：<b>$nam</b> $date"; ## ←修正
print "</td></tr></table><br><div style=\"margin-left:20px\">$msg</div>\n";
| 記事No | ： 2446 |
| 投稿日 | ： 2007/12/25(Tue) 23:24:58 |
| タイトル | ： Re^2: 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
| URL | ： http://biwa28.lolipop.jp/ |
> > cosmo naviの新着サイトの登録日と時間を表示させる方法を教えてください。よろしくお願いします。
>
> 以下の修正を。
>
> list.pl
>
> #------------------------------------------------
> # ■記事表示
> #------------------------------------------------
> sub mydata {
> local($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco) = @_;
> local(@posi) = split(/,/, $class[$cls1]);
> my ($date,$mdate) = &get_time($tim) if ($mode eq "new"); ## ←追加
> print "<hr><table width=\"100%\" class=\"site\" cellpadding=\"4\"><tr><td>";
> print "<img src=\"$imgurl/list.gif\" valign=\"top\" alt=\"list\" width=\"9\" height=\"9\">\n";
> print "<a href=\"$script?jump=$no\" target=\"$target\"><b>$sub</b></a> ";
>
> # newアイコン
> if ($now - $tim < $new_mark*24*3600) {
> print "<img src=\"$imgurl/new.gif\" width=\"21\" height=\"11\" alt=\"新着\" align=\"top\">\n";
> }
> # 推薦マーク
> if ($reco == 1) {
> print "<img src=\"$imgurl/reco.gif\" width=\"42\" height=\"12\" alt=\"推薦\" align=\"top\"> ";
> }
>
> print "[ $posi[0] > $posi[$cls2] ] 管理者：<b>$nam</b> $date"; ## ←修正
> print "</td></tr></table><br><div style=\"margin-left:20px\">$msg</div>\n";
| 記事No | ： 2447 |
| 投稿日 | ： 2007/12/25(Tue) 23:30:12 |
| タイトル | ： Re^3: 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
| URL | ： http://biwa28.lolipop.jp/ |
BAlさん
navi.cgiのなかの記事表示を以下のように修正しましたが新着に日時は表示されません。どこか間違っているのでしょうか
> > #------------------------------------------------
> > # ■記事表示
> > #------------------------------------------------
> > sub mydata {
> > local($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco) = @_;
> > local(@posi) = split(/,/, $class[$cls1]);
> > my ($date,$mdate) = &get_time($tim) if ($mode eq "new"); ## ←追加
> > print "<hr><table width=\"100%\" class=\"site\" cellpadding=\"4\"><tr><td>";
> > print "<img src=\"$imgurl/list.gif\" valign=\"top\" alt=\"list\" width=\"9\" height=\"9\">\n";
> > print "<a href=\"$script?jump=$no\" target=\"$target\"><b>$sub</b></a> ";
> >
> > # newアイコン
> > if ($now - $tim < $new_mark*24*3600) {
> > print "<img src=\"$imgurl/new.gif\" width=\"21\" height=\"11\" alt=\"新着\" align=\"top\">\n";
> > }
> > # 推薦マーク
> > if ($reco == 1) {
> > print "<img src=\"$imgurl/reco.gif\" width=\"42\" height=\"12\" alt=\"推薦\" align=\"top\"> ";
> > }
> >
> > print "[ $posi[0] > $posi[$cls2] ] 管理者：<b>$nam</b> $date"; ## ←修正
> > print "</td></tr></table><br><div style=\"margin-left:20px\">$msg</div>\n";
| 記事No | ： 2460 |
| 投稿日 | ： 2007/12/27(Thu) 00:06:01 |
| タイトル | ： Re^4: 登録日と時間の表示 |
| ID情報 | ： fuyuki |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
２箇所の追加修正で作動することを確認済みです。バージョンが3.5でも同様です。
http://f43.aaa.livedoor.jp/~sumure/navi/navi.cgi
| 記事No | ： 2482 |
| 投稿日 | ： 2007/12/29(Sat) 15:52:57 |
| タイトル | ： Re^5: 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
> ２箇所の追加修正で作動することを確認済みです。バージョンが3.5でも同様です。
> http://f43.aaa.livedoor.jp/~sumure/navi/navi.cgi
| 記事No | ： 2483 |
| 投稿日 | ： 2007/12/29(Sat) 15:55:26 |
| タイトル | ： Re^6: 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
BALさん
my ($date,$mdate) = &get_time($tim) if ($mode eq "new"); ## ←追加
print "[ $posi[0] > $posi[$cls2] ] 管理者：<b>$nam</b> $date"; ## ←修正
##はなにか加えるのですか？
| 記事No | ： 2484 |
| 投稿日 | ： 2007/12/29(Sat) 17:22:59 |
| タイトル | ： Re^7: 登録日と時間の表示 |
| ID情報 | ： pachira |
| 投稿者 | ： pachira |
| URL | ： http://www5e.biglobe.ne.jp/~pachira/ |
> BALさん
> my ($date,$mdate) = &get_time($tim) if ($mode eq "new"); ## ←追加
>
> print "[ $posi[0] > $posi[$cls2] ] 管理者：<b>$nam</b> $date"; ## ←修正
>
> ##はなにか加えるのですか？
http://biwa28.lolipop.jp/navi28/navi.cgi
これかな？
（そもそも、最初に書くべき事なんですけど。）
500エラーでもなく改造が反映されている訳でもなく…
多分、凡ミスでしょうね。FTP系とか。
私も、BALさんの方法でちゃんと動作しましたよ。
| 記事No | ： 2485 |
| 投稿日 | ： 2007/12/29(Sat) 21:26:33 |
| タイトル | ： Re^8: 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
BALさん,pachiraさん
ありがとうございました。来年、自宅に帰ったらもう一度試してみます。
| 記事No | ： 2528 |
| 投稿日 | ： 2008/01/05(Sat) 06:34:43 |
| タイトル | ： Re^9: 登録日と時間の表示 |
| ID情報 | ： sasa23 |
| 投稿者 | ： ムック |
| URL | ： http://biwa28.lolipop.jp/ |
BALさん,pachiraさん
ありがとうございました。
昨日、家に帰ってきました。
早速、navi.cgiをftpでサーバーにアップしましたら
、希望のように日時が表示できました。ありがとうございました。