diff options
author | cvs2git <cvs2git> | 2004-04-07 09:08:35 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2004-04-07 09:08:35 +0000 |
commit | 022491d9d2723ca4d7d0718cdb1fd67e7652428e (patch) | |
tree | fc1e50c0d78ecc401ef2214a6a11ee07242be0f8 /httemplate/autohandler | |
parent | 35effa1bf4ac902547615c816960bbc8db8e7256 (diff) |
This commit was manufactured by cvs2svn to create tag 'NET_WHOIS_RAW_0_31'.NET_WHOIS_RAW_0_31
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 2bd3adffd..000000000 --- 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> |