[Bps-public-commit] r15058 - in sd/trunk: . lib/App/SD/CLI/Command/Help

[jesse at bestpractical.com]

Author: jesse
Date: Tue Aug 12 07:26:42 2008
New Revision: 15058

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

Log:
 r43085 at PC0169 (orig r15054):  jesse | 2008-08-12 12:22:38 +0100
  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/trunk/lib/App/SD/CLI/Command/Help/Sync.pm
==============================================================================
--- sd/trunk/lib/App/SD/CLI/Command/Help/Sync.pm	(original)
+++ sd/trunk/lib/App/SD/CLI/Command/Help/Sync.pm	Tue Aug 12 07:26:42 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/trunk/lib/App/SD/CLI/Command/Server.pm
==============================================================================
--- (empty file)
+++ sd/trunk/lib/App/SD/CLI/Command/Server.pm	Tue Aug 12 07:26:42 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;
+