+ # make sure that mycall, myalias and homenode are upper case;
+ my $flag = 0;
+ if ($mycall =~ /[a-z]/) {
+ LogDbg('err', "\$mycall '$mycall' contains lower case letters, correcting");
+ $mycall = uc $mycall;
+ ++$flag;
+ }
+ if ($myalias =~ /[a-z]/) {
+ LogDbg('err', "\$myalias '$myalias' contains lower case letters, correcting");
+ $myalias = uc $myalias;
+ ++$flag;
+ }
+ if ($flag) {
+ LogDbg('err', "DXVars.pm has $flag errors. See above. Please edit DXVars.pm to correct");
+ sleep 10;
+ }
+