#!/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 reboot</TITLE>
</HEAD>
<BODY>
EOF
print $q->end_html;
system("sudo echo '再起動中' > /var/tmp/update.log");
system("sudo reboot &");

