clean up what in where in run()

1 files changed, 23 insertions, 19 deletions

diff --git a/fml/lib/FML/Process/TicketSystem.pm b/fml/lib/FML/Process/TicketSystem.pm
index f728c5bf..3a636f75 100644
--- a/fml/lib/FML/Process/TicketSystem.pm
+++ b/fml/lib/FML/Process/TicketSystem.pm
@@ -40,29 +40,25 @@ sub prepare
 sub run
 {
     my ($curproc, $args) = @_;
-
-    # use Data::Dumper; print Dumper( $args ); sleep 30;
-
-    $curproc->lock();
-    {
-	$curproc->_ticket_show_summary($args);
-    }
-    $curproc->unlock();
-}
-
-
-sub _ticket_show_summary
-{
-    my ($curproc, $args) = @_;    
-    my $config = $curproc->{ config };
-    my $model  = $config->{ ticket_model };
-    my $pkg    = "FML::Ticket::Model::". $model;
+    my $config  = $curproc->{ config };
+    my $model   = $config->{ ticket_model };
+    my $pkg     = "FML::Ticket::Model::". $model;
+    my $argv    = $args->{ ARGV };
+    my $command = $argv->[ 0 ];
 
     # fake use() to do "use FML::Ticket::$model;"
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
-	my $ticket = $pkg->new($curproc, $args);
-	$ticket->show_summary($curproc, $args);
+	$curproc->lock();
+
+	if ($command eq 'list') {
+	    $curproc->_ticket_show_summary($args, $pkg);
+	}
+	else {
+	    croak("unknown command=$command\n");
+	}
+
+	$curproc->unlock();
     }
     else {
 	Log($@);
@@ -70,6 +66,14 @@ sub _ticket_show_summary
 }
 
 
+sub _ticket_show_summary
+{
+    my ($curproc, $args, $pkg) = @_;
+    my $ticket = $pkg->new($curproc, $args);
+    $ticket->show_summary($curproc, $args);
+}
+
+
 sub AUTOLOAD
 {
     my ($curproc, $args) = @_;