[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
CVS Update: gleipnir
- To: cvs@lists.cleannorth.org
- Subject: CVS Update: gleipnir
- From: Dan Brosemer <odin@cleannorth.org>
- Date: Fri, 1 Aug 2008 11:17:01 -0400 (EDT)
- List-help: <mailto:cvs-request@lists.cleannorth.org?subject=help>
- List-post: <mailto:cvs@lists.cleannorth.org>
- List-subscribe: <mailto:cvs-request@lists.cleannorth.org?subject=subscribe>
- List-unsubscribe: <mailto:cvs-request@lists.cleannorth.org?subject=unsubscribe>
- Resent-date: Fri, 1 Aug 2008 11:17:05 -0400 (EDT)
- Resent-from: cvs@lists.cleannorth.org
- Resent-message-id: <9rgKUC.A.c6H.HkykIB@skroob.cleannorth.org>
- Resent-sender: cvs-request@lists.cleannorth.org
Log Message:
-----------
Pass kb documents through HTML::Template
Modified Files:
--------------
gleipnir/public_html:
kb.pl
Revision Data
-------------
Index: kb.pl
===================================================================
RCS file: /cvs/gleipnir/public_html/kb.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -Lpublic_html/kb.pl -Lpublic_html/kb.pl -u -r1.26 -r1.27
--- public_html/kb.pl
+++ public_html/kb.pl
@@ -120,7 +120,9 @@
open FH, $kbdir . $topic;
my $body = join( "", <FH> );
close FH;
- $gleipnir->body( Gleipnir::HTML::GetBody($body) );
+ my $parse = Gleipnir::HTML::GetBody($body);
+ my $template = HTML::Template->new( scalarref => \$parse );
+ $gleipnir->body( $template->output );
my %h = %{Gleipnir::HTML::GetKV($body)};
$gleipnir->showheader($h{decoration}) if defined($h{decoration});
$gleipnir->sidebar($h{sidebar}) if defined($h{sidebar});
- Next by Date: CVS Update: gleipnir
- Next by thread: CVS Update: gleipnir
- Index(es):