… | |
… | |
283 | |
283 | |
284 | sub event_update_users { |
284 | sub event_update_users { |
285 | my ($self, $add, $update, $remove) = @_; |
285 | my ($self, $add, $update, $remove) = @_; |
286 | |
286 | |
287 | $self->{userlist}->update ($add, $update, $remove); |
287 | $self->{userlist}->update ($add, $update, $remove); |
|
|
288 | |
|
|
289 | my %important; |
|
|
290 | $important{$self->{user1}{name}}++; |
|
|
291 | $important{$self->{user2}{name}}++; |
|
|
292 | $important{$self->{user3}{name}}++; |
|
|
293 | |
|
|
294 | if (my @users = grep $important{$_->{name}}, @$add) { |
|
|
295 | $self->{text}->append_text ("\n<header>Joins:</header>"); |
|
|
296 | $self->{text}->append_text (" <user>" . $_->as_string . "</user>") for @users; |
|
|
297 | } |
|
|
298 | if (my @users = grep $important{$_->{name}}, @$remove) { |
|
|
299 | $self->{text}->append_text ("\n<header>Parts:</header>"); |
|
|
300 | $self->{text}->append_text (" <user>" . $_->as_string . "</user>") for @users; |
|
|
301 | } |
|
|
302 | |
288 | } |
303 | } |
289 | |
304 | |
290 | sub join { |
305 | sub join { |
291 | my ($self) = @_; |
306 | my ($self) = @_; |
292 | return if $self->{joined}; |
307 | return if $self->{joined}; |