[cgiapp] Re: cleaning up html?

[Mark Stosberg <suppressed>]

On 2005-04-24, Rhesa Rozendaal <suppressed> wrote:
> # In my base class:
>
> use HTML::Tidy 1.05_02; # this version has support for config files
> our $HTMLTIDY;
>
> sub tidy_clean
> {
>      my ($self, $html) = @_;
>      $HTMLTIDY ||= HTML::Tidy->new({config_file => '/etc/tidy.conf'});
>      return $HTMLTIDY->clean($html);
> }
>
> # somewhere in postrun:
>
>      if($self->header_type eq 'header')
>      {
>          my %props = $self->header_props;
>          if(!exists($props{'-type'}) or $props{'-type'} eq 'text/html')
>          {
>              $self->header_add(-type=>'text/html', -charset=>'utf-8');
>
>              $$outputref = $self->tidy_clean($$outputref);
>              if( $outputref !~ m/equiv.*charset/ )
>              {
>                  $$outputref =~ s|(<head.*?>)|$1\n  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />|si;
>              }
>
>              $self->header_add(-Content_length=>length($$outputref));
>          }
>      }
>
> With the new proposed callback functionality, this could be added completely transparently. For the current version of cgi-app, it can still 
> be added with very little code. I don't think the utf8 code _has_ to be in there, but I needed it.
>
> Do you think it would make sense to make a plugin for this?

Yes. It sounds like something someone else would find useful. My
ValidateRM is nearly as short.

    Mark

--
 . . . . . . . . . . . . . . . . . . . . . . . . . . . 
   Mark Stosberg            Principal Developer  
   suppressed     Summersault, LLC     
   765-939-9301 ext 202     database driven websites
 . . . . . http://www.summersault.com/ . . . . . . . .


---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/suppressed/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed