use FML::Log qw(Log LogWarn LogError);error-message-status

16 files changed, 52 insertions, 15 deletions

diff --git a/fml/lib/FML/Article.pm b/fml/lib/FML/Article.pm
index e6c064da..9c0ec1ee 100644
--- a/fml/lib/FML/Article.pm
+++ b/fml/lib/FML/Article.pm
@@ -13,7 +13,7 @@ package FML::Article;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 
 =head1 NAME
diff --git a/fml/lib/FML/Checksum.pm b/fml/lib/FML/Checksum.pm
index 055c8bc0..7a5e7a09 100644
--- a/fml/lib/FML/Checksum.pm
+++ b/fml/lib/FML/Checksum.pm
@@ -12,7 +12,7 @@ package FML::Checksum;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 =head1 NAME
 
diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm
index 82ce190e..e6fe26dd 100644
--- a/fml/lib/FML/Command.pm
+++ b/fml/lib/FML/Command.pm
@@ -12,7 +12,7 @@ package FML::Command;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 =head1 NAME
 
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm
index 3c0f6405..9b1416e0 100644
--- a/fml/lib/FML/Header.pm
+++ b/fml/lib/FML/Header.pm
@@ -14,7 +14,7 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 use Mail::Header;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 
 =head1 NAME
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index acdc08cd..e8339d5a 100644
--- a/fml/lib/FML/Header/Subject.pm
+++ b/fml/lib/FML/Header/Subject.pm
@@ -12,7 +12,7 @@ package FML::Header::Subject;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 =head1 NAME
 
diff --git a/fml/lib/FML/Parse.pm b/fml/lib/FML/Parse.pm
index 05f3be19..68757829 100644
--- a/fml/lib/FML/Parse.pm
+++ b/fml/lib/FML/Parse.pm
@@ -16,7 +16,7 @@ use Carp;
 use FML::Header;
 use MailingList::Messages;
 use FML::Config;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 
 =head1 NAME
diff --git a/fml/lib/FML/Process/CGI.pm b/fml/lib/FML/Process/CGI.pm
index e2679903..c4866a4c 100644
--- a/fml/lib/FML/Process/CGI.pm
+++ b/fml/lib/FML/Process/CGI.pm
@@ -37,7 +37,7 @@ constructor which is usual in FML::Process classes.
 =cut
 
 use FML::Process::Kernel;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use FML::Config;
 
 # load standard CGI routines
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 77e27e16..30ba08e3 100644
--- a/fml/lib/FML/Process/Command.pm
+++ b/fml/lib/FML/Process/Command.pm
@@ -14,7 +14,7 @@ use strict;
 use Carp;
 
 use FML::Process::Kernel;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use FML::Config;
 
 =head1 NAME
diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm
index b7f4296c..6aca7694 100644
--- a/fml/lib/FML/Process/Configure.pm
+++ b/fml/lib/FML/Process/Configure.pm
@@ -14,7 +14,7 @@ use strict;
 use Carp;
 
 use FML::Process::Kernel;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use FML::Config;
 
 
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index a31b43b7..2b3cbc7f 100644
--- a/fml/lib/FML/Process/Distribute.pm
+++ b/fml/lib/FML/Process/Distribute.pm
@@ -14,7 +14,7 @@ use strict;
 use Carp;
 
 use FML::Process::Kernel;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use FML::Config;
 
 
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 55b5684a..ba478a83 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.pm
@@ -57,7 +57,7 @@ use FML::Process::Flow;
 use FML::Parse;
 use FML::Header;
 use FML::Config;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use File::SimpleLock;
 use FML::Messages;
 
diff --git a/fml/lib/FML/Process/QMail.pm b/fml/lib/FML/Process/QMail.pm
index a5bfbd26..043e1072 100644
--- a/fml/lib/FML/Process/QMail.pm
+++ b/fml/lib/FML/Process/QMail.pm
@@ -12,7 +12,7 @@ package FML::Process::QMail;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use FML::Log;
+use FML::Log qw(Log LogWarn LogError);
 
 
 sub new
diff --git a/fml/lib/FML/Process/TicketSystem.pm b/fml/lib/FML/Process/TicketSystem.pm
index 980e0202..e6914591 100644
--- a/fml/lib/FML/Process/TicketSystem.pm
+++ b/fml/lib/FML/Process/TicketSystem.pm
@@ -14,7 +14,7 @@ use strict;
 use Carp;
 
 use FML::Process::Kernel;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use FML::Config;
 
 =head1 NAME
diff --git a/fml/lib/FML/Ticket/Model/minimal_by_db.ja.txt b/fml/lib/FML/Ticket/Model/minimal_by_db.ja.txt
new file mode 100644
index 00000000..20e5f973
--- /dev/null
+++ b/fml/lib/FML/Ticket/Model/minimal_by_db.ja.txt
@@ -0,0 +1,37 @@
+○ 状態遷移
+
+   open
+	チケット番号らしきものを含まないメールが投稿されたら
+	自動的に open
+
+  going
+	誰か返事をしたら、対応中
+
+  closed
+	close 宣言がなされたら、クローズ
+
+
+○ close 宣言は以下のいずれかの実行である。
+
+   1)	Subject: が close ではじまる
+
+   2)	メール本文の行頭が close ではじまる。
+		先頭の空白は無視されます。
+		正規表現では \s*close です。
+		
+		multipart メールの場合は最初の text/plain パートの
+		行頭が close で始まる場合です。
+
+   3)	メールヘッダで X-Ticket-Pragma: close が指定されていた時
+
+
+○ 特別なヘッダ
+
+X-Ticket-Pragma: ignore
+
+	新たにチケットを割り当てない
+	すべてのチケットに関する操作を抑制する。
+
+X-Ticket-Pragma: close
+
+	チケットをクローズする。
diff --git a/fml/lib/FML/Ticket/Model/minimal_by_db.pm b/fml/lib/FML/Ticket/Model/minimal_by_db.pm
index 04fa8abb..66fbd20c 100644
--- a/fml/lib/FML/Ticket/Model/minimal_by_db.pm
+++ b/fml/lib/FML/Ticket/Model/minimal_by_db.pm
@@ -13,7 +13,7 @@ package FML::Ticket::Model::minimal_by_db;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 use FML::Ticket::System;
 
 require Exporter;
diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm
index 17faed7f..6da78704 100644
--- a/fml/lib/FML/Ticket/System.pm
+++ b/fml/lib/FML/Ticket/System.pm
@@ -14,7 +14,7 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 use FML::Errors qw(error_reason error error_reset);
-use FML::Log qw(Log);
+use FML::Log qw(Log LogWarn LogError);
 
 
 =head1 NAME