Diff for /rat/map.pm between versions 1.5 and 1.6

version 1.5, 2007/01/16 21:18:08 version 1.6, 2007/01/26 23:37:51
Line 440  sub qtescape { Line 440  sub qtescape {
     $str=~s/\&\#58\;/\:/g;      $str=~s/\&\#58\;/\:/g;
     $str=~s/\&\#39\;/\'/g;      $str=~s/\&\#39\;/\'/g;
     $str=~s/\&\#44\;/\,/g;      $str=~s/\&\#44\;/\,/g;
     $str=~s/\"/\&\#34\;/g;      $str=~s/\&\#34\;/\"/g;
     return $str;      return $str;
 }  }
   
Line 626  sub savemap { Line 626  sub savemap {
 # --------------------------------------------------------------- Logical input  # --------------------------------------------------------------- Logical input
  if (($comp[$#comp] eq 'res') || ($comp[$#comp] eq 'zombie')) {   if (($comp[$#comp] eq 'res') || ($comp[$#comp] eq 'zombie')) {
     $comp[0]=qtescape($comp[0]);      $comp[0]=qtescape($comp[0]);
       $comp[0] = &HTML::Entities::encode($comp[0],'&<>"');
       
     $comp[1]=qtescape($comp[1]);      $comp[1]=qtescape($comp[1]);
     if ($comp[2] eq 'true') {      if ($comp[2] eq 'true') {
  if ($comp[1]!~/^http\:\/\//) {   if ($comp[1]!~/^http\:\/\//) {
Line 644  sub savemap { Line 646  sub savemap {
  $outstr.=' type="'.$comp[3].'"';   $outstr.=' type="'.$comp[3].'"';
     }      }
     if ($comp[0] ne '') {      if ($comp[0] ne '') {
  $outstr.=' title="'.&HTML::Entities::encode($comp[0]).'"';   $outstr.=' title="'.$comp[0].'"';
     }      }
     $outstr.=" />\n";      $outstr.=" />\n";
  } elsif ($comp[$#comp] eq 'cond') {   } elsif ($comp[$#comp] eq 'cond') {

Removed from v.1.5  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>