regress/threadtrack/analyze_and_show.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

#!/usr/bin/env perl
#
# $FML$
#

use strict;
use Carp;
use lib qw(../../fml/lib ../../cpan/lib ../../img/lib);

for my $f (@ARGV) {
    use File::Basename;
    my $dir = dirname($f);
    my $fn  = basename($f);

    print STDERR "Log> process $fn\n";

    my $args = {
	fd          => \*STDOUT,
	db_base_dir => "/var/spool/ml/\@db\@/thread",
	ml_name     => 'elena',
	spool_dir   => $dir,
	article_id  => $fn,
    };

    use Mail::Message;
    my $fh  = new FileHandle $f;
    my $msg = Mail::Message->parse({ fd => $fh });

    use Mail::ThreadTrack;
    my $ticket = new Mail::ThreadTrack $args;
    $ticket->analyze($msg);

    $ticket->show_summary();
}