blob: 26e4dbf840e8f72ebd2e59dcd5643c445f9211be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use RT::Ticket;
use RT::Queue;
use MIME::Parser;
use File::Temp;
use RT::EmailParser;
open (HANDLE, "data/nested-mime-sample");
my $parser = RT::EmailParser->new()
$parser->ParseMIMEEntityFromFileHandle(\*HANDLE);
my $entity = $parser->Entity;
my $q = RT::Queue->new($RT::SystemUser);
$q->Load('general');
ok ($q->Id, "Queue is loaded");
my $Ticket = RT::Ticket->new($RT::SystemUser);
my ($tid, $ttid, $msg) =$Ticket->Create( Queue => $q->Id, Subject => "Nested mime test", MIMEObj => $entity);
ok ($tid, $msg);
ok($Ticket->Id);
|
