[Jifty-commit] r7125 - jifty/trunk/lib/Jifty/Plugin/Config/Action

[Jifty commits]

Author: sartak
Date: Mon Jun  1 16:13:47 2009
New Revision: 7125

Added:
   jifty/trunk/lib/Jifty/Plugin/Config/Action/AddConfig.pm

Log:
Most of an AddConfig action

Added: jifty/trunk/lib/Jifty/Plugin/Config/Action/AddConfig.pm
==============================================================================
--- (empty file)
+++ jifty/trunk/lib/Jifty/Plugin/Config/Action/AddConfig.pm	Mon Jun  1 16:13:47 2009
@@ -0,0 +1,43 @@
+package Jifty::Plugin::Config::Action::AddConfig;
+use strict;
+use warnings;
+use base 'Jifty::Action';
+
+use Jifty::Param::Schema;
+use Jifty::Action schema {
+    param field =>
+        is mandatory;
+
+    param value =>
+        is mandatory;
+
+    param context =>
+        default is '/';
+};
+
+sub contextualize {
+    my $self    = shift;
+    my $context = shift;
+
+    my $top = {};
+    my @fragments = grep { length } split '/', $context;
+
+    my $pointer = $top;
+    for my $fragment (@fragments) {
+        $pointer = $pointer->{$fragment} ||= {};
+    }
+
+    return ($top, $pointer);
+}
+
+sub take_action {
+    my $self = shift;
+    my ($new_config, $pointer) = $self->contextualize($self->argument_value('context'));
+    $pointer->{$self->argument_value('field')} = $self->argument_value('value');
+
+    # Hash::Merge site_config with $new_config
+    # Restart server
+}
+
+1;
+