--- mdap-server.pl 2007/11/18 10:36:30 71 +++ mdap-server.pl 2007/11/18 11:07:23 72 @@ -199,14 +199,14 @@ my $client_version = $h->{'MDAP-VERSION'}; $mdap_ver = $client_version if ($client_version); - print "<< $type $proto/$mdap_ver << ", length($data), " bytes: ",_dump_data($data),$/ unless $quiet; - - warn dump( $data, $h ),$/ if ($debug); - # we are getting our own messages (since our source port # is same as destination) next if ( $type =~ m#^(INFO|ANT-SEARCH|EXEC-CLI)# ); + print "<< $type $proto/$mdap_ver << ", length($data), " bytes: ",_dump_data($data),$/ unless $quiet; + + warn dump( $data, $h ),$/ if ($debug); + my $ant = $h->{'ANT-ID'} || die "no ANT-ID in ", dump( $h ); my $seq_nr = $1 if (defined $h->{'SEQ-NR'} && $h->{'SEQ-NR'} =~ m/^(-*\d)+/); #warn "SEQ-NR: $seq_nr ok: ",$ant_ok_password->{$ant},"\n" if ($seq_nr);