danvics/R710-Fan-Control
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

output less frequent statistics - once per minute, or when a command

Browse source 
is changed.  Would ideally refactor so outputs all stats rather than
just the final command when demand is changed
This commit is contained in:
Tim Connors 2021-06-20 20:52:57 +10:00
parent 5e0266ae12
commit a45d13b353
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
R710-IPMI-TEMP/fan-speed-control.pl
View file

@ -40,6 +40,8 @@ my @cputemps=();
my $current_mode; my $current_mode;
my $lastfan; my $lastfan;
my $print_stats = 1;
# returns undef if there are no inputs, and ignores inputs that are # returns undef if there are no inputs, and ignores inputs that are
# undef # undef
sub average { sub average {
@ -109,7 +111,7 @@ sub set_fans_servo {
set_fans_default(); set_fans_default();
return; return;
} }
print "weighted_temp = $weighted_temp ; ambient_temp $ambient_temp\n"; print "weighted_temp = $weighted_temp ; ambient_temp $ambient_temp\n" if $print_stats;
if (!defined $current_mode or $current_mode ne "set") { if (!defined $current_mode or $current_mode ne "set") {
$current_mode="set"; $current_mode="set";
@ -139,12 +141,12 @@ sub set_fans_servo {
# y1 = demand1 ; x1 = desired_temp1 ; y2 = demand2 ; x2 = desired_temp2 # y1 = demand1 ; x1 = desired_temp1 ; y2 = demand2 ; x2 = desired_temp2
$demand = $demand1 + ($weighted_temp - $desired_temp1) * ($demand2 - $demand1)/($desired_temp2 - $desired_temp1); $demand = $demand1 + ($weighted_temp - $desired_temp1) * ($demand2 - $demand1)/($desired_temp2 - $desired_temp1);
} }
printf "demand(%0.2f)", $demand; printf "demand(%0.2f)", $demand if $print_stats;
$demand = int($static_speed_low + $demand/100*($static_speed_high-$static_speed_low)); $demand = int($static_speed_low + $demand/100*($static_speed_high-$static_speed_low));
if ($demand>255) { if ($demand>255) {
$demand=255; $demand=255;
} }
printf " -> %i\n", $demand; printf " -> %i\n", $demand if $print_stats;
# ramp down the fans quickly upon lack of demand, don't ramp them up # ramp down the fans quickly upon lack of demand, don't ramp them up
# to tiny spikes of 1 fan unit. FIXME: But should implement long # to tiny spikes of 1 fan unit. FIXME: But should implement long
# term smoothing of +/- 1 fan unit # term smoothing of +/- 1 fan unit
@ -202,12 +204,12 @@ while () {
#put differnt offsets on them - possibly as easily as adding "10" to #put differnt offsets on them - possibly as easily as adding "10" to
#hddtemp (but need to work out how to keep log output sane) #hddtemp (but need to work out how to keep log output sane)
print "\n"; print "\n" if $print_stats;
print "cputemps=", join (" ; ", @cputemps), "\n"; print "cputemps=", join (" ; ", @cputemps), "\n" if $print_stats;
print "coretemps=", join (" ; ", @coretemps), "\n"; print "coretemps=", join (" ; ", @coretemps), "\n" if $print_stats;
print "ambient_ipmitemps=", join (" ; ", @ambient_ipmitemps), "\n"; print "ambient_ipmitemps=", join (" ; ", @ambient_ipmitemps), "\n" if $print_stats;
print "hddtemps=", join (" ; ", @hddtemps), "\n"; print "hddtemps=", join (" ; ", @hddtemps), "\n" if $print_stats;
$ambient_temp = average(@ambient_ipmitemps); $ambient_temp = average(@ambient_ipmitemps);
# FIXME: hysteresis # FIXME: hysteresis
@ -224,6 +226,7 @@ while () {
} }
} }
$print_stats = 0;
# every 20 minutes (enough to establish spin-down), invalidate the # every 20 minutes (enough to establish spin-down), invalidate the
# cache of the slowly changing hdd temperatures to allow them to be # cache of the slowly changing hdd temperatures to allow them to be
# refreshed # refreshed
@ -240,6 +243,7 @@ while () {
# make sure we set it appropriately once # make sure we set it appropriately once
# per minute # per minute
$last_reset_ambient_ipmitemps=time; $last_reset_ambient_ipmitemps=time;
$print_stats = 1;
} }
sleep 3; sleep 3;
} }