Created
February 20, 2019 21:09
-
-
Save pliablepixels/5eb3c277cb53d6596854d77a07480e64 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/zmeventnotification.pl b/zmeventnotification.pl | |
index cd622ab..b20d663 100755 | |
--- a/zmeventnotification.pl | |
+++ b/zmeventnotification.pl | |
@@ -41,7 +41,9 @@ use Time::HiRes qw/gettimeofday/; | |
use Symbol qw(qualify_to_ref); | |
use IO::Select; | |
-#use Data::Dump qw(dump); | |
+# debugging only | |
+use Data::Dumper; | |
+ | |
# ========================================================================== | |
# | |
# Starting v1.0, configuration has moved to a separate file, please make sure | |
@@ -1939,6 +1941,7 @@ sub initSocketServer | |
printDebug("---------->onConnect START<--------------"); | |
my ($len) = scalar @active_connections; | |
printInfo ("got a websocket connection from ".$conn->ip()." (". $len.") active connections"); | |
+ #print Dumper($conn); | |
$conn->on( | |
utf8 => sub { | |
printDebug("---------->onConnect msg START<--------------"); | |
@@ -1950,6 +1953,7 @@ sub initSocketServer | |
handshake => sub { | |
my ($conn, $handshake) = @_; | |
printDebug("---------->onConnect:handshake START<--------------"); | |
+ print Dumper($handshake); | |
my $id = gettimeofday; | |
printInfo ("Websockets: New Connection Handshake requested from ".$conn->ip().":".$conn->port()." state=pending auth, id=".$id); | |
my $connect_time = time(); |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment