in reply to Re: Perl Monks hypocrisy
in thread Perl Monks hypocrisy
For what it's worth, I think tye's post sets out a plausible road map for dealing with this issue:
Am I sweeping too many details under the carpet, or might this only require a handful of lines of new code?
# In site init code somewhere use HTML::FromText; my %text2html_options = map ($_=>1) qw(paras blockcode urls email); ... # In preview form command handler if ( $op = "auto-format" ) { $doctext = text2html( $doctext, %text2html_options ); } ... # At bottom of preview page if ( $doctext !~ /\<\w+/ ) { my $markup = text2html( $doctext, %text2html_options ); if ( $doctext ne $markup ) { print "<hr>If the automatic formatting below looks correct, you ca +n apply it with <input type="submit" name="op" value="auto-format" /> +. <p>$markup"; } } ...
|
|---|