From 7b5c915f19f7fa816b8d1012e9e70df187fbaa32 Mon Sep 17 00:00:00 2001
From: Hadaq Hades <jan@lxhadeb07>
Date: Fri, 29 Mar 2019 16:36:13 +0100
Subject: [PATCH] mdcLVgui/Sx/2yyx scripts, corrected missing './', PZ

---
 control/mdcLVgui/S0/200x     |   2 +-
 control/mdcLVgui/S0/210x     |   2 +-
 control/mdcLVgui/S0/220x     |   2 +-
 control/mdcLVgui/S0/230x     |   2 +-
 control/mdcLVgui/S1/201x     |   2 +-
 control/mdcLVgui/S1/211x     |   2 +-
 control/mdcLVgui/S1/221x     |   2 +-
 control/mdcLVgui/S1/231x     |   2 +-
 control/mdcLVgui/S2/202x     |   2 +-
 control/mdcLVgui/S2/212x     |   2 +-
 control/mdcLVgui/S2/222x     |   2 +-
 control/mdcLVgui/S2/232x     |   2 +-
 control/mdcLVgui/S3/203x     |   2 +-
 control/mdcLVgui/S3/213x     |   2 +-
 control/mdcLVgui/S3/223x     |   2 +-
 control/mdcLVgui/S3/233x     |   2 +-
 control/mdcLVgui/S4/204x     |   2 +-
 control/mdcLVgui/S4/214x     |   2 +-
 control/mdcLVgui/S4/224x     |   2 +-
 control/mdcLVgui/S4/234x     |   2 +-
 control/mdcLVgui/S5/205x     |   2 +-
 control/mdcLVgui/S5/215x     |   2 +-
 control/mdcLVgui/S5/225x     |   2 +-
 control/mdcLVgui/S5/235x     |   2 +-
 utils/MDC_Powercycle_2PSx.pl | 108 +++++++++++++++++++++++++++++++++++
 25 files changed, 132 insertions(+), 24 deletions(-)
 create mode 100755 utils/MDC_Powercycle_2PSx.pl

