about binary format/scan

when CLIENT_ACCEPTED {

 

TCP::collect 1

 

}

 

when CLIENT_DATA {

 

set payload [TCP::payload ]

 

binary scan c $payload jieguo

 

if { $jieguo equals "6" } {

 

TCP::payload replace 0 1 ""

 

pool test-socket }

 

TCP::release

 

}