Comment
Author: Admin | 2025-04-27
$temp; if( $temp ) { dprint( 1, "$disk_dev: $temp\n"); $max_temp = $temp if $temp > $max_temp; } } dprint(0, "Maximum HD Temperature: $max_temp\n"); return $max_temp;}sub get_hd_temps# return minimum, maximum, average HD temperatures and array of individual temps{ my $max_temp = 0; my $min_temp = 1000; my $temp_sum = 0; my $HD_count = 0; my @temp_list = (); foreach my $item (@hd_list) { my $disk_dev = "/dev/$item"; my $command = "/usr/sbin/smartctl -A $disk_dev | grep Temperature_Celsius"; my $output = `$command`; my @vals = split(" ", $output); # grab 10th item from the output, which is the hard drive temperature (on Seagate NAS HDs) my $temp = "$vals[9]"; chomp $temp; if( $temp ) { push(@temp_list, $temp); $temp_sum += $temp; $HD_count +=1; $max_temp = $temp if $temp > $max_temp; $min_temp = $temp if $temp $min_temp; } } my @temps_sorted = sort { $a $b } @temp_list; $temp_sum = 0; for (my $n = $hd_num_peak; $n > 0; $n = $n -1) { $temp_sum += pop(@temps_sorted); } my $ave_temp = $temp_sum / $hd_num_peak; return ($min_temp, $max_temp, $ave_temp, @temp_list);}sub verify_fan_speed_levels{ my( $cpu_fan_level, $hd_fan_duty ) = @_; dprint( 4, "verify_fan_speed_levels: cpu_fan_level: $cpu_fan_level, hd_fan_duty: $hd_fan_duty\n"); my $extra_delay_before_next_check = 0; my $temp_time = time - $last_fan_level_change_time; dprint( 4, "Time since last verify : $temp_time, last change: $last_fan_level_change_time, delay: $fan_speed_change_delay\n"); if( $temp_time > $fan_speed_change_delay ) { # we've waited for the speed change to take effect. my $cpu_fan_speed = get_fan_speed("CPU"); if( $cpu_fan_speed 0 ) { dprint(1,"CPU Fan speed unavailable\n" ); $fan_unreadable_time = time if $fan_unreadable_time == 0; } my $hd_fan_speed = get_fan_speed("HD"); if( $hd_fan_speed 0 ) { dprint(1,"HD Fan speed unavailable\n" ); $fan_unreadable_time = time if $fan_unreadable_time == 0; } if( $hd_fan_speed 0 || $cpu_fan_speed 0 ) { # one of the fans couldn't be reliably read my $temp_time = time - $fan_unreadable_time; if( $temp_time > $bmc_reboot_grace_time ) {
Add Comment