| … | |
… | |
| 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 | print "\npackage type received from CLIENT:\n"; |
72 | print "\npacket type $msg->{type} received from CLIENT:\n"; |
| 73 | open XTYPE, "|xtype"; printf XTYPE "%16d%s", (length $pkt), $pkt; close XTYPE; |
73 | #open XTYPE, "|xtype"; printf XTYPE "%16d%s", (length $pkt), $pkt; close XTYPE; |
| 74 | print KGS::Listener::Debug::dumpval $msg; |
74 | print KGS::Listener::Debug::dumpval $msg; |
| 75 | } else { |
75 | } else { |
| 76 | print "\007\n\nUNKNOWN PACKAGE TYPE RECEIVED FROM CLIENT:\n"; |
76 | print "\007\n\nUNKNOWN PACKET TYPE RECEIVED FROM CLIENT:\n"; |
| 77 | open XTYPE, "|xtype"; printf XTYPE "%16d%s", (length $pkt), $pkt; close XTYPE; |
77 | open XTYPE, "|xtype"; printf XTYPE "%16d%s", (length $pkt), $pkt; close XTYPE; |
| 78 | } |
78 | } |
| 79 | |
79 | |
| 80 | $rlen = 0; |
80 | $rlen = 0; |
| 81 | } else { |
81 | } else { |
| … | |
… | |
| 105 | use base KGS::Listener; |
105 | use base KGS::Listener; |
| 106 | |
106 | |
| 107 | sub inject { |
107 | sub inject { |
| 108 | my ($self, $msg) = @_; |
108 | my ($self, $msg) = @_; |
| 109 | |
109 | |
| 110 | print "received msg from SERVER\n"; |
110 | print "received packet type $msg->{type} from SERVER\n"; |
| 111 | print KGS::Listener::Debug::dumpval $msg; |
111 | print KGS::Listener::Debug::dumpval $msg; |
| 112 | } |
112 | } |
| 113 | |
113 | |
| 114 | |
114 | |
