[Lxr-commits] CVS: lxr/lib/LXR Template.pm,1.25,1.26

[Andre-Littoz <ajl...@us...>]

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%" }
 			)
 		)