[Bps-public-commit] r11583 - SVN-PropDB/lib/Prophet/Replica

[clkao at bestpractical.com]

Author: clkao
Date: Sun Apr  6 06:07:14 2008
New Revision: 11583

Modified:
   SVN-PropDB/lib/Prophet/Replica/HTTP.pm

Log:
pseudo code for reading in the changeset from cas

Modified: SVN-PropDB/lib/Prophet/Replica/HTTP.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Replica/HTTP.pm	(original)
+++ SVN-PropDB/lib/Prophet/Replica/HTTP.pm	Sun Apr  6 06:07:14 2008
@@ -76,7 +76,12 @@
         my $changeset = Prophet::ChangeSet->new({ source_uuid => $self->uuid, sequence_no => $seq
                                                   original_source_uuid => $orig_uuid, original_sequence_no => $orig_seq,
                                                 });
+        my $key = pack('h40', $key);
         # XXX: deserialize the changeset content from the cas with $key
+        my $casfile = $self->url.'/cas/'.substr($key, 0, 1).'/'.substr($key, 1, 1).'/'.$key;
+        use XML::Simple 'XMLin';
+        $changeset->fillin_from_hash(XMLin(get($casfile)));
+        push @results, $changeset;
     }
 
     return \@results;