From: Jan Michel <michel@physik.uni-frankfurt.de>
Date: Fri, 3 Feb 2023 13:00:31 +0000 (+0100)
Subject: add output of proper commands, execute and write option
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=4533db5a7852c201e4a00fe2f0c9e1a3f5593d69;p=hades_mdc_settings.git

add output of proper commands, execute and write option
---

diff --git a/scripts/check_voltages.pl b/scripts/check_voltages.pl
index c0bef12..9bf5508 100755
--- a/scripts/check_voltages.pl
+++ b/scripts/check_voltages.pl
@@ -17,16 +17,15 @@ my $help;
 Getopt::Long::Configure(qw(gnu_getopt));
 GetOptions(
  'help|h'  => \$help,
- 'write|w'  => \$write,
  'exec|e'  => \$execute,
 );
 
 if($help) {
 print <<HELP;
-./check_voltages.pl [-e] [-w]
+./check_voltages.pl [-e]
 
 Reads voltages of all MBO and suggests changes.
-Use -e to directly execute commands and -w to store changes in file.
+Use -e to directly execute commands
 HELP
 exit;
 }
@@ -72,7 +71,7 @@ foreach my $b (sort keys %{$values}) {
 
 sub makechange {
   my ($b,$v,$c,$r) = @_;
-  my $cmd = sprintf("./mdc_voltage.pl %s -b 0x%04x\t-c %i\t-r %i\t#%i mV\n",$write,$b,$c,$r,$v);
+  my $cmd = sprintf("./mdc_voltage.pl -w -b 0x%04x\t-c %i\t-r %i\t#%i mV\n",$b,$c,$r,$v);
   print $cmd;
   qx($cmd) if defined $execute;
   }