PLP - Source

<(template.plp)>

<: BEGIN { $title = 'Source'; } :>

<a href="/source/template.plp">Source of template.plp</a>

<ol>

$ENV{QUERY_STRING} =~ s{/}{}g;

if (-e $ENV{QUERY_STRING}){

open (A, $ENV{QUERY_STRING});

undef $/;

$sourcez = Entity(<A>);

close A;

}

$sourcez=~ s/\n/<\/li>\n<li>/g;

$sourcez=~ s/<:/<:/gs;

$sourcez=~ s/:>/:><\/font>/gs;

$sourcez=~ s/(<\[.*?\]>)/$1<\/font>/gs;

$sourcez=~ s/<\(/<(/gs;

$sourcez=~ s/\)>/)><\/font>/gs;

$sourcez="<li>$sourcez";

<:=$sourcez:>

</ol>


Overview Download Installation Docs Tutorial Credits Page Source Hosted by: Convolution	Source of template.plp Back <(template.plp)> <: BEGIN { $title = 'Source'; } :> <a href="/source/template.plp">Source of template.plp</a><br> <a href="javascript:history.back();">Back</a> <ol> <: $ENV{QUERY_STRING} =~ s{/}{}g; if (-e $ENV{QUERY_STRING}){ open (A, $ENV{QUERY_STRING}); undef $/; $sourcez = Entity(<A>); close A; } $sourcez=~ s/\n/<\/li>\n<li>/g; $sourcez=~ s/<:/<font color=green><:/gs; $sourcez=~ s/:>/:><\/font>/gs; $sourcez=~ s/(<\[.*?\]>)/<font color=blue>$1<\/font>/gs; $sourcez=~ s/<\(/<font color=red><(/gs; $sourcez=~ s/\)>/)><\/font>/gs; $sourcez="<li>$sourcez"; :> <font face="fixedsys,fixed,courier"> <:=$sourcez:> </ol> </font>