Ira Abramov writes:
> to illustrate: my current set of rules for sendmail looks like this:
>
> @bothers.com [EMAIL PROTECTED]
> @building.com [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> @stooge.com [EMAIL PROTECTED]
So?
#!/usr/bin/perl
sub writefile {
open(F,"$_[0]") || die;
print F "$_[1]\n" || die if $_[1];
close F or die;
}
writefile(">/var/qmail/control/virtualdomains", "");
while(<>) {
chomp;
($in,$out) = split;
($left,$right) = split(/@/, $in);
$right =~ s/\./:/g;
writefile(">>/var/qmail/control/virtualdomains", "$in:alias-$right");
if ($left) {
writefile(">.qmail-$right-$left", "&$out");
} else {
writefile(">.qmail-$right-default", "&$out");
}
}
--
-russ nelson <[EMAIL PROTECTED]> http://crynwr.com/~nelson
Crynwr sells support for free software | PGPok | Government schools are so
521 Pleasant Valley Rd. | +1 315 268 1925 voice | bad that any rank amateur
Potsdam, NY 13676-3213 | +1 315 268 9201 FAX | can outdo them. Homeschool!
