#!/usr/bin/perl

require 'petit-ini.cgi';

&recent;

sub recent{

$image_entry = "$URLdata"."images/entry.png";
$image_com= "$URLdata"."images/com.png";

open (IN,"log/petit-recent.dat");
@log_data = <IN>;
close IN;

$count = @log_data;
print "Content-type: text/html\n\n";
print << "_JS";
document.write('<link href="$recent_style" rel="stylesheet" type="text/css" />');
document.write('<div id="recent-all">');
_JS

foreach $dat(@log_data){
$dat =~ s/\r//;
$dat =~ s/\n//;

@line = split(/<>/,$dat);	

$entry_url = "$server_d"."$line[2]/"."$line[3]/";
$com_url = "$URLdata"."a.cgi?"."$line[3]"."&$line[2]";

%TD=&get_date(0,$line[4]);
$time_d="$TD{hour}:$TD{min} \[$TD{mon}/$TD{day}\]";

if($line[6]){$URL = "<a href=\"$line[6]\" target=\"_blank\">$line[1]</a>"}
else{$URL = "$line[1]"}

print << "_JS";
document.write('<table  border="0" cellspacing="0" cellpadding="0" width="100%" class="recent-box">');
document.write('<tr>');
document.write('<td  class="recent-name "align="left" width="70%">$mark_recent$URL</td>');
document.write('<td  class="recent-time " nowrap>$time_d</td>');
document.write('<td align="right" width="15"><a href="$entry_url" target="_blank"><img src="$image_entry" border="0"></a></td>');
document.write('<td align="right" width="15">');
document.write('<a href="$com_url" target=_blank>');
document.write('<img src="$image_com" border="0"></a></td>');
document.write('</tr>');
document.write('</table>');
_JS
}

print << "_JS";
document.write('</div>');
_JS

}

#-----------------時刻------------------------------------
sub get_date {
	local($day_count)=shift;
	local($utime)=shift;
	if(!$utime){$utime=time;}
	local($sec,$min,$hour,$day,$mon,$year,%time);
	($time{sec},$time{min},$time{hour},$time{day},$time{mon},$time{year})
	=localtime($utime + $time_set + $day_count*24*60*60);
	$time{year}+=1900;
	$time{mon}++;
	#if($time{hour}<10){$time{hour}="0$time{hour}";}
	if($time{min}<10) {$time{min}="0$time{min}";}
	if($time{sec}<10) {$time{sec}="0$time{sec}";}
	$time{str}="$time{year}年$time{mon}月$time{day}日 $time{hour}時$time{min}分";
	return %time;
}

__END__