| … | |
… | |
| 383 | $important{$self->{black}{name}}++; |
383 | $important{$self->{black}{name}}++; |
| 384 | $important{$self->{white}{name}}++; |
384 | $important{$self->{white}{name}}++; |
| 385 | $important{$self->{owner}{name}}++; |
385 | $important{$self->{owner}{name}}++; |
| 386 | |
386 | |
| 387 | if (my @users = grep $important{$_->{name}}, @$add) { |
387 | if (my @users = grep $important{$_->{name}}, @$add) { |
| 388 | $self->{chat}->append_text ("\n<header>Joins:</header>"); |
388 | $self->{chat}->append_text ("\n<leader>Joins: </leader>"); |
| 389 | $self->{chat}->append_text (" <user>" . $_->as_string . "</user>") for @users; |
389 | $self->{chat}->append_text ("<user>" . $_->as_string . "</user>") for @users; |
| 390 | } |
390 | } |
| 391 | if (my @users = grep $important{$_->{name}}, @$remove) { |
391 | if (my @users = grep $important{$_->{name}}, @$remove) { |
| 392 | $self->{chat}->append_text ("\n<header>Parts:</header>"); |
392 | $self->{chat}->append_text ("\n<leader>Parts:</leader>"); |
| 393 | $self->{chat}->append_text (" <user>" . $_->as_string . "</user>") for @users; |
393 | $self->{chat}->append_text ("<user>" . $_->as_string . "</user>") for @users; |
| 394 | } |
394 | } |
| 395 | } |
395 | } |
| 396 | |
396 | |
| 397 | ### GAME INFO ############################################################### |
397 | ### GAME INFO ############################################################### |
| 398 | |
398 | |
| … | |
… | |
| 722 | if $newnode; |
722 | if $newnode; |
| 723 | |
723 | |
| 724 | for (split /\n/, $comment) { |
724 | for (split /\n/, $comment) { |
| 725 | $text .= "\n"; |
725 | $text .= "\n"; |
| 726 | if (s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) { |
726 | if (s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) { |
| 727 | $text .= "<user>" . (util::toxml $1) . "</user>:"; |
727 | $text .= "<leader><user>" . (util::toxml $1) . "</user>:</leader>"; |
| 728 | } |
728 | } |
| 729 | |
729 | |
| 730 | # coords only for 19x19 so far |
730 | # coords only for 19x19 so far |
| 731 | $_ = util::toxml $_; |
731 | $_ = util::toxml $_; |
| 732 | s{ |
732 | s{ |
