shuusei21195:メッセージ変換機能がOFFのときは、wordsetを読み込まないようにした(source by Heracules)

diff --dos -urN 21194/mainform.pas 21195/mainform.pas
--- 21194/mainform.pas	Thu Jan 23 18:32:50 2003
+++ 21195/mainform.pas	Sat Jan 25 00:32:56 2003
@@ -905,7 +905,6 @@
  db_reconnect:=TStringList.Create;
  db_reconnect.Duplicates:=dupIgnore;
  db_reconnect.Sorted:=true;
- LoadWordSet;//チャンネルメッセージ変換データベースの読み出し
  null_password:=null_pass;
  local_users:=0;
  total_users:=0;
@@ -973,6 +972,8 @@
  start_time:=GetTickCount;
  start_time_t:=GetTickCountT;
  mainform.SlavaNapWindow.Timer3.interval:=servreftime*1000;
+ if enable_inflections then
+   LoadWordSet;//チャンネルメッセージ変換データベースの読み出し
  LogStartup('mainform::create: creating main thread');
  MainThread:=TMainThread.Create;
  LogStartup('mainform::create: RUNNING !!!!!');
diff --dos -urN 21194/settings.pas 21195/settings.pas
--- 21194/settings.pas	Sun Jan 19 22:43:44 2003
+++ 21195/settings.pas	Sat Jan 25 00:36:20 2003
@@ -1920,6 +1920,8 @@
    enable_rating:=cb_enable_rating.Checked;
    rating_threshold:=edit_rating_threshold.Value;
    enable_inflections:=cb_inflections.Checked;
+   if enable_inflections then
+     LoadWordSet;
    local2global_log:=cb_l2b_log.Checked;
    if radio_dl_block.Checked then toami_taiou:='block'
    else if radio_dl_leech.Checked then toami_taiou:='leech'
diff --dos -urN 21194/handler.pas 21195/handler.pas
--- 21194/handler.pas	Thu Jan 23 18:32:50 2003
+++ 21195/handler.pas	Sat Jan 25 01:17:24 2003
@@ -1726,6 +1726,11 @@
 begin
   if not isLogged then exit;
   if not isLocal then exit;
+  if not enable_inflections then
+  begin
+    Error('チャンネルメッセージ変換機能は現在無効です');
+    exit;
+  end;
   if not CheckParams(2) then
   begin
     Error('>wordset <user> <style>');
@@ -1733,18 +1738,21 @@
       Error('>wordset refresh');
     exit;
   end;
-  if (hlist.Strings[1]='refresh') then
-  begin
-    if CheckLevel('',NapUserAdmin) then
+  hlist.Strings[1]:=AnsiLowerCase(hlist.Strings[1]);
+  hlist.Strings[2]:=AnsiLowerCase(hlist.Strings[2]);
+  if not CheckParams(3) then
+    if (hlist.Strings[1]='refresh') then
     begin
-      LoadWordSet;
-      Error('メッセージ変換データベースを更新しました');
+      if CheckLevel('',NapUserAdmin) then
+      begin
+        LoadWordSet;
+        Error('メッセージ変換データベースを更新しました');
+      end
+      else
+        Error('>wordset <user> <style>');
+      exit;
     end
-    else
-      Error('>wordset <user> <style>');
-    exit;
-  end;
-  if not CheckParams(3) then exit;
+  else exit;
   StrHash_Add(db_wordset_users,hlist.Strings[1]+' '+hlist.Strings[2]);
   Error('ユーザー'+hlist.Strings[1]+'の変換スタイルを"'
     +hlist.Strings[2]+'"に設定しました。');