| 記事No | ： 3485 |
| 投稿日 | ： 2008/04/25(Fri) 06:50:23 |
| タイトル | ： 【Joyful Note】 「New表示」と「レス間の線」 |
| ID情報 | ： tomo724 |
| 投稿者 | ： TOMO |
| URL | ： http://feelingart.info/surprise/joyful/joyful.cgi? |
Joyful Note を使用させていただいています。
過去ログを見ても分からなかったので、お分かりになられます方がいらっしゃいましたら、ご伝授願います。
１、新しい投稿があったときに、「New」の表示（24時間したら消える）を出したいのですが、どこをどう触ればいいのでしょうか？
２、スレッドのレスとレスの間にも線を入れるには、どこをどう触ればいいのでしょうか？
| 記事No | ： 3523 |
| 投稿日 | ： 2008/05/01(Thu) 04:04:04 |
| タイトル | ： Re: 【Joyful Note】 「New表示」と「レス間の線」 |
| ID情報 | ： hirayama |
| 投稿者 | ： 平山 |
レスとレスの間にも線を入れるのは、joiyful.cgiの194行目あたり
print "<div style=\"margin-left:22px; margin-top:5px;\"><hr size=\"1\">\n";
foreach $res ( split(/,/, $res{$_}) ) {
print "<b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
を
print "<div style=\"margin-left:22px; margin-top:5px;\">\n";
foreach $res ( split(/,/, $res{$_}) ) {
print "<hr size=\"1\"><b style=\"color:$subcol\">$sub{$res}</b> - <b>$nam{$res}</b> ";
のように変更すればいいと思います。
1の方は、Joyful Note のログがエポック時間のままじゃないので、ちょっと面倒ですね。
joiyful.cgiの最初の方に
use Time::Local;
と追加した上で、親記事の方は
my($y,$mon,$d) = split(/\//,substr($dat{$_},0,10));#年、月、日抜き出し
my($h,$min) = split(/:/,substr($dat{$_},-5));# 時、分抜き出し
my($epoc) = timelocal(0,$min,$h,$d,($mon-1),($y - 1900));#エポック時間算出
if (time - $epoc < 3600*24) {
# 24時間以内だったらnew表示
$new = qq(<span style="color:red;">new!</span> );
} else {
$new = '';
}
レス記事の方は、$dat{$_}を$dat{$res}に置き換えて
$newを好きなところに入れるということになると思います。