diff options
| author | dakkar <dakkar@luxion> | 2009-01-06 12:08:52 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2009-01-06 12:08:52 +0000 |
| commit | 19eb0986cbcc2d2fab0d338a42339be357ba5eb0 (patch) | |
| tree | 9b9240097c181ba5fc4d249d199c513f932be237 /lib/WebCoso | |
| parent | forse i feed vanno (tranne i body); cleaner non elimina i sorgenti dei feed (diff) | |
| download | WebCoso-19eb0986cbcc2d2fab0d338a42339be357ba5eb0.tar.gz WebCoso-19eb0986cbcc2d2fab0d338a42339be357ba5eb0.tar.bz2 WebCoso-19eb0986cbcc2d2fab0d338a42339be357ba5eb0.zip | |
ora genera davvero i feed
git-svn-id: svn://luxion/repos/WebCoso/trunk@398 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 'lib/WebCoso')
| -rw-r--r-- | lib/WebCoso/Common.pm | 6 | ||||
| -rw-r--r-- | lib/WebCoso/Maker.pm | 4 |
2 files changed, 4 insertions, 6 deletions
diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm index 00f0b6b..30b18fe 100644 --- a/lib/WebCoso/Common.pm +++ b/lib/WebCoso/Common.pm @@ -154,6 +154,7 @@ sub getTags { sub fromTo { my ($base,$opts)=@_; + DEBUG("fromTo: $base,{@{[ %$opts ]}}"); my $iter=File::Next::files( { file_filter=>$opts->{files}, @@ -212,10 +213,7 @@ our %docfiles=( files=>sub{m{^document\.}}, dirs=>sub{!m{^(tags$|_|\.)}}); our %feedfiles=( - files=>sub{m{^feed\.(?:[^.]+\.)*tt$}}, - dirs=>sub{!m{^[_.]}}); -our %feedfilesXML=( - files=>sub{m{^feed\.[^.]+\.xml$}}, + files=>sub{m{^feed\.(?:[^.]+\.)+tt$}}, dirs=>sub{!m{^[_.]}}); 1; diff --git a/lib/WebCoso/Maker.pm b/lib/WebCoso/Maker.pm index 11aa9c4..e46eb29 100644 --- a/lib/WebCoso/Maker.pm +++ b/lib/WebCoso/Maker.pm @@ -233,9 +233,9 @@ my @passes=( }), WebCoso::Common::fromTo("$WebCoso::Common::SRCPATH/", { - %WebCoso::Common::feedfilesXML, + %WebCoso::Common::feedfiles, transform=>sub{ - (my $file=$_[0]) + (my $file=WebCoso::Common::typedAs($_[0],'xml')) =~s{^\Q$WebCoso::Common::SRCPATH\E/}{$WebCoso::Common::DSTPATH/}; return $file; }, |