| … | |
… | |
| 89 | my ($self) = @_; |
89 | my ($self) = @_; |
| 90 | |
90 | |
| 91 | $self->{conn}->disconnect; |
91 | $self->{conn}->disconnect; |
| 92 | |
92 | |
| 93 | # initialize new socket and connection |
93 | # initialize new socket and connection |
| 94 | my $sock = new IO::Socket::INET PeerHost => "kgs.kiseido.com", PeerPort => "2379" |
94 | #my $sock = new IO::Socket::INET PeerHost => "kgs.kiseido.com", PeerPort => "2379" |
|
|
95 | my $sock = new IO::Socket::INET PeerHost => $ENV{KGSHOST} || "kgs.kiseido.com", PeerPort => "2379" |
| 95 | or die; |
96 | or die; |
| 96 | |
97 | |
| 97 | $sock->blocking(1); |
98 | $sock->blocking(1); |
| 98 | $self->{conn}->handshake($sock); |
99 | $self->{conn}->handshake($sock); |
| 99 | $sock->blocking(0); |
100 | $sock->blocking(0); |
| … | |
… | |
| 125 | } |
126 | } |
| 126 | |
127 | |
| 127 | sub inject_login { |
128 | sub inject_login { |
| 128 | my ($self, $msg) = @_; |
129 | my ($self, $msg) = @_; |
| 129 | |
130 | |
| 130 | appwin::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}'"); |
131 | appwin::status("login", "logged in as '$self->{conn}{name}' with status '$msg->{result}' ('$msg->{reason}')"); |
| 131 | $::config->{login} = $self->{conn}{name}; |
132 | $::config->{login} = $self->{conn}{name}; |
| 132 | |
133 | |
| 133 | if ($msg->{success}) { |
134 | if ($msg->{success}) { |
| 134 | # auto-join |
135 | # auto-join |
| 135 | for (values %{$::config->{rooms}}) { |
136 | for (values %{$::config->{rooms}}) { |
