| … | |
… | |
| 190 | } |
190 | } |
| 191 | |
191 | |
| 192 | sub open_user { |
192 | sub open_user { |
| 193 | my ($self, %arg) = @_; |
193 | my ($self, %arg) = @_; |
| 194 | |
194 | |
| 195 | ($self->{user}{$arg{name}} ||= new user %arg, conn => $self->{conn}, app => $self) |
195 | ($self->{user}{lc $arg{name}} ||= new user %arg, conn => $self->{conn}, app => $self) |
| 196 | ->join; |
196 | ->join; |
| 197 | $self->{user}{$arg{name}}; |
197 | $self->{user}{lc $arg{name}}; |
| 198 | } |
198 | } |
| 199 | |
199 | |
| 200 | sub do_command { |
200 | sub do_command { |
| 201 | my ($self, $chat, $cmd, $arg, %arg) = @_; |
201 | my ($self, $chat, $cmd, $arg, %arg) = @_; |
| 202 | |
202 | |
