http://www.perlmonks.org?node_id=758393


in reply to Re: Free Nodelet, JavaScript and PM links (words)
in thread Free Nodelet, JavaScript and PM links

But it is, I think. Omitting most of the script, it is like this:

<script type="text/javascript">
<!--
//  "When a society has no colored pants to differentiate class...

...

setTimeout('Colorize()', 600);

// -->
</script>

[download]

I even tried getting rid of the "//" in front of the "-->", but still it wasn't right.

update: I tried putting your example in my free nodelet and it is rendered as:

<script type="text/javascript"><!--
alert("a<a href="?node=n">n</a> alert");
--></script>

[download]

Maybe there is an option I must set somewhere??

Replies are listed 'Best First'.
Re^3: Free Nodelet, JavaScript and PM links (bug)
by tye (Sage) on Apr 18, 2009 at 04:05 UTC

    The code I included that parsed the Free Nodelet contents doesn't look at any user settings...

    Aha! Here is the problem code: 

        if(  $html =~ /`/  ) {
        $html= htmlcode( 'expandfreenodelet','', $html );
    } else {
        $html =~ s/\[(.*?)\]/handleLinks($1,getId($NODE))/egs;
    }

    [download]

    So the special handling of HTML comments doesn't happen unless there is at least one ` somewhere in your Free Nodelet. I'll fix that.

    Thanks for the bug report and the patience at my missing some of the details you provided.

    Update: I've fixed it.

    - tye        

[reply]
[d/l]

      It's working now. Thanks much!!

[reply]
Re^3: Free Nodelet, JavaScript and PM links (code)
by tye (Sage) on Apr 18, 2009 at 03:45 UTC
    Omitting most of the script

    That requires that I omit most of my diagnosis. :)

    No, // won't matter. Also, contrary to the HTML specification, not even -- matters (as far as PerlMonks is concerned "HTML comments" simply start with <!-- and end with -->).

    Since you don't give me much to work with, I'll give you the code (that manipulates the contents of the Free Nodelet) and you can diagnose the problem: 

    $html =~ s{`([\[\]]|`+|(\w+)([%&\\]?)`?|.)}{
    my $s= $1;
    if(  '[' eq $s  ) {
        $just ? '[' : '`{';
    } elsif(  ']' eq $s  ) {
        $just ? ']' : '`}';
    } elsif(  defined $2  ) {
        my( $key, $suff )= ( $2, $3 );
        my $val;
        if(  $key =~ /^_./  ) {
            $val= $q->param($key);
            $val= $q->param( substr($key,1) )
                if  ! defined $val;
        } else {
            $key =~ s/_name$/_title/i;
            $val= $var{ lc $key };
        }
        if(  ! defined $val  ) {
            $val= "`$key$suff`"
        } elsif(  $suff eq '%'  ) {
            $val= $q->escape($val);
        } elsif(  $suff eq '&'  ) {
            $val= $q->escapeHTML($val);
        } elsif(  $suff eq '\\'  ) {
            $val=~ s/(['"\\])/\\$1/g;
        }
        $val;
    } elsif(  $s =~ /^`/  ) {
        $just ? $s : '`'.$s;
    } else {
        $just ? '`'.$s : '``'.$s;
    }
}seg;

return $html   if  $just;

$html =~ s{(<!--.*?-->)|\[([^\[\]]{1,4096})\]}{
    $1 ? $1 : handleLinks($2)
}seg;

$html =~ s{`([{}]|`+|.)}{
    my $s= $1;
    if(  '{' eq $s  ) {
        '[';
    } elsif(  '}' eq $s  ) {
        ']';
    } elsif(  $s =~ /^`/  ) {
        $s;
    } else {
        '`'.$s;
    }
}seg;

    [download]

    - tye        

[reply]
[d/l]
[select]
[reply]

In Section Perl Monks Discussion