| … | |
… | |
| 260 | } else { |
260 | } else { |
| 261 | return $room; |
261 | return $room; |
| 262 | } |
262 | } |
| 263 | } |
263 | } |
| 264 | |
264 | |
| 265 | sub calc_user_stats { |
265 | sub update_user_stats { |
| 266 | my ($self, $user) = @_; |
266 | my ($user) = @_; |
| 267 | |
267 | |
| 268 | if ($user->{name} =~ s/\cJ(\d+)$//) { |
268 | if ($user->{name} =~ s/\cJ(\d+)$//) { |
| 269 | $user->{age} = $1 |
269 | $user->{age} = $1 |
| 270 | } |
270 | } |
| 271 | |
271 | |
| 272 | if ($user->{picture} =~ m/\bmale/) { |
272 | if ($user->{picture} =~ m/\bmale/) { |
| 273 | $user->{gender} = 'm'; |
273 | $user->{gender} = 'm'; |
|
|
274 | |
| 274 | } elsif ($user->{picture} =~ m/female/) { |
275 | } elsif ($user->{picture} =~ m/female/) { |
| 275 | $user->{gender} = 'f'; |
276 | $user->{gender} = 'f'; |
| 276 | } |
277 | } |
| 277 | |
278 | |
| 278 | return $user; |
279 | return $user; |
| … | |
… | |
| 346 | flag => $_[2], |
347 | flag => $_[2], |
| 347 | color => $_[3], |
348 | color => $_[3], |
| 348 | picture => $_[4] |
349 | picture => $_[4] |
| 349 | }; |
350 | }; |
| 350 | |
351 | |
| 351 | $self->calc_user_stats ($user); |
352 | update_user_stats ($user); |
| 352 | |
353 | |
| 353 | my $rl = $self->{user_lists}->{lc $room}->{lc $user->{name}} = $user; |
354 | my $rl = $self->{user_lists}->{lc $room}->{lc $user->{name}} = $user; |
| 354 | |
355 | |
| 355 | $self->{proto}->feed_event (join_room => $room, $user); |
356 | $self->{proto}->feed_event (join_room => $room, $user); |
| 356 | }); |
357 | }); |
| … | |
… | |
| 402 | $cur_u->{picture} = $nxt; |
403 | $cur_u->{picture} = $nxt; |
| 403 | } |
404 | } |
| 404 | $i++; |
405 | $i++; |
| 405 | } |
406 | } |
| 406 | |
407 | |
| 407 | $self->calc_user_stats ($cur_u); |
408 | update_user_stats ($cur_u); |
| 408 | $rl->{lc $cur_u->{name}} = $cur_u; |
409 | $rl->{lc $cur_u->{name}} = $cur_u; |
| 409 | $cur_u = {}; |
410 | $cur_u = {}; |
| 410 | } |
411 | } |
| 411 | $self->{proto}->feed_event (user_list => $room, $rl); |
412 | $self->{proto}->feed_event (user_list => $room, $rl); |
| 412 | }); |
413 | }); |
