| … | |
… | |
| 698 | $text .= "\n<header>Move <move>$node->{move}</move>, Node <node>$node->{id}</node></header>" |
698 | $text .= "\n<header>Move <move>$node->{move}</move>, Node <node>$node->{id}</node></header>" |
| 699 | if $newnode; |
699 | if $newnode; |
| 700 | |
700 | |
| 701 | for (split /\n/, $comment) { |
701 | for (split /\n/, $comment) { |
| 702 | $text .= "\n"; |
702 | $text .= "\n"; |
| 703 | if ($_ =~ s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) { |
703 | if (s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) { |
| 704 | $text .= "<user>" . (util::toxml $1) . "</user>:"; |
704 | $text .= "<user>" . (util::toxml $1) . "</user>:"; |
| 705 | } |
705 | } |
| 706 | # |
706 | |
| 707 | # only for 19x19 so far |
707 | # coords only for 19x19 so far |
| 708 | $_ .= util::toxml $_; |
708 | $_ = util::toxml $_; |
| 709 | s{ |
709 | s{ |
| 710 | ( |
710 | ( |
| 711 | \b |
711 | \b |
| 712 | (?:[bw])? |
712 | (?:[bw])? |
| 713 | [, ]{0,2} |
713 | [, ]{0,2} |
|
|
714 | [a-t] |
|
|
715 | \s? |
| 714 | [a-t]\s?[0-9]{1,2}) |
716 | [0-9]{1,2} |
| 715 | (?=[^0-9] |
717 | \b |
| 716 | ) |
718 | ) |
| 717 | }{ |
719 | }{ |
| 718 | "<coord>$1</coord>"; |
720 | "<coord>$1</coord>"; |
| 719 | }sgexi; |
721 | }sgexi; |
| 720 | |
722 | |
