… | |
… | |
109 | $self->listen ($self->{protocol}); |
109 | $self->listen ($self->{protocol}); |
110 | $self->{roomlist}->listen ($self->{protocol}); |
110 | $self->{roomlist}->listen ($self->{protocol}); |
111 | #$self->{gamelist}->listen ($conn); |
111 | #$self->{gamelist}->listen ($conn); |
112 | |
112 | |
113 | # now login |
113 | # now login |
114 | $ENV{KGSUEME_CLIENTVER} ||= "1.4.1_01:Swing app:Sun Microsystems Inc."; # he asked for it...#d# |
114 | $ENV{KGSUEME_CLIENTVER} ||= "1.4.2_03:Swing app:Sun Microsystems Inc."; # he asked for it...#d# |
115 | $self->{protocol}->login ($ENV{KGSUEME_CLIENTVER} || "kgsueme $VERSION $^O", # allow users to overwrite |
115 | $self->{protocol}->login ($ENV{KGSUEME_CLIENTVER} || "kgsueme $VERSION $^O", # allow users to overwrite |
116 | $self->{login}->get_text, |
116 | $self->{login}->get_text, |
117 | $self->{password}->get_text, |
117 | $self->{password}->get_text, |
118 | "en_US"); |
118 | "en_US"); |
119 | |
119 | |