[Bps-public-commit] r16084 - in Prophet/branches/dispatcher: . lib/Prophet/CLI

[sartak at bestpractical.com]

Author: sartak
Date: Thu Sep 25 18:49:08 2008
New Revision: 16084

Removed:
   Prophet/branches/dispatcher/lib/Prophet/CLI/Command/Export.pm
   Prophet/branches/dispatcher/lib/Prophet/CLI/Command/History.pm
Modified:
   Prophet/branches/dispatcher/   (props changed)
   Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm

Log:
 r72500 at onn:  sartak | 2008-09-25 18:47:57 -0400
 history command


Modified: Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm
==============================================================================
--- Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm	(original)
+++ Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm	Thu Sep 25 18:49:08 2008
@@ -137,6 +137,15 @@
     $self->cli->handle->export_to( path => $self->context->arg('path') );
 };
 
+on history => sub {
+    my $self = shift;
+
+    $self->context->require_uuid;
+    my $record = $self->context->_load_record;
+    $self->record($record);
+    print $record->history_as_string;
+};
+
 # catch-all. () makes sure we don't hit the annoying historical feature of
 # the empty regex meaning the last-used regex
 on qr/()/ => sub {