| 記事No | ： 107 |
| 投稿日 | ： 2007/04/05(Thu) 15:07:17 |
| タイトル | ： [Web Patio] 新着記事にNewやUpをつける |
| ID情報 | ： naruyosi |
| 投稿者 | ： なるよし |
| URL | ： http://w5.abcoroti.com/~nim/ |
なるよしと申します。今回は、WebPatioに新着記事にNewマークをつけようとし、下記のようにしました。
そのところ、ログ内○○年が12007などとおかしな値で表示されていました。なので、引き算はこんな感じであっているか、わからない部分もあります。
※（注意１）$dateは 2007/04/05 15:02:50 みたいに記事の更新時間が入っています。
（注意２）$newuptimesは○○秒という形で、何秒間までは表示するかの設定になっております。
--patio.cgi--indexview----------
：
：
else { $icon = 'fold1.gif'; }
print "<tr bgcolor=\"$col1\"><th bgcolor=\"$col2\">";
local $date2 = $date;
local($date_a,$date_b) = (/ /, $date2);
local($year2,$mon2,$day2) = (/\//, $date_a);
local($hour2,$min2,$sec2) = (/:/, $date_b);
$ENV{'TZ'} = "JST-9";
local($time) = time;
local($sec,$min,$hour,$mday,$mon,$year) = (localtime($time))[0..5];
#$year = $year + 1900;
#$mon = $mon + 1;
$fyear = $year - $year2;
$fmon = $mon - $mon2;
local$fday = $day - $day2;
local$fday = $fday * 24 * 60 * 60;
local$fhour = $hour - $hour2;
local$fhour = $fhour * 60 * 60;
local$fmin = $min - $min2;
local$fmin = $fmin * 60;
local$fsec = $sec - $sec2;
local$ftimes = $fday + $fhour + $fmin + $fsec;
print "<font size=1 color=red>New</font><br>" if ($ftimes => $newuptime);
print "<img src=\"$imgurl/$icon\"></th>";
print "<td bgcolor=\"$col2\" width=\"70%\">";
：
：
--------------------------------
Kentさんオリジナルと内容が変わっておりますが、基本的には同じログになっております。
また、上記より簡単に組める場合はアドバイスなどいただけるとうれしいです。
| 記事No | ： 111 |
| 投稿日 | ： 2007/04/05(Thu) 16:05:38 |
| タイトル | ： Re: [Web Patio] 新着記事にNewやUpをつける |
| ID情報 | ： tems |
| 投稿者 | ： BAL |
| URL | ： http://f43.aaa.livedoor.jp/~sumure/ |
> なるよしと申します。今回は、WebPatioに新着記事にNewマークをつけようとし、下記のようにしました。
> そのところ、ログ内○○年が12007などとおかしな値で表示されていました。なので、引き算はこんな感じであっているか、わからない部分もあります。
> ※（注意１）$dateは 2007/04/05 15:02:50 みたいに記事の更新時間が入っています。
> （注意２）$newuptimesは○○秒という形で、何秒間までは表示するかの設定になっております。
> Kentさんオリジナルと内容が変わっておりますが、基本的には同じログになっております。
> また、上記より簡単に組める場合はアドバイスなどいただけるとうれしいです。
過去ログは「宝の山」。スクリプトを再配布されるのでしたら自力で解決出来なければ。。。
http://www.kent-web.com/support/old/62/0594.html
| 記事No | ： 114 |
| 投稿日 | ： 2007/04/05(Thu) 17:36:32 |
| タイトル | ： Re^2: [Web Patio] 新着記事にNewやUpをつける |
| ID情報 | ： naruyosi |
| 投稿者 | ： なるよし |
| URL | ： http://w5.abcoroti.com/~nim/ |
> 過去ログは「宝の山」。スクリプトを再配布されるのでしたら自力で解決出来なければ。。。
> http://www.kent-web.com/support/old/62/0594.html
ありがとうございます。
古い掲示板の方も検索できたのですね。本当にありがとうございます。
自分の無力さがよくわかりました。やっぱり、難しい文法とか扱えてないと思うので、今回の件からもっとPerlができるように頑張りたいと思います。
本当にありがとうございました。