CVS Update: gleipnir

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Default file type image.
No banana.

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

Revision Data
-------------
Index: kb.pl
===================================================================
RCS file: /cvs/gleipnir/public_html/kb.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -Lpublic_html/kb.pl -Lpublic_html/kb.pl -u -r1.29 -r1.30
--- public_html/kb.pl
+++ public_html/kb.pl
@@ -82,7 +82,6 @@
 	my $redirect = $cgi->url . $ENV{PATH_INFO} . "/";
 	$redirect .= "?$ENV{QUERY_STRING}" if $ENV{QUERY_STRING};
 	$gleipnir->url($redirect);
-	print "banana\n";
 	print $gleipnir->output;
 	exit;
 	}
@@ -207,8 +206,9 @@
 
 		$item =~ s/\.tmpl$/.html/;
 		my $type = ( MIME::Types::by_suffix( $gleipnir->cfetch( dirs => 'kbdir' ) . $topic . $item ) )[0];
-		$type = "folder" if ( -d $gleipnir->cfetch( dirs => 'kbdir' ) . $topic . $item );
 		$type = "binary" unless $type;
+		$type = 'binary' unless (-r $gleipnir->cfetch(dirs=>'docroot').'/images/icons/'.$type.'.gif');
+		$type = "folder" if ( -d $gleipnir->cfetch( dirs => 'kbdir' ) . $topic . $item );
 		$item .= "/" if $type eq 'folder';
 
 		push(