[Bps-public-commit] r11261 - in SVN-PropDB: . bin

[jesse at bestpractical.com]

Author: jesse
Date: Sat Mar 29 00:19:32 2008
New Revision: 11261

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/bin/prophet-node-search
   SVN-PropDB/lib/Prophet/Handle.pm
   SVN-PropDB/lib/Prophet/Record.pm

Log:
 r28770 at 68-246-62-103:  jesse | 2008-03-28 17:07:32 -1000
 * switch to base64 encoded uuids


Modified: SVN-PropDB/bin/prophet-node-search
==============================================================================
--- SVN-PropDB/bin/prophet-node-search	(original)
+++ SVN-PropDB/bin/prophet-node-search	Sat Mar 29 00:19:32 2008
@@ -14,7 +14,7 @@
 
 my $records = Prophet::Collection->new(handle => $cli->handle, type => $cli->type);
 $records->matching( sub {
-            my $item = shift; 
+        my $item = shift;
             my $props = $item->get_props;
             map { return 1 if $props->{$_} =~ $regex} keys %$props;
             return 0

Modified: SVN-PropDB/lib/Prophet/Handle.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Handle.pm	(original)
+++ SVN-PropDB/lib/Prophet/Handle.pm	Sat Mar 29 00:19:32 2008
@@ -201,7 +201,6 @@
 sub get_node_props {
     my $self = shift;
     my %args = validate( @_, { uuid => 1, type => 1, root => undef } );
-
     my $root = $args{'root'} || $self->current_root;
     return $root->node_proplist( $self->file_for( uuid => $args{'uuid'}, type => $args{'type'} ) );
 }

Modified: SVN-PropDB/lib/Prophet/Record.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Record.pm	(original)
+++ SVN-PropDB/lib/Prophet/Record.pm	Sat Mar 29 00:19:32 2008
@@ -20,8 +20,10 @@
 sub create {
     my $self = shift;
     my %args = validate(@_, {  props => 1});
+        my $uuid = $UUIDGEN->create_b64;
+        $uuid =~ s/==$//g;
 
-    $self->uuid($UUIDGEN->create_str);
+    $self->uuid($uuid);
 
 
     $self->_canonicalize_props($args{'props'});