[Bps-public-commit] r12450 - in Prophet/trunk: .

[jesse at bestpractical.com]

Author: jesse
Date: Sat May 17 05:33:11 2008
New Revision: 12450

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI.pm
   Prophet/trunk/lib/Prophet/Record.pm

Log:
 r31115 at dhcp113 (orig r12384):  sartak | 2008-05-16 20:46:59 +0900
  r55984 at onn:  sartak | 2008-05-16 07:46:55 -0400
  Allow --luid in the command line
 


Modified: Prophet/trunk/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI.pm	Sat May 17 05:33:11 2008
@@ -128,6 +128,11 @@
     if ( my $uuid = delete $self->{args}->{uuid} ) {
         $self->uuid($uuid);
     }
+    elsif ( my $luid = delete $self->{args}->{luid} ) {
+        my $uuid = $self->app_handle->handle->find_uuid_by_luid(luid => $luid);
+        die "Invalid luid '$luid'\n" if !defined($uuid);
+        $self->uuid($uuid);
+    }
     if ( $self->{args}->{type} ) {
         $self->type( delete $self->{args}->{'type'} );
     } elsif($self->primary_commands->[-2]) {

Modified: Prophet/trunk/lib/Prophet/Record.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Record.pm	(original)
+++ Prophet/trunk/lib/Prophet/Record.pm	Sat May 17 05:33:11 2008
@@ -133,8 +133,9 @@
 }
 
 =head2 load { uuid => $UUID }
+=head2 load { luid => $UUID }
 
-Loads a Prophet record off disk by its uuid.
+Loads a Prophet record off disk by its uuid or luid.
 
 =cut