change arguments. we use $curproc basically

3 files changed, 32 insertions, 7 deletions

diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index 2cf21b16..c811473c 100644
--- a/fml/lib/FML/Process/Distribute.pm
+++ b/fml/lib/FML/Process/Distribute.pm
@@ -193,7 +193,6 @@ sub _ticket_system_check
 {
     my ($curproc, $args) = @_;    
     my $config = $curproc->{ config };
-    my $header = $curproc->{ article }->{ header }; # FML::Header object
     my $model  = $config->{ ticket_model };
     my $pkg    = "FML::Ticket::Model::";
 
@@ -208,7 +207,8 @@ sub _ticket_system_check
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
 	my $ts = $pkg->new;
-	$ts->add_ticket($header, $config, $args) if $ts->can('add_ticket');
+	$ts->add_ticket($curproc, $args);
+	$ts->update_ticket_trace_cache($curproc);
     }
     else {
 	Log($@);
diff --git a/fml/lib/FML/Ticket/Model/toymodel.pm b/fml/lib/FML/Ticket/Model/toymodel.pm
index 02cb8943..123adff3 100644
--- a/fml/lib/FML/Ticket/Model/toymodel.pm
+++ b/fml/lib/FML/Ticket/Model/toymodel.pm
@@ -28,10 +28,13 @@ sub new
     return bless $me, $type;
 }
 
+sub DESTROY {}
 
 sub add_ticket
 {
-    my ($self, $header, $config, $args) = @_;
+    my ($self, $curproc, $args) = @_;
+    my $config  = $curproc->{ config };
+    my $header  = $curproc->{ article }->{ header }; # FML::Header object
     my $subject = $header->get('subject');
 
     use FML::Header::Subject;
diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm
index 69811e6b..b48481c4 100644
--- a/fml/lib/FML/Ticket/System.pm
+++ b/fml/lib/FML/Ticket/System.pm
@@ -9,9 +9,11 @@
 #
 
 package FML::Ticket::System;
+
 use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
+use Base::Errors qw(error_reason error error_reset);
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -33,16 +35,36 @@ sub increment_id
     use FML::SequenceFile;
     my $sfh = new FML::SequenceFile { sequence_file => $seq_file };
     my $id  = $sfh->increment_id;
-    $self->{ _error } = $sfh->error;
+    $self->error_reason( $sfh->error );
 
     $id;
 }
 
 
-sub error
+sub update_ticket_trace_cache
+{
+    my ($self, $curproc) = @_;
+    my $config    = $curproc->{ config };
+    my $db_dir    = $config->{ ticket_db_dir };
+    my $ml_name   = $config->{ ml_name };
+    my $cachefile = $db_dir. $ml_name;
+
+    use FileHandle;
+    my $fh = new FileHandle ">> $cachefile";
+    if (defined $fh) {
+	print $fh "";
+	close($fh);
+    }
+    else {
+	$self->error_reason("cannot open ticket cache");
+    }
+}
+
+
+sub AUTOLOAD
 {
     my ($self) = @_;
-    return $self->{ _error };
+    $self->error_reason("FYI: unknown method $AUTOLOAD is called");
 }