[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 メーリングリストの案内