diff options
Diffstat (limited to 'httemplate/autohandler')
-rw-r--r-- | httemplate/autohandler | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/httemplate/autohandler b/httemplate/autohandler deleted file mode 100644 index 2bd3adf..0000000 --- a/httemplate/autohandler +++ /dev/null @@ -1,21 +0,0 @@ -% $m->call_next; -<%init> - dbh->{'private_profile'} = {} if UNIVERSAL::can(dbh, 'sprintProfile'); -</%init> -<%filter> - -my $profile = ''; -if ( UNIVERSAL::can(dbh, 'sprintProfile') ) { - - if ( lc($r->content_type) eq 'text/html' ) { - - $profile = '<PRE>'. ("\n"x4096). encode_entities(dbh->sprintProfile()). - #"\n\n". &sprintAutoProfile(). '</PRE>'; - "\n\n". '</PRE>'; - } - - dbh->{'private_profile'} = {}; -} - -s/(<\/BODY>[\s\n]*<\/HTML>[\s\n]*)$/$profile$1/i; -</%filter> |