($level, $computer, $iod, $comment, $min_value, $min_time, $max_value, $max_time)=
 /^\s*(\d),(\w+),([\d\.]+),([^,]+),([^,]+),(\d+:\d+),([^,]+),(\d+:\d+),.*$/
   or exit_error("Cannot parse log file");
$clip=CONFIG{$computer}{iod}{$iod}{value};
if ($min_value<$clip) {
  $min_value=$clip;
  $min_time="$hour:$min";
} elsif ($max_value>$clip) {
  $max_value=$clip;
  $max_time="$hour:$min";
}
print LOG (join ',', $level, $computer, $iod, $comment,$ min_value, $min_time, $max_value, $max_time, $clip, "$hour:$min"), "\n";