--- mdap-server.pl	2007/04/22 12:52:15	2
+++ mdap-server.pl	2007/04/22 14:41:18	3
@@ -30,7 +30,6 @@
 sub mdap_send {
 	my $data = shift;
 	warn ">> $data\n>>----------\n";
-	my $null = chr(0);
 	$sock->mcast_send( "${data}", GROUP . ':' . PORT );
 }
 
@@ -54,11 +53,7 @@
 		print "# $type $proto ", dump( $h ), $/;
 
 		if ($type eq 'REPLY-ANT-SEARCH') {
-			mdap_send("INFO MDAP/1.2
-SEQ-NR:1
-TO-ANT:0644JTHJ4
-USER-ID:Administrator
-USER-PWD:\r\n22");
+			mdap_send("INFO MDAP/1.2\r\nSEQ-NR:1\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n22");
 		} elsif ($type eq 'REPLY-INFO') {
 			if (
 				$h->{'_BUILD'} eq '6.1.7.2' &&
@@ -66,17 +61,12 @@
 				$h->{'_BUILDVARIANT'} eq 'AA' &&
 				1
 			) {
-				mdap_send("EXEC-CLI MDAP/1.2
-CLI-CMD:software upgrade
-SEQ-NR:1
-TO-ANT:0644JTHJ4
-USER-ID:Administrator
-USER-PWD:\r\n1F");
+				mdap_send("EXEC-CLI MDAP/1.2\r\nCLI-CMD:software upgrade\r\nSEQ-NR:1\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n1F");
 			} else {
-
+				print "skipped updating ", 
 			}
-
-			
+		} elsif ( $type eq 'REPLY-EXEC-CLI' && $h->{'SEQ-NR'} == 1 ) {
+				mdap_send("EXEC-CLI MDAP/1.2\r\nSEQ-NR:2\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n5F");
 		} else {
 			print "!! reply ignored\n";
 		}