From 54196ca5aa1dd1211df8ff59360ded39d45d9e67 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Mon, 22 Apr 2013 08:29:14 +0200
Subject: [PATCH] users/mainz: Added option to turn output off in psu.pl

---
 users/mainz_kph_a2/psu.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/users/mainz_kph_a2/psu.pl b/users/mainz_kph_a2/psu.pl
index 0ef438d..fa2bd13 100755
--- a/users/mainz_kph_a2/psu.pl
+++ b/users/mainz_kph_a2/psu.pl
@@ -14,13 +14,15 @@ sub main {
   if(defined $ARGV[0] and $ARGV[0] eq "powercycle") {
     die "No Channel given to powercycle" unless defined $ARGV[1];
     my $channel = $ARGV[1] eq "1" ? 1 : 0;
-    do_power_cycle($channel);
+    my $no_powerup = defined $ARGV[2];
+    do_power_cycle($channel,$no_powerup);
   }
   # serial connection is closed in END {} block
 }
 
 sub do_power_cycle {
   my $ch = shift;
+  my $skip = shift;
   print "Powercycling Output $ch...\n";
   # enable remote control
   send_and_read("F100361010",$ch);
@@ -37,7 +39,7 @@ sub do_power_cycle {
     $timeout--;
   }
 
-  if($timeout>0) {
+  if(!$skip && $timeout>0) {
     print "Waiting a bit more...\n";
     sleep(10);
     print_current_values($ch);
@@ -45,7 +47,7 @@ sub do_power_cycle {
     send_and_read("F100360101",$ch);
     sleep(1);
   }
-  else {
+  elsif(!$skip) {
     print "Could not reach Voltage < 1 V before timeout.\n";
   }
 
-- 
2.43.0