#!/usr/bin/perl #┌───────────────────────────────── #│ Web Forum v5 #│ wforum.cgi - 2007/02/14 #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── # 外部ファイル取込み require './init.cgi'; require $jcodepl; require $foldpl; # 基本処理を定義 &decode; &axsCheck; if ($mode eq "msgview") { &msgview; } elsif ($mode eq "allread") { &allread; } elsif ($mode eq "newsort") { &newsort; } elsif ($mode eq "find") { &find; } elsif ($mode eq "note") { ¬e; } elsif ($mode eq "past") { &past_view; } elsif ($mode eq "check") { ✓ } &list_view; #------------------------------------------------- # リスト表示 #------------------------------------------------- sub list_view { &header; print "
EOM if ($in{'list'} eq "new") { print " \n"; } else { print " \n"; } print " |