Allow plugins to be association and dis-associated

Author: jcameron

Diff for: assoc.cgi

@@ -10,7 +10,8 @@ $d || &error($text{'edit_egone'});
 
 # Update domain object with new features
 &obtain_lock_everything($d);
-foreach my $f (&list_possible_domain_features($d)) {
+foreach my $f (&list_possible_domain_features($d),
+	       &list_possible_domain_plugins($d)) {
 	if ($d->{$f} && !$in{$f}) {
 		$d->{$f} = 0;
 		push(@disabled, $f);

Diff for: assoc_form.cgi

@@ -20,6 +20,10 @@ my @grid;
 foreach my $f (&list_possible_domain_features($d)) {
 	push(@grid, &ui_checkbox($f, 1, $text{'edit_'.$f}, $d->{$f}));
 	}
+foreach my $f (&list_possible_domain_plugins($d)) {
+	$label = &plugin_call($f, "feature_label", 1);
+	push(@grid, &ui_checkbox($f, 1, $label, $d->{$f}));
+	}
 print &ui_table_row($text{'assoc_features'},
 	&ui_grid_table(\@grid, 2));
 

Diff for: virtual-server-lib-funcs.pl

@@ -18919,6 +18919,23 @@ sub list_possible_domain_features
 return @rv;
 }
 
+# list_possible_domain_plugins(&domain)
+# Given a domain, returns a list of plugin features that can possibly be enabled
+# or disabled for it
+sub list_possible_domain_plugins
+{
+my ($d) = @_;
+my @rv;
+my $aliasdom = $d->{'alias'} ? &get_domain($d->{'alias'}) : undef;
+my $subdom = $d->{'subdom'} ? &get_domain($d->{'subdom'}) : undef;
+foreach my $f (&list_feature_plugins()) {
+	next if (!&plugin_call($f, "feature_suitable",
+				$parentdom, $aliasdom, $subdom));
+	push(@rv, $f);
+	}
+return @rv;
+}
+
 # list_remote_domain_features(&domain)
 # Returns a list of all features for a domain that are on shared storage
 sub list_remote_domain_features