CVS Update: gleipnir

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Only set the redirect_url on filetypes with decoration

Modified Files:
--------------
    gleipnir/public_html:
        kb.pl

Revision Data
-------------
Index: kb.pl
===================================================================
RCS file: /cvs/gleipnir/public_html/kb.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -Lpublic_html/kb.pl -Lpublic_html/kb.pl -u -r1.31 -r1.32
--- public_html/kb.pl
+++ public_html/kb.pl
@@ -35,7 +35,7 @@
 use MIME::Types;
 use CGI;
 
-my $gleipnir = new Gleipnir;
+my $gleipnir = new Gleipnir ( -noredir => 1 );
 my $cgi      = $gleipnir->cgi;
 
 $gleipnir->sidebar('kb');
@@ -127,10 +127,12 @@
 
 	if ( $topic =~ m/\.tmpl$/ )
 		{
+		$gleipnir->setredir();
 		return ShowPage( -topic => $topic, -gleipnir => $gleipnir );
 		}
 	elsif ( $topic =~ m/\.html$/ )
 		{
+		$gleipnir->setredir();
 		open FH, $kbdir . $topic;
 		my $body = join( "", <FH> );
 		close FH;
@@ -189,6 +191,7 @@
 	my $topic    = $options{-topic};
 	my $gleipnir = $options{-gleipnir};
 
+	$gleipnir->setredir();
 	my $ot = $topic;
 	$topic =~ s|/[^/]*$|/|;
 	return $gleipnir->url("/kb$topic".($cgi->param('index')?'?index=1':'')) unless ( $ot eq $topic );