From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 1 May 2010 12:53:41 +0000 (+0000)
Subject: link to .pl files
X-Git-Url: http://git.rot13.org/?p=sysadmin-cookbook-html;a=commitdiff_plain;h=417e31317258b1aaeeeb043c3b11581a75feaec8;ds=sidebyside

link to .pl files

git-svn-id: file:///home/dpavlin/private/svn/sysadmin-cookbook-html@13 3e18072f-9615-4e06-9d3a-648eafba3f8d
---

diff --git a/bin/html.pl b/bin/html.pl
index 701838d..f247856 100755
--- a/bin/html.pl
+++ b/bin/html.pl
@@ -43,7 +43,7 @@ sub file {
 	$path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next;
 	return ''
 		. qq|<ul class=changes>$changes</ul>|
-		. ( $path =~ m{(\.sh|Makefile|\.conf)$}i ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' )
+		. ( $path =~ m{(\.sh|Makefile|\.conf|\.pl)$}i || -e $path ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' )
 		. qq|<pre class=content>$content</pre>|
 		;
 }