#!/usr/bin/perl
# serverck.cgi raspi4 bookworm (C)2024 Tonaru
$Title = 'Server Check';
$CharSet = 'shift_JIS';
($sec, $min, $hour, $day, $mon, $year) = localtime(time);
$year += 1900;
$mon += 1;
$uptime = `uptime`;
@ar1 = split(/load average:/,$uptime);
@ar2 = split(/,/,@ar1[1]);
$load1 = @ar2[0];
$load5 = @ar2[1];
$load15 = @ar2[2];
$str43 = substr($uptime, length($uptime) - 43);
@ar3 = split(/,/,$str43);
$user = @ar3[0];
$temp = `cat /sys/class/thermal/thermal_zone0/temp`;
$cputemp = sprintf('%.1f',$temp / 1000);
print <<__END__;
Content-type: text/html
$Title
******** Server Check ********
Date： $year/$mon/$day $hour:$min:$sec
Login： $user
Load： $load1 / $load5 / $load15
Temp： $cputemp ℃ (cpu temp)
****************************
__END__
exit(0);