croak "cmdParam: unexpected etrax name: $etrax. Exit.\n";
}
- my $eb_port = $EB_Args_href->{'Main'}->{'PORT_BASE'} + $trbnum;
- my $eb_ip = $EB_Args_href->{'Main'}->{'EB_IP'};
-
- #- replace TRBNUM
- $cmd =~ s{ # Substitue...
- \$\{TRBNUM\} # ...a parameter
- }
- {$trbnum}gxms; # Raplace it with a TRB number
-
- #- replace EBIP
- $cmd =~ s{ # Substitue...
- \$\{EBIP\} # ...a parameter
- }
- {$eb_ip}gxms; # Raplace it with a EB IP
-
- #- replace EBPORT
- $cmd =~ s{ # Substitue...
- \$\{EBPORT\} # ...a parameter
- }
- {$eb_port}gxms; # Raplace it with a EB PORT
+ ## removed unnecessary code: MT, 2021-08-13
+ # print "EB_Args:\n";
+ # print Dumper $EB_Args_href;
+ # my $eb_port = $EB_Args_href->{'Main'}->{'PORT_BASE'} + $trbnum;
+ # my $eb_ip = $EB_Args_href->{'Main'}->{'EB_IP'};
+
+ # #- replace TRBNUM
+ # $cmd =~ s{ # Substitue...
+ # \$\{TRBNUM\} # ...a parameter
+ # }
+ # {$trbnum}gxms; # Raplace it with a TRB number
+
+ # #- replace EBIP
+ # $cmd =~ s{ # Substitue...
+ # \$\{EBIP\} # ...a parameter
+ # }
+ # {$eb_ip}gxms; # Raplace it with a EB IP
+
+ # #- replace EBPORT
+ # $cmd =~ s{ # Substitue...
+ # \$\{EBPORT\} # ...a parameter
+ # }
+ # {$eb_port}gxms; # Raplace it with a EB PORT
$cmd = "source /home/hadaq/.bashrc; " . $cmd if ( $etrax =~ /hades?\w(\d{2})/ );