namazu-ml(avocado)

[tmu@xxxxxxxxxxxxx (MURASHITA Takuya)]

村下です

pnamazu.cgi-98.10.01に、command-lineで使うと
見た目だけnamazu-1.3.0.0 likeになるような手抜きpatchです。
#なんせLANGUAGE関連しか直していません(^^;)
##lang.plで、$LANGUAGE = ⟨となっていたのには何か意味があるのでしょうか?



*** cmdline.pl.org      Sun Sep 20 03:09:00 1998
--- cmdline.pl  Mon Nov 16 17:10:44 1998
***************
*** 4,11 ****
      my($usage);
  #    die << "ENDOFUSAGE";
      $usage = << "TOPOFUSAGE";
!   Search Program of Namazu Perl Command-line Version 0.2 by tmu\@ikegami.co.jp
!   Original Search Program of Namazu Version 1.1.2.3 - 1.2.1.0
    Copyright (C) 1997-1998 Satoru Takabayashi All rights reserved.
    Original pnamazu.cgi-$Pnamazu
    Namazu Search (perl 版) by furukawa\@dkv.yamaha.co.jp
--- 4,11 ----
      my($usage);
  #    die << "ENDOFUSAGE";
      $usage = << "TOPOFUSAGE";
!   Search Program of Namazu Perl Command-line Version 0.3 by tmu\@ikegami.co.jp
!   Original Search Program of Namazu Version 1.3.0.0 - 1.2.1.0
    Copyright (C) 1997-1998 Satoru Takabayashi All rights reserved.
    Original pnamazu.cgi-$Pnamazu
    Namazu Search (perl 版) by furukawa\@dkv.yamaha.co.jp
***************
*** 38,44 ****
       -F        : <FORM> ... </FORM> の部分を強制的に表示する
       -R        : URL の置き換えを行わない
       -U        : plain text で出力する時に URL encode の復元を行わない
!      -L (lang) : メッセージの言語を設定する JAPANESE または ENGLISH
  ENDOFUSAGE

      &output($usage);
--- 38,44 ----
       -F        : <FORM> ... </FORM> の部分を強制的に表示する
       -R        : URL の置き換えを行わない
       -U        : plain text で出力する時に URL encode の復元を行わない
!      -L (lang) : メッセージの言語を設定する ja または en
  ENDOFUSAGE

      &output($usage);
***************
*** 90,95 ****
--- 90,97 ----
                  if ($& eq 'L'){
                      $_ = shift(@ARGV) if /^$/;
                      $LANGUAGE = $_;
+                     $LANGUAGE = "ja" if($LANGUAGE =~ /JAPANESE/i);
+                     $LANGUAGE = "en" if($LANGUAGE =~ /ENGLISH/i);
                      last;
                  }
                  if ($& eq 'C'){&load_namazu_conf;
*** ldnmzcnf.pl.org     Sat Sep 19 12:32:00 1998
--- ldnmzcnf.pl Mon Nov 16 17:10:19 1998
***************
*** 28,33 ****
--- 28,35 ----
              $SCORING          = $1 if /^SCORING\s+(\S+)/i;
          }
          $LOGGING = 0 if $LOGGING =~ /^off$/i;
+         $LANGUAGE = "ja" if($LANGUAGE =~ /JAPANESE/i);
+         $LANGUAGE = "en" if($LANGUAGE =~ /ENGLISH/i);
          $ReplaceFrom = quotemeta($URL_REPLACE_FROM);
          $ReplaceTo = $URL_REPLACE_TO;
          close(FH);
*** lang.pl.org Fri Jun 19 12:38:00 1998
--- lang.pl     Wed Nov 18 10:56:52 1998
***************
*** 6,12 ****
      }
      return 'ISO-2022-JP';
  }
- $LANGUAGE = &lang;
  1;
  #----------------------- End Of 'lang' Module ------------------------

--- 6,11 ----
----
MURASHITA Takuya  Ikegami Tsushinki Co.,Ltd. Information Planning Div. 
http://www.ikegami.co.jp/