/[sysadmin-cookbook-html]/bin/html.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/html.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by dpavlin, Mon May 18 19:15:05 2009 UTC revision 8 by dpavlin, Sat Aug 15 01:20:45 2009 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  my $recepies = '/srv/sysadmin-cookbook/recepies';  my $recepies = 'recepies/';
7    
8  use File::Find;  use File::Find;
9  use File::Slurp;  use File::Slurp;
# Line 47  sub file { Line 47  sub file {
47    
48  my @names;  my @names;
49  find({ follow => 0, no_chdir => 1, wanted => sub {  find({ follow => 0, no_chdir => 1, wanted => sub {
50          push @names, $_ unless m{/\.};          push @names, $_ unless m{/\.} || m{^\.};
51  }}, $recepies );  }}, $recepies );
52    
53  my $last_level = 0;  my $last_level = 0;
# Line 75  my $to_path = ''; Line 75  my $to_path = '';
75    
76  foreach my $path ( sort @names ) {  foreach my $path ( sort @names ) {
77    
78            next if ( -d $path && ! -e "$path/.svn" );
79    
80          my $name = $path;          my $name = $path;
81          $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;          $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
82          next unless $name;          next unless $name;
Legend:
Removed from v.7  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26