## Link & Rank (http://www.taitaistudio.com/cgi/linkrank.html)
## linkrank.cgiプログラム修正
## 2004年5月2日


# regist.cgiに不具合がありました。
# 新着サイトログファイルにログが延々とたまっていく不具合です。

 
# regist.cgiの上から118行目くらいからの


## 新着ログにも追加
#open(IN,"$new_log") || &error("ファイルを開けません >> $new_log","lock");
#@lines = <IN>;
#close(IN);
#
#unshift(@lines,"$in{'id'}<>$in{'cate'}<>$in{'tl'}<>$in{'url'}<>$in{'email'}<>$in{'msg'}<>$in{'bnr'}<>$date<>$times<>\n<>\n");
#open(OUT,">$new_log") || &error("ファイルを開けません &gt;&gt; $new_log","lock");
#print OUT @lines;
#close(OUT);


# の部分(実際には行頭に「#」はついていません。)を以下のように修正してください。コピー&ペーストでもOKです。


# 新着ログにも追加
open(IN,"$new_log") || &error("ファイルを開けません &gt;&gt; $new_log","lock");
@lines = <IN>;
close(IN);

@new_l = ();
for($nl=0;$nl<$new_max-1;$nl++) { push(@new_l,$lines[$nl]); }

unshift(@new_l,"$in{'id'}<>$in{'cate'}<>$in{'tl'}<>$in{'url'}<>$in{'email'}<>$in{'msg'}<>$in{'bnr'}<>$date<>$times<>\n");
open(OUT,">$new_log") || &error("ファイルを開けません &gt;&gt; $new_log","lock");
print OUT @new_l;
close(OUT);


# なお、現在のダウンロードファイルは修正済みです。





## この件に関するお問い合わせは
## http://www.taitaistudio.com/cgi-local/faq/treebbs.cgi
## または
## http://www.taitaistudio.com/inquire.html
## まで。
##
##
## 2004年5月2日
## taitai studio
## 管理人:taitai