… | |
… | |
67 | if ($msg) { |
67 | if ($msg) { |
68 | $msg = $msg->(substr $pkt, 4); |
68 | $msg = $msg->(substr $pkt, 4); |
69 | |
69 | |
70 | $prot->{generator}->set_server_seed ($msg->{name}) if $msg->{type} eq "login"; |
70 | $prot->{generator}->set_server_seed ($msg->{name}) if $msg->{type} eq "login"; |
71 | |
71 | |
|
|
72 | delete $msg->{data} if $msg->{type} eq "userpic"; |
|
|
73 | |
72 | print "\npacket type $msg->{type} received from CLIENT:\n"; |
74 | print "\npacket type $msg->{type} received from CLIENT:\n"; |
73 | open XTYPE, "|xtype"; printf XTYPE "%16d%s", (length $pkt), $pkt; close XTYPE; |
75 | open XTYPE, "|xtype"; printf XTYPE "%16d%s", (length $pkt), $pkt; close XTYPE; |
74 | print KGS::Listener::Debug::dumpval $msg; |
76 | print KGS::Listener::Debug::dumpval $msg; |
75 | } else { |
77 | } else { |
76 | print "\007\n\nUNKNOWN PACKET TYPE RECEIVED FROM CLIENT:\n"; |
78 | print "\007\n\nUNKNOWN PACKET TYPE RECEIVED FROM CLIENT:\n"; |
… | |
… | |
105 | use base KGS::Listener; |
107 | use base KGS::Listener; |
106 | |
108 | |
107 | sub inject { |
109 | sub inject { |
108 | my ($self, $msg) = @_; |
110 | my ($self, $msg) = @_; |
109 | |
111 | |
|
|
112 | delete $msg->{data} if $msg->{type} eq "userpic"; |
|
|
113 | |
110 | print "received packet type $msg->{type} from SERVER\n"; |
114 | print "received packet type $msg->{type} from SERVER\n"; |
111 | print KGS::Listener::Debug::dumpval $msg; |
115 | print KGS::Listener::Debug::dumpval $msg; |
112 | } |
116 | } |
113 | |
117 | |
114 | |
118 | |