Rev 935 | Rev 1035 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed
| Rev 935 | Rev 974 | ||
|---|---|---|---|
| Line 300... | Line 300... | ||
| 300 | } else { |
300 | } else { |
| 301 | $line =~ s/\n.*//gm; #remove newline and everything after it |
301 | $line =~ s/\n.*//gm; #remove newline and everything after it |
| 302 | $line =~ s/\r.*//gm; #remove linefeed and everything after it |
302 | $line =~ s/\r.*//gm; #remove linefeed and everything after it |
| 303 | print "Got packet '".$line."' from client ".$tcpSsocket->fileno."\n"; |
303 | print "Got packet '".$line."' from client ".$tcpSsocket->fileno."\n"; |
| 304 | 304 | ||
| - | 305 | if ($line eq "PING") { |
|
| - | 306 | print "Sending PONG to client ".$tcpSsocket->fileno."\n"; |
|
| - | 307 | ||
| - | 308 | $tcpSsocket->send("PONG\n"); |
|
| - | 309 | } |
|
| - | 310 | else |
|
| - | 311 | { |
|
| 305 | $rxerror = 0; |
312 | $rxerror = 0; |
| 306 | testPacket($line, 0, $rxerror); |
313 | testPacket($line, 0, $rxerror); |
| 307 | 314 | ||
| 308 | if ($rxerror == 0) { |
315 | if ($rxerror == 0) { |
| 309 | #Add newline to each packet |
316 | #Add newline to each packet |
| 310 | $line .= "\n"; |
317 | $line .= "\n"; |
| 311 | 318 | ||
| 312 | &tcpServerBroadcastExcept($line, $tcpSsocket); |
319 | &tcpServerBroadcastExcept($line, $tcpSsocket); |
| - | 320 | } |
|
| 313 | } |
321 | } |
| 314 | } |
322 | } |
| 315 | } |
323 | } |
| 316 | } |
324 | } |
| 317 | } |
325 | } |