sub IsNumeric { my $val = $_[0]; return $val =~ /^\d+$/ ? 1 : 0; }
if (IsNumeric($EVTPART0)){ Log 3, "set Denon_Zone_2 volume $EVTPART0"; fhem("set Denon_Zone_2 volume $EVTPART0"); }