Update of /cvsroot/lxr/lxr/lib/LXR
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv4220/lib/LXR
Modified Files:
Template.pm
Log Message:
Template.pm: new variants in tree designation, better HTTP security
Also, better comments and various Perl source optimisations
Index: Template.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Template.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- Template.pm 5 Jun 2013 17:01:41 -0000 1.25
+++ Template.pm 24 Sep 2013 07:52:05 -0000 1.26
@@ -42,6 +42,8 @@
our @EXPORT = qw(
gettemplate
expandtemplate
+ varbtnaction
+ urlexpand
makeheader
makefooter
makeerrorpage
@@ -71,9 +73,10 @@
=item 1 C<$prefix>
[...975 lines suppressed...]
sub makeerrorpage {
@@ -1644,14 +1742,15 @@
);
# Emit a simple HTTP header
- print("Content-Type: text/html; charset=iso-8859-1\n");
- print("\n");
+# print("Content-Type: text/html; charset=iso-8859-1\n");
+# print("\n");
print(
expandtemplate
( $template
- , ( 'target' => sub { targetexpand(@_, $who) }
+ , ( 'target' => sub { targetexpand(@_, $who) }
, 'stylesheet' => \&stylesheet
+ , 'baseurl' => \&baseurl
, 'LXRversion' => sub { "%LXRRELEASENUMBER%" }
)
)
|
