#!/usr/bin/env perl
# $Id: clkeitai.cgi,v 1.4 2004/06/04 13:08:30 yto Exp $
# clkeitai.cgi - chalow により HTML 化されたページをケータイで見る
# アイテム一覧表示 - アンカーなどはなし。アイテム別表示へのジャンプ用。
# アイテム別表示 - アンカーあり
use strict;
use Jcode;
use CGI;
my $q = new CGI;
# 携帯電話で表示できる最大バイト
# たぶん、3k だと思うが、いろいろあるので余裕を見るのがよいかと。
my $page_size_max = 2500;
print "Content-type: text/html; charset=Shift_JIS\n\n";
print qq(CHALOW Keitai
);
if (defined $q->param('date')) {
my $date = $q->param('date');
if ($date =~ /^\d{4}-\d\d-\d\d$/) {
# アイテムじゃなくてエントリを指定してきたときに対処
print "Candidates: \n";
for (my $i = 1; $i < 10; $i++) {
print qq($date-$i, );
}
print "...\n";
exit;
}
output_an_item($date);
} else {
my $from = $q->param('from') || 1;
output_simple_list($from);
}
### アイテム別表示
sub output_an_item {
my ($ymdi) = @_;
my ($ymd, $ym) = ($ymdi =~ /^((\d{4}-\d\d)-\d\d)/);
my $fn;
if (-e "$ymd.html") {
$fn = "$ymd.html";
} elsif (-e "$ym.html") {
$fn = "$ym.html";
} else {
print "No Entry $ymdi