X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=doclib%2Ffilter.pl;h=6a022e2f148b8549f630af4a47818a0205c02ab2;hb=65909c44022ccd7b97d4c2810fbf67ffa980207e;hp=dd192c8eeb8ba4c0778354fb50f32046362c81a1;hpb=f4b4a2e2e83b1ecceeae69efb8fa3d6e85a95d6f;p=senf.git

diff --git a/doclib/filter.pl b/doclib/filter.pl
index dd192c8..6a022e2 100755
--- a/doclib/filter.pl
+++ b/doclib/filter.pl
@@ -1,14 +1,21 @@
 #!/usr/bin/perl -n
 
+BEGIN {
+    ($topdir=$0) =~ s{doclib/.*$}{};
+		      print $topdir,"\n";
+}
+
 s/\s*$//;
 while (s/\t/' 'x(8-length($`)%8)/e) {}
 
 if (/^\s*\\code$/ .. /\\endcode/ && !/^$/) {
     $i=length($1) if /^(\s*)\\code$/;
     print substr($_,$i),"\n";
-} elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
+} 
+elsif (s/^(\s*)<pre>$/$1<pre class="fragment">/ .. /<\/pre>/ && !/^$/) {
     $i=length($1) if /^(\s*)<pre class="fragment">$/;
     print substr($_,$i),"\n";
-} else {
+} 
+else {
     print $_,"\n";
 }