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

[sartak at bestpractical.com]

Author: sartak
Date: Sat Sep 27 15:42:46 2008
New Revision: 16116

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

Log:
 r72980 at onn:  sartak | 2008-09-27 15:42:41 -0400
 push 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	Sat Sep 27 15:42:46 2008
@@ -199,6 +199,15 @@
     $self->print_merge_report($changesets);
 };
 
+on push => sub {
+    my $self = shift;
+
+    die "Please specify a --to.\n" if !$self->context->has_arg('to');
+
+    $self->context->set_arg(from => $self->cli->app_handle->default_replica_type.":file://".$self->cli->handle->fs_root);
+    $self->context->set_arg(db_uuid => $self->cli->handle->db_uuid);
+    run('merge', $self, @_);
+};
 
 # catch-all. () makes sure we don't hit the annoying historical feature of
 # the empty regex meaning the last-used regex