iMode用の月別ログを作る。「Modeによって何がしたいのかを判定＆実行」の下の方の
「}elsif( ($arg eq "UserCustom") && $Admin ){if( !$f_mkns ){」の行の上に、

 }elsif( $arg eq "Monthi" ){
	&PutiMonthList();

を追加。

------------------------------------

iMode用の月別ログを表示するサブルーチンを適当な場所に追加。

sub PutiMonthList
{
	my($yr, $mn);
	local($mdstr);
	my($opt, $ctgl,$sts, $mtag);

	$ctgl="\?ctg=$ctg" if( $ctg );
	&nickyGetHead();
	$iHead = &put_macro($iHead);
	$sts=&ReqJcode();
	&jcode'euc2sjis(\$iHead) if( $sts );
	&jcode'euc2sjis(\$TLmonth);
	&jcode'euc2sjis(\$TLyear);
	print $iHead;
	print "<hr>\n";
	if( $TitleListSort eq "UP" ){
		$opt="r";
	}else{
		$opt="tr";
	}
	@nli=&GetNickyList($opt);

	for $gfn( @nli ){
		$NickyFname=$$gfn[0];
		&GetDateFromFname();
		next if($year>2900);
		$mdstr="<a href=\"$cgipath$ctgl?DT=$year$month$day$daysub#$year$month$day$daysub\">";
		if( $yr != $year ){
			print "$mtag";
			print "</dd>" if( $yr );
			print "<dt>$mdstr$year$TLyear</a></dt>";
			$mtag="$mdstr$month$TLmonth</a> ";
			print "<dd>\n";
			$yr=$year;
			$mn=$month;
		}elsif( $mn != $month ){
			print "$mtag";
			$mtag="$mdstr$month$TLmonth</a> ";
			$mn=$month;
		}
	}
	print "$mtag</dd><hr>\n";
	$iFoot = &put_macro($iFoot);
	&jcode'euc2sjis(\$iFoot) if( $sts );
	print $iFoot;
}

------------------------------------

「iMODE判定」にある
「$ret=1 if( $ENV{HTTP_USER_AGENT} =~ /DoCoMo|J-PHONE|DDIPOCKET|UP\.Browser/ );」
の行を以下のように変更。

$ret=1 if( $ENV{HTTP_USER_AGENT} =~ /DoCoMo|J-PHONE|Vodafone|MOT-[CV]980|SoftBank|^KDDI-|UP\.Browser|^PDXGW|DDIPOCKET|WILLCOM|^Nokia/ );

------------------------------------

「sub PutNickyOneDayIMODE」内「$b="$month$Month$day$Day";」から
「print "<dt>$Title</dt>" if( $Title );」までを以下のように変更。

 $b="$month$Month$day$Day";
 $b.=" $hour:$min" if( $hour >=0 );
 $iMsgOld="▽";
 if( &ReqJcode() ){
	&jcode'euc2sjis(\$iMsgOld);
	&jcode'euc2sjis(\$b);
	$Title=&zenkakuhankaku($Title);
	$Message=&zenkakuhankaku($Message);
 }
 $Message =~ s/(<img src)(.*?\"[^\"]*\.)(.*?)(\".*?>)/<a href$2$3\">$3<\/a>/ig;
 $Message =~ s/(<a[^>]*sfield_view.*?>)([^<]*)(<\/a>)/$2/ig;
 $Message =~ s/(<input[^>]*"nbtn"[^>]*value=")([^"]*)(\" onclick[^>]*sfield_view.*?>)/$2/ig;
 $Message =~ s/(<div[^>]*sfield\".*?>)(.*?)(<\/div>)/<br><font color=\"#FFFFFF\">$2<\/font>/ig;
 print "$b <a href=\"#i$year$month$day$daysub\">$iMsgOld</a>\n<hr><dl>";
 print "<dt>$Title</dt>" if( $Title );

------------------------------------

「sub icomment_main」の少し上にある「 print "$br";」を、

print "$br<a name=\"i$year$month$day$daysub\"></a>";

に変更。

------------------------------------

「sub NickyPageOutIMODE」内「$outcnt = $page == 0 ? $PrintDay:$PageCnt;」の行を、

$outcnt = $pageno == 0 ? $PrintDay:$PageCnt;

に変更。