diff options
| -rw-r--r-- | fml/lib/FML/Command/Admin/newml.pm | 45 |
1 files changed, 44 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm index 46ec6eb9..f08c632c 100644 --- a/fml/lib/FML/Command/Admin/newml.pm +++ b/fml/lib/FML/Command/Admin/newml.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: newml.pm,v 1.42 2002/06/22 14:32:00 fukachan Exp $ +# $FML: newml.pm,v 1.43 2002/06/23 04:33:48 fukachan Exp $ # package FML::Command::Admin::newml; @@ -216,6 +216,9 @@ sub _update_aliases unless ($curproc->is_default_domain($ml_domain)) { # we need to use the original $params here $self->_install_postfix_virtual_map($curproc, $params); + + # update templates for qmail/control/virtualdomains + $self->_install_qmail_virtual_map($curproc, $params); } use FML::MTAControl; @@ -266,6 +269,46 @@ sub _install_postfix_virtual_map } +# Descriptions: prepare a template for qmail/control/virtualdomains +# for example: rule of a virtual domain for "nuinui.net" +# nuinui.net:fml-.nuinui.net +# Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) +# bugs: we cannot update /var/qmail/control/virtualdomains +# since it needs root priviledge. +# So, we can only update our templates for qmail. +# Side Effects: update template not /var/qmail/control/virtualdomains +# Return Value: none +sub _install_qmail_virtual_map +{ + my ($self, $curproc, $params) = @_; + my $fmlowner = $curproc->fml_owner(); + my $config = $curproc->{ config }; + my $ml_domain = $config->{ ml_domain }; + my $virtual = $config->{ qmail_virtual_map_file }; + + # 1. check the current temlate file firstly + my $found = 0; + my $fh = new FileHandle $virtual; + if (defined $fh) { + while (<$fh>) { + $found = 1 if /^$ml_domain:/i; + } + $fh->close(); + } + + # 2. if not found + unless ($found) { + print STDERR "updating $virtual\n"; + + my $fh = new FileHandle ">> $virtual"; + if (defined $fh) { + print $fh "$ml_domain:$fmlowner-$ml_domain\n"; + $fh->close(); + } + } +} + + # Descriptions: $alias file has an $ml_name entry or not # Arguments: OBJ($self) OBJ($curproc) STR($ml_name) # Side Effects: none |