remove Autosave and backup files.
move old scripts to user directory.
remove some old unnecessary scripts.
+++ /dev/null
-# Board Chain ChainLen DAC Channel Command Value
- f300 1 1 0 0 3 0x3450
- f300 1 1 0 1 3 0x1230
- f300 1 1 0 2 3 0x6780
- f300 1 1 0 3 3 0x0345
- f300 1 1 0 4 3 0x3450
- f300 1 1 0 5 3 0x1230
- f300 1 1 0 6 3 0x6780
- f300 1 1 0 7 3 0x0345
+++ /dev/null
-# Board Chain ChainLen DAC Channel Command Value
-!Reference 2500
- f333 1 4 0 0 3 3450
- f333 1 4 0 1 3 1230
- f333 1 4 1 0 3 780
- f333 1 4 2 0 3 1450
\ No newline at end of file
+++ /dev/null
-# Board Chain ChainLen DAC Channel Command Value
-!Reference 2500
- fe48 0xF 3 0 0 3 0000 #mV
- fe48 0xF 3 0 1 3 0100 #mV
- fe48 0xF 3 0 2 3 0200 #mV
- fe48 0xF 3 0 3 3 0300 #mV
- fe48 0xF 3 0 4 3 0400 #mV
- fe48 0xF 3 0 5 3 0500 #mV
- fe48 0xF 3 0 6 3 0600 #mV
- fe48 0xF 3 0 7 3 0700 #mV
-!Reference 3300
- fe48 0xF 3 1 0 3 0000 #mV
- fe48 0xF 3 1 1 3 0100 #mV
- fe48 0xF 3 1 2 3 0200 #mV
- fe48 0xF 3 1 3 3 0300 #mV
- fe48 0xF 3 1 4 3 0400 #mV
- fe48 0xF 3 1 5 3 0500 #mV
- fe48 0xF 3 1 6 3 0600 #mV
- fe48 0xF 3 1 7 3 0700 #mV
-
- fe48 0xF 3 2 0 3 0000 #mV
- fe48 0xF 3 2 1 3 0100 #mV
- fe48 0xF 3 2 2 3 0200 #mV
- fe48 0xF 3 2 3 3 0300 #mV
- fe48 0xF 3 2 4 3 0400 #mV
- fe48 0xF 3 2 5 3 0500 #mV
- fe48 0xF 3 2 6 3 0600 #mV
- fe48 0xF 3 2 7 3 0700 #mV
-
-
-# The reference voltages of the DACs:
-# DAC1 = 2.5 V
-# DAC2 = 3.3 V
-# DAC3 = 3.3 V
+++ /dev/null
-#!/usr/bin/perl -w
-use warnings;
-use FileHandle;
-use Time::HiRes qw( usleep );
-use Data::Dumper;
-use HPlot;
-use HADES::TrbNet;
-# my $fh;
-
-trb_init_ports() or die("could not connect to trbnetd");
-# open $fh, "../../trb3/multitest/adcdump.txt" or die $!."\nFile not found.";
-
-
-my $plot = ();
-$plot->{name} = "ADC";
-$plot->{file} = "files/ADC";
-$plot->{entries} = 1000;
-$plot->{type} = HPlot::TYPE_HISTORY;
-$plot->{output} = HPlot::OUT_SCREEN;
-$plot->{titles}->[0] = "";
-$plot->{xlabel} = "sample";
-$plot->{ylabel} = "value";
-$plot->{sizex} = 1200;
-$plot->{sizey} = 900;
-$plot->{ymin} = 0;
-$plot->{ymax} = 2**12;
-$plot->{nokey} = 1;
-HPlot::PlotInit($plot);
-
-
-while(1) {
-
-trb_register_write(0xfadc,0xc000,0) or sleep 5 and next;
-usleep(100);
-my $mux1 = trb_register_read_mem(0xfadc,0xc006,1,1050) or sleep 5 and next;
-
-foreach my $v (@{$mux1->{0xfadc}}) {
- HPlot::PlotAdd("ADC",$v & 0xfff,0);
- }
-HPlot::PlotDraw("ADC");
-sleep(1);
-}
-
+++ /dev/null
-
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use Parallel::ForkManager;
-use Net::Ping;
-
-my @trbs = (30, 47, 56, 57, 58, 59, 64, 72, 73, 74, 78, 83, 84, 86, 89, 97, 99, 101, 102, 104, 105, 108, 109);
-
-my $map = {
- 0 => { trb => 105, sys => "MCP 00"},
- 1 => { trb => 89, sys => "MCP 01"},
- 2 => { trb => 57, sys => "MCP 02"},
- 3 => { trb => 99, sys => "MCP 03"},
- 4 => { trb => 73, sys => "MCP 04"},
- 5 => { trb => 102, sys => "MCP 05"},
- 6 => { trb => 83, sys => "MCP 06"},
- 7 => { trb => 78, sys => "MCP 07"},
- 8 => { trb => 104, sys => "MCP 08"},
- 9 => { trb => 109, sys => "MCP 09"},
-10 => { trb => 72, sys => "MCP 10"},
-11 => { trb => 47, sys => "MCP 11"},
-12 => { trb => 59, sys => "MCP 12"},
-13 => { trb => 84, sys => "MCP 13"},
-14 => { trb => 97, sys => "MCP 14"},
-15 => { trb => 101, sys => "Beam"},
--1 => { trb => 56, sys => "CTS"},
-21 => { trb => 108, sys => "SciFi 01"},
-16 => { trb => 74, sys => "SciFi 02"},
-20 => { trb => 30, sys => "TOF1"},
-19 => { trb => 86, sys => "TOF1"},
-17 => { trb => 58, sys => "TOF2"},
-18 => { trb => 64, sys => "TOF2"}
-};
-
-
-my $MAX_PROCESSES=50;
-my $pm = Parallel::ForkManager->new($MAX_PROCESSES);
-
-#my $p = Net::Ping->new();
-
-foreach my $ct (keys $map) {
- #my $num = sprintf "%3.3d", $ct;
- my $trbnum= $map->{$ct}->{trb};
- my $num = sprintf "%3.3d", $trbnum;
- my $host= "trb" . $num;
- my $system = $map->{$ct}->{sys};
- #print "192.168.0.$ct $host.gsi.de $host\n";
- #my $r = $p->ping($host,1);
- my $c= "ping -W1 -c1 $host";
-
- my $pid = $pm->start and next;
-
-
- #my $p = Net::Ping->new("udp", 1);
- #my $r = $p->ping("192.168.0.56");
- #$p->close();
- #print "result: $r\n";
-
- my $r = qx($c);
- my $sysnum = sprintf "0x80%s", $ct < 10 ? "0$ct" : $ct;
- $sysnum = "0x7999" if $ct == -1;
- #printf "$sysnum, system: %-8s, trb: $host ", $system;
- printf "$sysnum $host %-8s ", $system;
- if (grep /64 bytes/, $r) {
- print "is alive.\n";
- }
- else {
- print "is not alive.\n";
- }
-
- $pm->finish; # Terminates the child process
-}
-
-$pm->wait_all_children;
-#$p->close();
+++ /dev/null
-
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use Parallel::ForkManager;
-use Net::Ping;
-
-my @trbs = (30, 47, 56, 57, 58, 59, 64, 72, 73, 74, 78, 83, 84, 86, 89, 97, 99, 101, 102, 104, 105, 108, 109);
-
-my $map = {
- 0 => { trb => 105, sys => "MCP 00"},
- 1 => { trb => 89, sys => "MCP 01"},
- 2 => { trb => 57, sys => "MCP 02"},
- 3 => { trb => 99, sys => "MCP 03"},
- 4 => { trb => 73, sys => "MCP 04"},
- 5 => { trb => 102, sys => "MCP 05"},
- 6 => { trb => 83, sys => "MCP 06"},
- 7 => { trb => 78, sys => "MCP 07"},
- 8 => { trb => 104, sys => "MCP 08"},
- 9 => { trb => 109, sys => "MCP 09"},
-10 => { trb => 72, sys => "MCP 10"},
-11 => { trb => 47, sys => "MCP 11"},
-12 => { trb => 59, sys => "MCP 12"},
-13 => { trb => 84, sys => "MCP 13"},
-14 => { trb => 97, sys => "MCP 14"},
-15 => { trb => 101, sys => "Beam"},
--1 => { trb => 56, sys => "CTS"},
-21 => { trb => 108, sys => "SciFi 01"},
-16 => { trb => 74, sys => "SciFi 02"},
-20 => { trb => 30, sys => "TOF1"},
-19 => { trb => 86, sys => "TOF1"},
-17 => { trb => 58, sys => "TOF2"},
-18 => { trb => 64, sys => "TOF2"}
-};
-
-
-my $MAX_PROCESSES=50;
-my $pm = Parallel::ForkManager->new($MAX_PROCESSES);
-
-#my $p = Net::Ping->new();
-
-foreach my $ct (keys $map) {
- #my $num = sprintf "%3.3d", $ct;
- my $trbnum= $map->{$ct}->{trb};
- my $num = sprintf "%3.3d", $trbnum;
- my $host= "trb" . $num;
- my $system = $map->{$ct}->{sys};
- #print "192.168.0.$ct $host.gsi.de $host\n";
- #my $r = $p->ping($host,1);
- my $c= "ping -W1 -c1 $host";
-
- my $pid = $pm->start and next;
-
-
- #my $p = Net::Ping->new("udp", 1);
- #my $r = $p->ping("192.168.0.56");
- #$p->close();
- #print "result: $r\n";
-
- my $r = qx($c);
- my $sysnum = sprintf "0x80%s", $ct < 10 ? "0$ct" : $ct;
- $sysnum = "0x7999" if $ct == -1;
- #printf "$sysnum, system: %-8s, trb: $host ", $system;
- printf "$sysnum $host %-8s ", $system;
- if (grep /64 bytes/, $r) {
- print "is alive.\n";
- }
- else {
- print "is not alive.\n";
- }
-
- $pm->finish; # Terminates the child process
-}
-
-$pm->wait_all_children;
-#$p->close();
+++ /dev/null
-
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use Parallel::ForkManager;
-use Net::Ping;
-
-my @trbs = (30, 47, 56, 57, 58, 59, 64, 72, 73, 74, 78, 83, 84, 86, 89, 97, 99, 101, 102, 104, 105, 108, 109);
-
-my $map = {
- 0 => { trb => 105, sys => "MCP 00"},
- 1 => { trb => 89, sys => "MCP 01"},
- 2 => { trb => 57, sys => "MCP 02"},
- 3 => { trb => 99, sys => "MCP 03"},
- 4 => { trb => 73, sys => "MCP 04"},
- 5 => { trb => 102, sys => "MCP 05"},
- 6 => { trb => 83, sys => "MCP 06"},
- 7 => { trb => 78, sys => "MCP 07"},
- 8 => { trb => 104, sys => "MCP 08"},
- 9 => { trb => 109, sys => "MCP 09"},
-10 => { trb => 72, sys => "MCP 10"},
-11 => { trb => 47, sys => "MCP 11"},
-12 => { trb => 59, sys => "MCP 12"},
-13 => { trb => 84, sys => "MCP 13"},
-14 => { trb => 97, sys => "MCP 14"},
-15 => { trb => 101, sys => "Beam"},
--1 => { trb => 56, sys => "CTS"},
-21 => { trb => 108, sys => "SciFi 01"},
-16 => { trb => 74, sys => "SciFi 02"},
-20 => { trb => 30, sys => "TOF1"},
-19 => { trb => 86, sys => "TOF1"},
-17 => { trb => 58, sys => "TOF2"},
-18 => { trb => 64, sys => "TOF2"}
-};
-
-
-my $MAX_PROCESSES=50;
-my $pm = Parallel::ForkManager->new($MAX_PROCESSES);
-
-#my $p = Net::Ping->new();
-
-foreach my $ct (keys $map) {
- #my $num = sprintf "%3.3d", $ct;
- my $trbnum= $map->{$ct}->{trb};
- my $num = sprintf "%3.3d", $trbnum;
- my $host= "trb" . $num;
- my $system = $map->{$ct}->{sys};
- #print "192.168.0.$ct $host.gsi.de $host\n";
- #my $r = $p->ping($host,1);
- my $c= "ping -W1 -c1 $host";
-
- my $pid = $pm->start and next;
-
-
- #my $p = Net::Ping->new("udp", 1);
- #my $r = $p->ping("192.168.0.56");
- #$p->close();
- #print "result: $r\n";
-
- my $r = qx($c);
- my $sysnum = sprintf "0x80%s", $ct < 10 ? "0$ct" : $ct;
- $sysnum = "0x7999" if $ct == -1;
- #printf "$sysnum, system: %-8s, trb: $host ", $system;
- printf "$sysnum $host %-8s ", $system;
- if (grep /64 bytes/, $r) {
- print "is alive.\n";
- }
- else {
- print "is not alive.\n";
- }
-
- $pm->finish; # Terminates the child process
-}
-
-$pm->wait_all_children;
-#$p->close();
+++ /dev/null
-#!/bin/bash
-ssh -X scs@lxhadeb06 'export EPICS_CA_ADDR_LIST=192.168.103.255; export EPICS_CA_AUTO_ADDR_LIST=NO; /home/epics/EPICS/EPICS-3.14.12.4/extensions/bin/linux-x86_64/medm -x -macro "SUBSYSNUM=24" ~/operator/ebmainctrl.adl'
-#export EPICS_CA_ADDR_LIST=192.168.103.255; export EPICS_CA_AUTO_ADDR_LIST=NO; /home/epics/EPICS/EPICS-3.14.12.4/extensions/bin/linux-x86_64/medm -x -macro "SUBSYSNUM=24" /home/scs/operator/ebmainctrl.adl &
+++ /dev/null
-. ~/.bashrc
-
-case "$1" in
- init)
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod sysMainSwitch.0 i 1
- ;;
- kill)
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod sysMainSwitch.0 i 0
- ;;
- on)
-# 1306
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u0 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u0 F 0.0006
-# 10^6 value snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u0 F 2082
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u0 F 2300
-# 1392
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u1 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u1 F 0.0006
-# 10^6 value snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u1 F 1749
-# lowered from 2000 to 1900 6/24
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u1 F 1900
-# 1357
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u2 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u2 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u2 F 1950
-# 1353
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u3 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u3 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u3 F 1950
-# 1339
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u4 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u4 F 0.0006
-# lowered from 2050 to 1750 6/24
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u4 F 1750
-# 1352
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u5 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u5 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u5 F 1900
-# 1359
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u6 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u6 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u6 F 1900
-# 1360
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u7 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u7 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u7 F 1900
-#1338
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u8 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u8 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u8 F 2100
-# 1128
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u9 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u9 F 0.0006
-# lowered from 2200 to 2000 6/24
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u9 F 2000
-# 1358
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u10 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u10 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u10 F 1950
-# 1356
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u11 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u11 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u11 F 1950
-# 1336
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u12 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u12 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u12 F 2150
-# 1355
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u13 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u13 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u13 F 1950
-# 1142
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltageRiseRate.u14 F -100.0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputCurrent.u14 F 0.0006
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputVoltage.u14 F 2250
-
- read -n1 -p "No error message? Turn on HV ? (y/n) "
- echo
- [[ $REPLY = [yY] ]] &&
- echo " "
- echo "writing Erlangen MCP scan HV values "
- echo " "
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u0 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u1 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u2 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u3 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u4 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u5 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u6 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u7 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u8 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u9 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u10 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u11 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u12 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u13 i 1 &&
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u14 i 1 &&
- { echo "Nothing done"; exit 1; }
-
- ;;
- off)
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u0 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u1 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u2 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u3 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u4 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u5 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u6 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u7 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u8 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u9 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u10 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u11 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u12 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u13 i 0
- snmpset -v 2c -m WIENER-CRATE-MIB -c guru dircmpod outputSwitch.u14 i 0
-;;
- *)
- echo "init Turn on main switch"
- echo "kill Turn off main switch"
- echo "on Turn on channels (with y/n question)"
- echo "off Turn off channels"
- ;;
-esac