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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.105 by root, Tue Apr 24 01:13:15 2007 UTC vs.
Revision 1.107 by root, Sun Jun 24 03:46:46 2007 UTC

    $::GAUGES->{mana}    ->set_value ($sp, $sp_m);
    $::GAUGES->{food}    ->set_value ($fo, $fo_m);
    $::GAUGES->{grace}   ->set_value ($gr, $gr_m);
    $::GAUGES->{exp}     ->set_text ("Exp: " . (::formsep ($stats->{+CS_STAT_EXP64}))
                                     . " (lvl " . ($stats->{+CS_STAT_LEVEL} * 1) . ")");
-   my $rng = $stats->{+CS_STAT_RANGE};
+   $::GAUGES->{range}   ->set_text ($stats->{+CS_STAT_RANGE});
-   $rng =~ s/^Range: //;    # thank you so much dear server
-   $::GAUGES->{range}   ->set_text ("Rng: " . $rng);
    my $title = $stats->{+CS_STAT_TITLE};
    $title =~ s/^Player: //;
    $::STATWIDS->{title} ->set_text ("Title: " . $title);
    $::STATWIDS->{st_str} ->set_text (sprintf "%d"  , $stats->{+CS_STAT_STR});
    [0.74, 0.65, 0.41],
 );
 sub msg {
    my ($self, $color, $type, $text, @extra) = @_;
+   # we now weed out all tags we do not support
+   $text =~ s%<(?!/?i>|/?u>|/?b>|fg |/fg>)%&lt;%g;
+   # now all entities
+   $text =~ s/&(?!amp;|lt;|gt;|apos;|quot;|#[0-9]+;|#x[0-9a-fA-F]+;)/&amp;/g;
+   # handle some elements
+   $text =~ s/<fg name='([^']*)'>(.*?)<\/fg>/<span foreground='$1'>$2<\/span>/gs;
+   $text =~ s/<fg name="([^"]*)">(.*?)<\/fg>/<span foreground="$1">$2<\/span>/gs;
    if (my $cb = $self->{cb_msg}{$type}) {
       $_->($self, $color, $type, $text, @extra) for values %$cb;
    } elsif ($type =~ /^(?:chargen-race-title|chargen-race-description)$/) {
       $type =~ s/-/_/g;

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