diff --git a/control/mdcLVgui/S0/200x b/control/mdcLVgui/S0/200x
index 6fa5cb2..ed8ce15 100755
--- a/control/mdcLVgui/S0/200x
+++ b/control/mdcLVgui/S0/200x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 1 -S 1
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 1 -S 1
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S0/210x b/control/mdcLVgui/S0/210x
index c176beb..d05b090 100755
--- a/control/mdcLVgui/S0/210x
+++ b/control/mdcLVgui/S0/210x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 2 -S 1
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 2 -S 1
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S0/220x b/control/mdcLVgui/S0/220x
index 4833f8a..ab3451a 100755
--- a/control/mdcLVgui/S0/220x
+++ b/control/mdcLVgui/S0/220x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 3 -S 1
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 3 -S 1
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S0/230x b/control/mdcLVgui/S0/230x
index 05857d8..03c4d70 100755
--- a/control/mdcLVgui/S0/230x
+++ b/control/mdcLVgui/S0/230x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 4 -S 1
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 4 -S 1
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S1/201x b/control/mdcLVgui/S1/201x
index f167e3f..a9248f0 100755
--- a/control/mdcLVgui/S1/201x
+++ b/control/mdcLVgui/S1/201x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 1 -S 2
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 1 -S 2
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S1/211x b/control/mdcLVgui/S1/211x
index 51f73a7..b09c7af 100755
--- a/control/mdcLVgui/S1/211x
+++ b/control/mdcLVgui/S1/211x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 2 -S 2
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 2 -S 2
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S1/221x b/control/mdcLVgui/S1/221x
index b438164..27145cf 100755
--- a/control/mdcLVgui/S1/221x
+++ b/control/mdcLVgui/S1/221x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 3 -S 2
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 3 -S 2
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S1/231x b/control/mdcLVgui/S1/231x
index 982114f..397d640 100755
--- a/control/mdcLVgui/S1/231x
+++ b/control/mdcLVgui/S1/231x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 4 -S 2
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 4 -S 2
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S2/202x b/control/mdcLVgui/S2/202x
index ced9b87..5aea16e 100755
--- a/control/mdcLVgui/S2/202x
+++ b/control/mdcLVgui/S2/202x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 1 -S 3
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 1 -S 3
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S2/212x b/control/mdcLVgui/S2/212x
index 271dc51..1665783 100755
--- a/control/mdcLVgui/S2/212x
+++ b/control/mdcLVgui/S2/212x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 2 -S 3
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 2 -S 3
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S2/222x b/control/mdcLVgui/S2/222x
index 10100eb..e652c4a 100755
--- a/control/mdcLVgui/S2/222x
+++ b/control/mdcLVgui/S2/222x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 3 -S 3
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 3 -S 3
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S2/232x b/control/mdcLVgui/S2/232x
index 5a2182d..b8b41ce 100755
--- a/control/mdcLVgui/S2/232x
+++ b/control/mdcLVgui/S2/232x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 4 -S 3
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 4 -S 3
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S3/203x b/control/mdcLVgui/S3/203x
index e9a420f..1fd8532 100755
--- a/control/mdcLVgui/S3/203x
+++ b/control/mdcLVgui/S3/203x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 1 -S 4
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 1 -S 4
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S3/213x b/control/mdcLVgui/S3/213x
index b4c9470..e717b99 100755
--- a/control/mdcLVgui/S3/213x
+++ b/control/mdcLVgui/S3/213x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 2 -S 4
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 2 -S 4
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S3/223x b/control/mdcLVgui/S3/223x
index ac7edac..bc14847 100755
--- a/control/mdcLVgui/S3/223x
+++ b/control/mdcLVgui/S3/223x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 3 -S 4
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 3 -S 4
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S3/233x b/control/mdcLVgui/S3/233x
index e457e30..7d7266b 100755
--- a/control/mdcLVgui/S3/233x
+++ b/control/mdcLVgui/S3/233x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 4 -S 4
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 4 -S 4
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S4/204x b/control/mdcLVgui/S4/204x
index 9a99013..587ae0e 100755
--- a/control/mdcLVgui/S4/204x
+++ b/control/mdcLVgui/S4/204x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 1 -S 5
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 1 -S 5
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S4/214x b/control/mdcLVgui/S4/214x
index dd55771..6e9ffe3 100755
--- a/control/mdcLVgui/S4/214x
+++ b/control/mdcLVgui/S4/214x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 2 -S 5
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 2 -S 5
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S4/224x b/control/mdcLVgui/S4/224x
index 6c81e35..9af54d1 100755
--- a/control/mdcLVgui/S4/224x
+++ b/control/mdcLVgui/S4/224x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 3 -S 5
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 3 -S 5
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S4/234x b/control/mdcLVgui/S4/234x
index 4a6e56f..baee0ee 100755
--- a/control/mdcLVgui/S4/234x
+++ b/control/mdcLVgui/S4/234x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 4 -S 5
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 4 -S 5
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S5/205x b/control/mdcLVgui/S5/205x
index e665a6e..e3690ea 100755
--- a/control/mdcLVgui/S5/205x
+++ b/control/mdcLVgui/S5/205x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 1 -S 6
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 1 -S 6
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S5/215x b/control/mdcLVgui/S5/215x
index 0c20933..9ecef18 100755
--- a/control/mdcLVgui/S5/215x
+++ b/control/mdcLVgui/S5/215x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 2 -S 6
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 2 -S 6
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S5/225x b/control/mdcLVgui/S5/225x
index 426e52f..3fe734a 100755
--- a/control/mdcLVgui/S5/225x
+++ b/control/mdcLVgui/S5/225x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 3 -S 6
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 3 -S 6
 
   sleep 1
 "
