1;
#---------------------------------
# httpヘッダとhtmlのヘッダ出力
#使用している変数 $title
#---------------------------------
sub html_header{
print "Content-type: text/html\n\n";
print "
\n";
print <<"EOM";
$title
EOM
print "\n";
}
#---------------------------------
# ぺーじのヘッダ出力
#使用している変数 $title
#---------------------------------
sub page_header{
print "[かきこみー] [ToDoへんしゅぅ]
";
print "$title
";
print "このへんの書式は別のテーマファイルにきじゅつされていまし♪";
print "
\n";
print "";
}
# ぺーじふった -----------------
sub page_footer{
print "
\n";
print "
\n";
print "このへんの書式も別ファイルのhtmlを読み込むよてー♪";
print "\nfooter
";
}
#---------------------------------
# 予定表, かれんだーの出力
#使用している変数 $month, 他いっぱい
#---------------------------------
sub todo{
# todoりすと.
#require "./todo.cgi";
#カレンダー2か月分
require "../calen/calen.cgi";
$thiskey=1;
print "";
&table("",$month);
print " | ";
$thiskey=0;
&table("",$month+1);
print " |
";
print "
\n";
}
# 日付変更点 -----------------
sub put_date{
print "$date
\n"; # 日付が変わってたらh2で出力
}
# さぶじぇくと有り記事 ----------
sub put_article_with_title{
print " $subject [$time]
";
print "$value";
}
# さぶじぇくと無し記事 ----------
sub put_article_without_title{
print "●[$time]";
print "$value";
}
# 日付のかわったとこ (日付表示の直前) ------
sub day_separator{
print "
";
}