Changeset 101

Show
Ignore:
Timestamp:
12/31/09 16:18:03 (4 years ago)
Author:
jesus
Message:

Add support for <%~ .... %> which does HTML entity encoding before output

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lib/Mungo.pm

    r97 r101  
    616616  # fixup code 
    617617  $string =~ s/ 
    618                 <%(=?)(.*?)%> 
     618                <%([~=]?)(.*?)%> 
    619619              / 
    620               $1 ? 
    621                 "print $2;" :           # This is <%= ... %> 
    622                 "$2;"                   # This is <% ... %> 
     620              ($1 eq '~') ? "print HTML::Entities::encode_entities($2);" : 
     621                ($1 eq '=') ?  
     622                  "print $2;" :           # This is <%= ... %> 
     623                  "$2;"                   # This is <% ... %> 
    623624              /sexg; 
    624625  return $string;