[Bps-public-commit] r15054 - in sd/branches/sd-help: . lib/App/SD/CLI/Command/Help

[jesse at bestpractical.com]

Author: jesse
Date: Tue Aug 12 07:22:38 2008
New Revision: 15054

Added:
   sd/branches/sd-help/lib/App/SD/CLI/Command/Server.pm
Modified:
   sd/branches/sd-help/   (props changed)
   sd/branches/sd-help/lib/App/SD/CLI/Command/Help/Sync.pm

Log:
 r43043 at PC0169:  jesse | 2008-08-12 01:38:47 +0100
 * added an option to actually control whether the rest server is writable


Modified: sd/branches/sd-help/lib/App/SD/CLI/Command/Help/Sync.pm
==============================================================================
--- sd/branches/sd-help/lib/App/SD/CLI/Command/Help/Sync.pm	(original)
+++ sd/branches/sd-help/lib/App/SD/CLI/Command/Help/Sync.pm	Tue Aug 12 07:22:38 2008
@@ -34,7 +34,7 @@
     replica browsable and pullable by anyone with remote access to your 
     computer.
 
- $comd server --rest --port 9876
+ $comd server --writable --port 9876
     Start an sd replica server on port 9876, with UNAUTHENTICATED,
     PUBLIC WRITE ACCESS via HTTP POST.  This command will make your
     replica modifiable, browsable and pullable by ANYONE with remote

Added: sd/branches/sd-help/lib/App/SD/CLI/Command/Server.pm
==============================================================================
--- (empty file)
+++ sd/branches/sd-help/lib/App/SD/CLI/Command/Server.pm	Tue Aug 12 07:22:38 2008
@@ -0,0 +1,13 @@
+package App::SD::CLI::Command::Server;
+use Moose;
+extends 'Prophet::CLI::Command::Server';
+
+sub run {
+    my $self = shift;
+    my $server = $self->_setup_server();
+    $server->read_only(1) unless ($self->has_arg('writable'));
+    $server->run;
+}   
+
+1;
+