▼スレッド
│
└◇282:Re:すみません、もう１つ・・・ [moon（管理人）] 01/25 17:54

> 同じようにやって携帯からでもページを開いた時は当月のログにしました。
> 最新ログもどうにか見たいんですが・・・。

実際にテストをしていないので動くかどうかはわかりませんが・・・
携帯の設定はkei.plに記述されています。
また、i-modo・vodafone用（CHTML）と、au用（XHTML）に分かれていますので、同じような編集を二箇所ずつします。

まず523行目あたり
　　　　print qq|<select name="day3">\n|;
　　　　print qq|<option value="">\n|;
　　　　print qq|<option value="a">上旬\n|;
　　　　print qq|<option value="b">中旬\n|;
　　　　print qq|<option value="c">下旬\n|;
　　　　print qq|</select>\n|;
↓
　　　　print qq|<select name="day3">\n|;
　　　　print qq|<option value="">\n|;
　　　　print qq|<option value="new">最新\n|;
　　　　print qq|<option value="a">上旬\n|;
　　　　print qq|<option value="b">中旬\n|;
　　　　print qq|<option value="c">下旬\n|;
　　　　print qq|</select>\n|;
610行目あたりも同様に。

283行目
　　　　　　　　if ($in{'day3'} eq "a") {
↓
　　　　　　　　if ($in{'day3'} eq "new") {
last;
　　　　　　　　} elsif ($in{'day3'} eq "a") {

ちょっと下にある320行目あたり
　　　　　　　　} else {

　　　　　　　　　　　　$chh = "$in{'year'}$in{'mon'}$in{'day1'}$in{'day2'}";
　　　　　　　　　　　　if ($_[0] =~ /^$chh/) {
　　　　　　　　　　　　　　　　push(@datas,$line);
　　　　　　　　　　　　}

　　　　　　　　}
　　　　}


　　　　foreach (@datas) {
　　　　　　　　(@_) = split(/\t/);
↓
　　　　　　　　} else {

　　　　　　　　　　　　$chh = "$in{'year'}$in{'mon'}$in{'day1'}$in{'day2'}";
　　　　　　　　　　　　if ($_[0] =~ /^$chh/) {
　　　　　　　　　　　　　　　　push(@datas,$line);
　　　　　　　　　　　　}

　　　　　　　　}
　　　　}

　　　　open (IN,$file); #←これを入れる
　　　　@datas = <IN>; #←これを入れる
　　　　close (IN); #←これを入れる

　　　　foreach (@datas) {
　　　　　　　　(@_) = split(/\t/);

同じように380行目あたりからのものを修正する。

以上で大丈夫だと思います。