diff options
| author | fukachan <fukachan> | 2002-08-26 05:56:36 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-26 05:56:36 +0000 |
| commit | 70b3630ecaefef5df878ded9668fac7cf847b961 (patch) | |
| tree | 277d806a54bc10d4d1e7f9a416376125e6b6a4a2 /fml | |
| parent | 98846a18788eeac9b085d086216170f4ab83543f (diff) | |
| download | fml8-70b3630ecaefef5df878ded9668fac7cf847b961.tar.gz fml8-70b3630ecaefef5df878ded9668fac7cf847b961.tar.bz2 fml8-70b3630ecaefef5df878ded9668fac7cf847b961.zip | |
bug fix my ml_name (+ ml_domain) detection code:
[back ground detail] "fmlconf -n elena@fml.org" works but "fmlconf -n
elena" not works since we ignore the latter case. Regaredless of
poorman's strategy but we pick up the first non /^-/ string as a
$ml_name and set $ml_domain to the default domain.
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 5a25676f..fb16e570 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.131 2002/08/15 08:04:41 fukachan Exp $ +# $FML: Kernel.pm,v 1.132 2002/08/16 15:59:21 fukachan Exp $ # package FML::Process::Kernel; @@ -599,9 +599,24 @@ sub resolve_ml_specific_variables } } else { + # XXX "fmlconf -n elena@fml.org" works ? + # XXX yes, but "fmlconf -n elena" works ? no ;-) for my $arg (@ARGV) { if ($arg =~ /\S+\@\S+/) { $ml_addr = $arg;} } + + # not found. Hmm, "fmlconf -n elena" case ? + unless ($ml_addr) { + my $default_domain = $curproc->default_domain(); + + ARGS: + for my $arg (@ARGV) { + last ARGS if $ml_addr; + next ARGS if $arg =~ /^-/o; + + $ml_addr = $arg. '@' . $default_domain; + } + } } # 1.2 ml@domain may be specified in command line args. |