diff options
author | dakkar <dakkar@luxion> | 2008-12-24 13:53:59 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2008-12-24 13:53:59 +0000 |
commit | 47bfa27b9111ab8cfa6185518b0636e74ce28ca9 (patch) | |
tree | 4910d0c02e40b582045db670c80563bf8714129a | |
parent | added prereqs (diff) | |
download | WebCoso-47bfa27b9111ab8cfa6185518b0636e74ce28ca9.tar.gz WebCoso-47bfa27b9111ab8cfa6185518b0636e74ce28ca9.tar.bz2 WebCoso-47bfa27b9111ab8cfa6185518b0636e74ce28ca9.zip |
starting handling of changes
git-svn-id: svn://luxion/repos/WebCoso/trunk@392 fcb26f47-9200-0410-b104-b98ab5b095f3
-rw-r--r-- | lib/WebCoso/Common.pm | 6 | ||||
-rw-r--r-- | lib/WebCoso/Maker.pm | 7 |
2 files changed, 8 insertions, 5 deletions
diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm index 31adfbc..cc61d50 100644 --- a/lib/WebCoso/Common.pm +++ b/lib/WebCoso/Common.pm @@ -126,13 +126,15 @@ sub getDates { my %dates; for my $doc_name (uniq(@docs)) { - my $doc=$fc->get($doc_name); + my $xml_name=typedAs($doc_name,'du.xml'); + my $doc=$fc->get($xml_name); my ($creation_date)=map {$_->textContent} $xpath->findnodes( q{/document/docinfo/field[field_name='CreationDate']/field_body}, $doc); $creation_date=DateTime::Format::DateParse->parse_datetime($creation_date); - my $last_change=DateTime->from_epoch($doc->stat->mtime); + my $last_change=DateTime->from_epoch(epoch=> + $fc->stat($doc_name)->mtime); $dates{$doc_name}={creation=>$creation_date, last_change=>$last_change}; } diff --git a/lib/WebCoso/Maker.pm b/lib/WebCoso/Maker.pm index 73fdbbb..4bc6dbb 100644 --- a/lib/WebCoso/Maker.pm +++ b/lib/WebCoso/Maker.pm @@ -41,7 +41,7 @@ sub getChanges { my ($maker,$target,$deps,$matches)=@_; DEBUG("getChanges($maker,$target,(@$deps),(@$matches))"); - open my $fh,'>',$target; + $fc->put($target,WebCoso::Common::getDates($fc,@$deps)); } sub ifExists { @@ -119,9 +119,9 @@ my @passes=( '=', \&getTags], - # changes (currently unimplemented) + # changes - ["$WebCoso::Common::SRCPATH/_webcoso/changes.xml", + ["$WebCoso::Common::SRCPATH/_webcoso/changes.yml", ':', WebCoso::Common::keepEarliest( WebCoso::Common::fromTo( @@ -145,6 +145,7 @@ my @passes=( transform=>sub{WebCoso::Common::typedAs($_[0],'du.xml')}, }), "$WebCoso::Common::SRCPATH/_webcoso/tags.yml", + "$WebCoso::Common::SRCPATH/_webcoso/changes.yml", ]}, {maker=>Slay::Maker->new({ rules => [ |