--- mdap-server.pl	2007/04/22 15:32:22	7
+++ mdap-server.pl	2007/04/22 16:06:03	8
@@ -7,6 +7,8 @@
 use constant GROUP => '224.0.0.103';
 use constant PORT  => '3235';
 
+my $debug = shift @ARGV;
+
 my $local_port = 1000;
 
 my $resend_search_delay = 3;
@@ -52,7 +54,7 @@
 
 sub mdap_send {
 	my $data = shift;
-	warn ">> $data\n>>----------\n";
+	warn ">> $data\n>>----------\n" if ($debug);
 	$sock->mcast_send( "${data}", GROUP . ':' . PORT );
 }
 
@@ -77,7 +79,9 @@
 
 		my $ant = $h->{'ANT-ID'} || die "no ANT-ID in ", dump( $h );
 
-		print "# $type $proto ", dump( $h ), $/;
+		print "<< $type $proto ", length($data), " bytes\n";
+
+		warn dump($h),$/ if ($debug);
 
 		if ($type eq 'REPLY-ANT-SEARCH') {
 			mdap_send("INFO MDAP/1.2\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n22");
@@ -95,12 +99,12 @@
 			}
 		} elsif ( $type eq 'REPLY-EXEC-CLI' && $h->{'SEQ-NR'} == 1 ) {
 				print "UPDATE STEP 2 on ant $ant\n";
-				mdap_send("EXEC-CLI MDAP/1.2\r\nSEQ-NR:2\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n5F");
+				mdap_send("EXEC-CLI MDAP/1.2\r\nSEQ-NR:2\r\nTO-ANT:$ant\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n5F");
 		} else {
-			print "!! reply ignored\n";
+			print "!! reply ignored ", dump( $h ), $/;
 		}
 
 	} else {
-		print $data, "\n", "-" x 30, "\n";
+		warn "<=" x 15, "\n", $data, "\n", "<=" x 15, "\n";
 	}
 }