package plugin::jikokuhyou::Jikokuhyou;
use strict;

sub new {
	my $class = shift;
	my $self = {};
	return bless $self,$class;
}

sub paragraph {
	my $self   = shift;
	my $wiki   = shift;
	my $source = shift;
	my  ($sec, $now_min, $now_hour,
	     $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
	my $buf = '';
	my $page = $wiki->get_page($source);
	if ($page eq ''){
	    return &Util::paragraph_error("Page($source) not found.");
	}
	my @lines = split("\n", $page);
	my $line = '';
	do {
	    $line = shift @lines;
	} while (!($line =~ /^,/));
	$buf .= "<table>\n";
	do {
	    if ($line =~ /^,(.+),(.+)/) {
		my $hour = $1;
		my $minutes = $2;
		$buf .= "<tr>";
		my $color;
		if ($hour == $now_hour) {
		    $color = "class=diff0";
		} elsif ($hour == $now_hour+1) {
		    $color = "class=diff1";
		} else {
		    if ($hour%2 == 0) {
			$color = "class=diff_";
		    } else {
			$color = "class=diff-";
		    }
		}
		$buf .= "<th $color>$hour</th> ";
		$buf .= "<td $color>";
		foreach my $m (split(' ', $minutes)) {
		    my $bold = 0;
		    my $us = 0;
		    if ($m =~/\*(.+)/) {
			$m = $1;
			$bold = 1;
		    }
		    my $now = $now_hour*60 + $now_min;
		    my $t = $hour*60 + $m;
		    if ( ($now <= $t) && ($t < $now + 30 )) {
			$us = 1;
		    }
		    $buf .= '<u>' if ($us == 1);
		    $buf .= '<b>' if ($bold == 1);
		    $buf .= $m;
		    $buf .= '</b>' if ($bold == 1);
		    $buf .= '</u>' if ($us == 1);
		    $buf .= ' ';
		}
		$buf .= "</td>";
		$buf .= "</tr>\n";
	    }
	    
	} while (($line = shift @lines) =~ /^,/);
	$buf .= "</table>\n";
	return $buf;
}
1;