From 47bfa27b9111ab8cfa6185518b0636e74ce28ca9 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 24 Dec 2008 13:53:59 +0000
Subject: starting handling of changes

git-svn-id: svn://luxion/repos/WebCoso/trunk@392 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/Common.pm | 6 ++++--
 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 => [
-- 
cgit v1.2.3