[Mew-dist 1919] Re: IM assoc list
Motonori Nakamura
motonori at example.com
1997年 9月 8日 (月) 22:20:13 JST
>>>>> On Mon, 08 Sep 1997 15:23:11 +0900, KAWAKAMI Hiroki <kawakami at example.com> said:
kawakami> コマンドラインの方を優先にはできないでしょうか?
こんな変更でどうでしょうか?
- motonori
--- ../im-66/imget.in Mon Sep 1 00:04:27 1997
+++ imget.in Mon Sep 8 22:19:24 1997
@@ -107,6 +107,9 @@
read_env(\@EnvConfig);
read_cfg();
set_selector($selector) == 0 or exit 1 if defined($selector);
+my $cnf_src = $opt_src; $opt_src = '';
+my $cnf_dst = $opt_dst; $opt_dst = '';
+my $cnf_assoc = $opt_assoc; $opt_assoc = '';
read_opt(\@ARGV); # help?
set_verbose(1) if $opt_verbose;
help($EXPLANATION) && exit $EXIT_SUCCESS if ($opt_help);
@@ -114,6 +117,15 @@
##
## Main
##
+
+if ($opt_src eq '' && $opt_dst eq '') {
+ $opt_src = $cnf_src;
+ $opt_dst = $cnf_dst;
+ $opt_assoc = $cnf_assoc if ($opt_assoc eq '');
+} else {
+ $opt_src = $cnf_src if ($opt_src eq '');
+ $opt_dst = $cnf_dst if ($opt_dst eq '');
+}
my $petnamefile = &petnamefile();
read_petnames($petnamefile) if $petnamefile;
Mew-dist メーリングリストの案内