#!/usr/bin/perl


use CGI;
$CGI::LIST_CONTEXT_WARN = 0;

open my $rs , "hostname -I 2>&1 |";
my @ip = <$rs>;
close $rs;
my $result = join '' , @ip;
my $num = index ($result, ' ');
$result = substr($result, 0, $num);
$result =~ s/\s+//g;
$result =~ s/[[:cntrl:]]//g;

$q = new CGI;
print $q->header(-charset=> "UTF-8",);
print <<'EOF';
<!DOCTYPE HTML>
<HTML lang="ja">
<HEAD>
EOF
print "<meta charset=\"UTF-8\"> \n";
print "<title>デバッグログ</title>\n";
print "</head>\n";
print "<body style=\"background-color:#ffe6e6;\">\n";
print "<div id=\"log\">\n";
print "<pre>\n";
my $log = '/var/log/rpt_conn.log';
if (-f $log) {
system ("sudo /usr/bin/tail -20 /var/log/rpt_conn.log");
}
print "</pre>\n";
print "</div>\n";
print "</body>\n";
print "</html>\n";
print "</html>\n";

