From 3460a6915c765d2e27d98bda132c80b059e156ef Mon Sep 17 00:00:00 2001
From: yangsbj <yangsbj@cn.ibm.com>
Date: Mon, 28 May 2018 05:15:41 -0400
Subject: [PATCH] * log the size of packets received by udp listener

---
 xCAT-server/sbin/xcatd | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index eb345bdfe..53c1ab745 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -810,6 +810,9 @@ sub do_udp_service {    # This function opens up a UDP port
                     foreach $hdl (@hdls) {
                         if ($hdl == $socket) {
                             $part = $socket->recv($data, 3000);
+                            if(length($data)>1500){
+                                xCAT::MsgUtils->message("S", "$0: received ".length($data)."B data packet from ".$socket->peerhost);
+                            }
                             $packets{$part} = [ $part, $data ];
                         } elsif ($hdl == $sslctl) {
                             next;
@@ -862,6 +865,9 @@ sub do_udp_service {    # This function opens up a UDP port
                         foreach my $hdl (@hdls) {
                             if ($hdl == $socket) {
                                 $part = $socket->recv($data,3000);
+                                if(length($data)>1500){
+                                    xCAT::MsgUtils->message("S", "$0: received ".length($data)."B data packet from ".$socket->peerhost);
+                                }
                                 $packets{$part} = [ $part, $data ];
 
                                 #} elsif ($hdl == $sslctl) {