[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Protocol.pm

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.171 by root, Sat Sep 1 08:08:52 2007 UTC vs.
Revision 1.175 by root, Thu Sep 6 15:06:25 2007 UTC

 use CFPlus::DB;
 use CFPlus::UI;
 use CFPlus::Pod;
 use CFPlus::Macro;
 use CFPlus::Item;
-use Crossfire::Protocol::Base 0.95;
 use base 'Crossfire::Protocol::Base';
 sub new {
    my ($class, %arg) = @_;
 sub sanitise_xml($) {
    local $_ = shift;
    # we now weed out all tags we do not support
-   s%<(?!/?i>|/?u>|/?b>|fg |/fg>)%&lt;%g;
+   s{ <(?! /?i> | /?u> | /?b> | /?big | /?small | /?s | /?tt | fg\ | /fg>)
+   }{
+      "&lt;"
+   }gex;
    # now all entities
    s/&(?!amp;|lt;|gt;|apos;|quot;|#[0-9]+;|#x[0-9a-fA-F]+;)/&amp;/g;
    # handle some elements
    s/<fg name='([^']*)'>(.*?)<\/fg>/<span foreground='$1'>$2<\/span>/gs;
          ::message ({
             fg     => $fg,
             markup => $_,
             type   => $type,
             extra  => [@extra],
-            color_flags  => $color, #d# ugly, kill
+            color_flags => $color, #d# ugly, kill
          });
          $color &= ~NDI_CLEAR; # only clear once for multiline messages
          # actually, this is an ugly design. _we_ should control the channels,
          # not some random other widget, as the channels are clearly protocol-specific.
       $self->{statusbox}->add ($text,
          group        => $text,
          fg           => $fg,
          timeout      => $color >= 2 ? 180 : 10,
          tooltip_font => $::FONT_FIXED,
-      );
+      ) if $type eq "info";
    }
 }
 sub spell_add {
    my ($self, $spell) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines