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

add "-q" flag to allow script to be quieter and suppress most

Browse source 
diagnostic info to STDOUT
This commit is contained in:
Tim Connors 2021-12-06 22:32:14 +11:00
parent 11bd6fa398
commit 2fcb2160d3
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -40,7 +40,8 @@ my @cputemps=();
my $current_mode; my $current_mode;
my $lastfan; my $lastfan;
my $print_stats = 1; my $quiet=0; # whether to print stats at all
my $print_stats = 1; # whether to print stats this run
sub is_num { sub is_num {
my ($val) = @_; my ($val) = @_;
@ -182,6 +183,11 @@ END {
$? = $exit; $? = $exit;
} }
if (defined $ARGV[0] && $ARGV[0] eq "-q") {
$quiet=1;
$print_stats=0;
}
my $last_reset_hddtemps=time; my $last_reset_hddtemps=time;
my $last_reset_ambient_ipmitemps=time; my $last_reset_ambient_ipmitemps=time;
my $ambient_temp=20; my $ambient_temp=20;
@ -252,7 +258,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; $print_stats = 1 if !$quiet;
} }
sleep 3; sleep 3;
} }