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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Oct 21 14:00:46 2008
New Revision: 16440

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

Log:
 r74299 at onn:  sartak | 2008-10-21 14:00:40 -0400
 Have the default Prophet server require --writable


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	Tue Oct 21 14:00:46 2008
@@ -270,6 +270,7 @@
     my $self = shift;
     require Prophet::Server;
     my $server = Prophet::Server->new($self->context->arg('port') || 8080);
+    $server->read_only(1) unless $self->context->has_arg('writable');
     $server->app_handle($self->context->app_handle);
     $server->setup_template_roots;
     return $server;