Implement the "ifmodule" expansion

1 files changed, 34 insertions, 0 deletions

diff --git a/lib/Apache/Admin/Config/Expand/ifmodule.pm b/lib/Apache/Admin/Config/Expand/ifmodule.pm
new file mode 100644
index 0000000..603f90d
--- /dev/null
+++ b/lib/Apache/Admin/Config/Expand/ifmodule.pm
@@ -0,0 +1,34 @@
+package Apache::Admin::Config::Expand::ifmodule;
+use strict;
+use warnings;
+
+sub new {
+    bless {}, shift
+}
+
+sub expand {
+    my ($self, $tree, $d, $repl) = @_;
+    if ($d->type eq 'section' && lc($d->name) eq 'ifmodule') {
+	my $id = $d->value;
+	my $negate = $id =~ s/^!//;
+	my $res = $self->module_loaded($tree, $id);
+	if ($negate) {
+	    $res = !$res;
+	}
+	if ($res) {
+	    push @$repl, $d->select;
+	}
+	return 1;
+    }
+    return 0;
+}
+
+sub module_loaded {
+    my ($self, $tree, $id) = @_;
+    return grep {
+	(split /\s+/, $_->value)[0] eq $id
+    } $tree->directive('loadmodule');
+}
+
+1;
+