#!/usr/bin/perl
##
##

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;
$q = new CGI;

print $q->header(-charset=> "UTF-8",);
print <<'EOF';
<HTML lang="ja">
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>Dmonitor Debug Interface</TITLE>
</HEAD>
<body style="background-color:#ffffcc;">
<ul>
<li><a href=/cgi-bin/debug_dmonitor_log>dmonitor ログ</a></li>
<li><a href=/cgi-bin/debug_rpt_conn_log>rpt_conn ログ</a></li>
<li><a href=/cgi-bin/debug_syslog>syslog</a></li>
<li><a href=/cgi-bin/debug_messages>messages</a></li>
</ul>
EOF
print $q->end_html;

