commit 2033589e4a13ff3cda23c266f0536d2686652041
parent 82c70134ed7ed587dafdc21a024b8b7bd4e0bee4
Author: kyle <kyle@getaddrinfo.net>
Date: Sat, 30 May 2015 01:40:26 -0400
sl: try to make it work
Diffstat:
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/sl b/sl
@@ -78,6 +78,8 @@ while (my ($new_sock, $bin_addr) = $sock->accept()) {
print "info: new connection from $addr:$port\n";
my $hdr = $addr;
+ binmode($new_sock);
+
read $new_sock, my $msg_type, 1;
my $msg_size_size = undef;
@@ -86,17 +88,20 @@ while (my ($new_sock, $bin_addr) = $sock->accept()) {
$msg_size_size = 1 if ($msg_type == 3);
$msg_size_size = 1 if ($msg_type == 4);
- if ($msg_size_size == undef) {
+ unless (defined $msg_size_size) {
print "warn: unknown msg type " . printf "%x\n", $msg_type;
close $new_sock;
next;
}
- print "info: received msg type " . printf "%x\n", $msg_type;
+ print "info: msg size size = $msg_size_size\n";
+ my $ascii_msg_type = sprintf("%x", $msg_type);
+ print "info: received msg type $ascii_msg_type\n";
read($new_sock, my $msg_size, $msg_size_size);
if ($msg_size == 0) {
print "warn: empty message received\n";
}
+ print "info: msg size = $msg_size\n";
read($new_sock, my $msg, $msg_size);