From 4533db5a7852c201e4a00fe2f0c9e1a3f5593d69 Mon Sep 17 00:00:00 2001
From: Jan Michel <michel@physik.uni-frankfurt.de>
Date: Fri, 3 Feb 2023 14:00:31 +0100
Subject: [PATCH] add output of proper commands, execute and write option

---
 scripts/check_voltages.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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;
   }
-- 
2.43.0