Namazu-devel-ja(旧)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

parse_options



古川です。

現在の mknmz の sub main の処理では、

sub main () {
    my $start_time = time;

    init();
    load_modules();
# ここで、conf.pl が読まれて

    my ($output_dir, @targets) = parse_options();
# ここで、オプションを処理して

    load_rcfiles();
# ここで、.mknmzrc を読む

というようになっているため、オプションで設定した変数が .mknmzrc で
上書きされてしまいます。
これを、.mknmzrc よりオプションを優先するように、変更したいのですが、
いかがでしょうか?

-- 
Rei FURUKAWA 
furukawa@xxxxxxxxxxxx

Index: scripts/mknmz.in
===================================================================
RCS file: /storage/cvsroot/namazu/scripts/mknmz.in,v
retrieving revision 1.60
diff -u -r1.60 mknmz.in
--- scripts/mknmz.in	2000/03/22 12:21:05	1.60
+++ scripts/mknmz.in	2000/03/28 22:23:15
@@ -74,8 +74,8 @@
 
     init();
     load_modules();
-    my ($output_dir, @targets) = parse_options();
     load_rcfiles();
+    my ($output_dir, @targets) = parse_options();
     my ($docid_base, $total_files_num) = prep($output_dir, @targets);
 
     my $swap = 1;
@@ -217,7 +217,6 @@
     my (@cand) = ();
     push @cand, "$CONFDIR/mknmzrc";
     push @cand, "$ENV{'HOME'}/.mknmzrc";
-    push @cand, $ConfigFile if defined $ConfigFile;
 
     util::vprint(_("Reading rcfile: "));
     for my $rcfile (@cand) {
@@ -1034,7 +1033,7 @@
     }
 
     if ($opt_config) {
-	$ConfigFile = $opt_config;
+	load_rcfile($ConfigFile = $opt_config);
     }
 
     if ($opt_help) {
@@ -1048,7 +1047,6 @@
     }
 
     if ($opt_show_config) {
-	load_rcfiles();
 	show_config();
 	exit 1;
     }