#!/usr/bin/perl
# serverck.cgi (C)2018 Tonaru
$Title = 'Server Check';
$CharSet = 'shift_JIS';
($sec, $min, $hour, $day, $mon, $year) = localtime(time);
$year += 1900;
$mon += 1;
$uptime = `uptime`;
@ar1 = split(/, /, $uptime);
$user = @ar1[2];
@ar2 = split(/: /, @ar1[3]);
$load1 = @ar2[1];
$load5 = @ar1[4];
$load15 = @ar1[5];
$load15 =~s/\n//;
print <<__END__;
Content-type: text/html
$Title
****** Server Check *******
Date： $year/$mon/$day $hour：$min：$sec
Login： $user
Load： $load1 / $load5 / $load15
*************************
__END__
exit(0);