use local checkout

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

diff --git a/bin/html.pl b/bin/html.pl
index 537ded0..6039b36 100755 (executable)
--- a/bin/html.pl
+++ b/bin/html.pl
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
 use warnings;
 use strict;
 

-my $recepies = '/srv/sysadmin-cookbook/recepies';
+my $recepies = 'recepies/';

 
 use File::Find;
 use File::Slurp;
 
 use File::Find;
 use File::Slurp;


@@ -47,7 +47,7 @@ sub file {
 
 my @names;
 find({ follow => 0, no_chdir => 1, wanted => sub {
 
 my @names;
 find({ follow => 0, no_chdir => 1, wanted => sub {

-       push @names, $_ unless m{/\.};
+       push @names, $_ unless m{/\.} || m{^\.};

 }}, $recepies );
 
 my $last_level = 0;
 }}, $recepies );
 
 my $last_level = 0;


@@ -75,6 +75,8 @@ my $to_path = '';
 
 foreach my $path ( sort @names ) {
 
 
 foreach my $path ( sort @names ) {
 

+       next if ( -d $path && ! -e "$path/.svn" );
+

        my $name = $path;
        $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
        next unless $name;
        my $name = $path;
        $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
        next unless $name;