use local checkout
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 15 Aug 2009 01:20:45 +0000 (01:20 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 15 Aug 2009 01:20:45 +0000 (01:20 +0000)
git-svn-id: file:///home/dpavlin/private/svn/sysadmin-cookbook-html@8 3e18072f-9615-4e06-9d3a-648eafba3f8d

bin/html.pl

index 537ded0..6039b36 100755 (executable)
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-my $recepies = '/srv/sysadmin-cookbook/recepies';
+my $recepies = 'recepies/';
 
 use File::Find;
 use File::Slurp;
@@ -47,7 +47,7 @@ sub file {
 
 my @names;
 find({ follow => 0, no_chdir => 1, wanted => sub {
-       push @names, $_ unless m{/\.};
+       push @names, $_ unless m{/\.} || m{^\.};
 }}, $recepies );
 
 my $last_level = 0;
@@ -75,6 +75,8 @@ my $to_path = '';
 
 foreach my $path ( sort @names ) {
 
+       next if ( -d $path && ! -e "$path/.svn" );
+
        my $name = $path;
        $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
        next unless $name;