Changeset 825

Timestamp:

09/25/09 08:08:35 (2 months ago)

Author:

hachi

Message:

Make AccessControl plugin capable of dumping config.

This reverts commit b71936415bce1e20b2c402c3fd290500c6bd0083.

(and another double-revert, but this is the last one)

Files:

• trunk/lib/Perlbal/Plugin/AccessControl.pm (modified) (1 diff)

trunk/lib/Perlbal/Plugin/AccessControl.pm

@@ -178 +178 @@
 }
 
+sub dumpconfig {
+    my ($class, $svc) = @_;
+
+    my @return;
+
+    my $cfg = $svc->{extra_config}->{_access} ||= {};
+    my $rules = $cfg->{rules} || [];
+
+    foreach my $rule (@$rules) {
+        my $action = uc $rule->[0];
+        my $type   = uc $rule->[1];
+        my $value  = $rule->[2];
+        push @return, "ACCESS $action $type $value";
+    }
+
+    my $default_action = $cfg->{deny_default} ? "DENY" : "ALLOW";
+    push @return, "ACCESS POLICY $default_action";
+
+    return @return;
+}
+
 1;