| … | … | ||
|---|---|---|---|
| 115 | } | 115 | } |
| 116 | 116 | ||
| 117 | sub event_msg { | 117 | sub event_msg { |
| 118 | my ($self, $name, $message) = @_; | 118 | my ($self, $name, $message) = @_; |
| 119 | 119 | ||
| 120 | $message =~ s/&/&/g; | ||
| 121 | $message =~ s/</</g; | ||
| 122 | |||
| 120 | $self->{chat}->append_text ("\n<user>$name</user>: $message"); | 123 | $self->{chat}->append_text ("\n<user>$name</user>: $message"); |
| 121 | } | 124 | } |
| 122 | 125 | ||
| 123 | sub destroy { | 126 | sub destroy { |
| 124 | my ($self) = @_; | 127 | my ($self) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |