% $m->call_next; <%init> dbh->{'private_profile'} = {} if UNIVERSAL::can(dbh, 'sprintProfile'); <%filter> my $profile = ''; if ( UNIVERSAL::can(dbh, 'sprintProfile') ) { if ( lc($r->content_type) eq 'text/html' ) { $profile = '
'. ("\n"x4096). encode_entities(dbh->sprintProfile()).
               #"\n\n". &sprintAutoProfile(). '
'; "\n\n". ''; } dbh->{'private_profile'} = {}; } s/(<\/BODY>[\s\n]*<\/HTML>[\s\n]*)$/$profile$1/i;