diff --git a/control/mdcLVgui/S5/235x b/control/mdcLVgui/S5/235x
index edc893d..06909a3 100755
--- a/control/mdcLVgui/S5/235x
+++ b/control/mdcLVgui/S5/235x
@@ -8,7 +8,7 @@ xterm  -e bash --login -c  '
 ( which epics >/dev/null 2>&1 && . epics -q ) || export EPICS_BASE=/home/hadaq/EPICS/EPICS-3.15.6/base/
 PERLLIB=\${EPICS_BASE}lib/perl:~/trbsoft/hadesdaq/nettools:~/trbsoft/daqtools/perllibs
 
-cd ~/trbsoft/hadesdaq/utils && MDC_Powercycle_2PSx.pl -P 4 -S 6
+cd ~/trbsoft/hadesdaq/utils && ./MDC_Powercycle_2PSx.pl -P 4 -S 6
 
   sleep 1
 "
diff --git a/utils/MDC_Powercycle_2PSx.pl b/utils/MDC_Powercycle_2PSx.pl
new file mode 100755
index 0000000..92a2aaf
--- /dev/null
+++ b/utils/MDC_Powercycle_2PSx.pl
@@ -0,0 +1,108 @@
+#!/usr/bin/perl -w 
+use strict;
+use warnings;
+use lib "../nettools/";
+use Perl2Epics;
+use Getopt::Long;
+use File::Basename;
+
+#- the command line option flags
+my $opt_help    = 0;
+my $opt_plane   = -1;
+my $opt_sector  = -1;
+my $opt_address = "";
+my $opt_dryrun  = 0;
+
+GetOptions ('h|help'      => \$opt_help,
+	    'n|dryrun'  => \$opt_dryrun,
+	    'P|plane=i'   => \$opt_plane,
+	    'S|sector=i'  => \$opt_sector);
+
+if( $opt_help ) {
+    &help();
+    exit(0);
+}
+
+my $P=$opt_plane;
+my $S=$opt_sector;
+
+if( &checkArgs() ){
+    print "Exit.\n";
+    exit(1);
+}
+
+my $on = 0;
+my $off = 1;
+
+print "Connect..\n";
+my $s = "HAD:MDC:LV:P" . $P . ":S" . $S . ":SWITCH_set";
+
+if ($opt_dryrun) {
+	print $s . "\n";
+	exit(0);
+}
+
+Perl2Epics::Connect("MDC_LV_Switch",$s);
+
+Perl2Epics::Put("MDC_LV_Switch",$off);
+Perl2Epics::GetAll();
+
+sleep 8;
+Perl2Epics::Put("MDC_LV_Switch",$on);
+
+exit(0);
+#-----------
+
+################### END OF MAIN ####################
+
+sub help()
+{
+    my $scriptname=basename($0);
+    #"MDC_Powercycle_2PSx.pl";
+    print "\n";
+    my $text= << 'EOF';
+$scriptname    
+
+   This script executes a power cycle on MDC LV switches on 
+   PLANE P [1-4] and Sector S  [1-6]
+   using EPICS
+
+Usage:
+   
+   Command line:  $scriptname 
+   [-h|--help]             : Show this help.
+   [-P|--plane <plane>     : sector [1-6].
+   [-S|--sector <sector>]  : plane [1-4]
+
+Examples:
+  
+   $scriptname -P 1 -S 2
+
+EOF
+    $text =~ s/\$scriptname/$scriptname/g;
+    print $text;
+}
+
+sub checkArgs()
+{
+    my $retVal = 0;
+
+    #use either P/S or address
+    unless( $opt_plane != -1 && $opt_sector != -1 ){
+	print "You should use either '-P AND -S'' or '-a' options\n" . " " . __LINE__ . "\n";
+	$retVal = 1;
+    }
+
+    if(  $opt_sector < 1 || $opt_sector > 6 ){
+	print "sector out of range [1-6]\n";
+	$retVal = 1;
+    }
+
+    if(  $opt_plane < 1 || $opt_plane > 4 ){
+	print "plane out of range [1-4]\n";
+	$retVal = 1;
+    }
+
+    return $retVal;
+}
+
-- 
2.43.0