diff options
Diffstat (limited to 'rt/t')
202 files changed, 0 insertions, 24512 deletions
diff --git a/rt/t/00-compile.t b/rt/t/00-compile.t deleted file mode 100644 index 7257c3e..0000000 --- a/rt/t/00-compile.t +++ /dev/null @@ -1,58 +0,0 @@ - -use strict; -use warnings; - -use RT::Test nodata => 1, tests => 34; - -require_ok("RT"); -require_ok("RT::Test"); -require_ok("RT::ACL"); -require_ok("RT::Handle"); -require_ok("RT::Transaction"); -require_ok("RT::Interface::CLI"); -require_ok("RT::Interface::Email"); -require_ok("RT::Links"); -require_ok("RT::Queues"); -require_ok("RT::Scrips"); -require_ok("RT::Templates"); -require_ok("RT::Principals"); -require_ok("RT::Attachments"); -require_ok("RT::GroupMember"); -require_ok("RT::ScripAction"); -require_ok("RT::CustomFields"); -require_ok("RT::GroupMembers"); -require_ok("RT::ScripActions"); -require_ok("RT::Transactions"); -require_ok("RT::ScripCondition"); -require_ok("RT::Action::Generic"); -require_ok("RT::ScripConditions"); -require_ok("RT::Search::Generic"); -require_ok("RT::Search::Generic"); -require_ok("RT::Search::Generic"); -require_ok("RT::Search::Generic"); -require_ok("RT::Action::SendEmail"); -require_ok("RT::CachedGroupMembers"); -require_ok("RT::Condition::Generic"); -require_ok("RT::Interface::Web"); -require_ok("RT::SavedSearch"); -require_ok("RT::SavedSearches"); -require_ok("RT::Installer"); -require_ok("RT::Util"); - - -# no the following doesn't work yet -__END__ -use File::Find::Rule; - -my @files = File::Find::Rule->file() - ->name( '*.pm' ) - ->in( 'lib' ); - -plan tests => scalar @files; - -for (@files) { - local $SIG{__WARN__} = sub {}; - require_ok($_); -} - -1; diff --git a/rt/t/00-mason-syntax.t b/rt/t/00-mason-syntax.t deleted file mode 100644 index 0584f63..0000000 --- a/rt/t/00-mason-syntax.t +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use RT::Test tests => 1; - -my $ok = 1; - -use File::Find; -find( { - no_chdir => 1, - wanted => sub { - return if /(?:\.(?:jpe?g|png|gif|rej)|\~)$/i; - return if m{/\.[^/]+\.swp$}; # vim swap files - return unless -f $_; - diag "testing $_" if $ENV{'TEST_VERBOSE'}; - eval { compile_file($_) } and return; - $ok = 0; - diag "error in ${File::Find::name}:\n$@"; - }, -}, RT::Test::get_relocatable_dir('../share/html')); -ok($ok, "mason syntax is ok"); - -use HTML::Mason; -use HTML::Mason::Compiler; -use HTML::Mason::Compiler::ToObject; -BEGIN { require RT::Test; } -use Encode qw(decode_utf8); - -sub compile_file { - my $file = shift; - - my $text = decode_utf8(RT::Test->file_content($file)); - - my $compiler = new HTML::Mason::Compiler::ToObject; - $compiler->compile( - comp_source => $text, - name => 'my', - $HTML::Mason::VERSION >= 1.36? (comp_path => 'my'): (), - ); - return 1; -} - diff --git a/rt/t/api/ace.t b/rt/t/api/ace.t deleted file mode 100644 index 4031046..0000000 --- a/rt/t/api/ace.t +++ /dev/null @@ -1,238 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 76; - - -{ - -ok(require RT::ACE); - - -} - -{ - -my $Queue = RT::Queue->new($RT::SystemUser); - -is ($Queue->AvailableRights->{'DeleteTicket'} , 'Delete tickets', "Found the delete ticket right"); -is ($RT::System->AvailableRights->{'SuperUser'}, 'Do anything and everything', "Found the superuser right"); - - - -} - -{ - -use_ok('RT::User'); -my $user_a = RT::User->new($RT::SystemUser); -$user_a->Create( Name => 'DelegationA', Privileged => 1); -ok ($user_a->Id, "Created delegation user a"); - -my $user_b = RT::User->new($RT::SystemUser); -$user_b->Create( Name => 'DelegationB', Privileged => 1); -ok ($user_b->Id, "Created delegation user b"); - - -use_ok('RT::Queue'); -my $q = RT::Queue->new($RT::SystemUser); -$q->Create(Name =>'DelegationTest'); -ok ($q->Id, "Created a delegation test queue"); - - -#------ First, we test whether a user can delegate a right that's been granted to him personally -my ($val, $msg) = $user_a->PrincipalObj->GrantRight(Object => $RT::System, Right => 'AdminOwnPersonalGroups'); -ok($val, $msg); - -($val, $msg) = $user_a->PrincipalObj->GrantRight(Object =>$q, Right => 'OwnTicket'); -ok($val, $msg); - -ok($user_a->HasRight( Object => $RT::System, Right => 'AdminOwnPersonalGroups') ,"user a has the right 'AdminOwnPersonalGroups' directly"); - -my $a_delegates = RT::Group->new($user_a); -$a_delegates->CreatePersonalGroup(Name => 'Delegates'); -ok( $a_delegates->Id ,"user a creates a personal group 'Delegates'"); -ok( $a_delegates->AddMember($user_b->PrincipalId) ,"user a adds user b to personal group 'delegates'"); - -ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to OwnTicket' in queue 'DelegationTest'"); -ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a has the right to 'OwnTicket' in queue 'DelegationTest'"); -ok(!$user_a->HasRight( Object => $RT::System, Right => 'DelegateRights') ,"user a does not have the right 'delegate rights'"); - - -my $own_ticket_ace = RT::ACE->new($user_a); -my $user_a_equiv_group = RT::Group->new($user_a); -$user_a_equiv_group->LoadACLEquivalenceGroup($user_a->PrincipalObj); -ok ($user_a_equiv_group->Id, "Loaded the user A acl equivalence group"); -my $user_b_equiv_group = RT::Group->new($user_b); -$user_b_equiv_group->LoadACLEquivalenceGroup($user_b->PrincipalObj); -ok ($user_b_equiv_group->Id, "Loaded the user B acl equivalence group"); -$own_ticket_ace->LoadByValues( PrincipalType => 'Group', PrincipalId => $user_a_equiv_group->PrincipalId, Object=>$q, RightName => 'OwnTicket'); - -ok ($own_ticket_ace->Id, "Found the ACE we want to test with for now"); - - -($val, $msg) = $own_ticket_ace->Delegate(PrincipalId => $a_delegates->PrincipalId) ; -ok( !$val ,"user a tries and fails to delegate the right 'ownticket' in queue 'DelegationTest' to personal group 'delegates' - $msg"); - - -($val, $msg) = $user_a->PrincipalObj->GrantRight( Right => 'DelegateRights'); -ok($val, "user a is granted the right to 'delegate rights' - $msg"); - -ok($user_a->HasRight( Object => $RT::System, Right => 'DelegateRights') ,"user a has the right 'DeletgateRights'"); - -($val, $msg) = $own_ticket_ace->Delegate(PrincipalId => $a_delegates->PrincipalId) ; - -ok( $val ,"user a tries and succeeds to delegate the right 'ownticket' in queue 'DelegationTest' to personal group 'delegates' - $msg"); -ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); -my $delegated_ace = RT::ACE->new($user_a); -$delegated_ace->LoadByValues ( Object => $q, RightName => 'OwnTicket', PrincipalType => 'Group', -PrincipalId => $a_delegates->PrincipalId, DelegatedBy => $user_a->PrincipalId, DelegatedFrom => $own_ticket_ace->Id); -ok ($delegated_ace->Id, "Found the delegated ACE"); - -ok( $a_delegates->DeleteMember($user_b->PrincipalId) ,"user a removes b from pg 'delegates'"); -ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest'"); -ok( $a_delegates->AddMember($user_b->PrincipalId) ,"user a adds user b to personal group 'delegates'"); -ok( $user_b->HasRight(Right => 'OwnTicket', Object=> $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); -ok( $delegated_ace->Delete ,"user a revokes pg 'delegates' right to 'OwnTickets' in queue 'DelegationTest'"); -ok( ! $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest'"); - -($val, $msg) = $own_ticket_ace->Delegate(PrincipalId => $a_delegates->PrincipalId) ; -ok( $val ,"user a delegates pg 'delegates' right to 'OwnTickets' in queue 'DelegationTest' - $msg"); - -ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); - -($val, $msg) = $user_a->PrincipalObj->RevokeRight(Object=>$q, Right => 'OwnTicket'); -ok($val, "Revoked user a's right to own tickets in queue 'DelegationTest". $msg); - -ok( !$user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a does not have the right to own tickets in queue 'DelegationTest'"); - - ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest'"); - -($val, $msg) = $user_a->PrincipalObj->GrantRight(Object=>$q, Right => 'OwnTicket'); -ok($val, $msg); - - ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a has the right to own tickets in queue 'DelegationTest'"); - - ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest'"); - -# {{{ get back to a known clean state -($val, $msg) = $user_a->PrincipalObj->RevokeRight( Object => $q, Right => 'OwnTicket'); -ok($val, "Revoked user a's right to own tickets in queue 'DelegationTest -". $msg); -ok( !$user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"make sure that user a can't own tickets in queue 'DelegationTest'"); -# }}} - - -# {{{ Set up some groups and membership -my $del1 = RT::Group->new($RT::SystemUser); -($val, $msg) = $del1->CreateUserDefinedGroup(Name => 'Del1'); -ok( $val ,"create a group del1 - $msg"); - -my $del2 = RT::Group->new($RT::SystemUser); -($val, $msg) = $del2->CreateUserDefinedGroup(Name => 'Del2'); -ok( $val ,"create a group del2 - $msg"); -($val, $msg) = $del1->AddMember($del2->PrincipalId); -ok( $val,"make del2 a member of del1 - $msg"); - -my $del2a = RT::Group->new($RT::SystemUser); -($val, $msg) = $del2a->CreateUserDefinedGroup(Name => 'Del2a'); -ok( $val ,"create a group del2a - $msg"); -($val, $msg) = $del2->AddMember($del2a->PrincipalId); -ok($val ,"make del2a a member of del2 - $msg"); - -my $del2b = RT::Group->new($RT::SystemUser); -($val, $msg) = $del2b->CreateUserDefinedGroup(Name => 'Del2b'); -ok( $val ,"create a group del2b - $msg"); -($val, $msg) = $del2->AddMember($del2b->PrincipalId); -ok($val ,"make del2b a member of del2 - $msg"); - -($val, $msg) = $del2->AddMember($user_a->PrincipalId) ; -ok($val,"make 'user a' a member of del2 - $msg"); - -($val, $msg) = $del2b->AddMember($user_a->PrincipalId) ; -ok($val,"make 'user a' a member of del2b - $msg"); - -# }}} - -# {{{ Grant a right to a group and make sure that a submember can delegate the right and that it does not get yanked -# when a user is removed as a submember, when they're a submember through another path -($val, $msg) = $del1->PrincipalObj->GrantRight( Object=> $q, Right => 'OwnTicket'); -ok( $val ,"grant del1 the right to 'OwnTicket' in queue 'DelegationTest' - $msg"); - -ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"make sure that user a can own tickets in queue 'DelegationTest'"); - -my $group_ace= RT::ACE->new($user_a); -$group_ace->LoadByValues( PrincipalType => 'Group', PrincipalId => $del1->PrincipalId, Object => $q, RightName => 'OwnTicket'); - -ok ($group_ace->Id, "Found the ACE we want to test with for now"); - -($val, $msg) = $group_ace->Delegate(PrincipalId => $a_delegates->PrincipalId); - -ok( $val ,"user a tries and succeeds to delegate the right 'ownticket' in queue 'DelegationTest' to personal group 'delegates' - $msg"); -ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); - - -($val, $msg) = $del2b->DeleteMember($user_a->PrincipalId); -ok( $val ,"remove user a from group del2b - $msg"); -ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a has the right to own tickets in queue 'DelegationTest'"); -ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); - -# }}} - -# {{{ When a user is removed froom a group by the only path they're in there by, make sure the delegations go away -($val, $msg) = $del2->DeleteMember($user_a->PrincipalId); -ok( $val ,"remove user a from group del2 - $msg"); -ok( !$user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a does not have the right to own tickets in queue 'DelegationTest' "); -ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest' "); -# }}} - -($val, $msg) = $del2->AddMember($user_a->PrincipalId); -ok( $val ,"make user a a member of group del2 - $msg"); - -($val, $msg) = $del2->PrincipalObj->GrantRight(Object=>$q, Right => 'OwnTicket'); -ok($val, "grant the right 'own tickets' in queue 'DelegationTest' to group del2 - $msg"); - -my $del2_right = RT::ACE->new($user_a); -$del2_right->LoadByValues( PrincipalId => $del2->PrincipalId, PrincipalType => 'Group', Object => $q, RightName => 'OwnTicket'); -ok ($del2_right->Id, "Found the right"); - -($val, $msg) = $del2_right->Delegate(PrincipalId => $a_delegates->PrincipalId); -ok( $val ,"user a tries and succeeds to delegate the right 'ownticket' in queue 'DelegationTest' gotten via del2 to personal group 'delegates' - $msg"); - -# They have it via del1 and del2 -ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); - - -($val, $msg) = $del2->PrincipalObj->RevokeRight(Object=>$q, Right => 'OwnTicket'); -ok($val, "revoke the right 'own tickets' in queue 'DelegationTest' to group del2 - $msg"); -ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a does has the right to own tickets in queue 'DelegationTest' via del1"); -ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest'"); - -($val, $msg) = $del2->PrincipalObj->GrantRight(Object=>$q, Right => 'OwnTicket'); -ok($val, "grant the right 'own tickets' in queue 'DelegationTest' to group del2 - $msg"); - - -$group_ace= RT::ACE->new($user_a); -$group_ace->LoadByValues( PrincipalType => 'Group', PrincipalId => $del1->PrincipalId, Object=>$q, RightName => 'OwnTicket'); - -ok ($group_ace->Id, "Found the ACE we want to test with for now"); - -($val, $msg) = $group_ace->Delegate(PrincipalId => $a_delegates->PrincipalId); - -ok( $val ,"user a tries and succeeds to delegate the right 'ownticket' in queue 'DelegationTest' to personal group 'delegates' - $msg"); - -ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b has the right to own tickets in queue 'DelegationTest'"); - -($val, $msg) = $del2->DeleteMember($user_a->PrincipalId); -ok( $val ,"remove user a from group del2 - $msg"); - -ok( !$user_a->HasRight(Right => 'OwnTicket', Object => $q) ,"user a does not have the right to own tickets in queue 'DelegationTest'"); - -ok( !$user_b->HasRight(Right => 'OwnTicket', Object => $q) ,"user b does not have the right to own tickets in queue 'DelegationTest'"); - - - - -} - -1; diff --git a/rt/t/api/action-createtickets.t b/rt/t/api/action-createtickets.t deleted file mode 100644 index 69ceb8d..0000000 --- a/rt/t/api/action-createtickets.t +++ /dev/null @@ -1,240 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 49; - - -{ - -ok (require RT::Action::CreateTickets); -use_ok('RT::Scrip'); -use_ok('RT::Template'); -use_ok('RT::ScripAction'); -use_ok('RT::ScripCondition'); -use_ok('RT::Ticket'); - -my $approvalsq = RT::Queue->new($RT::SystemUser); -$approvalsq->Create(Name => 'Approvals'); -ok ($approvalsq->Id, "Created Approvals test queue"); - - -my $approvals = -'===Create-Ticket: approval -Queue: Approvals -Type: approval -AdminCc: {join ("\nAdminCc: ",@admins) } -Depended-On-By: {$Tickets{"TOP"}->Id} -Refers-To: TOP -Subject: Approval for ticket: {$Tickets{"TOP"}->Id} - {$Tickets{"TOP"}->Subject} -Due: {time + 86400} -Content-Type: text/plain -Content: Your approval is requested for the ticket {$Tickets{"TOP"}->Id}: {$Tickets{"TOP"}->Subject} -Blah -Blah -ENDOFCONTENT -===Create-Ticket: two -Subject: Manager approval. -Depended-On-By: approval -Queue: Approvals -Content-Type: text/plain -Content: -Your minion approved ticket {$Tickets{"TOP"}->Id}. you ok with that? -ENDOFCONTENT -'; - -like ($approvals , qr/Content/, "Read in the approvals template"); - -my $apptemp = RT::Template->new($RT::SystemUser); -$apptemp->Create( Content => $approvals, Name => "Approvals", Queue => "0"); - -ok ($apptemp->Id); - -my $q = RT::Queue->new($RT::SystemUser); -$q->Create(Name => 'WorkflowTest'); -ok ($q->Id, "Created workflow test queue"); - -my $scrip = RT::Scrip->new($RT::SystemUser); -my ($sval, $smsg) =$scrip->Create( ScripCondition => 'On Transaction', - ScripAction => 'Create Tickets', - Template => 'Approvals', - Queue => $q->Id); -ok ($sval, $smsg); -ok ($scrip->Id, "Created the scrip"); -ok ($scrip->TemplateObj->Id, "Created the scrip template"); -ok ($scrip->ConditionObj->Id, "Created the scrip condition"); -ok ($scrip->ActionObj->Id, "Created the scrip action"); - -my $t = RT::Ticket->new($RT::SystemUser); -my($tid, $ttrans, $tmsg) = $t->Create(Subject => "Sample workflow test", - Owner => "root", - Queue => $q->Id); - -ok ($tid,$tmsg); - -my $deps = $t->DependsOn; -is ($deps->Count, 1, "The ticket we created depends on one other ticket"); -my $dependson= $deps->First->TargetObj; -ok ($dependson->Id, "It depends on a real ticket"); -unlike ($dependson->Subject, qr/{/, "The subject doesn't have braces in it. that means we're interpreting expressions"); -is ($t->ReferredToBy->Count,1, "It's only referred to by one other ticket"); -is ($t->ReferredToBy->First->BaseObj->Id,$t->DependsOn->First->TargetObj->Id, "The same ticket that depends on it refers to it."); -use RT::Action::CreateTickets; -my $action = RT::Action::CreateTickets->new( CurrentUser => $RT::SystemUser); - -# comma-delimited templates -my $commas = <<"EOF"; -id,Queue,Subject,Owner,Content -ticket1,General,"foo, bar",root,blah -ticket2,General,foo bar,root,blah -ticket3,General,foo' bar,root,blah'boo -ticket4,General,foo' bar,,blah'boo -EOF - - -# Comma delimited templates with missing data -my $sparse_commas = <<"EOF"; -id,Queue,Subject,Owner,Requestor -ticket14,General,,,bobby -ticket15,General,,,tommy -ticket16,General,,suzie,tommy -ticket17,General,Foo "bar" baz,suzie,tommy -ticket18,General,'Foo "bar" baz',suzie,tommy -ticket19,General,'Foo bar' baz,suzie,tommy -EOF - - -# tab-delimited templates -my $tabs = <<"EOF"; -id\tQueue\tSubject\tOwner\tContent -ticket10\tGeneral\t"foo' bar"\troot\tblah' -ticket11\tGeneral\tfoo, bar\troot\tblah -ticket12\tGeneral\tfoo' bar\troot\tblah'boo -ticket13\tGeneral\tfoo' bar\t\tblah'boo -EOF - -my %expected; - -$expected{ticket1} = <<EOF; -Queue: General -Subject: foo, bar -Owner: root -Content: blah -ENDOFCONTENT -EOF - -$expected{ticket2} = <<EOF; -Queue: General -Subject: foo bar -Owner: root -Content: blah -ENDOFCONTENT -EOF - -$expected{ticket3} = <<EOF; -Queue: General -Subject: foo' bar -Owner: root -Content: blah'boo -ENDOFCONTENT -EOF - -$expected{ticket4} = <<EOF; -Queue: General -Subject: foo' bar -Owner: -Content: blah'boo -ENDOFCONTENT -EOF - -$expected{ticket10} = <<EOF; -Queue: General -Subject: foo' bar -Owner: root -Content: blah' -ENDOFCONTENT -EOF - -$expected{ticket11} = <<EOF; -Queue: General -Subject: foo, bar -Owner: root -Content: blah -ENDOFCONTENT -EOF - -$expected{ticket12} = <<EOF; -Queue: General -Subject: foo' bar -Owner: root -Content: blah'boo -ENDOFCONTENT -EOF - -$expected{ticket13} = <<EOF; -Queue: General -Subject: foo' bar -Owner: -Content: blah'boo -ENDOFCONTENT -EOF - - -$expected{'ticket14'} = <<EOF; -Queue: General -Subject: -Owner: -Requestor: bobby -EOF -$expected{'ticket15'} = <<EOF; -Queue: General -Subject: -Owner: -Requestor: tommy -EOF -$expected{'ticket16'} = <<EOF; -Queue: General -Subject: -Owner: suzie -Requestor: tommy -EOF -$expected{'ticket17'} = <<EOF; -Queue: General -Subject: Foo "bar" baz -Owner: suzie -Requestor: tommy -EOF -$expected{'ticket18'} = <<EOF; -Queue: General -Subject: Foo "bar" baz -Owner: suzie -Requestor: tommy -EOF -$expected{'ticket19'} = <<EOF; -Queue: General -Subject: 'Foo bar' baz -Owner: suzie -Requestor: tommy -EOF - - - - -$action->Parse(Content =>$commas); -$action->Parse(Content =>$sparse_commas); -$action->Parse(Content => $tabs); - -my %got; -foreach (@{ $action->{'create_tickets'} }) { - $got{$_} = $action->{'templates'}->{$_}; -} - -foreach my $id ( sort keys %expected ) { - ok(exists($got{"create-$id"}), "template exists for $id"); - is($got{"create-$id"}, $expected{$id}, "template is correct for $id"); -} - - -} - -1; diff --git a/rt/t/api/attachment.t b/rt/t/api/attachment.t deleted file mode 100644 index 07c46ba..0000000 --- a/rt/t/api/attachment.t +++ /dev/null @@ -1,45 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 4; - - -{ - -ok (require RT::Attachment); - - -} - -{ - -my $test1 = "From: jesse"; -my @headers = RT::Attachment->_SplitHeaders($test1); -is ($#headers, 0, $test1 ); - -my $test2 = qq{From: jesse -To: bobby -Subject: foo -}; - -@headers = RT::Attachment->_SplitHeaders($test2); -is ($#headers, 2, "testing a bunch of singline multiple headers" ); - - -my $test3 = qq{From: jesse -To: bobby, - Suzie, - Sally, - Joey: bizzy, -Subject: foo -}; - -@headers = RT::Attachment->_SplitHeaders($test3); -is ($#headers, 2, "testing a bunch of singline multiple headers" ); - - - -} - -1; diff --git a/rt/t/api/attribute-tests.t b/rt/t/api/attribute-tests.t deleted file mode 100644 index 90c3ddb..0000000 --- a/rt/t/api/attribute-tests.t +++ /dev/null @@ -1,86 +0,0 @@ -use strict; -use warnings; -use RT; -use RT::Test tests => 34; - - - -my $runid = rand(200); - -my $attribute = "squelch-$runid"; - -ok(require RT::Attributes); - -my $user = RT::User->new($RT::SystemUser); -ok (UNIVERSAL::isa($user, 'RT::User')); -my ($id,$msg) = $user->Create(Name => 'attrtest-'.$runid); -ok ($id, $msg); -ok($user->id, "Created a test user"); - -ok(1, $user->Attributes->BuildSelectQuery); -my $attr = $user->Attributes; -# XXX: Order by id as some tests depend on it -$attr->OrderByCols({ FIELD => 'id' }); - -ok(1, $attr->BuildSelectQuery); - - -ok (UNIVERSAL::isa($attr,'RT::Attributes'), 'got the attributes object'); - -($id, $msg) = $user->AddAttribute(Name => 'TestAttr', Content => 'The attribute has content'); -ok ($id, $msg); -is ($attr->Count,1, " One attr after adding a first one"); - -my $first_attr = $user->FirstAttribute('TestAttr'); -ok($first_attr, "got some sort of attribute"); -isa_ok($first_attr, 'RT::Attribute'); -is($first_attr->Content, 'The attribute has content', "got the right content back"); - -($id, $msg) = $attr->DeleteEntry(Name => $runid); -ok(!$id, "Deleted non-existant entry - $msg"); -is ($attr->Count,1, "1 attr after deleting an empty attr"); - -my @names = $attr->Names; -is ("@names", "TestAttr"); - - -($id, $msg) = $user->AddAttribute(Name => $runid, Content => "First"); -ok($id, $msg); - -my $runid_attr = $user->FirstAttribute($runid); -ok($runid_attr, "got some sort of attribute"); -isa_ok($runid_attr, 'RT::Attribute'); -is($runid_attr->Content, 'First', "got the right content back"); - -is ($attr->Count,2, " Two attrs after adding an attribute named $runid"); -($id, $msg) = $user->AddAttribute(Name => $runid, Content => "Second"); -ok($id, $msg); - -$runid_attr = $user->FirstAttribute($runid); -ok($runid_attr, "got some sort of attribute"); -isa_ok($runid_attr, 'RT::Attribute'); -is($runid_attr->Content, 'First', "got the first content back still"); - -is ($attr->Count,3, " Three attrs after adding a secondvalue to $runid"); -($id, $msg) = $attr->DeleteEntry(Name => $runid, Content => "First"); -ok($id, $msg); -is ($attr->Count,2); - -#$attr->_DoSearch(); -($id, $msg) = $attr->DeleteEntry(Name => $runid, Content => "Second"); -ok($id, $msg); -is ($attr->Count,1); - -#$attr->_DoSearch(); -ok(1, $attr->BuildSelectQuery); -($id, $msg) = $attr->DeleteEntry(Name => "moose"); -ok(!$id, "Deleted non-existant entry - $msg"); -is ($attr->Count,1); - -ok(1, $attr->BuildSelectQuery); -@names = $attr->Names; -is("@names", "TestAttr"); - - - -1; diff --git a/rt/t/api/attribute.t b/rt/t/api/attribute.t deleted file mode 100644 index cb2626a..0000000 --- a/rt/t/api/attribute.t +++ /dev/null @@ -1,42 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 7; - - -{ - -my $user = $RT::SystemUser; -my ($id, $msg) = $user->AddAttribute(Name => 'SavedSearch', Content => { Query => 'Foo'} ); -ok ($id, $msg); -my $attr = RT::Attribute->new($RT::SystemUser); -$attr->Load($id); -is($attr->Name , 'SavedSearch'); -$attr->SetSubValues( Format => 'baz'); - -my $format = $attr->SubValue('Format'); -is ($format , 'baz'); - -$attr->SetSubValues( Format => 'bar'); -$format = $attr->SubValue('Format'); -is ($format , 'bar'); - -$attr->DeleteAllSubValues(); -$format = $attr->SubValue('Format'); -is ($format, undef); - -$attr->SetSubValues(Format => 'This is a format'); - -my $attr2 = RT::Attribute->new($RT::SystemUser); -$attr2->Load($id); -is ($attr2->SubValue('Format'), 'This is a format'); -$attr2->Delete; -my $attr3 = RT::Attribute->new($RT::SystemUser); -($id) = $attr3->Load($id); -is ($id, 0); - - -} - -1; diff --git a/rt/t/api/cf.t b/rt/t/api/cf.t deleted file mode 100644 index 98114c9..0000000 --- a/rt/t/api/cf.t +++ /dev/null @@ -1,224 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings FATAL => 'all'; - -use RT::Test tests => 139; - -# Before we get going, ditch all object_cfs; this will remove -# all custom fields systemwide; -my $object_cfs = RT::ObjectCustomFields->new($RT::SystemUser); -$object_cfs->UnLimit(); -while (my $ocf = $object_cfs->Next) { - $ocf->Delete(); -} - - -my $queue = RT::Queue->new( $RT::SystemUser ); -$queue->Create( Name => 'RecordCustomFields-'.$$ ); -ok ($queue->id, "Created the queue"); - -my $queue2 = RT::Queue->new( $RT::SystemUser ); -$queue2->Create( Name => 'RecordCustomFields2' ); - -my $ticket = RT::Ticket->new( $RT::SystemUser ); -$ticket->Create( - Queue => $queue->Id, - Requestor => 'root@localhost', - Subject => 'RecordCustomFields1', -); - -my $cfs = $ticket->CustomFields; -is( $cfs->Count, 0 ); - -# Check that record has no any CF values yet {{{ -my $cfvs = $ticket->CustomFieldValues; -is( $cfvs->Count, 0 ); -is( $ticket->FirstCustomFieldValue, undef ); - -my $local_cf1 = RT::CustomField->new( $RT::SystemUser ); -$local_cf1->Create( Name => 'RecordCustomFields1-'.$$, Type => 'SelectSingle', Queue => $queue->id ); -$local_cf1->AddValue( Name => 'RecordCustomFieldValues11' ); -$local_cf1->AddValue( Name => 'RecordCustomFieldValues12' ); - -my $local_cf2 = RT::CustomField->new( $RT::SystemUser ); -$local_cf2->Create( Name => 'RecordCustomFields2-'.$$, Type => 'SelectSingle', Queue => $queue->id ); -$local_cf2->AddValue( Name => 'RecordCustomFieldValues21' ); -$local_cf2->AddValue( Name => 'RecordCustomFieldValues22' ); - -my $global_cf3 = RT::CustomField->new( $RT::SystemUser ); -$global_cf3->Create( Name => 'RecordCustomFields3-'.$$, Type => 'SelectSingle', Queue => 0 ); -$global_cf3->AddValue( Name => 'RecordCustomFieldValues31' ); -$global_cf3->AddValue( Name => 'RecordCustomFieldValues32' ); - -my $local_cf4 = RT::CustomField->new( $RT::SystemUser ); -$local_cf4->Create( Name => 'RecordCustomFields4', Type => 'SelectSingle', Queue => $queue2->id ); -$local_cf4->AddValue( Name => 'RecordCustomFieldValues41' ); -$local_cf4->AddValue( Name => 'RecordCustomFieldValues42' ); - - -my @custom_fields = ($local_cf1, $local_cf2, $global_cf3); - - -$cfs = $ticket->CustomFields; -is( $cfs->Count, 3 ); - -# Check that record has no any CF values yet {{{ -$cfvs = $ticket->CustomFieldValues; -is( $cfvs->Count, 0 ); -is( $ticket->FirstCustomFieldValue, undef ); - -# CF with ID -1 shouldnt exist at all -$cfvs = $ticket->CustomFieldValues( -1 ); -is( $cfvs->Count, 0 ); -is( $ticket->FirstCustomFieldValue( -1 ), undef ); - -$cfvs = $ticket->CustomFieldValues( 'SomeUnexpedCustomFieldName' ); -is( $cfvs->Count, 0 ); -is( $ticket->FirstCustomFieldValue( 'SomeUnexpedCustomFieldName' ), undef ); - -for (@custom_fields) { - $cfvs = $ticket->CustomFieldValues( $_->id ); - is( $cfvs->Count, 0 ); - - $cfvs = $ticket->CustomFieldValues( $_->Name ); - is( $cfvs->Count, 0 ); - is( $ticket->FirstCustomFieldValue( $_->id ), undef ); - is( $ticket->FirstCustomFieldValue( $_->Name ), undef ); -} -# }}} - -# try to add field value with fields that do not exist {{{ -my ($status, $msg) = $ticket->AddCustomFieldValue( Field => -1 , Value => 'foo' ); -ok(!$status, "shouldn't add value" ); -($status, $msg) = $ticket->AddCustomFieldValue( Field => 'SomeUnexpedCustomFieldName' , Value => 'foo' ); -ok(!$status, "shouldn't add value" ); -# }}} - -# {{{ -SKIP: { - - skip "TODO: We want fields that are not allowed to set unexpected values", 10; - for (@custom_fields) { - ($status, $msg) = $ticket->AddCustomFieldValue( Field => $_ , Value => 'SomeUnexpectedCFValue' ); - ok( !$status, 'value doesn\'t exist'); - - ($status, $msg) = $ticket->AddCustomFieldValue( Field => $_->id , Value => 'SomeUnexpectedCFValue' ); - ok( !$status, 'value doesn\'t exist'); - - ($status, $msg) = $ticket->AddCustomFieldValue( Field => $_->Name , Value => 'SomeUnexpectedCFValue' ); - ok( !$status, 'value doesn\'t exist'); - } - - # Let check that we did not add value to be sure - # using only FirstCustomFieldValue sub because - # we checked other variants allready - for (@custom_fields) { - is( $ticket->FirstCustomFieldValue( $_->id ), undef ); - } - -} -# Add some values to our custom fields -for (@custom_fields) { - # this should be tested elsewhere - $_->AddValue( Name => 'Foo' ); - $_->AddValue( Name => 'Bar' ); -} - -my $test_add_delete_cycle = sub { - my $cb = shift; - for (@custom_fields) { - ($status, $msg) = $ticket->AddCustomFieldValue( Field => $cb->($_) , Value => 'Foo' ); - ok( $status, "message: $msg"); - } - - # does it exist? - $cfvs = $ticket->CustomFieldValues; - is( $cfvs->Count, 3, "We found all three custom fields on our ticket" ); - for (@custom_fields) { - $cfvs = $ticket->CustomFieldValues( $_->id ); - is( $cfvs->Count, 1 , "we found one custom field when searching by id"); - - $cfvs = $ticket->CustomFieldValues( $_->Name ); - is( $cfvs->Count, 1 , " We found one custom field when searching by name for " . $_->Name); - is( $ticket->FirstCustomFieldValue( $_->id ), 'Foo' , "first value by id is foo"); - is( $ticket->FirstCustomFieldValue( $_->Name ), 'Foo' , "first value by name is foo"); - } - # because our CFs are SingleValue then new value addition should override - for (@custom_fields) { - ($status, $msg) = $ticket->AddCustomFieldValue( Field => $_ , Value => 'Bar' ); - ok( $status, "message: $msg"); - } - $cfvs = $ticket->CustomFieldValues; - is( $cfvs->Count, 3 ); - for (@custom_fields) { - $cfvs = $ticket->CustomFieldValues( $_->id ); - is( $cfvs->Count, 1 ); - - $cfvs = $ticket->CustomFieldValues( $_->Name ); - is( $cfvs->Count, 1 ); - is( $ticket->FirstCustomFieldValue( $_->id ), 'Bar' ); - is( $ticket->FirstCustomFieldValue( $_->Name ), 'Bar' ); - } - # delete it - for (@custom_fields ) { - ($status, $msg) = $ticket->DeleteCustomFieldValue( Field => $_ , Value => 'Bar' ); - ok( $status, "Deleted a custom field value 'Bar' for field ".$_->id.": $msg"); - } - $cfvs = $ticket->CustomFieldValues; - is( $cfvs->Count, 0, "The ticket (".$ticket->id.") no longer has any custom field values" ); - for (@custom_fields) { - $cfvs = $ticket->CustomFieldValues( $_->id ); - is( $cfvs->Count, 0, $ticket->id." has no values for cf ".$_->id ); - - $cfvs = $ticket->CustomFieldValues( $_->Name ); - is( $cfvs->Count, 0 , $ticket->id." has no values for cf '".$_->Name. "'" ); - is( $ticket->FirstCustomFieldValue( $_->id ), undef , "There is no first custom field value when loading by id" ); - is( $ticket->FirstCustomFieldValue( $_->Name ), undef, "There is no first custom field value when loading by Name" ); - } -}; - -# lets test cycle via CF id -$test_add_delete_cycle->( sub { return $_[0]->id } ); -# lets test cycle via CF object reference -$test_add_delete_cycle->( sub { return $_[0] } ); - -$ticket->AddCustomFieldValue( Field => $local_cf2->id , Value => 'Baz' ); -$ticket->AddCustomFieldValue( Field => $global_cf3->id , Value => 'Baz' ); -# now if we ask for cf values on RecordCustomFields4 we should not get any -$cfvs = $ticket->CustomFieldValues( 'RecordCustomFields4' ); -is( $cfvs->Count, 0, "No custom field values for non-Queue cf" ); -is( $ticket->FirstCustomFieldValue( 'RecordCustomFields4' ), undef, "No first custom field value for non-Queue cf" ); - -{ - my $cfname = $global_cf3->Name; - ($status, $msg) = $global_cf3->SetDisabled(1); - ok($status, "Disabled CF named $cfname"); - - my $load = RT::CustomField->new( $RT::SystemUser ); - $load->LoadByName( Name => $cfname); - ok($load->Id, "Loaded CF named $cfname"); - is($load->Id, $global_cf3->Id, "Can load disabled CFs"); - - my $dup = RT::CustomField->new( $RT::SystemUser ); - $dup->Create( Name => $cfname, Type => 'SelectSingle', Queue => 0 ); - ok($dup->Id, "Created CF with duplicate name"); - - $load->LoadByName( Name => $cfname); - is($load->Id, $dup->Id, "Loading by name gets non-disabled first"); - - $dup->SetDisabled(1); - $global_cf3->SetDisabled(0); - - $load->LoadByName( Name => $cfname); - is($load->Id, $global_cf3->Id, "Loading by name gets non-disabled first, even with order swapped"); -} - -#SKIP: { -# skip "TODO: should we add CF values to objects via CF Name?", 48; -# names are not unique - # lets test cycle via CF Name -# $test_add_delete_cycle->( sub { return $_[0]->Name } ); -#} - - diff --git a/rt/t/api/cf_combo_casacade.t b/rt/t/api/cf_combo_casacade.t deleted file mode 100644 index b37345a..0000000 --- a/rt/t/api/cf_combo_casacade.t +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl -use warnings; -use strict; - -use RT::Test tests => 11; - -sub fails { ok(!$_[0], "This should fail: $_[1]") } -sub works { ok($_[0], $_[1] || 'This works') } - -sub new (*) { - my $class = shift; - return $class->new($RT::SystemUser); -} - -my $q = new(RT::Queue); -works($q->Create(Name => "CF-Pattern-".$$)); - -my $cf = new(RT::CustomField); -my @cf_args = (Name => $q->Name, Type => 'Combobox', Queue => $q->id); - -works($cf->Create(@cf_args)); - -# Set some CFVs with Category markers - -my $t = new(RT::Ticket); -my ($id,undef,$msg) = $t->Create(Queue => $q->id, Subject => 'CF Test'); -works($id,$msg); - -sub add_works { - works( - $cf->AddValue(Name => $_[0], Description => $_[0], Category => $_[1]) - ); -}; - -add_works('value1', '1. Category A'); -add_works('value2'); -add_works('value3', '1.1. A-sub one'); -add_works('value4', '1.2. A-sub two'); -add_works('value5', ''); - -my $cfv = $cf->Values->First; -is($cfv->Category, '1. Category A'); -works($cfv->SetCategory('1. Category AAA')); -is($cfv->Category, '1. Category AAA'); - -1; diff --git a/rt/t/api/cf_external.t b/rt/t/api/cf_external.t deleted file mode 100644 index 0768712..0000000 --- a/rt/t/api/cf_external.t +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -use RT; -use RT::Test nodata => 1, tests => 11; - -sub new (*) { - my $class = shift; - return $class->new($RT::SystemUser); -} - -use constant VALUES_CLASS => 'RT::CustomFieldValues::Groups'; - -my $q = new( RT::Queue ); -isa_ok( $q, 'RT::Queue' ); -my ($qid) = $q->Create( Name => "CF-External-". $$ ); -ok( $qid, "created queue" ); -my %arg = ( Name => $q->Name, - Type => 'Select', - Queue => $q->id, - MaxValues => 1, - ValuesClass => VALUES_CLASS ); - -my $cf = new( RT::CustomField ); -isa_ok( $cf, 'RT::CustomField' ); - -{ - my ($cfid) = $cf->Create( %arg ); - ok( $cfid, "created cf" ); - is( $cf->ValuesClass, VALUES_CLASS, "right values class" ); - ok( $cf->IsExternalValues, "custom field has external values" ); -} - -{ - # create at least on group for the tests - my $group = RT::Group->new( $RT::SystemUser ); - my ($ret, $msg) = $group->CreateUserDefinedGroup( Name => $q->Name ); - ok $ret, 'created group' or diag "error: $msg"; -} - -{ - my $values = $cf->Values; - isa_ok( $values, VALUES_CLASS ); - ok( $values->Count, "we have values" ); - my ($failure, $count) = (0, 0); - while( my $value = $values->Next ) { - $count++; - $failure = 1 unless $value->Name; - } - ok( !$failure, "all values have name" ); - is( $values->Count, $count, "count is correct" ); -} - -exit(0); diff --git a/rt/t/api/cf_pattern.t b/rt/t/api/cf_pattern.t deleted file mode 100644 index 89db2fe..0000000 --- a/rt/t/api/cf_pattern.t +++ /dev/null @@ -1,53 +0,0 @@ -#!/usr/bin/perl -use warnings; -use strict; - -use RT; -use RT::Test tests => 17; - - -sub fails { ok(!$_[0], "This should fail: $_[1]") } -sub works { ok($_[0], $_[1] || 'This works') } - -sub new (*) { - my $class = shift; - return $class->new($RT::SystemUser); -} - -my $q = new(RT::Queue); -works($q->Create(Name => "CF-Pattern-".$$)); - -my $cf = new(RT::CustomField); -my @cf_args = (Name => $q->Name, Type => 'Freeform', Queue => $q->id, MaxValues => 1); - -fails($cf->Create(@cf_args, Pattern => ')))bad!regex(((')); -works($cf->Create(@cf_args, Pattern => 'good regex')); - -my $t = new(RT::Ticket); -my ($id,undef,$msg) = $t->Create(Queue => $q->id, Subject => 'CF Test'); -works($id,$msg); - -# OK, I'm thoroughly brain washed by HOP at this point now... -sub cnt { $t->CustomFieldValues($cf->id)->Count }; -sub add { $t->AddCustomFieldValue(Field => $cf->id, Value => $_[0]) }; -sub del { $t->DeleteCustomFieldValue(Field => $cf->id, Value => $_[0]) }; - -is(cnt(), 0, "No values yet"); -fails(add('not going to match')); -is(cnt(), 0, "No values yet"); -works(add('here is a good regex')); -is(cnt(), 1, "Value filled"); -fails(del('here is a good regex')); -is(cnt(), 1, "Single CF - Value _not_ deleted"); - -$cf->SetMaxValues(0); # Unlimited MaxValues - -works(del('here is a good regex')); -is(cnt(), 0, "Multiple CF - Value deleted"); - -fails($cf->SetPattern('(?{ "insert evil code here" })')); -works($cf->SetPattern('(?!)')); # reject everything -fails(add('')); -fails(add('...')); - -1; diff --git a/rt/t/api/cf_single_values.t b/rt/t/api/cf_single_values.t deleted file mode 100644 index 8e96edd..0000000 --- a/rt/t/api/cf_single_values.t +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl -use warnings; -use strict; - -use RT; -use RT::Test tests => 8; - - - -my $q = RT::Queue->new($RT::SystemUser); -my ($id,$msg) =$q->Create(Name => "CF-Single-".$$); -ok($id,$msg); - -my $cf = RT::CustomField->new($RT::SystemUser); -($id,$msg) = $cf->Create(Name => 'Single-'.$$, Type => 'Select', MaxValues => '1', Queue => $q->id); -ok($id,$msg); - - -($id,$msg) =$cf->AddValue(Name => 'First'); -ok($id,$msg); - -($id,$msg) =$cf->AddValue(Name => 'Second'); -ok($id,$msg); - - -my $t = RT::Ticket->new($RT::SystemUser); -($id,undef,$msg) = $t->Create(Queue => $q->id, - Subject => 'CF Test'); - -ok($id,$msg); -is($t->CustomFieldValues($cf->id)->Count, 0, "No values yet"); -$t->AddCustomFieldValue(Field => $cf->id, Value => 'First'); -is($t->CustomFieldValues($cf->id)->Count, 1, "One now"); - -$t->AddCustomFieldValue(Field => $cf->id, Value => 'Second'); -is($t->CustomFieldValues($cf->id)->Count, 1, "Still one"); - -1; diff --git a/rt/t/api/cf_transaction.t b/rt/t/api/cf_transaction.t deleted file mode 100644 index 1ed2ab9..0000000 --- a/rt/t/api/cf_transaction.t +++ /dev/null @@ -1,60 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; -use Data::Dumper; - -use RT::Test tests => 14; -use_ok('RT'); -use_ok('RT::Transactions'); - - -my $q = RT::Queue->new($RT::SystemUser); -my ($id,$msg) = $q->Create( Name => 'TxnCFTest'.$$); -ok($id,$msg); - -my $cf = RT::CustomField->new($RT::SystemUser); -($id,$msg) = $cf->Create(Name => 'Txnfreeform-'.$$, Type => 'Freeform', MaxValues => '0', LookupType => RT::Transaction->CustomFieldLookupType ); - -ok($id,$msg); - -($id,$msg) = $cf->AddToObject($q); - -ok($id,$msg); - - -my $ticket = RT::Ticket->new($RT::SystemUser); - -my $transid; -($id,$transid, $msg) = $ticket->Create(Queue => $q->id, - Subject => 'TxnCF test', - ); -ok($id,$msg); - -my $trans = RT::Transaction->new($RT::SystemUser); -$trans->Load($transid); - -is($trans->ObjectId,$id); -is ($trans->ObjectType, 'RT::Ticket'); -is ($trans->Type, 'Create'); -my $txncfs = $trans->CustomFields; -is ($txncfs->Count, 1, "We have one custom field"); -my $txn_cf = $txncfs->First; -is ($txn_cf->id, $cf->id, "It's the right custom field"); -my $values = $trans->CustomFieldValues($txn_cf->id); -is ($values->Count, 0, "It has no values"); - -# Old API -my %cf_updates = ( 'CustomField-'.$cf->id => 'Testing'); -$trans->UpdateCustomFields( ARGSRef => \%cf_updates); - - $values = $trans->CustomFieldValues($txn_cf->id); -is ($values->Count, 1, "It has one value"); - -# New API - -$trans->UpdateCustomFields( 'CustomField-'.$cf->id => 'Test two'); - $values = $trans->CustomFieldValues($txn_cf->id); -is ($values->Count, 2, "it has two values"); - -# TODO ok(0, "Should updating custom field values remove old values?"); diff --git a/rt/t/api/condition-ownerchange.t b/rt/t/api/condition-ownerchange.t deleted file mode 100644 index 4c4c49b..0000000 --- a/rt/t/api/condition-ownerchange.t +++ /dev/null @@ -1,51 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 11; - - -{ - -my $q = RT::Queue->new($RT::SystemUser); -$q->Create(Name =>'ownerChangeTest'); - -ok($q->Id, "Created a scriptest queue"); - -my $s1 = RT::Scrip->new($RT::SystemUser); -my ($val, $msg) =$s1->Create( Queue => $q->Id, - ScripAction => 'User Defined', - ScripCondition => 'On Owner Change', - CustomIsApplicableCode => '', - CustomPrepareCode => 'return 1', - CustomCommitCode => ' - $self->TicketObj->SetPriority($self->TicketObj->Priority+1); - return(1); - ', - Template => 'Blank' - ); -ok($val,$msg); - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id, - Subject => "hair on fire", - InitialPriority => '20' - ); -ok($tv, $tm); -ok($ticket->SetOwner('root')); -is ($ticket->Priority , '21', "Ticket priority is set right"); -ok($ticket->Steal); -is ($ticket->Priority , '22', "Ticket priority is set right"); -ok($ticket->Untake); -is ($ticket->Priority , '23', "Ticket priority is set right"); -ok($ticket->Take); -is ($ticket->Priority , '24', "Ticket priority is set right"); - - - - - - -} - -1; diff --git a/rt/t/api/condition-reject.t b/rt/t/api/condition-reject.t deleted file mode 100644 index 9678950..0000000 --- a/rt/t/api/condition-reject.t +++ /dev/null @@ -1,45 +0,0 @@ -# -# Check that the "On Reject" scrip condition exists and is working -# - -use strict; -use warnings; -use RT; -use RT::Test tests => 7; - - -{ - -my $q = RT::Queue->new($RT::SystemUser); -$q->Create(Name =>'rejectTest'); - -ok($q->Id, "Created a scriptest queue"); - -my $s1 = RT::Scrip->new($RT::SystemUser); -my ($val, $msg) =$s1->Create( Queue => $q->Id, - ScripAction => 'User Defined', - ScripCondition => 'On reject', - CustomIsApplicableCode => '', - CustomPrepareCode => 'return 1', - CustomCommitCode => ' - $self->TicketObj->SetPriority($self->TicketObj->Priority+1); - return(1); - ', - Template => 'Blank' - ); -ok($val,$msg); - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id, - Subject => "hair on fire", - InitialPriority => '20' - ); -ok($tv, $tm); -ok($ticket->SetStatus('rejected'), "Status set to \"rejected\""); -is ($ticket->Priority , '21', "Condition is true, scrip triggered"); -ok($ticket->SetStatus('open'), "Status set to \"open\""); -is ($ticket->Priority , '21', "Condition is false, scrip skipped"); - -} - -1; diff --git a/rt/t/api/currentuser.t b/rt/t/api/currentuser.t deleted file mode 100644 index c158048..0000000 --- a/rt/t/api/currentuser.t +++ /dev/null @@ -1,32 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 8; - - -{ - -ok (require RT::CurrentUser); - - -} - -{ - -ok (my $cu = RT::CurrentUser->new('root')); -ok (my $lh = $cu->LanguageHandle('en-us')); -isnt ($lh, undef, '$lh is defined'); -ok ($lh->isa('Locale::Maketext')); -is ($cu->loc('TEST_STRING'), "Concrete Mixer", "Localized TEST_STRING into English"); -SKIP: { - skip "French localization is not enabled", 2 - unless grep $_ && $_ =~ /^(\*|fr)$/, RT->Config->Get('LexiconLanguages'); - ok ($lh = $cu->LanguageHandle('fr')); - is ($cu->loc('before'), "avant", "Localized TEST_STRING into French"); -} - - -} - -1; diff --git a/rt/t/api/customfield.t b/rt/t/api/customfield.t deleted file mode 100644 index 44319c4..0000000 --- a/rt/t/api/customfield.t +++ /dev/null @@ -1,74 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 29; -use Test::Warn; - - -{ - -use_ok('RT::CustomField'); -ok(my $cf = RT::CustomField->new($RT::SystemUser)); -ok(my ($id, $msg)= $cf->Create( Name => 'TestingCF', - Queue => '0', - SortOrder => '1', - Description => 'A Testing custom field', - Type=> 'SelectSingle'), 'Created a global CustomField'); -isnt($id , 0, 'Global custom field correctly created'); -ok ($cf->SingleValue); -is($cf->Type, 'Select'); -is($cf->MaxValues, 1); - -(my $val, $msg) = $cf->SetMaxValues('0'); -ok($val, $msg); -is($cf->Type, 'Select'); -is($cf->MaxValues, 0); -ok(!$cf->SingleValue ); -ok(my ($bogus_val, $bogus_msg) = $cf->SetType('BogusType') , "Trying to set a custom field's type to a bogus type"); -is($bogus_val , 0, "Unable to set a custom field's type to a bogus type"); - -ok(my $bad_cf = RT::CustomField->new($RT::SystemUser)); -ok(my ($bad_id, $bad_msg)= $cf->Create( Name => 'TestingCF-bad', - Queue => '0', - SortOrder => '1', - Description => 'A Testing custom field with a bogus Type', - Type=> 'SelectSingleton'), 'Created a global CustomField with a bogus type'); -is($bad_id , 0, 'Global custom field correctly decided to not create a cf with a bogus type '); - - -} - -{ - -ok(my $cf = RT::CustomField->new($RT::SystemUser)); -$cf->Load(1); -is($cf->Id , 1); -ok(my ($val,$msg) = $cf->AddValue(Name => 'foo' , Description => 'TestCFValue', SortOrder => '6')); -isnt($val , 0); -ok (my ($delval, $delmsg) = $cf->DeleteValue($val)); -ok ($delval,"Deleting a cf value: $delmsg"); - - -} - -{ - -ok(my $cf = RT::CustomField->new($RT::SystemUser)); - -warning_like { -ok($cf->ValidateType('SelectSingle')); -} qr/deprecated/; - -warning_like { -ok($cf->ValidateType('SelectMultiple')); -} qr/deprecated/; - -warning_like { -ok(!$cf->ValidateType('SelectFooMultiple')); -} qr/deprecated/; - - -} - -1; diff --git a/rt/t/api/date.t b/rt/t/api/date.t deleted file mode 100644 index bc1446f..0000000 --- a/rt/t/api/date.t +++ /dev/null @@ -1,564 +0,0 @@ -#!/usr/bin/perl - -use Test::MockTime qw(set_fixed_time restore_time); - -use Test::More; -my $tests; - -my $localized_datetime_tests; -BEGIN { - $tests = 167; - $localized_datetime_tests = - eval { require DateTime; 1; } && eval { require DateTime::Locale; 1; } && - DateTime->can('format_cldr') && DateTime::Locale::root->can('date_format_full'); - - if ($localized_datetime_tests) { - - # Include RT::Date::LocalizedDateTime tests - $tests += 7; - } -} - -use warnings; use strict; -use RT::Test tests => $tests; -use RT::User; -use Test::Warn; - -use_ok('RT::Date'); -{ - my $date = RT::Date->new($RT::SystemUser); - isa_ok($date, 'RT::Date', "constructor returned RT::Date oject"); - $date = $date->new($RT::SystemUser); - isa_ok($date, 'RT::Date', "constructor returned RT::Date oject"); -} - -{ - # set timezone in all places to UTC - $RT::SystemUser->UserObj->__Set(Field => 'Timezone', Value => 'UTC') - if $RT::SystemUser->UserObj->Timezone; - RT->Config->Set( Timezone => 'UTC' ); -} - -my $current_user; -{ - my $user = RT::User->new($RT::SystemUser); - my($uid, $msg) = $user->Create( - Name => "date_api". rand(200), - Lang => 'en', - Privileged => 1, - ); - ok($uid, "user was created") or diag("error: $msg"); - $current_user = RT::CurrentUser->new($user); -} - -{ - my $date = RT::Date->new( $current_user ); - is($date->Timezone, 'UTC', "dropped all timzones to UTC"); - is($date->Timezone('user'), 'UTC', "dropped all timzones to UTC"); - is($date->Timezone('server'), 'UTC', "dropped all timzones to UTC"); - is($date->Timezone('unknown'), 'UTC', "with wrong context returns UTC"); - - $current_user->UserObj->__Set( Field => 'Timezone', Value => 'Europe/Moscow'); - is($current_user->UserObj->Timezone, - 'Europe/Moscow', - "successfuly changed user's timezone"); - is($date->Timezone('user'), - 'Europe/Moscow', - "in user context returns user's timezone"); - is($date->Timezone, 'UTC', "the deafult value is always UTC"); - is($date->Timezone('server'), 'UTC', "wasn't changed"); - - RT->Config->Set( Timezone => 'Africa/Ouagadougou' ); - is($date->Timezone('server'), - 'Africa/Ouagadougou', - "timezone of the RT server was changed"); - is($date->Timezone('user'), - 'Europe/Moscow', - "in user context still returns user's timezone"); - is($date->Timezone, 'UTC', "the deafult value is always UTC"); - - $current_user->UserObj->__Set( Field => 'Timezone', Value => ''); - is_empty($current_user->UserObj->Timezone, - "successfuly changed user's timezone"); - is($date->Timezone('user'), - 'Africa/Ouagadougou', - "in user context returns timezone of the server if user's one is not defined"); - is($date->Timezone, 'UTC', "the deafult value is always UTC"); - - RT->Config->Set( Timezone => 'GMT' ); - is($date->Timezone('server'), - 'UTC', - "timezone is GMT which one is alias for UTC"); - - RT->Config->Set( Timezone => '' ); - is($date->Timezone, 'UTC', "dropped all timzones to UTC"); - is($date->Timezone('user'), - 'UTC', - "user's and server's timzones are not defined, so UTC"); - is($date->Timezone('server'), - 'UTC', - "timezone of the server is not defined so UTC"); - - RT->Config->Set( Timezone => 'UTC' ); -} - -{ - my $date = RT::Date->new($RT::SystemUser); - is($date->Unix, 0, "new date returns 0 in Unix format"); - is($date->Get, '1970-01-01 00:00:00', "default is ISO format"); - is($date->Get(Format =>'SomeBadFormat'), - '1970-01-01 00:00:00', - "don't know format, return ISO format"); - is($date->Get(Format =>'W3CDTF'), - '1970-01-01T00:00:00Z', - "W3CDTF format with defaults"); - is($date->Get(Format =>'RFC2822'), - 'Thu, 1 Jan 1970 00:00:00 +0000', - "RFC2822 format with defaults"); - is($date->Get(Format =>'LocalizedDateTime'), - 'Thu, Jan 1, 1970 12:00:00 AM', - "LocalizedDateTime format with defaults") if ( $localized_datetime_tests ); - - is($date->ISO(Time => 0), - '1970-01-01', - "ISO format without time part"); - is($date->W3CDTF(Time => 0), - '1970-01-01', - "W3CDTF format without time part"); - is($date->RFC2822(Time => 0), - 'Thu, 1 Jan 1970', - "RFC2822 format without time part"); - is($date->LocalizedDateTime(Time => 0), - 'Thu, Jan 1, 1970', - "LocalizedDateTime format without time part") if ( $localized_datetime_tests ); - - is($date->ISO(Date => 0), - '00:00:00', - "ISO format without date part"); - is($date->W3CDTF(Date => 0), - '1970-01-01T00:00:00Z', - "W3CDTF format is incorrect without date part"); - is($date->RFC2822(Date => 0), - '00:00:00 +0000', - "RFC2822 format without date part"); - is($date->LocalizedDateTime(Date => 0), - '12:00:00 AM', - "LocalizedDateTime format without date part") if ( $localized_datetime_tests ); - - is($date->ISO(Date => 0, Seconds => 0), - '00:00', - "ISO format without date part and seconds"); - is($date->W3CDTF(Date => 0, Seconds => 0), - '1970-01-01T00:00Z', - "W3CDTF format without seconds, but we ship date part even if Date is false"); - is($date->RFC2822(Date => 0, Seconds => 0), - '00:00 +0000', - "RFC2822 format without date part and seconds"); - - is($date->RFC2822(DayOfWeek => 0), - '1 Jan 1970 00:00:00 +0000', - "RFC2822 format without 'day of week' part"); - is($date->RFC2822(DayOfWeek => 0, Date => 0), - '00:00:00 +0000', - "RFC2822 format without 'day of week' and date parts(corner case test)"); - - is($date->LocalizedDateTime(AbbrDay => 0), - 'Thursday, Jan 1, 1970 12:00:00 AM', - "LocalizedDateTime format without abbreviation of day") if ( $localized_datetime_tests ); - is($date->LocalizedDateTime(AbbrMonth => 0), - 'Thu, January 1, 1970 12:00:00 AM', - "LocalizedDateTime format without abbreviation of month") if ( $localized_datetime_tests ); - is($date->LocalizedDateTime(DateFormat => 'date_format_short'), - '1/1/70 12:00:00 AM', - "LocalizedDateTime format with non default DateFormat") if ( $localized_datetime_tests ); - is($date->LocalizedDateTime(TimeFormat => 'time_format_short'), - 'Thu, Jan 1, 1970 12:00 AM', - "LocalizedDateTime format with non default TimeFormat") if ( $localized_datetime_tests ); - - is($date->Date, - '1970-01-01', - "the default format for the 'Date' method is ISO"); - is($date->Date(Format => 'W3CDTF'), - '1970-01-01', - "'Date' method, W3CDTF format"); - is($date->Date(Format => 'RFC2822'), - 'Thu, 1 Jan 1970', - "'Date' method, RFC2822 format"); - is($date->Date(Time => 1), - '1970-01-01', - "'Date' method doesn't pass through 'Time' argument"); - is($date->Date(Date => 0), - '1970-01-01', - "'Date' method overrides 'Date' argument"); - - is($date->Time, - '00:00:00', - "the default format for the 'Time' method is ISO"); - is($date->Time(Format => 'W3CDTF'), - '1970-01-01T00:00:00Z', - "'Time' method, W3CDTF format, date part is required by w3c doc"); - is($date->Time(Format => 'RFC2822'), - '00:00:00 +0000', - "'Time' method, RFC2822 format"); - is($date->Time(Date => 1), - '00:00:00', - "'Time' method doesn't pass through 'Date' argument"); - is($date->Time(Time => 0), - '00:00:00', - "'Time' method overrides 'Time' argument"); - - is($date->DateTime, - '1970-01-01 00:00:00', - "the default format for the 'DateTime' method is ISO"); - is($date->DateTime(Format =>'W3CDTF'), - '1970-01-01T00:00:00Z', - "'DateTime' method, W3CDTF format"); - is($date->DateTime(Format =>'RFC2822'), - 'Thu, 1 Jan 1970 00:00:00 +0000', - "'DateTime' method, RFC2822 format"); - is($date->DateTime(Date => 0, Time => 0), - '1970-01-01 00:00:00', - "the 'DateTime' method overrides both 'Date' and 'Time' arguments"); -} - - -{ # positive timezone - $current_user->UserObj->__Set( Field => 'Timezone', Value => 'Europe/Moscow'); - my $date = RT::Date->new( $current_user ); - $date->Set( Format => 'ISO', Timezone => 'utc', Value => '2005-01-01 15:10:00' ); - is($date->ISO( Timezone => 'user' ), '2005-01-01 18:10:00', "ISO"); - is($date->W3CDTF( Timezone => 'user' ), '2005-01-01T18:10:00+03:00', "W3C DTF"); - is($date->RFC2822( Timezone => 'user' ), 'Sat, 1 Jan 2005 18:10:00 +0300', "RFC2822"); - - # DST - $date = RT::Date->new( $current_user ); - $date->Set( Format => 'ISO', Timezone => 'utc', Value => '2005-07-01 15:10:00' ); - is($date->ISO( Timezone => 'user' ), '2005-07-01 19:10:00', "ISO"); - is($date->W3CDTF( Timezone => 'user' ), '2005-07-01T19:10:00+04:00', "W3C DTF"); - is($date->RFC2822( Timezone => 'user' ), 'Fri, 1 Jul 2005 19:10:00 +0400', "RFC2822"); -} - -{ # negative timezone - $current_user->UserObj->__Set( Field => 'Timezone', Value => 'America/New_York'); - my $date = RT::Date->new( $current_user ); - $date->Set( Format => 'ISO', Timezone => 'utc', Value => '2005-01-01 15:10:00' ); - is($date->ISO( Timezone => 'user' ), '2005-01-01 10:10:00', "ISO"); - is($date->W3CDTF( Timezone => 'user' ), '2005-01-01T10:10:00-05:00', "W3C DTF"); - is($date->RFC2822( Timezone => 'user' ), 'Sat, 1 Jan 2005 10:10:00 -0500', "RFC2822"); - - # DST - $date = RT::Date->new( $current_user ); - $date->Set( Format => 'ISO', Timezone => 'utc', Value => '2005-07-01 15:10:00' ); - is($date->ISO( Timezone => 'user' ), '2005-07-01 11:10:00', "ISO"); - is($date->W3CDTF( Timezone => 'user' ), '2005-07-01T11:10:00-04:00', "W3C DTF"); - is($date->RFC2822( Timezone => 'user' ), 'Fri, 1 Jul 2005 11:10:00 -0400', "RFC2822"); -} - -warning_like -{ # bad format - my $date = RT::Date->new($RT::SystemUser); - $date->Set( Format => 'bad' ); - is($date->Unix, 0, "bad format"); -} qr'Unknown Date format: bad'; - - -{ # setting value via Unix method - my $date = RT::Date->new($RT::SystemUser); - $date->Unix(1); - is($date->ISO, '1970-01-01 00:00:01', "correct value"); - - foreach (undef, 0, ''){ - $date->Unix(1); - is($date->ISO, '1970-01-01 00:00:01', "correct value"); - - $date->Set(Format => 'unix', Value => $_); - is($date->ISO, '1970-01-01 00:00:00', "Set a date to midnight 1/1/1970 GMT due to wrong call"); - is($date->Unix, 0, "unix is 0 => unset"); - } -} - -my $year = (localtime(time))[5] + 1900; - -{ # set+ISO format - my $date = RT::Date->new($RT::SystemUser); - warning_like { - $date->Set(Format => 'ISO', Value => 'weird date'); - } qr/Couldn't parse date 'weird date' as a ISO format/; - is($date->Unix, 0, "date was wrong => unix == 0"); - - # XXX: ISO format has more feature than we suport - # http://www.cl.cam.ac.uk/~mgk25/iso-time.html - - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); - - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00+00'); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss+00"); - - $date->Set(Format => 'ISO', Value => '11-28 15:10:00'); - is($date->ISO, $year .'-11-28 15:10:00', "DD-MM hh:mm:ss"); - - $date->Set(Format => 'ISO', Value => '11-28 15:10:00+00'); - is($date->ISO, $year .'-11-28 15:10:00', "DD-MM hh:mm:ss+00"); - - $date->Set(Format => 'ISO', Value => '20051128151000'); - is($date->ISO, '2005-11-28 15:10:00', "YYYYDDMMhhmmss"); - - $date->Set(Format => 'ISO', Value => '1128151000'); - is($date->ISO, $year .'-11-28 15:10:00', "DDMMhhmmss"); - - $date->Set(Format => 'ISO', Value => '2005112815:10:00'); - is($date->ISO, '2005-11-28 15:10:00', "YYYYDDMMhh:mm:ss"); - - $date->Set(Format => 'ISO', Value => '112815:10:00'); - is($date->ISO, $year .'-11-28 15:10:00', "DDMMhh:mm:ss"); - - $date->Set(Format => 'ISO', Value => '2005-13-28 15:10:00'); - is($date->Unix, 0, "wrong month value"); - - $date->Set(Format => 'ISO', Value => '2005-00-28 15:10:00'); - is($date->Unix, 0, "wrong month value"); - - $date->Set(Format => 'ISO', Value => '1960-01-28 15:10:00'); - is($date->Unix, 0, "too old, we don't support"); -} - -{ # set+datemanip format(Time::ParseDate) - my $date = RT::Date->new($RT::SystemUser); - $date->Set(Format => 'unknown', Value => 'weird date'); - is($date->Unix, 0, "date was wrong"); - - RT->Config->Set( Timezone => 'Europe/Moscow' ); - $date->Set(Format => 'datemanip', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss"); - - RT->Config->Set( Timezone => 'UTC' ); - $date->Set(Format => 'datemanip', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); - - $current_user->UserObj->__Set( Field => 'Timezone', Value => 'Europe/Moscow'); - $date = RT::Date->new( $current_user ); - $date->Set(Format => 'datemanip', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss"); -} - -{ # set+unknown format(Time::ParseDate) - my $date = RT::Date->new($RT::SystemUser); - $date->Set(Format => 'unknown', Value => 'weird date'); - is($date->Unix, 0, "date was wrong"); - - RT->Config->Set( Timezone => 'Europe/Moscow' ); - $date->Set(Format => 'unknown', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss"); - - $date->Set(Format => 'unknown', Value => '2005-11-28 15:10:00', Timezone => 'utc' ); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); - - # test relative dates - { - set_fixed_time("2005-11-28T15:10:00Z"); - $date->Set(Format => 'unknown', Value => 'now'); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); - - $date->Set(Format => 'unknown', Value => '1 day ago'); - is($date->ISO, '2005-11-27 15:10:00', "YYYY-DD-MM hh:mm:ss"); - restore_time(); - } - - RT->Config->Set( Timezone => 'UTC' ); - $date->Set(Format => 'unknown', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); - - $current_user->UserObj->__Set( Field => 'Timezone', Value => 'Europe/Moscow'); - $date = RT::Date->new( $current_user ); - $date->Set(Format => 'unknown', Value => '2005-11-28 15:10:00'); - is($date->ISO, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss"); - $date->Set(Format => 'unknown', Value => '2005-11-28 15:10:00', Timezone => 'server' ); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); - $date->Set(Format => 'unknown', Value => '2005-11-28 15:10:00', Timezone => 'utc' ); - is($date->ISO, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss"); -} - -{ # SetToMidnight - my $date = RT::Date->new($RT::SystemUser); - - RT->Config->Set( Timezone => 'Europe/Moscow' ); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight; - is($date->ISO, '2005-11-28 00:00:00', "default is utc"); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight(Timezone => 'utc'); - is($date->ISO, '2005-11-28 00:00:00', "utc context"); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight(Timezone => 'user'); - is($date->ISO, '2005-11-27 21:00:00', "user context, user has no preference, fallback to server"); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight(Timezone => 'server'); - is($date->ISO, '2005-11-27 21:00:00', "server context"); - - $current_user->UserObj->__Set( Field => 'Timezone', Value => 'Europe/Moscow'); - $date = RT::Date->new( $current_user ); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight; - is($date->ISO, '2005-11-28 00:00:00', "default is utc"); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight(Timezone => 'utc'); - is($date->ISO, '2005-11-28 00:00:00', "utc context"); - $date->Set(Format => 'ISO', Value => '2005-11-28 15:10:00'); - $date->SetToMidnight(Timezone => 'user'); - is($date->ISO, '2005-11-27 21:00:00', "user context"); - $date->SetToMidnight(Timezone => 'server'); - is($date->ISO, '2005-11-27 21:00:00', "server context"); - - RT->Config->Set( Timezone => 'UTC' ); -} - -{ # SetToNow - my $date = RT::Date->new($RT::SystemUser); - my $time = time; - $date->SetToNow; - ok($date->Unix >= $time, 'close enough'); - ok($date->Unix < $time+5, 'difference is less than five seconds'); -} - -{ - my $date = RT::Date->new($RT::SystemUser); - - $date->Unix(0); - $date->AddSeconds; - is($date->ISO, '1970-01-01 00:00:00', "nothing changed"); - $date->AddSeconds(0); - is($date->ISO, '1970-01-01 00:00:00', "nothing changed"); - - $date->Unix(0); - $date->AddSeconds(5); - is($date->ISO, '1970-01-01 00:00:05', "added five seconds"); - $date->AddSeconds(-2); - is($date->ISO, '1970-01-01 00:00:03', "substracted two seconds"); - - $date->Unix(0); - $date->AddSeconds(3661); - is($date->ISO, '1970-01-01 01:01:01', "added one hour, minute and a second"); - -# XXX: TODO, doesn't work with Test::Warn -# TODO: { -# local $TODO = "BUG or subject to change Date handling to support unix time <= 0"; -# $date->Unix(0); -# $date->AddSeconds(-2); -# ok($date->Unix > 0); -# } - - $date->Unix(0); - $date->AddDay; - is($date->ISO, '1970-01-02 00:00:00', "added one day"); - $date->AddDays(2); - is($date->ISO, '1970-01-04 00:00:00', "added two days"); - $date->AddDays(-1); - is($date->ISO, '1970-01-03 00:00:00', "substructed one day"); - - $date->Unix(0); - $date->AddDays(31); - is($date->ISO, '1970-02-01 00:00:00', "added one month"); -} - -{ - $current_user->UserObj->__Set( Field => 'Timezone', Value => ''); - my $date = RT::Date->new( $current_user ); - is($date->AsString, "Not set", "AsString returns 'Not set'"); - - RT->Config->Set( DateTimeFormat => ''); - $date->Unix(1); - is($date->AsString, 'Thu Jan 01 00:00:01 1970', "correct string"); - is($date->AsString(Date => 0), '00:00:01', "correct string"); - is($date->AsString(Time => 0), 'Thu Jan 01 1970', "correct string"); - is($date->AsString(Date => 0, Time => 0), 'Thu Jan 01 00:00:01 1970', "invalid input"); - - RT->Config->Set( DateTimeFormat => 'RFC2822' ); - $date->Unix(1); - is($date->AsString, 'Thu, 1 Jan 1970 00:00:01 +0000', "correct string"); - - RT->Config->Set( DateTimeFormat => { Format => 'RFC2822', Seconds => 0 } ); - $date->Unix(1); - is($date->AsString, 'Thu, 1 Jan 1970 00:00 +0000', "correct string"); - is($date->AsString(Seconds => 1), 'Thu, 1 Jan 1970 00:00:01 +0000', "correct string"); -} - -{ # DurationAsString - my $date = RT::Date->new($RT::SystemUser); - - is($date->DurationAsString(1), '1 sec', '1 sec'); - is($date->DurationAsString(59), '59 sec', '59 sec'); - is($date->DurationAsString(60), '1 min', '1 min'); - is($date->DurationAsString(60*119), '119 min', '119 min'); - is($date->DurationAsString(60*60*2-1), '120 min', '120 min'); - is($date->DurationAsString(60*60*2), '2 hours', '2 hours'); - is($date->DurationAsString(60*60*48-1), '48 hours', '48 hours'); - is($date->DurationAsString(60*60*48), '2 days', '2 days'); - is($date->DurationAsString(60*60*24*14-1), '14 days', '14 days'); - is($date->DurationAsString(60*60*24*14), '2 weeks', '2 weeks'); - is($date->DurationAsString(60*60*24*7*8-1), '8 weeks', '8 weeks'); - is($date->DurationAsString(60*60*24*61), '2 months', '2 months'); - is($date->DurationAsString(60*60*24*365-1), '12 months', '12 months'); - is($date->DurationAsString(60*60*24*366), '1 years', '1 years'); - - is($date->DurationAsString(-1), '1 sec ago', '1 sec ago'); -} - -{ # DiffAsString - my $date = RT::Date->new($RT::SystemUser); - is($date->DiffAsString(1), '', 'no diff, wrong input'); - is($date->DiffAsString(-1), '', 'no diff, wrong input'); - is($date->DiffAsString('qwe'), '', 'no diff, wrong input'); - - $date->Unix(2); - is($date->DiffAsString(-1), '', 'no diff, wrong input'); - - is($date->DiffAsString(3), '1 sec ago', 'diff: 1 sec ago'); - is($date->DiffAsString(1), '1 sec', 'diff: 1 sec'); - - my $ndate = RT::Date->new($RT::SystemUser); - is($date->DiffAsString($ndate), '', 'no diff, wrong input'); - $ndate->Unix(3); - is($date->DiffAsString($ndate), '1 sec ago', 'diff: 1 sec ago'); -} - -{ # Diff - my $date = RT::Date->new($RT::SystemUser); - $date->SetToNow; - my $diff = $date->Diff; - ok($diff <= 0, 'close enought'); - ok($diff > -5, 'close enought'); -} - -{ # AgeAsString - my $date = RT::Date->new($RT::SystemUser); - $date->SetToNow; - my $diff = $date->AgeAsString; - like($diff, qr/^(0 sec|[1-5] sec ago)$/, 'close enought'); -} - -{ # GetWeekday - my $date = RT::Date->new($RT::SystemUser); - is($date->GetWeekday(7), '', '7 and greater are invalid'); - is($date->GetWeekday(6), 'Sat', '6 is Saturday'); - is($date->GetWeekday(0), 'Sun', '0 is Sunday'); - is($date->GetWeekday(-1), 'Sat', '-1 is Saturday'); - is($date->GetWeekday(-7), 'Sun', '-7 is Sunday'); - is($date->GetWeekday(-8), '', '-8 and lesser are invalid'); -} - -{ # GetMonth - my $date = RT::Date->new($RT::SystemUser); - is($date->GetMonth(12), '', '12 and greater are invalid'); - is($date->GetMonth(11), 'Dec', '11 is December'); - is($date->GetMonth(0), 'Jan', '0 is January'); - is($date->GetMonth(-1), 'Dec', '11 is December'); - is($date->GetMonth(-12), 'Jan', '0 is January'); - is($date->GetMonth(-13), '', '-13 and lesser are invalid'); -} - -#TODO: AsString -#TODO: RFC2822, W3CDTF with Timezones - -exit(0); - diff --git a/rt/t/api/emailparser.t b/rt/t/api/emailparser.t deleted file mode 100644 index 940c26f..0000000 --- a/rt/t/api/emailparser.t +++ /dev/null @@ -1,19 +0,0 @@ - -use strict; -use warnings; - -use RT::Test tests => 4; - -RT->Config->Set( RTAddressRegexp => qr/^rt\@example.com$/i ); - - -ok(require RT::EmailParser); - -is(RT::EmailParser::IsRTAddress("","rt\@example.com"),1, "Regexp matched rt address" ); -is(RT::EmailParser::IsRTAddress("","frt\@example.com"),undef, "Regexp didn't match non-rt address" ); - -my @before = ("rt\@example.com", "frt\@example.com"); -my @after = ("frt\@example.com"); -ok(eq_array(RT::EmailParser::CullRTAddresses("",@before),@after), "CullRTAddresses only culls RT addresses"); - -1; diff --git a/rt/t/api/group.t b/rt/t/api/group.t deleted file mode 100644 index 551d4f1..0000000 --- a/rt/t/api/group.t +++ /dev/null @@ -1,99 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 38; - - -{ - -# {{{ Tests -ok (require RT::Group); - -ok (my $group = RT::Group->new($RT::SystemUser), "instantiated a group object"); -ok (my ($id, $msg) = $group->CreateUserDefinedGroup( Name => 'TestGroup', Description => 'A test group', - ), 'Created a new group'); -isnt ($id , 0, "Group id is $id"); -is ($group->Name , 'TestGroup', "The group's name is 'TestGroup'"); -my $ng = RT::Group->new($RT::SystemUser); - -ok($ng->LoadUserDefinedGroup('TestGroup'), "Loaded testgroup"); -is($ng->id , $group->id, "Loaded the right group"); - - -ok (($id,$msg) = $ng->AddMember('1'), "Added a member to the group"); -ok($id, $msg); -ok (($id,$msg) = $ng->AddMember('2' ), "Added a member to the group"); -ok($id, $msg); -ok (($id,$msg) = $ng->AddMember('3' ), "Added a member to the group"); -ok($id, $msg); - -# Group 1 now has members 1, 2 ,3 - -my $group_2 = RT::Group->new($RT::SystemUser); -ok (my ($id_2, $msg_2) = $group_2->CreateUserDefinedGroup( Name => 'TestGroup2', Description => 'A second test group'), , 'Created a new group'); -isnt ($id_2 , 0, "Created group 2 ok- $msg_2 "); -ok (($id,$msg) = $group_2->AddMember($ng->PrincipalId), "Made TestGroup a member of testgroup2"); -ok($id, $msg); -ok (($id,$msg) = $group_2->AddMember('1' ), "Added member RT_System to the group TestGroup2"); -ok($id, $msg); - -# Group 2 how has 1, g1->{1, 2,3} - -my $group_3 = RT::Group->new($RT::SystemUser); -ok (my ($id_3, $msg_3) = $group_3->CreateUserDefinedGroup( Name => 'TestGroup3', Description => 'A second test group'), 'Created a new group'); -isnt ($id_3 , 0, "Created group 3 ok - $msg_3"); -ok (($id,$msg) =$group_3->AddMember($group_2->PrincipalId), "Made TestGroup a member of testgroup2"); -ok($id, $msg); - -# g3 now has g2->{1, g1->{1,2,3}} - -my $principal_1 = RT::Principal->new($RT::SystemUser); -$principal_1->Load('1'); - -my $principal_2 = RT::Principal->new($RT::SystemUser); -$principal_2->Load('2'); - -ok (($id,$msg) = $group_3->AddMember('1' ), "Added member RT_System to the group TestGroup2"); -ok($id, $msg); - -# g3 now has 1, g2->{1, g1->{1,2,3}} - -is($group_3->HasMember($principal_2), undef, "group 3 doesn't have member 2"); -ok($group_3->HasMemberRecursively($principal_2), "group 3 has member 2 recursively"); -ok($ng->HasMember($principal_2) , "group ".$ng->Id." has member 2"); -my ($delid , $delmsg) =$ng->DeleteMember($principal_2->Id); -isnt ($delid ,0, "Sucessfully deleted it-".$delid."-".$delmsg); - -#Gotta reload the group objects, since we've been messing with various internals. -# we shouldn't need to do this. -#$ng->LoadUserDefinedGroup('TestGroup'); -#$group_2->LoadUserDefinedGroup('TestGroup2'); -#$group_3->LoadUserDefinedGroup('TestGroup'); - -# G1 now has 1, 3 -# Group 2 how has 1, g1->{1, 3} -# g3 now has 1, g2->{1, g1->{1, 3}} - -ok(!$ng->HasMember($principal_2) , "group ".$ng->Id." no longer has member 2"); -is($group_3->HasMemberRecursively($principal_2), undef, "group 3 doesn't have member 2"); -is($group_2->HasMemberRecursively($principal_2), undef, "group 2 doesn't have member 2"); -is($ng->HasMember($principal_2), undef, "group 1 doesn't have member 2"); -is($group_3->HasMemberRecursively($principal_2), undef, "group 3 has member 2 recursively"); - -# }}} - - -} - -{ - -ok(my $u = RT::Group->new($RT::SystemUser)); -ok($u->Load(4), "Loaded the first user"); -is($u->PrincipalObj->ObjectId , 4, "user 4 is the fourth principal"); -is($u->PrincipalObj->PrincipalType , 'Group' , "Principal 4 is a group"); - - -} - -1; diff --git a/rt/t/api/groups.t b/rt/t/api/groups.t deleted file mode 100644 index 995c844..0000000 --- a/rt/t/api/groups.t +++ /dev/null @@ -1,139 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 28; - - -{ - -ok (require RT::Groups); - - -} - -{ - -# next had bugs -# Groups->Limit( FIELD => 'id', OPERATOR => '!=', VALUE => xx ); -my $g = RT::Group->new($RT::SystemUser); -my ($id, $msg) = $g->CreateUserDefinedGroup(Name => 'GroupsNotEqualTest'); -ok ($id, "created group #". $g->id) or diag("error: $msg"); - -my $groups = RT::Groups->new($RT::SystemUser); -$groups->Limit( FIELD => 'id', OPERATOR => '!=', VALUE => $g->id ); -$groups->LimitToUserDefinedGroups(); -my $bug = grep $_->id == $g->id, @{$groups->ItemsArrayRef}; -ok (!$bug, "didn't find group"); - - -} - -{ - -my $u = RT::User->new($RT::SystemUser); -my ($id, $msg) = $u->Create( Name => 'Membertests'. $$ ); -ok ($id, 'created user') or diag "error: $msg"; - -my $g = RT::Group->new($RT::SystemUser); -($id, $msg) = $g->CreateUserDefinedGroup(Name => 'Membertests'); -ok ($id, $msg); - -my ($aid, $amsg) =$g->AddMember($u->id); -ok ($aid, $amsg); -ok($g->HasMember($u->PrincipalObj),"G has member u"); - -my $groups = RT::Groups->new($RT::SystemUser); -$groups->LimitToUserDefinedGroups(); -$groups->WithMember(PrincipalId => $u->id); -is ($groups->Count , 1,"found the 1 group - " . $groups->Count); -is ($groups->First->Id , $g->Id, "it's the right one"); - - -} - -{ - no warnings qw/redefine once/; - -my $q = RT::Queue->new($RT::SystemUser); -my ($id, $msg) =$q->Create( Name => 'GlobalACLTest'); -ok ($id, $msg); - -my $testuser = RT::User->new($RT::SystemUser); -($id,$msg) = $testuser->Create(Name => 'JustAnAdminCc'); -ok ($id,$msg); - -my $global_admin_cc = RT::Group->new($RT::SystemUser); -$global_admin_cc->LoadSystemRoleGroup('AdminCc'); -ok($global_admin_cc->id, "Found the global admincc group"); -my $groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'OwnTicket', Object => $q); -is($groups->Count, 1); -($id, $msg) = $global_admin_cc->PrincipalObj->GrantRight(Right =>'OwnTicket', Object=> $RT::System); -ok ($id,$msg); -ok (!$testuser->HasRight(Object => $q, Right => 'OwnTicket') , "The test user does not have the right to own tickets in the test queue"); -($id, $msg) = $q->AddWatcher(Type => 'AdminCc', PrincipalId => $testuser->id); -ok($id,$msg); -ok ($testuser->HasRight(Object => $q, Right => 'OwnTicket') , "The test user does have the right to own tickets now. thank god."); - -$groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'OwnTicket', Object => $q); -ok ($id,$msg); -is($groups->Count, 3); - -my $RTxGroup = RT::Group->new($RT::SystemUser); -($id, $msg) = $RTxGroup->CreateUserDefinedGroup( Name => 'RTxGroup', Description => "RTx extension group"); -ok ($id,$msg); -is ($RTxGroup->id, $id, "group loaded"); - -my $RTxSysObj = {}; -bless $RTxSysObj, 'RTx::System'; -*RTx::System::Id = sub { 1; }; -*RTx::System::id = *RTx::System::Id; -my $ace = RT::Record->new($RT::SystemUser); -$ace->Table('ACL'); -$ace->_BuildTableAttributes unless ($RT::Record::_TABLE_ATTR->{ref($ace)}); -($id, $msg) = $ace->Create( PrincipalId => $RTxGroup->id, PrincipalType => 'Group', RightName => 'RTxGroupRight', ObjectType => 'RTx::System', ObjectId => 1); -ok ($id, "ACL for RTxSysObj created"); - -my $RTxObj = {}; -bless $RTxObj, 'RTx::System::Record'; -*RTx::System::Record::Id = sub { 4; }; -*RTx::System::Record::id = *RTx::System::Record::Id; - -$groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'RTxGroupRight', Object => $RTxSysObj); -is($groups->Count, 1, "RTxGroupRight found for RTxSysObj"); - -$groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'RTxGroupRight', Object => $RTxObj); -is($groups->Count, 0, "RTxGroupRight not found for RTxObj"); - -$groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'RTxGroupRight', Object => $RTxObj, EquivObjects => [ $RTxSysObj ]); -is($groups->Count, 1, "RTxGroupRight found for RTxObj using EquivObjects"); - -$ace = RT::Record->new($RT::SystemUser); -$ace->Table('ACL'); -$ace->_BuildTableAttributes unless ($RT::Record::_TABLE_ATTR->{ref($ace)}); -($id, $msg) = $ace->Create( PrincipalId => $RTxGroup->id, PrincipalType => 'Group', RightName => 'RTxGroupRight', ObjectType => 'RTx::System::Record', ObjectId => 5 ); -ok ($id, "ACL for RTxObj created"); - -my $RTxObj2 = {}; -bless $RTxObj2, 'RTx::System::Record'; -*RTx::System::Record::Id = sub { 5; }; - -$groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'RTxGroupRight', Object => $RTxObj2); -is($groups->Count, 1, "RTxGroupRight found for RTxObj2"); - -$groups = RT::Groups->new($RT::SystemUser); -$groups->WithRight(Right => 'RTxGroupRight', Object => $RTxObj2, EquivObjects => [ $RTxSysObj ]); -is($groups->Count, 1, "RTxGroupRight found for RTxObj2"); - - - - -} - -1; diff --git a/rt/t/api/i18n.t b/rt/t/api/i18n.t deleted file mode 100644 index 17d71b7..0000000 --- a/rt/t/api/i18n.t +++ /dev/null @@ -1,30 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 9; - - -{ - -use_ok ('RT::I18N'); -ok(RT::I18N->Init); - - -} - -{ - -ok(my $chinese = RT::I18N->get_handle('zh_tw')); -ok(UNIVERSAL::can($chinese, 'maketext')); -like($chinese->maketext('__Content-Type') , qr/utf-8/i, "Found the utf-8 charset for traditional chinese in the string ".$chinese->maketext('__Content-Type')); -is($chinese->encoding , 'utf-8', "The encoding is 'utf-8' -".$chinese->encoding); - -ok(my $en = RT::I18N->get_handle('en')); -ok(UNIVERSAL::can($en, 'maketext')); -is($en->encoding , 'utf-8', "The encoding ".$en->encoding." is 'utf-8'"); - - -} - -1; diff --git a/rt/t/api/link.t b/rt/t/api/link.t deleted file mode 100644 index 1fd66bb..0000000 --- a/rt/t/api/link.t +++ /dev/null @@ -1,24 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 5; - - -{ - - -use RT::Link; -my $link = RT::Link->new($RT::SystemUser); - - -ok (ref $link); -ok (UNIVERSAL::isa($link, 'RT::Link')); -ok (UNIVERSAL::isa($link, 'RT::Base')); -ok (UNIVERSAL::isa($link, 'RT::Record')); -ok (UNIVERSAL::isa($link, 'DBIx::SearchBuilder::Record')); - - -} - -1; diff --git a/rt/t/api/queue.t b/rt/t/api/queue.t deleted file mode 100644 index 44d5caf..0000000 --- a/rt/t/api/queue.t +++ /dev/null @@ -1,92 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 24; - - -{ - -use RT::Queue; - - -} - -{ - -my $q = RT::Queue->new($RT::SystemUser); -is($q->IsValidStatus('new'), 1, 'New is a valid status'); -is($q->IsValidStatus('f00'), 0, 'f00 is not a valid status'); - - -} - -{ - -my $q = RT::Queue->new($RT::SystemUser); -is($q->IsActiveStatus('new'), 1, 'New is a Active status'); -is($q->IsActiveStatus('rejected'), 0, 'Rejected is an inactive status'); -is($q->IsActiveStatus('f00'), 0, 'f00 is not a Active status'); - - -} - -{ - -my $q = RT::Queue->new($RT::SystemUser); -is($q->IsInactiveStatus('new'), 0, 'New is a Active status'); -is($q->IsInactiveStatus('rejected'), 1, 'rejeected is an Inactive status'); -is($q->IsInactiveStatus('f00'), 0, 'f00 is not a Active status'); - - -} - -{ - -my $queue = RT::Queue->new($RT::SystemUser); -my ($id, $val) = $queue->Create( Name => 'Test1'); -ok($id, $val); - -($id, $val) = $queue->Create( Name => '66'); -ok(!$id, $val); - - -} - -{ - -my $Queue = RT::Queue->new($RT::SystemUser); -my ($id, $msg) = $Queue->Create(Name => "Foo"); -ok ($id, "Foo $id was created"); -ok(my $group = RT::Group->new($RT::SystemUser)); -ok($group->LoadQueueRoleGroup(Queue => $id, Type=> 'Requestor')); -ok ($group->Id, "Found the requestors object for this Queue"); - -{ - my ($status, $msg) = $Queue->AddWatcher(Type => 'Cc', Email => 'bob@fsck.com'); - ok ($status, "Added bob at fsck.com as a requestor") or diag "error: $msg"; -} - -ok(my $bob = RT::User->new($RT::SystemUser), "Creating a bob rt::user"); -$bob->LoadByEmail('bob@fsck.com'); -ok($bob->Id, "Found the bob rt user"); -ok ($Queue->IsWatcher(Type => 'Cc', PrincipalId => $bob->PrincipalId), "The Queue actually has bob at fsck.com as a requestor"); - -{ - my ($status, $msg) = $Queue->DeleteWatcher(Type =>'Cc', Email => 'bob@fsck.com'); - ok ($status, "Deleted bob from Ccs") or diag "error: $msg"; - ok (!$Queue->IsWatcher(Type => 'Cc', PrincipalId => $bob->PrincipalId), - "The Queue no longer has bob at fsck.com as a requestor"); -} - -$group = RT::Group->new($RT::SystemUser); -ok($group->LoadQueueRoleGroup(Queue => $id, Type=> 'Cc')); -ok ($group->Id, "Found the cc object for this Queue"); -$group = RT::Group->new($RT::SystemUser); -ok($group->LoadQueueRoleGroup(Queue => $id, Type=> 'AdminCc')); -ok ($group->Id, "Found the AdminCc object for this Queue"); - - -} - -1; diff --git a/rt/t/api/record.t b/rt/t/api/record.t deleted file mode 100644 index 6bf1af8..0000000 --- a/rt/t/api/record.t +++ /dev/null @@ -1,70 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 22; - - -{ - -ok (require RT::Record); - - -} - -{ - -my $ticket = RT::Ticket->new($RT::SystemUser); -my $group = RT::Group->new($RT::SystemUser); -is($ticket->ObjectTypeStr, 'Ticket', "Ticket returns correct typestring"); -is($group->ObjectTypeStr, 'Group', "Group returns correct typestring"); - - -} - -{ - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ($id, $trans, $msg) = $t1->Create(Subject => 'DepTest1', Queue => 'general'); -ok($id, "Created dep test 1 - $msg"); - -my $t2 = RT::Ticket->new($RT::SystemUser); -(my $id2, $trans, my $msg2) = $t2->Create(Subject => 'DepTest2', Queue => 'general'); -ok($id2, "Created dep test 2 - $msg2"); -my $t3 = RT::Ticket->new($RT::SystemUser); -(my $id3, $trans, my $msg3) = $t3->Create(Subject => 'DepTest3', Queue => 'general', Type => 'approval'); -ok($id3, "Created dep test 3 - $msg3"); -my ($addid, $addmsg); -ok (($addid, $addmsg) =$t1->AddLink( Type => 'DependsOn', Target => $t2->id)); -ok ($addid, $addmsg); -ok (($addid, $addmsg) =$t1->AddLink( Type => 'DependsOn', Target => $t3->id)); - -ok ($addid, $addmsg); -my $link = RT::Link->new($RT::SystemUser); -(my $rv, $msg) = $link->Load($addid); -ok ($rv, $msg); -is ($link->LocalTarget , $t3->id, "Link LocalTarget is correct"); -is ($link->LocalBase , $t1->id, "Link LocalBase is correct"); - -ok ($t1->HasUnresolvedDependencies, "Ticket ".$t1->Id." has unresolved deps"); -ok (!$t1->HasUnresolvedDependencies( Type => 'blah' ), "Ticket ".$t1->Id." has no unresolved blahs"); -ok ($t1->HasUnresolvedDependencies( Type => 'approval' ), "Ticket ".$t1->Id." has unresolved approvals"); -ok (!$t2->HasUnresolvedDependencies, "Ticket ".$t2->Id." has no unresolved deps"); -; - -my ($rid, $rmsg)= $t1->Resolve(); -ok(!$rid, $rmsg); -my ($rid2, $rmsg2) = $t2->Resolve(); -ok ($rid2, $rmsg2); -($rid, $rmsg)= $t1->Resolve(); -ok(!$rid, $rmsg); -my ($rid3,$rmsg3) = $t3->Resolve; -ok ($rid3,$rmsg3); -($rid, $rmsg)= $t1->Resolve(); -ok($rid, $rmsg); - - - -} - -1; diff --git a/rt/t/api/reminders.t b/rt/t/api/reminders.t deleted file mode 100644 index fd1c6a6..0000000 --- a/rt/t/api/reminders.t +++ /dev/null @@ -1,88 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 20; - - -{ - -# Create test queues -use_ok ('RT::Queue'); - -ok(my $testqueue = RT::Queue->new($RT::SystemUser), 'Instantiate RT::Queue'); -ok($testqueue->Create( Name => 'reminders tests'), 'Create new queue: reminders tests'); -isnt($testqueue->Id , 0, 'Success creating queue'); - -ok($testqueue->Create( Name => 'reminders tests 2'), 'Create new queue: reminders tests 2'); -isnt($testqueue->Id , 0, 'Success creating queue'); - -# Create test ticket -use_ok('RT::Ticket'); - -my $u = RT::User->new($RT::SystemUser); -$u->Load("root"); -ok ($u->Id, "Found the root user"); -ok(my $t = RT::Ticket->new($RT::SystemUser), 'Instantiate RT::Ticket'); -ok(my ($id, $msg) = $t->Create( Queue => $testqueue->Id, - Subject => 'Testing', - Owner => $u->Id - ), 'Create sample ticket'); -isnt($id , 0, 'Success creating ticket'); - -# Add reminder -my $due_obj = RT::Date->new( $RT::SystemUser ); -$due_obj->SetToNow; -ok(my ( $add_id, $add_msg, $txnid ) = $t->Reminders->Add( - Subject => 'TestReminder', - Owner => 'root', - Due => $due_obj->ISO - ), 'Add reminder'); - -# Check that the new Reminder is here -my $reminders = $t->Reminders->Collection; -ok($reminders, 'Loading reminders for this ticket'); -my $found = 0; -while ( my $reminder = $reminders->Next ) { - next unless $found == 0; - $found = 1 if ( $reminder->Subject =~ m/TestReminder/ ); -} - -is($found, 1, 'Reminder successfully added'); - -# Change queue -ok (my ($move_val, $move_msg) = $t->SetQueue('reminders tests 2'), 'Moving ticket from queue "reminders tests" to "reminders tests 2"'); - -is ($t->QueueObj->Name, 'reminders tests 2', 'Ticket successfully moved'); - -# Check that the new reminder is still there and moved to the new queue -$reminders = $t->Reminders->Collection; -ok($reminders, 'Loading reminders for this ticket'); -$found = 0; -my $ok_queue = 0; -while ( my $reminder = $reminders->Next ) { - next unless $found == 0; - if ( $reminder->Subject =~ m/TestReminder/ ) { - $found = 1; - $ok_queue = 1 if ( $reminder->QueueObj->Name eq 'reminders tests 2' ); - } -} -is($found, 1, 'Reminder successfully added'); - -is($ok_queue, 1, 'Reminder automatically moved to new queue'); - -# Resolve reminder -my $r_resolved = 0; -while ( my $reminder = $reminders->Next ) { - if ( $reminder->Subject =~ m/TestReminder/ ) { - if ( $reminder->Status ne 'resolved' ) { - $t->Reminders->Resolve($reminder); - $r_resolved = 1 if ( $reminder->Status eq 'resolved' ); - } - } -} - -is($r_resolved, 1, 'Reminder resolved'); - -} -1; diff --git a/rt/t/api/rights.t b/rt/t/api/rights.t deleted file mode 100644 index a38bcea..0000000 --- a/rt/t/api/rights.t +++ /dev/null @@ -1,197 +0,0 @@ -#!/usr/bin/perl -w -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC -# <jesse.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301 or visit their web page on the internet at -# http://www.gnu.org/copyleft/gpl.html. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} - -use RT::Test tests => 30; - -use strict; -use warnings; - -# clear all global right -{ - my $acl = RT::ACL->new($RT::SystemUser); - $acl->Limit( FIELD => 'RightName', OPERATOR => '!=', VALUE => 'SuperUser' ); - $acl->LimitToObject( $RT::System ); - while( my $ace = $acl->Next ) { - $ace->Delete; - } -} - -my $queue = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $queue && $queue->id, 'loaded or created queue'; -my $qname = $queue->Name; - -my $user = RT::Test->load_or_create_user( - Name => 'user', Password => 'password', -); -ok $user && $user->id, 'loaded or created user'; - -{ - ok( !$user->HasRight( Right => 'OwnTicket', Object => $queue ), - "user can't own ticket" - ); - ok( !$user->HasRight( Right => 'ReplyToTicket', Object => $queue ), - "user can't reply to ticket" - ); -} - -{ - my $group = RT::Group->new( $RT::SystemUser ); - ok( $group->LoadQueueRoleGroup( Queue => $queue->id, Type=> 'Owner' ), - "load queue owners role group" - ); - my $ace = RT::ACE->new( $RT::SystemUser ); - my ($ace_id, $msg) = $group->PrincipalObj->GrantRight( - Right => 'ReplyToTicket', Object => $queue - ); - ok( $ace_id, "Granted queue owners role group with ReplyToTicket right: $msg" ); - ok( $group->PrincipalObj->HasRight( Right => 'ReplyToTicket', Object => $queue ), - "role group can reply to ticket" - ); - ok( !$user->HasRight( Right => 'ReplyToTicket', Object => $queue ), - "user can't reply to ticket" - ); -} - -my $ticket; -{ - # new ticket - $ticket = RT::Ticket->new($RT::SystemUser); - my ($ticket_id) = $ticket->Create( Queue => $queue->id, Subject => 'test'); - ok( $ticket_id, 'new ticket created' ); - is( $ticket->Owner, $RT::Nobody->Id, 'owner of the new ticket is nobody' ); - - ok( !$user->HasRight( Right => 'OwnTicket', Object => $ticket ), - "user can't reply to ticket" - ); - my ($status, $msg) = $ticket->SetOwner( $user->id ); - ok( !$status, "no permissions to be an owner" ); -} - -{ - my ($status, $msg) = $user->PrincipalObj->GrantRight( - Object => $queue, Right => 'OwnTicket' - ); - ok( $status, "successfuly granted right: $msg" ); - ok( $user->HasRight( Right => 'OwnTicket', Object => $queue ), - "user can own ticket" - ); - ok( $user->HasRight( Right => 'OwnTicket', Object => $ticket ), - "user can own ticket" - ); - - ($status, $msg) = $ticket->SetOwner( $user->id ); - ok( $status, "successfuly set owner: $msg" ); - is( $ticket->Owner, $user->id, "set correct owner" ); - - ok( $user->HasRight( Right => 'ReplyToTicket', Object => $ticket ), - "user is owner and can reply to ticket" - ); -} - -{ - # Testing of EquivObjects - my $group = RT::Group->new( $RT::SystemUser ); - ok( $group->LoadQueueRoleGroup( Queue => $queue->id, Type=> 'AdminCc' ), - "load queue AdminCc role group" - ); - my $ace = RT::ACE->new( $RT::SystemUser ); - my ($ace_id, $msg) = $group->PrincipalObj->GrantRight( - Right => 'ModifyTicket', Object => $queue - ); - ok( $ace_id, "Granted queue AdminCc role group with ModifyTicket right: $msg" ); - ok( $group->PrincipalObj->HasRight( Right => 'ModifyTicket', Object => $queue ), - "role group can modify ticket" - ); - ok( !$user->HasRight( Right => 'ModifyTicket', Object => $ticket ), - "user is not AdminCc and can't modify ticket" - ); -} - -{ - my ($status, $msg) = $ticket->AddWatcher( - Type => 'AdminCc', PrincipalId => $user->PrincipalId - ); - ok( $status, "successfuly added user as AdminCc"); - ok( $user->HasRight( Right => 'ModifyTicket', Object => $ticket ), - "user is AdminCc and can modify ticket" - ); -} - -my $ticket2; -{ - $ticket2 = RT::Ticket->new($RT::SystemUser); - my ($id) = $ticket2->Create( Queue => $queue->id, Subject => 'test2'); - ok( $id, 'new ticket created' ); - ok( !$user->HasRight( Right => 'ModifyTicket', Object => $ticket2 ), - "user is not AdminCc and can't modify ticket2" - ); - - # now we can finally test EquivObjectsa - my $has = $user->HasRight( - Right => 'ModifyTicket', - Object => $ticket2, - EquivObjects => [$ticket], - ); - ok( $has, "user is not AdminCc but can modify ticket2 because of EquivObjects" ); -} - -{ - # the first a third test below are the same, so they should both pass - # make sure passed equive list is not changed - my @list = (); - ok( !$user->HasRight( Right => 'ModifyTicket', Object => $ticket2, EquivObjects => \@list ), - "user is not AdminCc and can't modify ticket2" - ); - ok( $user->HasRight( Right => 'ModifyTicket', Object => $ticket, EquivObjects => \@list ), - "user is AdminCc and can modify ticket" - ); - ok( !$user->HasRight( Right => 'ModifyTicket', Object => $ticket2, EquivObjects => \@list ), - "user is not AdminCc and can't modify ticket2 (same question different answer)" - ); -} diff --git a/rt/t/api/rights_show_ticket.t b/rt/t/api/rights_show_ticket.t deleted file mode 100644 index 3e1d074..0000000 --- a/rt/t/api/rights_show_ticket.t +++ /dev/null @@ -1,262 +0,0 @@ -#!/usr/bin/perl -w - -use RT::Test tests => 264; - -use strict; -use warnings; - - -my $queue_a = RT::Test->load_or_create_queue( Name => 'A' ); -ok $queue_a && $queue_a->id, 'loaded or created queue_a'; -my $qa_id = $queue_a->id; - -my $queue_b = RT::Test->load_or_create_queue( Name => 'B' ); -ok $queue_b && $queue_b->id, 'loaded or created queue_b'; -my $qb_id = $queue_b->id; - -my $user_a = RT::Test->load_or_create_user( - Name => 'user_a', Password => 'password', -); -ok $user_a && $user_a->id, 'loaded or created user'; - -my $user_b = RT::Test->load_or_create_user( - Name => 'user_b', Password => 'password', -); -ok $user_b && $user_b->id, 'loaded or created user'; - -foreach my $option (0 .. 1 ) { RT->Config->Set( 'UseSQLForACLChecks' => $option ); - -diag "Testing with UseSQLForACLChecks => $option"; - -# Global Cc has right, a User is nobody -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => 'Cc', Right => [qw(ShowTicket)] }, - ); - create_tickets_set(); - have_no_rights($user_a, $user_b); -} - -# Global Cc has right, a User is Queue Cc -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => 'Cc', Right => [qw(ShowTicket)] }, - ); - create_tickets_set(); - have_no_rights($user_a, $user_b); - - my ($status, $msg) = $queue_a->AddWatcher( Type => 'Cc', PrincipalId => $user_a->id ); - ok($status, "user A is now queue A watcher"); - - foreach my $q ( - '', - "Queue = $qa_id OR Queue = $qb_id", - "Queue = $qb_id OR Queue = $qa_id", - ) { - my $tickets = RT::Tickets->new( RT::CurrentUser->new( $user_a ) ); - $q? $tickets->FromSQL($q) : $tickets->UnLimit; - my $found = 0; - while ( my $t = $tickets->Next ) { - $found++; - is( $t->Queue, $queue_a->id, "user sees tickets only in queue A" ); - } - is($found, 2, "user sees tickets"); - } - have_no_rights( $user_b ); -} - -# global Cc has right, a User is ticket Cc -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => 'Cc', Right => [qw(ShowTicket)] }, - ); - my @tickets = create_tickets_set(); - have_no_rights($user_a, $user_b); - - my ($status, $msg) = $tickets[1]->AddWatcher( Type => 'Cc', PrincipalId => $user_a->id ); - ok($status, "user A is now queue A watcher"); - - foreach my $q ( - '', - "Queue = $qa_id OR Queue = $qb_id", - "Queue = $qb_id OR Queue = $qa_id", - ) { - my $tickets = RT::Tickets->new( RT::CurrentUser->new( $user_a ) ); - $q? $tickets->FromSQL($q) : $tickets->UnLimit; - my $found = 0; - while ( my $t = $tickets->Next ) { - $found++; - is( $t->Queue, $queue_a->id, "user sees tickets only in queue A" ); - is( $t->id, $tickets[1]->id, "correct ticket"); - } - is($found, 1, "user sees tickets"); - } - have_no_rights($user_b); -} - -# Queue Cc has right, a User is nobody -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => 'Cc', Object => $queue_a, Right => [qw(ShowTicket)] }, - ); - create_tickets_set(); - have_no_rights($user_a, $user_b); -} - -# Queue Cc has right, Users are Queue Ccs -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => 'Cc', Object => $queue_a, Right => [qw(ShowTicket)] }, - ); - create_tickets_set(); - have_no_rights($user_a, $user_b); - - my ($status, $msg) = $queue_a->AddWatcher( Type => 'Cc', PrincipalId => $user_a->id ); - ok($status, "user A is now queue A watcher"); - - ($status, $msg) = $queue_b->AddWatcher( Type => 'Cc', PrincipalId => $user_b->id ); - ok($status, "user B is now queue B watcher"); - - foreach my $q ( - '', - "Queue = $qa_id OR Queue = $qb_id", - "Queue = $qb_id OR Queue = $qa_id", - ) { - my $tickets = RT::Tickets->new( RT::CurrentUser->new( $user_a ) ); - $q? $tickets->FromSQL($q) : $tickets->UnLimit; - my $found = 0; - while ( my $t = $tickets->Next ) { - $found++; - is( $t->Queue, $queue_a->id, "user sees tickets only in queue A" ); - } - is($found, 2, "user sees tickets"); - } - have_no_rights( $user_b ); -} - -# Queue Cc has right, Users are ticket Ccs -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => 'Cc', Object => $queue_a, Right => [qw(ShowTicket)] }, - ); - my @tickets = create_tickets_set(); - have_no_rights($user_a, $user_b); - - my ($status, $msg) = $tickets[1]->AddWatcher( Type => 'Cc', PrincipalId => $user_a->id ); - ok($status, "user A is now Cc on a ticket in queue A"); - - ($status, $msg) = $tickets[2]->AddWatcher( Type => 'Cc', PrincipalId => $user_b->id ); - ok($status, "user B is now Cc on a ticket in queue B"); - - foreach my $q ( - '', - "Queue = $qa_id OR Queue = $qb_id", - "Queue = $qb_id OR Queue = $qa_id", - ) { - my $tickets = RT::Tickets->new( RT::CurrentUser->new( $user_a ) ); - $q? $tickets->FromSQL($q) : $tickets->UnLimit; - my $found = 0; - while ( my $t = $tickets->Next ) { - $found++; - is( $t->Queue, $queue_a->id, "user sees tickets only in queue A" ); - is( $t->id, $tickets[1]->id, ) - } - is($found, 1, "user sees tickets"); - } - have_no_rights( $user_b ); -} - -# Users has direct right on queue -{ - cleanup(); - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue)] }, - { Principal => $user_a, Object => $queue_a, Right => [qw(ShowTicket)] }, - ); - my @tickets = create_tickets_set(); - - foreach my $q ( - '', - "Queue = $qa_id OR Queue = $qb_id", - "Queue = $qb_id OR Queue = $qa_id", - ) { - my $tickets = RT::Tickets->new( RT::CurrentUser->new( $user_a ) ); - $q? $tickets->FromSQL($q) : $tickets->UnLimit; - my $found = 0; - while ( my $t = $tickets->Next ) { - $found++; - is( $t->Queue, $queue_a->id, "user sees tickets only in queue A" ); - } - is($found, 2, "user sees tickets"); - } - have_no_rights( $user_b ); -} - - -} - -sub have_no_rights { - $SIG{'INT'} = $SIG{'TERM'} = sub { print STDERR Carp::longmess('boo'); exit 1 }; - local $Test::Builder::Level = $Test::Builder::Level + 1; - foreach my $u ( @_ ) { - foreach my $q ( - '', - "Queue = $qa_id OR Queue = $qb_id", - "Queue = $qb_id OR Queue = $qa_id", - ) { - my $tickets = RT::Tickets->new( RT::CurrentUser->new( $u ) ); - $q? $tickets->FromSQL($q) : $tickets->UnLimit; - ok(!$tickets->First, "no tickets"); - } - } -} - -sub create_tickets_set{ - local $Test::Builder::Level = $Test::Builder::Level + 1; - my @res; - foreach my $q ($queue_a, $queue_b) { - foreach my $n (1 .. 2) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - my ($tid) = $ticket->Create( - Queue => $q->id, Subject => $q->Name .' - '. $n - ); - ok( $tid, "created ticket #$tid"); - push @res, $ticket; - } - } - return @res; -} - -sub cleanup { delete_tickets(); delete_watchers() }; - -sub delete_tickets { - my $tickets = RT::Tickets->new( $RT::SystemUser ); - $tickets->FromSQL( "Queue = $qa_id OR Queue = $qb_id" ); - while ( my $ticket = $tickets->Next ) { - $ticket->Delete; - } -} - -sub delete_watchers { - foreach my $q ($queue_a, $queue_b) { - foreach my $u ($user_a, $user_b) { - foreach my $t (qw(Cc AdminCc) ) { - $q->DeleteWatcher( Type => $t, PrincipalId => $u->id ) - if $q->IsWatcher( Type => $t, PrincipalId => $u->id ); - } - } - } -} - diff --git a/rt/t/api/rt.t b/rt/t/api/rt.t deleted file mode 100644 index 3c06b58..0000000 --- a/rt/t/api/rt.t +++ /dev/null @@ -1,18 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 4; - - -{ - -is ($RT::Nobody->Name() , 'Nobody', "Nobody is nobody"); -isnt ($RT::Nobody->Name() , 'root', "Nobody isn't named root"); -is ($RT::SystemUser->Name() , 'RT_System', "The system user is RT_System"); -isnt ($RT::SystemUser->Name() , 'noname', "The system user isn't noname"); - - -} - -1; diff --git a/rt/t/api/scrip.t b/rt/t/api/scrip.t deleted file mode 100644 index 8e8f962..0000000 --- a/rt/t/api/scrip.t +++ /dev/null @@ -1,49 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 7; - - -{ - -ok (require RT::Scrip); - - -my $q = RT::Queue->new($RT::SystemUser); -$q->Create(Name => 'ScripTest'); -ok($q->Id, "Created a scriptest queue"); - -my $s1 = RT::Scrip->new($RT::SystemUser); -my ($val, $msg) =$s1->Create( Queue => $q->Id, - ScripAction => 'User Defined', - ScripCondition => 'User Defined', - CustomIsApplicableCode => 'if ($self->TicketObj->Subject =~ /fire/) { return (1);} else { return(0)}', - CustomPrepareCode => 'return 1', - CustomCommitCode => '$self->TicketObj->SetPriority("87");', - Template => 'Blank' - ); -ok($val,$msg); - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id, - Subject => "hair on fire", - ); -ok($tv, $tm); - -is ($ticket->Priority , '87', "Ticket priority is set right"); - - -my $ticket2 = RT::Ticket->new($RT::SystemUser); -my ($t2v,$t2tv,$t2m) = $ticket2->Create(Queue => $q->Id, - Subject => "hair in water", - ); -ok($t2v, $t2m); - -isnt ($ticket2->Priority , '87', "Ticket priority is set right"); - - - -} - -1; diff --git a/rt/t/api/scrip_order.t b/rt/t/api/scrip_order.t deleted file mode 100644 index 9738db9..0000000 --- a/rt/t/api/scrip_order.t +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -use RT; -use RT::Test tests => 7; - - -# {{{ test scrip ordering based on description - -my $scrip_queue = RT::Queue->new($RT::SystemUser); -my ($queue_id, $msg) = $scrip_queue->Create( Name => "ScripOrdering-$$", - Description => 'Test scrip ordering by description' ); -ok($queue_id, "Created scrip-ordering test queue? ".$msg); - -my $priority_ten_scrip = RT::Scrip->new($RT::SystemUser); -(my $id, $msg) = $priority_ten_scrip->Create( - Description => "10 set priority $$", - Queue => $queue_id, - ScripCondition => 'On Create', - ScripAction => 'User Defined', - CustomPrepareCode => '$RT::Logger->debug("Setting priority to 10..."); return 1;', - CustomCommitCode => '$self->TicketObj->SetPriority(10);', - Template => 'Blank', - Stage => 'TransactionCreate', -); -ok($id, "Created priority-10 scrip? ".$msg); - -my $priority_five_scrip = RT::Scrip->new($RT::SystemUser); -($id, $msg) = $priority_ten_scrip->Create( - Description => "05 set priority $$", - Queue => $queue_id, - ScripCondition => 'On Create', - ScripAction => 'User Defined', - CustomPrepareCode => '$RT::Logger->debug("Setting priority to 5..."); return 1;', - CustomCommitCode => '$self->TicketObj->SetPriority(5);', - Template => 'Blank', - Stage => 'TransactionCreate', -); -ok($id, "Created priority-5 scrip? ".$msg); - -my $ticket = RT::Ticket->new($RT::SystemUser); -($id, $msg) = $ticket->Create( - Queue => $queue_id, - Requestor => 'order@example.com', - Subject => "Scrip order test $$", -); -ok($ticket->id, "Created ticket? id=$id"); - -isnt($ticket->Priority , 0, "Ticket shouldn't be priority 0"); -isnt($ticket->Priority , 5, "Ticket shouldn't be priority 5"); -is ($ticket->Priority , 10, "Ticket should be priority 10"); - -# }}} - -1; diff --git a/rt/t/api/searchbuilder.t b/rt/t/api/searchbuilder.t deleted file mode 100644 index cb11890..0000000 --- a/rt/t/api/searchbuilder.t +++ /dev/null @@ -1,40 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 11; - - -{ - -ok (require RT::SearchBuilder); - - -} - -{ - -use_ok('RT::Queues'); -ok(my $queues = RT::Queues->new($RT::SystemUser), 'Created a queues object'); -ok( $queues->UnLimit(),'Unlimited the result set of the queues object'); -my $items = $queues->ItemsArrayRef(); -my @items = @{$items}; - -ok($queues->NewItem->_Accessible('Name','read')); -my @sorted = sort {lc($a->Name) cmp lc($b->Name)} @items; -ok (@sorted, "We have an array of queues, sorted". join(',',map {$_->Name} @sorted)); - -ok (@items, "We have an array of queues, raw". join(',',map {$_->Name} @items)); -my @sorted_ids = map {$_->id } @sorted; -my @items_ids = map {$_->id } @items; - -is ($#sorted, $#items); -is ($sorted[0]->Name, $items[0]->Name); -is ($sorted[-1]->Name, $items[-1]->Name); -is_deeply(\@items_ids, \@sorted_ids, "ItemsArrayRef sorts alphabetically by name"); - - - -} - -1; diff --git a/rt/t/api/system.t b/rt/t/api/system.t deleted file mode 100644 index 3077115..0000000 --- a/rt/t/api/system.t +++ /dev/null @@ -1,33 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 7; - - -{ - -my $s = RT::System->new($RT::SystemUser); -my $rights = $s->AvailableRights; -ok ($rights, "Rights defined"); -ok ($rights->{'AdminUsers'},"AdminUsers right found"); -ok ($rights->{'CreateTicket'},"CreateTicket right found"); -ok ($rights->{'AdminGroupMembership'},"ModifyGroupMembers right found"); -ok (!$rights->{'CasdasdsreateTicket'},"bogus right not found"); - - - - -} - -{ - -use RT::System; -my $sys = RT::System->new(); -is( $sys->Id, 1); -is ($sys->id, 1); - - -} - -1; diff --git a/rt/t/api/template-insert.t b/rt/t/api/template-insert.t deleted file mode 100644 index 47bbd79..0000000 --- a/rt/t/api/template-insert.t +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - - -use RT; -use RT::Test tests => 7; - - - -# This tiny little test script triggers an interaction bug between DBD::Oracle 1.16, SB 1.15 and RT 3.4 - -use_ok('RT::Template'); -my $template = RT::Template->new($RT::SystemUser); - -isa_ok($template, 'RT::Template'); -my ($val,$msg) = $template->Create(Queue => 1, - Name => 'InsertTest', - Content => 'This is template content'); -ok($val,$msg); -is($template->Name, 'InsertTest'); -is($template->Content, 'This is template content', "We created the object right"); -($val, $msg) = $template->SetContent( 'This is new template content'); -ok($val,$msg); -is($template->Content, 'This is new template content', "We managed to _Set_ the content"); diff --git a/rt/t/api/template.t b/rt/t/api/template.t deleted file mode 100644 index 1612b8f..0000000 --- a/rt/t/api/template.t +++ /dev/null @@ -1,26 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 2; - - -{ - -ok(require RT::Template); - - -} - -{ - -my $t = RT::Template->new($RT::SystemUser); -$t->Create(Name => "Foo", Queue => 1); -my $t2 = RT::Template->new($RT::Nobody); -$t2->Load($t->Id); -ok($t2->QueueObj->id, "Got the template's queue objet"); - - -} - -1; diff --git a/rt/t/api/ticket.t b/rt/t/api/ticket.t deleted file mode 100644 index 2ca0997..0000000 --- a/rt/t/api/ticket.t +++ /dev/null @@ -1,257 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 87; - - -{ - -use_ok ('RT::Queue'); -ok(my $testqueue = RT::Queue->new($RT::SystemUser)); -ok($testqueue->Create( Name => 'ticket tests')); -isnt($testqueue->Id , 0); -use_ok('RT::CustomField'); -ok(my $testcf = RT::CustomField->new($RT::SystemUser)); -my ($ret, $cmsg) = $testcf->Create( Name => 'selectmulti', - Queue => $testqueue->id, - Type => 'SelectMultiple'); -ok($ret,"Created the custom field - ".$cmsg); -($ret,$cmsg) = $testcf->AddValue ( Name => 'Value1', - SortOrder => '1', - Description => 'A testing value'); - -ok($ret, "Added a value - ".$cmsg); - -ok($testcf->AddValue ( Name => 'Value2', - SortOrder => '2', - Description => 'Another testing value')); -ok($testcf->AddValue ( Name => 'Value3', - SortOrder => '3', - Description => 'Yet Another testing value')); - -is($testcf->Values->Count , 3); - -use_ok('RT::Ticket'); - -my $u = RT::User->new($RT::SystemUser); -$u->Load("root"); -ok ($u->Id, "Found the root user"); -ok(my $t = RT::Ticket->new($RT::SystemUser)); -ok(my ($id, $msg) = $t->Create( Queue => $testqueue->Id, - Subject => 'Testing', - Owner => $u->Id - )); -isnt($id , 0); -is ($t->OwnerObj->Id , $u->Id, "Root is the ticket owner"); -ok(my ($cfv, $cfm) =$t->AddCustomFieldValue(Field => $testcf->Id, - Value => 'Value1')); -isnt($cfv , 0, "Custom field creation didn't return an error: $cfm"); -is($t->CustomFieldValues($testcf->Id)->Count , 1); -ok($t->CustomFieldValues($testcf->Id)->First && - $t->CustomFieldValues($testcf->Id)->First->Content eq 'Value1'); - -ok(my ($cfdv, $cfdm) = $t->DeleteCustomFieldValue(Field => $testcf->Id, - Value => 'Value1')); -isnt ($cfdv , 0, "Deleted a custom field value: $cfdm"); -is($t->CustomFieldValues($testcf->Id)->Count , 0); - -ok(my $t2 = RT::Ticket->new($RT::SystemUser)); -ok($t2->Load($id)); -is($t2->Subject, 'Testing'); -is($t2->QueueObj->Id, $testqueue->id); -is($t2->OwnerObj->Id, $u->Id); - -my $t3 = RT::Ticket->new($RT::SystemUser); -my ($id3, $msg3) = $t3->Create( Queue => $testqueue->Id, - Subject => 'Testing', - Owner => $u->Id); -my ($cfv1, $cfm1) = $t->AddCustomFieldValue(Field => $testcf->Id, - Value => 'Value1'); -isnt($cfv1 , 0, "Adding a custom field to ticket 1 is successful: $cfm"); -my ($cfv2, $cfm2) = $t3->AddCustomFieldValue(Field => $testcf->Id, - Value => 'Value2'); -isnt($cfv2 , 0, "Adding a custom field to ticket 2 is successful: $cfm"); -my ($cfv3, $cfm3) = $t->AddCustomFieldValue(Field => $testcf->Id, - Value => 'Value3'); -isnt($cfv3 , 0, "Adding a custom field to ticket 1 is successful: $cfm"); -is($t->CustomFieldValues($testcf->Id)->Count , 2, - "This ticket has 2 custom field values"); -is($t3->CustomFieldValues($testcf->Id)->Count , 1, - "This ticket has 1 custom field value"); - - -} - -{ - - -ok(require RT::Ticket, "Loading the RT::Ticket library"); - - -} - -{ - -my $t = RT::Ticket->new($RT::SystemUser); - -ok( $t->Create(Queue => 'General', Due => '2002-05-21 00:00:00', ReferredToBy => 'http://www.cpan.org', RefersTo => 'http://fsck.com', Subject => 'This is a subject'), "Ticket Created"); - -ok ( my $id = $t->Id, "Got ticket id"); -like ($t->RefersTo->First->Target , qr/fsck.com/, "Got refers to"); -like ($t->ReferredToBy->First->Base , qr/cpan.org/, "Got referredtoby"); -is ($t->ResolvedObj->Unix, 0, "It hasn't been resolved - ". $t->ResolvedObj->Unix); - - -} - -{ - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($id, $msg) = $ticket->Create(Subject => "Foo", - Owner => $RT::SystemUser->Id, - Status => 'open', - Requestor => ['jesse@example.com'], - Queue => '1' - ); -ok ($id, "Ticket $id was created"); -ok(my $group = RT::Group->new($RT::SystemUser)); -ok($group->LoadTicketRoleGroup(Ticket => $id, Type=> 'Requestor')); -ok ($group->Id, "Found the requestors object for this ticket"); - -ok(my $jesse = RT::User->new($RT::SystemUser), "Creating a jesse rt::user"); -$jesse->LoadByEmail('jesse@example.com'); -ok($jesse->Id, "Found the jesse rt user"); - - -ok ($ticket->IsWatcher(Type => 'Requestor', PrincipalId => $jesse->PrincipalId), "The ticket actually has jesse at fsck.com as a requestor"); -ok (my ($add_id, $add_msg) = $ticket->AddWatcher(Type => 'Requestor', Email => 'bob@fsck.com'), "Added bob at fsck.com as a requestor"); -ok ($add_id, "Add succeeded: ($add_msg)"); -ok(my $bob = RT::User->new($RT::SystemUser), "Creating a bob rt::user"); -$bob->LoadByEmail('bob@fsck.com'); -ok($bob->Id, "Found the bob rt user"); -ok ($ticket->IsWatcher(Type => 'Requestor', PrincipalId => $bob->PrincipalId), "The ticket actually has bob at fsck.com as a requestor"); -ok ( ($add_id, $add_msg) = $ticket->DeleteWatcher(Type =>'Requestor', Email => 'bob@fsck.com'), "Added bob at fsck.com as a requestor"); -ok (!$ticket->IsWatcher(Type => 'Requestor', PrincipalId => $bob->PrincipalId), "The ticket no longer has bob at fsck.com as a requestor"); - - -$group = RT::Group->new($RT::SystemUser); -ok($group->LoadTicketRoleGroup(Ticket => $id, Type=> 'Cc')); -ok ($group->Id, "Found the cc object for this ticket"); -$group = RT::Group->new($RT::SystemUser); -ok($group->LoadTicketRoleGroup(Ticket => $id, Type=> 'AdminCc')); -ok ($group->Id, "Found the AdminCc object for this ticket"); -$group = RT::Group->new($RT::SystemUser); -ok($group->LoadTicketRoleGroup(Ticket => $id, Type=> 'Owner')); -ok ($group->Id, "Found the Owner object for this ticket"); -ok($group->HasMember($RT::SystemUser->UserObj->PrincipalObj), "the owner group has the member 'RT_System'"); - - -} - -{ - -my $t = RT::Ticket->new($RT::SystemUser); -ok($t->Create(Queue => 'general', Subject => 'SquelchTest', SquelchMailTo => 'nobody@example.com')); - -my @returned = $t->SquelchMailTo(); -is($#returned, 0, "The ticket has one squelched recipients"); - -my ($ret, $msg) = $t->UnsquelchMailTo('nobody@example.com'); -ok($ret, "Removed nobody as a squelched recipient - ".$msg); -@returned = $t->SquelchMailTo(); -is($#returned, -1, "The ticket has no squelched recipients". join(',',@returned)); - - - -@returned = $t->SquelchMailTo('nobody@example.com'); -is($#returned, 0, "The ticket has one squelched recipients"); - -my @names = $t->Attributes->Names; -is(shift @names, 'SquelchMailTo', "The attribute we have is SquelchMailTo"); -@returned = $t->SquelchMailTo('nobody@example.com'); - - -is($#returned, 0, "The ticket has one squelched recipients"); - -@names = $t->Attributes->Names; -is(shift @names, 'SquelchMailTo', "The attribute we have is SquelchMailTo"); - - -($ret, $msg) = $t->UnsquelchMailTo('nobody@example.com'); -ok($ret, "Removed nobody as a squelched recipient - ".$msg); -@returned = $t->SquelchMailTo(); -is($#returned, -1, "The ticket has no squelched recipients". join(',',@returned)); - - - -} - -{ - -my $t1 = RT::Ticket->new($RT::SystemUser); -$t1->Create ( Subject => 'Merge test 1', Queue => 'general', Requestor => 'merge1@example.com'); -my $t1id = $t1->id; -my $t2 = RT::Ticket->new($RT::SystemUser); -$t2->Create ( Subject => 'Merge test 2', Queue => 'general', Requestor => 'merge2@example.com'); -my $t2id = $t2->id; -my ($msg, $val) = $t1->MergeInto($t2->id); -ok ($msg,$val); -$t1 = RT::Ticket->new($RT::SystemUser); -is ($t1->id, undef, "ok. we've got a blank ticket1"); -$t1->Load($t1id); - -is ($t1->id, $t2->id); - -is ($t1->Requestors->MembersObj->Count, 2); - - - -} - -{ - -my $root = RT::User->new($RT::SystemUser); -$root->Load('root'); -ok ($root->Id, "Loaded the root user"); -my $t = RT::Ticket->new($RT::SystemUser); -$t->Load(1); -$t->SetOwner('root'); -is ($t->OwnerObj->Name, 'root' , "Root owns the ticket"); -$t->Steal(); -is ($t->OwnerObj->id, $RT::SystemUser->id , "SystemUser owns the ticket"); -my $txns = RT::Transactions->new($RT::SystemUser); -$txns->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$txns->Limit(FIELD => 'ObjectId', VALUE => '1'); -$txns->Limit(FIELD => 'ObjectType', VALUE => 'RT::Ticket'); -$txns->Limit(FIELD => 'Type', OPERATOR => '!=', VALUE => 'EmailRecord'); - -my $steal = $txns->First; -is($steal->OldValue , $root->Id , "Stolen from root"); -is($steal->NewValue , $RT::SystemUser->Id , "Stolen by the systemuser"); - - -} - -{ - -my $tt = RT::Ticket->new($RT::SystemUser); -my ($id, $tid, $msg)= $tt->Create(Queue => 'general', - Subject => 'test'); -ok($id, $msg); -is($tt->Status, 'new', "New ticket is created as new"); - -($id, $msg) = $tt->SetStatus('open'); -ok($id, $msg); -like($msg, qr/open/i, "Status message is correct"); -($id, $msg) = $tt->SetStatus('resolved'); -ok($id, $msg); -like($msg, qr/resolved/i, "Status message is correct"); -($id, $msg) = $tt->SetStatus('resolved'); -ok(!$id,$msg); - - - -} - -1; diff --git a/rt/t/api/tickets.t b/rt/t/api/tickets.t deleted file mode 100644 index 9148a88..0000000 --- a/rt/t/api/tickets.t +++ /dev/null @@ -1,104 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 16; - - -{ - -ok (require RT::Tickets); -ok( my $testtickets = RT::Tickets->new( $RT::SystemUser ) ); -ok( $testtickets->LimitStatus( VALUE => 'deleted' ) ); -# Should be zero until 'allow_deleted_search' -is( $testtickets->Count , 0 ); - - -} - -{ - -# Test to make sure that you can search for tickets by requestor address and -# by requestor name. - -my ($id,$msg); -my $u1 = RT::User->new($RT::SystemUser); -($id, $msg) = $u1->Create( Name => 'RequestorTestOne', EmailAddress => 'rqtest1@example.com'); -ok ($id,$msg); -my $u2 = RT::User->new($RT::SystemUser); -($id, $msg) = $u2->Create( Name => 'RequestorTestTwo', EmailAddress => 'rqtest2@example.com'); -ok ($id,$msg); - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ($trans); -($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', Requestor => [$u1->EmailAddress]); -ok ($id, $msg); - -my $t2 = RT::Ticket->new($RT::SystemUser); -($id,$trans,$msg) =$t2->Create (Queue => 'general', Subject => 'Requestor test one', Requestor => [$u2->EmailAddress]); -ok ($id, $msg); - - -my $t3 = RT::Ticket->new($RT::SystemUser); -($id,$trans,$msg) =$t3->Create (Queue => 'general', Subject => 'Requestor test one', Requestor => [$u2->EmailAddress, $u1->EmailAddress]); -ok ($id, $msg); - - -my $tix1 = RT::Tickets->new($RT::SystemUser); -$tix1->FromSQL('Requestor.EmailAddress LIKE "rqtest1" OR Requestor.EmailAddress LIKE "rqtest2"'); - -is ($tix1->Count, 3); - -my $tix2 = RT::Tickets->new($RT::SystemUser); -$tix2->FromSQL('Requestor.Name LIKE "TestOne" OR Requestor.Name LIKE "TestTwo"'); - -is ($tix2->Count, 3); - - -my $tix3 = RT::Tickets->new($RT::SystemUser); -$tix3->FromSQL('Requestor.EmailAddress LIKE "rqtest1"'); - -is ($tix3->Count, 2); - -my $tix4 = RT::Tickets->new($RT::SystemUser); -$tix4->FromSQL('Requestor.Name LIKE "TestOne" '); - -is ($tix4->Count, 2); - -# Searching for tickets that have two requestors isn't supported -# There's no way to differentiate "one requestor name that matches foo and bar" -# and "two requestors, one matching foo and one matching bar" - -# my $tix5 = RT::Tickets->new($RT::SystemUser); -# $tix5->FromSQL('Requestor.Name LIKE "TestOne" AND Requestor.Name LIKE "TestTwo"'); -# -# is ($tix5->Count, 1); -# -# my $tix6 = RT::Tickets->new($RT::SystemUser); -# $tix6->FromSQL('Requestor.EmailAddress LIKE "rqtest1" AND Requestor.EmailAddress LIKE "rqtest2"'); -# -# is ($tix6->Count, 1); - - - -} - -{ - -my $t1 = RT::Ticket->new($RT::SystemUser); -$t1->Create(Queue => 'general', Subject => "LimitWatchers test", Requestors => \['requestor1@example.com']); - - -} - -{ - -# We assume that we've got some tickets hanging around from before. -ok( my $unlimittickets = RT::Tickets->new( $RT::SystemUser ) ); -ok( $unlimittickets->UnLimit ); -ok( $unlimittickets->Count > 0, "UnLimited tickets object should return tickets" ); - - -} - -1; diff --git a/rt/t/api/tickets_overlay_sql.t b/rt/t/api/tickets_overlay_sql.t deleted file mode 100644 index 7980886..0000000 --- a/rt/t/api/tickets_overlay_sql.t +++ /dev/null @@ -1,73 +0,0 @@ - -use RT; -use RT::Test tests => 7; - - -{ - -use RT::Tickets; -use strict; - -my $tix = RT::Tickets->new($RT::SystemUser); -{ - my $query = "Status = 'open'"; - my ($status, $msg) = $tix->FromSQL($query); - ok ($status, "correct query") or diag("error: $msg"); -} - - -my (@created,%created); -my $string = 'subject/content SQL test'; -{ - my $t = RT::Ticket->new($RT::SystemUser); - ok( $t->Create(Queue => 'General', Subject => $string), "Ticket Created"); - $created{ $t->Id }++; push @created, $t->Id; -} - -{ - my $Message = MIME::Entity->build( - Subject => 'this is my subject', - From => 'jesse@example.com', - Data => [ $string ], - ); - - my $t = RT::Ticket->new($RT::SystemUser); - ok( $t->Create( Queue => 'General', - Subject => 'another ticket', - MIMEObj => $Message, - MemberOf => $created[0] - ), - "Ticket Created" - ); - $created{ $t->Id }++; push @created, $t->Id; -} - -{ - my $query = ("Subject LIKE '$string' OR Content LIKE '$string'"); - my ($status, $msg) = $tix->FromSQL($query); - ok ($status, "correct query") or diag("error: $msg"); - - my $count = 0; - while (my $tick = $tix->Next) { - $count++ if $created{ $tick->id }; - } - is ($count, scalar @created, "number of returned tickets same as entered"); -} - -{ - my $query = "id = $created[0] OR MemberOf = $created[0]"; - my ($status, $msg) = $tix->FromSQL($query); - ok ($status, "correct query") or diag("error: $msg"); - - my $count = 0; - while (my $tick = $tix->Next) { - $count++ if $created{ $tick->id }; - } - is ($count, scalar @created, "number of returned tickets same as entered"); -} - - - -} - -1; diff --git a/rt/t/api/uri-fsck_com_rt.t b/rt/t/api/uri-fsck_com_rt.t deleted file mode 100644 index d62e580..0000000 --- a/rt/t/api/uri-fsck_com_rt.t +++ /dev/null @@ -1,28 +0,0 @@ -use strict; -use warnings; -use RT; -use RT::Test tests => 8; - -use_ok("RT::URI::fsck_com_rt"); -my $uri = RT::URI::fsck_com_rt->new($RT::SystemUser); - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', ); -ok ($id, $msg); - -ok(ref($uri)); - -ok (UNIVERSAL::isa($uri,"RT::URI::fsck_com_rt"), "It's an RT::URI::fsck_com_rt"); - -ok ($uri->isa('RT::URI::base'), "It's an RT::URI::base"); -ok ($uri->isa('RT::Base'), "It's an RT::Base"); - -is ($uri->LocalURIPrefix , 'fsck.com-rt://'.RT->Config->Get('Organization')); - - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Load(1); -$uri = RT::URI::fsck_com_rt->new($ticket->CurrentUser); -is($uri->LocalURIPrefix. "/ticket/1" , $uri->URIForObject($ticket)); - -1; diff --git a/rt/t/api/uri-t.t b/rt/t/api/uri-t.t deleted file mode 100644 index 4695629..0000000 --- a/rt/t/api/uri-t.t +++ /dev/null @@ -1,21 +0,0 @@ -use strict; -use warnings; -use RT; -use RT::Test tests => 6; - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', ); -ok ($id, $msg); - -use_ok("RT::URI::t"); -my $uri = RT::URI::t->new($RT::SystemUser); -ok(ref($uri), "URI object exists"); - -my $uristr = "t:1"; -$uri->ParseURI($uristr); -is(ref($uri->Object), "RT::Ticket", "Object loaded is a ticket"); -is($uri->Object->Id, 1, "Object loaded has correct ID"); -is($uri->URI, 'fsck.com-rt://'.RT->Config->Get('Organization').'/ticket/1', - "URI object has correct URI string"); - -1; diff --git a/rt/t/api/user.t b/rt/t/api/user.t deleted file mode 100644 index 25cf747..0000000 --- a/rt/t/api/user.t +++ /dev/null @@ -1,339 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 108; - - -{ - -ok(require RT::User); - - -} - -{ - -# Make sure we can create a user - -my $u1 = RT::User->new($RT::SystemUser); -is(ref($u1), 'RT::User'); -my ($id, $msg) = $u1->Create(Name => 'CreateTest1'.$$, EmailAddress => $$.'create-test-1@example.com'); -ok ($id, "Creating user CreateTest1 - " . $msg ); - -# Make sure we can't create a second user with the same name -my $u2 = RT::User->new($RT::SystemUser); -($id, $msg) = $u2->Create(Name => 'CreateTest1'.$$, EmailAddress => $$.'create-test-2@example.com'); -ok (!$id, $msg); - - -# Make sure we can't create a second user with the same EmailAddress address -my $u3 = RT::User->new($RT::SystemUser); -($id, $msg) = $u3->Create(Name => 'CreateTest2'.$$, EmailAddress => $$.'create-test-1@example.com'); -ok (!$id, $msg); - -# Make sure we can create a user with no EmailAddress address -my $u4 = RT::User->new($RT::SystemUser); -($id, $msg) = $u4->Create(Name => 'CreateTest3'.$$); -ok ($id, $msg); - -# make sure we can create a second user with no EmailAddress address -my $u5 = RT::User->new($RT::SystemUser); -($id, $msg) = $u5->Create(Name => 'CreateTest4'.$$); -ok ($id, $msg); - -# make sure we can create a user with a blank EmailAddress address -my $u6 = RT::User->new($RT::SystemUser); -($id, $msg) = $u6->Create(Name => 'CreateTest6'.$$, EmailAddress => ''); -ok ($id, $msg); -# make sure we can create a second user with a blankEmailAddress address -my $u7 = RT::User->new($RT::SystemUser); -($id, $msg) = $u7->Create(Name => 'CreateTest7'.$$, EmailAddress => ''); -ok ($id, $msg); - -# Can we change the email address away from from ""; -($id,$msg) = $u7->SetEmailAddress('foo@bar'.$$); -ok ($id, $msg); -# can we change the address back to ""; -($id,$msg) = $u7->SetEmailAddress(''); -ok ($id, $msg); -is_empty ($u7->EmailAddress); - -RT->Config->Set('ValidateUserEmailAddresses' => 1); -# Make sur we can't create a user with multiple email adresses separated by comma -my $u8 = RT::User->new($RT::SystemUser); -($id, $msg) = $u8->Create(Name => 'CreateTest8'.$$, EmailAddress => $$.'create-test-81@example.com, '.$$.'create-test-82@example.com'); -ok (!$id, $msg); - -# Make sur we can't create a user with multiple email adresses separated by space -my $u9 = RT::User->new($RT::SystemUser); -($id, $msg) = $u9->Create(Name => 'CreateTest9'.$$, EmailAddress => $$.'create-test-91@example.com '.$$.'create-test-92@example.com'); -ok (!$id, $msg); - -# Make sur we can't create a user with invalid email address -my $u10 = RT::User->new($RT::SystemUser); -($id, $msg) = $u10->Create(Name => 'CreateTest10'.$$, EmailAddress => $$.'create-test10}@[.com'); -ok (!$id, $msg); -RT->Config->Set('ValidateUserEmailAddresses' => undef); - -} - -{ - - -ok(my $user = RT::User->new($RT::SystemUser)); -ok($user->Load('root'), "Loaded user 'root'"); -ok($user->Privileged, "User 'root' is privileged"); -ok(my ($v,$m) = $user->SetPrivileged(0)); -is ($v ,1, "Set unprivileged suceeded ($m)"); -ok(!$user->Privileged, "User 'root' is no longer privileged"); -ok(my ($v2,$m2) = $user->SetPrivileged(1)); -is ($v2 ,1, "Set privileged suceeded ($m2"); -ok($user->Privileged, "User 'root' is privileged again"); - - -} - -{ - -ok(my $u = RT::User->new($RT::SystemUser)); -ok($u->Load(1), "Loaded the first user"); -is($u->PrincipalObj->ObjectId , 1, "user 1 is the first principal"); -is($u->PrincipalObj->PrincipalType, 'User' , "Principal 1 is a user, not a group"); - - -} - -{ - -my $root = RT::User->new($RT::SystemUser); -$root->Load('root'); -ok($root->Id, "Found the root user"); -my $rootq = RT::Queue->new($root); -$rootq->Load(1); -ok($rootq->Id, "Loaded the first queue"); - -ok ($rootq->CurrentUser->HasRight(Right=> 'CreateTicket', Object => $rootq), "Root can create tickets"); - -my $new_user = RT::User->new($RT::SystemUser); -my ($id, $msg) = $new_user->Create(Name => 'ACLTest'.$$); - -ok ($id, "Created a new user for acl test $msg"); - -my $q = RT::Queue->new($new_user); -$q->Load(1); -ok($q->Id, "Loaded the first queue"); - - -ok (!$q->CurrentUser->HasRight(Right => 'CreateTicket', Object => $q), "Some random user doesn't have the right to create tickets"); -ok (my ($gval, $gmsg) = $new_user->PrincipalObj->GrantRight( Right => 'CreateTicket', Object => $q), "Granted the random user the right to create tickets"); -ok ($gval, "Grant succeeded - $gmsg"); - - -ok ($q->CurrentUser->HasRight(Right => 'CreateTicket', Object => $q), "The user can create tickets after we grant him the right"); -ok ( ($gval, $gmsg) = $new_user->PrincipalObj->RevokeRight( Right => 'CreateTicket', Object => $q), "revoked the random user the right to create tickets"); -ok ($gval, "Revocation succeeded - $gmsg"); -ok (!$q->CurrentUser->HasRight(Right => 'CreateTicket', Object => $q), "The user can't create tickets anymore"); - - - - - -# Create a ticket in the queue -my $new_tick = RT::Ticket->new($RT::SystemUser); -my ($tickid, $tickmsg) = $new_tick->Create(Subject=> 'ACL Test', Queue => 'General'); -ok($tickid, "Created ticket: $tickid"); -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); -# Create a new group -my $group = RT::Group->new($RT::SystemUser); -$group->CreateUserDefinedGroup(Name => 'ACLTest'.$$); -ok($group->Id, "Created a new group Ok"); -# Grant a group the right to modify tickets in a queue -ok(my ($gv,$gm) = $group->PrincipalObj->GrantRight( Object => $q, Right => 'ModifyTicket'),"Granted the group the right to modify tickets"); -ok($gv,"Grant succeeed - $gm"); -# Add the user to the group -ok( my ($aid, $amsg) = $group->AddMember($new_user->PrincipalId), "Added the member to the group"); -ok ($aid, "Member added to group: $amsg"); -# Make sure the user does have the right to modify tickets in the queue -ok ($new_user->HasRight( Object => $new_tick, Right => 'ModifyTicket'), "User can modify the ticket with group membership"); - - -# Remove the user from the group -ok( my ($did, $dmsg) = $group->DeleteMember($new_user->PrincipalId), "Deleted the member from the group"); -ok ($did,"Deleted the group member: $dmsg"); -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); - - -my $q_as_system = RT::Queue->new($RT::SystemUser); -$q_as_system->Load(1); -ok($q_as_system->Id, "Loaded the first queue"); - -# Create a ticket in the queue -my $new_tick2 = RT::Ticket->new($RT::SystemUser); -(my $tick2id, $tickmsg) = $new_tick2->Create(Subject=> 'ACL Test 2', Queue =>$q_as_system->Id); -ok($tick2id, "Created ticket: $tick2id"); -is($new_tick2->QueueObj->id, $q_as_system->Id, "Created a new ticket in queue 1"); - - -# make sure that the user can't do this without subgroup membership -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); - -# Create a subgroup -my $subgroup = RT::Group->new($RT::SystemUser); -$subgroup->CreateUserDefinedGroup(Name => 'Subgrouptest'.$$); -ok($subgroup->Id, "Created a new group ".$subgroup->Id."Ok"); -#Add the subgroup as a subgroup of the group -my ($said, $samsg) = $group->AddMember($subgroup->PrincipalId); -ok ($said, "Added the subgroup as a member of the group"); -# Add the user to a subgroup of the group - -my ($usaid, $usamsg) = $subgroup->AddMember($new_user->PrincipalId); -ok($usaid,"Added the user ".$new_user->Id."to the subgroup"); -# Make sure the user does have the right to modify tickets in the queue -ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket with subgroup membership"); - -# {{{ Deal with making sure that members of subgroups of a disabled group don't have rights - -($id, $msg) = $group->SetDisabled(1); -ok ($id,$msg); -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket when the group ".$group->Id. " is disabled"); - ($id, $msg) = $group->SetDisabled(0); -ok($id,$msg); -# Test what happens when we disable the group the user is a member of directly - -($id, $msg) = $subgroup->SetDisabled(1); - ok ($id,$msg); -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket when the group ".$subgroup->Id. " is disabled"); - ($id, $msg) = $subgroup->SetDisabled(0); - ok ($id,$msg); -ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket without group membership"); - -# }}} - - -my ($usrid, $usrmsg) = $subgroup->DeleteMember($new_user->PrincipalId); -ok($usrid,"removed the user from the group - $usrmsg"); -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); - -#revoke the right to modify tickets in a queue -ok(($gv,$gm) = $group->PrincipalObj->RevokeRight( Object => $q, Right => 'ModifyTicket'),"Granted the group the right to modify tickets"); -ok($gv,"revoke succeeed - $gm"); - -# {{{ Test the user's right to modify a ticket as a _queue_ admincc for a right granted at the _queue_ level - -# Grant queue admin cc the right to modify ticket in the queue -ok(my ($qv,$qm) = $q_as_system->AdminCc->PrincipalObj->GrantRight( Object => $q_as_system, Right => 'ModifyTicket'),"Granted the queue adminccs the right to modify tickets"); -ok($qv, "Granted the right successfully - $qm"); - -# Add the user as a queue admincc -ok (my ($add_id, $add_msg) = $q_as_system->AddWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Added the new user as a queue admincc"); -ok ($add_id, "the user is now a queue admincc - $add_msg"); - -# Make sure the user does have the right to modify tickets in the queue -ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket as an admincc"); -# Remove the user from the role group -ok (my ($del_id, $del_msg) = $q_as_system->DeleteWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Deleted the new user as a queue admincc"); - -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); - -# }}} - -# {{{ Test the user's right to modify a ticket as a _ticket_ admincc with the right granted at the _queue_ level - -# Add the user as a ticket admincc -ok (my( $uadd_id, $uadd_msg) = $new_tick2->AddWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Added the new user as a queue admincc"); -ok ($add_id, "the user is now a queue admincc - $add_msg"); - -# Make sure the user does have the right to modify tickets in the queue -ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket as an admincc"); - -# Remove the user from the role group -ok (( $del_id, $del_msg) = $new_tick2->DeleteWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Deleted the new user as a queue admincc"); - -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); - - -# Revoke the right to modify ticket in the queue -ok(my ($rqv,$rqm) = $q_as_system->AdminCc->PrincipalObj->RevokeRight( Object => $q_as_system, Right => 'ModifyTicket'),"Revokeed the queue adminccs the right to modify tickets"); -ok($rqv, "Revoked the right successfully - $rqm"); - -# }}} - - - -# {{{ Test the user's right to modify a ticket as a _queue_ admincc for a right granted at the _system_ level - -# Before we start Make sure the user does not have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can not modify the ticket without it being granted"); -ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can not modify tickets in the queue without it being granted"); - -# Grant queue admin cc the right to modify ticket in the queue -ok(($qv,$qm) = $q_as_system->AdminCc->PrincipalObj->GrantRight( Object => $RT::System, Right => 'ModifyTicket'),"Granted the queue adminccs the right to modify tickets"); -ok($qv, "Granted the right successfully - $qm"); - -# Make sure the user can't modify the ticket before they're added as a watcher -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can not modify the ticket without being an admincc"); -ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can not modify tickets in the queue without being an admincc"); - -# Add the user as a queue admincc -ok (($add_id, $add_msg) = $q_as_system->AddWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Added the new user as a queue admincc"); -ok ($add_id, "the user is now a queue admincc - $add_msg"); - -# Make sure the user does have the right to modify tickets in the queue -ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket as an admincc"); -ok ($new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can modify tickets in the queue as an admincc"); -# Remove the user from the role group -ok (($del_id, $del_msg) = $q_as_system->DeleteWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Deleted the new user as a queue admincc"); - -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without group membership"); -ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can't modify tickets in the queue without group membership"); - -# }}} - -# {{{ Test the user's right to modify a ticket as a _ticket_ admincc with the right granted at the _queue_ level - -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can not modify the ticket without being an admincc"); -ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can not modify tickets in the queue obj without being an admincc"); - - -# Add the user as a ticket admincc -ok ( ($uadd_id, $uadd_msg) = $new_tick2->AddWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Added the new user as a queue admincc"); -ok ($add_id, "the user is now a queue admincc - $add_msg"); - -# Make sure the user does have the right to modify tickets in the queue -ok ($new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can modify the ticket as an admincc"); -ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can not modify tickets in the queue obj being only a ticket admincc"); - -# Remove the user from the role group -ok ( ($del_id, $del_msg) = $new_tick2->DeleteWatcher(Type => 'AdminCc', PrincipalId => $new_user->PrincipalId) , "Deleted the new user as a queue admincc"); - -# Make sure the user doesn't have the right to modify tickets in the queue -ok (!$new_user->HasRight( Object => $new_tick2, Right => 'ModifyTicket'), "User can't modify the ticket without being an admincc"); -ok (!$new_user->HasRight( Object => $new_tick2->QueueObj, Right => 'ModifyTicket'), "User can not modify tickets in the queue obj without being an admincc"); - - -# Revoke the right to modify ticket in the queue -ok(($rqv,$rqm) = $q_as_system->AdminCc->PrincipalObj->RevokeRight( Object => $RT::System, Right => 'ModifyTicket'),"Revokeed the queue adminccs the right to modify tickets"); -ok($rqv, "Revoked the right successfully - $rqm"); - -# }}} - - - - -# Grant "privileged users" the system right to create users -# Create a privileged user. -# have that user create another user -# Revoke the right for privileged users to create users -# have the privileged user try to create another user and fail the ACL check - - -} - -1; diff --git a/rt/t/api/users.t b/rt/t/api/users.t deleted file mode 100644 index d1ff174..0000000 --- a/rt/t/api/users.t +++ /dev/null @@ -1,80 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 11; - - -{ - -ok(require RT::Users); - - -} - -{ - no warnings qw(redefine once); - -ok(my $users = RT::Users->new($RT::SystemUser)); -$users->WhoHaveRight(Object =>$RT::System, Right =>'SuperUser'); -is($users->Count , 1, "There is one privileged superuser - Found ". $users->Count ); -# TODO: this wants more testing - -my $RTxUser = RT::User->new($RT::SystemUser); -my ($id, $msg) = $RTxUser->Create( Name => 'RTxUser', Comments => "RTx extension user", Privileged => 1); -ok ($id,$msg); - -my $group = RT::Group->new($RT::SystemUser); -$group->LoadACLEquivalenceGroup($RTxUser->PrincipalObj); - -my $RTxSysObj = {}; -bless $RTxSysObj, 'RTx::System'; -*RTx::System::Id = sub { 1; }; -*RTx::System::id = *RTx::System::Id; -my $ace = RT::Record->new($RT::SystemUser); -$ace->Table('ACL'); -$ace->_BuildTableAttributes unless ($RT::Record::_TABLE_ATTR->{ref($ace)}); -($id, $msg) = $ace->Create( PrincipalId => $group->id, PrincipalType => 'Group', RightName => 'RTxUserRight', ObjectType => 'RTx::System', ObjectId => 1 ); -ok ($id, "ACL for RTxSysObj created"); - -my $RTxObj = {}; -bless $RTxObj, 'RTx::System::Record'; -*RTx::System::Record::Id = sub { 4; }; -*RTx::System::Record::id = *RTx::System::Record::Id; - -$users = RT::Users->new($RT::SystemUser); -$users->WhoHaveRight(Right => 'RTxUserRight', Object => $RTxSysObj); -is($users->Count, 1, "RTxUserRight found for RTxSysObj"); - -$users = RT::Users->new($RT::SystemUser); -$users->WhoHaveRight(Right => 'RTxUserRight', Object => $RTxObj); -is($users->Count, 0, "RTxUserRight not found for RTxObj"); - -$users = RT::Users->new($RT::SystemUser); -$users->WhoHaveRight(Right => 'RTxUserRight', Object => $RTxObj, EquivObjects => [ $RTxSysObj ]); -is($users->Count, 1, "RTxUserRight found for RTxObj using EquivObjects"); - -$ace = RT::Record->new($RT::SystemUser); -$ace->Table('ACL'); -$ace->_BuildTableAttributes unless ($RT::Record::_TABLE_ATTR->{ref($ace)}); -($id, $msg) = $ace->Create( PrincipalId => $group->id, PrincipalType => 'Group', RightName => 'RTxUserRight', ObjectType => 'RTx::System::Record', ObjectId => 5 ); -ok ($id, "ACL for RTxObj created"); - -my $RTxObj2 = {}; -bless $RTxObj2, 'RTx::System::Record'; -*RTx::System::Record::Id = sub { 5; }; -*RTx::System::Record::id = sub { 5; }; - -$users = RT::Users->new($RT::SystemUser); -$users->WhoHaveRight(Right => 'RTxUserRight', Object => $RTxObj2); -is($users->Count, 1, "RTxUserRight found for RTxObj2"); - -$users = RT::Users->new($RT::SystemUser); -$users->WhoHaveRight(Right => 'RTxUserRight', Object => $RTxObj2, EquivObjects => [ $RTxSysObj ]); -is($users->Count, 1, "RTxUserRight found for RTxObj2"); - - - -} - -1; diff --git a/rt/t/approval/basic.t b/rt/t/approval/basic.t deleted file mode 100644 index 5974591..0000000 --- a/rt/t/approval/basic.t +++ /dev/null @@ -1,218 +0,0 @@ - -use strict; -use warnings; -use Test::More; -BEGIN { - eval { require Email::Abstract; require Test::Email; 1 } - or plan skip_all => 'require Email::Abstract and Test::Email'; -} - - -use RT; -use RT::Test tests => 39; -use RT::Test::Email; - -RT->Config->Set( LogToScreen => 'debug' ); -RT->Config->Set( UseTransactionBatch => 1 ); -my ($baseurl, $m) = RT::Test->started_ok; - -my $q = RT::Queue->new($RT::SystemUser); -$q->Load('___Approvals'); -$q->SetDisabled(0); - -my %users; -for my $user_name (qw(minion cfo ceo )) { - my $user = $users{$user_name} = RT::User->new($RT::SystemUser); - $user->Create( Name => uc($user_name), - Privileged => 1, - EmailAddress => $user_name.'@company.com'); - my ($val, $msg); - ($val, $msg) = $user->PrincipalObj->GrantRight(Object =>$q, Right => $_) - for qw(ModifyTicket OwnTicket ShowTicket); -} - -# XXX: we need to make the first approval ticket open so notification is sent. -my $approvals = -'===Create-Ticket: for-CFO -Queue: ___Approvals -Type: approval -Owner: CFO -Requestors: {$Tickets{"TOP"}->Requestors} -Refers-To: TOP -Subject: CFO Approval for PO: {$Tickets{"TOP"}->Id} - {$Tickets{"TOP"}->Subject} -Due: {time + 86400} -Content-Type: text/plain -Content: Your approval is requested for the PO ticket {$Tickets{"TOP"}->Id}: {$Tickets{"TOP"}->Subject} -Blah -Blah -ENDOFCONTENT -===Create-Ticket: for-CEO -Queue: ___Approvals -Type: approval -Owner: CEO -Requestors: {$Tickets{"TOP"}->Requestors} -Subject: PO approval request for {$Tickets{"TOP"}->Subject} -Refers-To: TOP -Depends-On: for-CFO -Depended-On-By: {$Tickets{"TOP"}->Id} -Content-Type: text/plain -Content: -Your CFO approved PO ticket {$Tickets{"TOP"}->Id} for minion. you ok with that? -ENDOFCONTENT -'; - -my $apptemp = RT::Template->new($RT::SystemUser); -$apptemp->Create( Content => $approvals, Name => "PO Approvals", Queue => "0"); - -ok($apptemp->Id); - -$q = RT::Queue->new($RT::SystemUser); -$q->Create(Name => 'PO'); -ok ($q->Id, "Created PO queue"); - -my $scrip = RT::Scrip->new($RT::SystemUser); -my ($sval, $smsg) =$scrip->Create( ScripCondition => 'On Create', - ScripAction => 'Create Tickets', - Template => 'PO Approvals', - Queue => $q->Id, - Description => 'Create Approval Tickets'); -ok ($sval, $smsg); -ok ($scrip->Id, "Created the scrip"); -ok ($scrip->TemplateObj->Id, "Created the scrip template"); -ok ($scrip->ConditionObj->Id, "Created the scrip condition"); -ok ($scrip->ActionObj->Id, "Created the scrip action"); - -my $t = RT::Ticket->new($RT::SystemUser); -my ($tid, $ttrans, $tmsg); - -mail_ok { - ($tid, $ttrans, $tmsg) = - $t->Create(Subject => "PO for stationary", - Owner => "root", Requestor => 'minion', - Queue => $q->Id); -} { from => qr/RT System/, - to => 'cfo@company.com', - subject => qr/New Pending Approval: CFO Approval/, - body => qr/pending your approval.*Your approval is requested.*Blah/s -},{ from => qr/PO via RT/, - to => 'minion@company.com', - subject => qr/PO for stationary/, - body => qr/automatically generated in response/ -}; - -ok ($tid,$tmsg); - -is ($t->ReferredToBy->Count,2, "referred to by the two tickets"); - -my $deps = $t->DependsOn; -is ($deps->Count, 1, "The ticket we created depends on one other ticket"); -my $dependson_ceo= $deps->First->TargetObj; -ok ($dependson_ceo->Id, "It depends on a real ticket"); -like($dependson_ceo->Subject, qr/PO approval request.*stationary/); - -$deps = $dependson_ceo->DependsOn; -is ($deps->Count, 1, "The ticket we created depends on one other ticket"); -my $dependson_cfo = $deps->First->TargetObj; -ok ($dependson_cfo->Id, "It depends on a real ticket"); - -like($dependson_cfo->Subject, qr/CFO Approval for PO.*stationary/); - -is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ], - [ 'new', 'open', 'new'], 'tickets in correct state'); - -mail_ok { - my $cfo = RT::CurrentUser->new; - $cfo->Load( $users{cfo} ); - - $dependson_cfo->CurrentUser($cfo); - my $notes = MIME::Entity->build( - Data => [ 'Resources exist to be consumed.' ] - ); - RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8 - - my ( $notesval, $notesmsg ) = $dependson_cfo->Correspond( MIMEObj => $notes ); - ok($notesval, $notesmsg); - - my ($ok, $msg) = $dependson_cfo->SetStatus( Status => 'resolved' ); - ok($ok, "cfo can approve - $msg"); - -} { from => qr/RT System/, - to => 'ceo@company.com', - subject => qr/New Pending Approval: PO approval request for PO/, - body => qr/pending your approval.*CFO approved.*ok with that\?/s -},{ from => qr/RT System/, - to => 'minion@company.com', - subject => qr/Ticket Approved:/, - body => qr/approved by CFO.*notes: Resources exist to be consumed/s -}; - -is ($t->DependsOn->Count, 1, "still depends only on the CEO approval"); -is ($t->ReferredToBy->Count,2, "referred to by the two tickets"); - -is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ], - [ 'new', 'resolved', 'open'], 'ticket state after cfo approval'); - -mail_ok { - my $ceo = RT::CurrentUser->new; - $ceo->Load( $users{ceo} ); - - $dependson_ceo->CurrentUser($ceo); - my $notes = MIME::Entity->build( - Data => [ 'And consumed they will be.' ] - ); - RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8 - - my ( $notesval, $notesmsg ) = $dependson_ceo->Correspond( MIMEObj => $notes ); - ok($notesval, $notesmsg); - - my ($ok, $msg) = $dependson_ceo->SetStatus( Status => 'resolved' ); - ok($ok, "ceo can approve - $msg"); - -} { from => qr/RT System/, - to => 'minion@company.com', - subject => qr/Ticket Approved:/, - body => qr/approved by CEO.*Its Owner may now start to act on it.*notes: And consumed they will be/s, -}, { from => qr'CEO via RT', - to => 'root@localhost', - subject => qr/Ticket Approved/, - body => qr/The ticket has been approved, you may now start to act on it/, -}; - - -is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ], - [ 'new', 'resolved', 'resolved'], 'ticket state after ceo approval'); - -$dependson_cfo->_Set( - Field => 'Status', - Value => 'open'); - -$dependson_ceo->_Set( - Field => 'Status', - Value => 'new'); - -mail_ok { - my $cfo = RT::CurrentUser->new; - $cfo->Load( $users{cfo} ); - - $dependson_cfo->CurrentUser($cfo); - my $notes = MIME::Entity->build( - Data => [ 'sorry, out of resources.' ] - ); - RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8 - - my ( $notesval, $notesmsg ) = $dependson_cfo->Correspond( MIMEObj => $notes ); - ok($notesval, $notesmsg); - - my ($ok, $msg) = $dependson_cfo->SetStatus( Status => 'rejected' ); - ok($ok, "cfo can approve - $msg"); - -} { from => qr/RT System/, - to => 'minion@company.com', - subject => qr/Ticket Rejected: PO for stationary/, - body => qr/rejected by CFO.*out of resources/s, -}; - -$t->Load($t->id);$dependson_ceo->Load($dependson_ceo->id); -is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ], - [ 'rejected', 'rejected', 'deleted'], 'ticket state after cfo rejection'); - diff --git a/rt/t/clicky.t b/rt/t/clicky.t deleted file mode 100644 index 8d5227e..0000000 --- a/rt/t/clicky.t +++ /dev/null @@ -1,119 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Test::More; -use RT::Test tests => 14; -my %clicky; - -BEGIN { - - %clicky = map { $_ => 1 } grep $_, RT->Config->Get('Active_MakeClicky'); - -# this's hack: we have to use RT::Test first to get RT->Config work, this -# results in the fact that we can't plan any more - unless ( keys %clicky ) { - SKIP: { - skip "No active Make Clicky actions", 14; - } - exit 0; - } -} - -my ($baseurl, $m) = RT::Test->started_ok; - -use_ok('MIME::Entity'); - -my $CurrentUser = $RT::SystemUser; - -my $queue = new RT::Queue($CurrentUser); -$queue->Load('General') || Abort(loc("Queue could not be loaded.")); - -my $message = MIME::Entity->build( - Subject => 'test', - Data => <<END, -If you have some problems with RT you could find help -on http://wiki.bestpractical.com or subscribe to -the rt-users\@lists.bestpractical.com. - --- -Best regards. BestPractical Team. -END -); - -my $ticket = new RT::Ticket( $CurrentUser ); -my ($id) = $ticket->Create( - Subject => 'test', - Queue => $queue->Id, - MIMEObj => $message, -); -ok($id, "We created a ticket #$id"); -ok($ticket->Transactions->First->Content, "Has some content"); - -ok $m->login, 'logged in'; -ok $m->goto_ticket($id), 'opened diplay page of the ticket'; - -SKIP: { - skip "httpurl action disabled", 1 unless $clicky{'httpurl'}; - my @links = $m->find_link( - tag => 'a', - url => 'http://wiki.bestpractical.com', - text => 'Open URL', - ); - ok( scalar @links, 'found clicky link' ); -} - -SKIP: { - skip "httpurl_overwrite action disabled", 1 unless $clicky{'httpurl_overwrite'}; - my @links = $m->find_link( - tag => 'a', - url => 'http://wiki.bestpractical.com', - text => 'http://wiki.bestpractical.com', - ); - ok( scalar @links, 'found clicky link' ); -} - -{ - -my $message = MIME::Entity->build( - Type => 'text/html', - Subject => 'test', - Data => <<END, -If you have some problems with RT you could find help -on <a href="http://wiki.bestpractical.com">wiki</a> -or find known bugs on http://rt3.fsck.com --- -Best regards. BestPractical Team. -END -); - -my $ticket = new RT::Ticket($CurrentUser); -my ($id) = $ticket->Create( - Subject => 'test', - Queue => $queue->Id, - MIMEObj => $message, -); -ok( $id, "We created a ticket #$id" ); -ok( $ticket->Transactions->First->Content, "Has some content" ); - -ok $m->login, 'logged in'; -ok $m->goto_ticket($id), 'opened diplay page of the ticket'; - -SKIP: { - skip "httpurl action disabled", 2 unless $clicky{'httpurl'}; - my @links = $m->find_link( - tag => 'a', - url => 'http://wiki.bestpractical.com', - text => 'Open URL', - ); - ok( @links == 0, 'not make clicky links clicky twice' ); - - @links = $m->find_link( - tag => 'a', - url => 'http://rt3.fsck.com', - text => 'Open URL', - ); - ok( scalar @links, 'found clicky link' ); -} - -} diff --git a/rt/t/cron.t b/rt/t/cron.t deleted file mode 100644 index 29d7bd7..0000000 --- a/rt/t/cron.t +++ /dev/null @@ -1,90 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -use RT; -use RT::Test tests => 18; - - -### Set up some testing data. Test the testing data because why not? - -# Create a user with rights, a queue, and some tickets. -my $user_obj = RT::User->new($RT::SystemUser); -my ($ret, $msg) = $user_obj->LoadOrCreateByEmail('tara@example.com'); -ok($ret, 'record test user creation'); -$user_obj->SetName('tara'); -$user_obj->PrincipalObj->GrantRight(Right => 'SuperUser'); -my $CurrentUser = RT::CurrentUser->new('tara'); - -# Create our template, which will be used for tests of RT::Action::Record*. - -my $template_content = 'RT-Send-Cc: tla@example.com -RT-Send-Bcc: jesse@example.com - -This is a content string with no content.'; - -my $template_obj = RT::Template->new($CurrentUser); -$template_obj->Create(Queue => '0', - Name => 'recordtest', - Description => 'testing Record actions', - Content => $template_content, - ); - -# Create a queue and some tickets. - -my $queue_obj = RT::Queue->new($CurrentUser); -($ret, $msg) = $queue_obj->Create(Name => 'recordtest', Description => 'queue for Action::Record testing'); -ok($ret, 'record test queue creation'); - -my $ticket1 = RT::Ticket->new($CurrentUser); -my ($id, $tobj, $msg2) = $ticket1->Create(Queue => $queue_obj, - Requestor => ['tara@example.com'], - Subject => 'bork bork bork', - Priority => 22, - ); -ok($id, 'record test ticket creation 1'); -my $ticket2 = RT::Ticket->new($CurrentUser); -($id, $tobj, $msg2) = $ticket2->Create(Queue => $queue_obj, - Requestor => ['root@localhost'], - Subject => 'hurdy gurdy' - ); -ok($id, 'record test ticket creation 2'); - - -### OK. Have data, will travel. - -# First test the search. - -ok(require RT::Search::FromSQL, "Search::FromSQL loaded"); -my $ticketsqlstr = "Requestor.EmailAddress = '" . $CurrentUser->EmailAddress . - "' AND Priority > '20'"; -my $search = RT::Search::FromSQL->new(Argument => $ticketsqlstr, TicketsObj => RT::Tickets->new($CurrentUser), - ); -is(ref($search), 'RT::Search::FromSQL', "search created"); -ok($search->Prepare(), "fromsql search run"); -my $counter = 0; -while(my $t = $search->TicketsObj->Next() ) { - is($t->Id(), $ticket1->Id(), "fromsql search results 1"); - $counter++; -} -is ($counter, 1, "fromsql search results 2"); - -# Right. Now test the actions. - -ok(require RT::Action::RecordComment); -ok(require RT::Action::RecordCorrespondence); - -my ($comment_act, $correspond_act); -ok($comment_act = RT::Action::RecordComment->new(TicketObj => $ticket1, TemplateObj => $template_obj, CurrentUser => $CurrentUser), "RecordComment created"); -ok($correspond_act = RT::Action::RecordCorrespondence->new(TicketObj => $ticket2, TemplateObj => $template_obj, CurrentUser => $CurrentUser), "RecordCorrespondence created"); -ok($comment_act->Prepare(), "Comment prepared"); -ok($correspond_act->Prepare(), "Correspond prepared"); -ok($comment_act->Commit(), "Comment committed"); -ok($correspond_act->Commit(), "Correspondence committed"); - -# Now test for loop suppression. -my ($trans, $desc, $transaction) = $ticket2->Comment(MIMEObj => $template_obj->MIMEObj); -my $bogus_action = RT::Action::RecordComment->new(TicketObj => $ticket1, TemplateObj => $template_obj, TransactionObj => $transaction, CurrentUser => $CurrentUser); -ok(!$bogus_action->Prepare(), "Comment aborted to prevent loop"); - -1; diff --git a/rt/t/customfields/access_via_queue.t b/rt/t/customfields/access_via_queue.t deleted file mode 100644 index c291860..0000000 --- a/rt/t/customfields/access_via_queue.t +++ /dev/null @@ -1,160 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 35; -use RT::Ticket; -use RT::CustomField; - -my $queue_name = "CFSortQueue-$$"; -my $queue = RT::Test->load_or_create_queue( Name => $queue_name ); -ok($queue && $queue->id, "$queue_name - test queue creation"); - -diag "create a CF\n" if $ENV{TEST_VERBOSE}; -my $cf_name = "Rights$$"; -my $cf; -{ - $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => $cf_name, - Queue => $queue->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field Order created"); -} - -my $tester = RT::Test->load_or_create_user( - Name => 'tester', Password => 'password', -); -ok $tester && $tester->id, 'loaded or created user'; - -my $cc_role = RT::Group->new( $queue->CurrentUser ); -$cc_role->LoadQueueRoleGroup( Type => 'Cc', Queue => $queue->id ); - -my $owner_role = RT::Group->new( $queue->CurrentUser ); -$owner_role->LoadQueueRoleGroup( Type => 'Owner', Queue => $queue->id ); - -ok( RT::Test->set_rights( - { Principal => $tester, Right => [qw(SeeQueue ShowTicket CreateTicket ReplyToTicket Watch OwnTicket TakeTicket)] }, - { Principal => $cc_role, Object => $queue, Right => [qw(SeeCustomField)] }, - { Principal => $owner_role, Object => $queue, Right => [qw(ModifyCustomField)] }, -), 'set rights'); - -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test' ); - ok $tid, "created ticket"; - - ok !$ticket->CustomFields->First, "see no fields"; -} - -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test', Cc => $tester->id ); - ok $tid, "created ticket"; - - my $cf = $ticket->CustomFields->First; - ok $cf, "Ccs see cf"; -} - -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test', Cc => $tester->id ); - ok $tid, "created ticket"; - - (my $status, $msg) = $ticket->AddCustomFieldValue( Field => $cf->Name, Value => 'test' ); - ok !$status, "Can not change CF"; -} - -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test', Cc => $tester->id, Owner => $tester->id ); - ok $tid, "created ticket"; - - (my $status, $msg) = $ticket->AddCustomFieldValue( Field => $cf->Name, Value => 'test' ); - ok $status, "Changed CF"; - is $ticket->FirstCustomFieldValue( $cf->Name ), 'test'; - - ($status, $msg) = $ticket->DeleteCustomFieldValue( Field => $cf->Name, Value => 'test' ); - ok $status, "Changed CF"; - is $ticket->FirstCustomFieldValue( $cf->Name ), undef; -} - -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test', Cc => $tester->id, Owner => $tester->id ); - ok $tid, "created ticket"; - - (my $status, $msg) = $ticket->AddCustomFieldValue( Field => $cf->id, Value => 'test' ); - ok $status, "Changed CF"; - is $ticket->FirstCustomFieldValue( $cf->id ), 'test'; - - ($status, $msg) = $ticket->DeleteCustomFieldValue( Field => $cf->id, Value => 'test' ); - ok $status, "Changed CF"; - is $ticket->FirstCustomFieldValue( $cf->id ), undef; -} - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login( tester => 'password' ), 'logged in'; - -diag "check that we have no the CF on the create" if $ENV{'TEST_VERBOSE'}; -{ - $m->submit_form( - form_name => "CreateTicketInQueue", - fields => { Queue => $queue->Name }, - ); - - my $form = $m->form_name("TicketCreate"); - my $cf_field = "Object-RT::Ticket--CustomField-". $cf->id ."-Value"; - ok !$form->find_input( $cf_field ), 'no form field on the page'; - - $m->submit_form( - form_name => "TicketCreate", - fields => { Subject => 'test' }, - ); - my ($tid) = ($m->content =~ /Ticket (\d+) created/i); - ok $tid, "created a ticket succesfully"; - $m->content_unlike(qr/$cf_name/, "don't see CF"); - - $m->follow_link( text => 'Custom Fields' ); - $form = $m->form_number(3); - $cf_field = "Object-RT::Ticket-$tid-CustomField-". $cf->id ."-Value"; - ok !$form->find_input( $cf_field ), 'no form field on the page'; -} - -diag "check that we see CF as Cc" if $ENV{'TEST_VERBOSE'}; -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test', Cc => $tester->id ); - ok $tid, "created ticket"; - - ok $m->goto_ticket( $tid ), "opened ticket"; - $m->content_like(qr/$cf_name/, "see CF"); -} - -diag "check that owner can see and edit CF" if $ENV{'TEST_VERBOSE'}; -{ - my $ticket = RT::Ticket->new( $tester ); - my ($tid, $msg) = $ticket->Create( Queue => $queue, Subject => 'test', Cc => $tester->id, Owner => $tester->id ); - ok $tid, "created ticket"; - - ok $m->goto_ticket( $tid ), "opened ticket"; - $m->content_like(qr/$cf_name/, "see CF"); - - $m->follow_link( text => 'Custom Fields' ); - my $form = $m->form_number(3); - my $cf_field = "Object-RT::Ticket-$tid-CustomField-". $cf->id ."-Value"; - ok $form->find_input( $cf_field ), 'form field on the page'; - - $m->submit_form( - form_number => 3, - fields => { - $cf_field => "changed cf", - }, - ); - - ok $m->goto_ticket( $tid ), "opened ticket"; - $m->content_like(qr/$cf_name/, "changed cf"); -} - diff --git a/rt/t/customfields/sort_order.t b/rt/t/customfields/sort_order.t deleted file mode 100644 index c5c808c..0000000 --- a/rt/t/customfields/sort_order.t +++ /dev/null @@ -1,92 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 18; -use RT::Ticket; -use RT::CustomField; - -my $queue_name = "CFSortQueue-$$"; -my $queue = RT::Test->load_or_create_queue( Name => $queue_name ); -ok($queue && $queue->id, "$queue_name - test queue creation"); - -diag "create multiple CFs: B, A and C" if $ENV{TEST_VERBOSE}; -my @cfs = (); -{ - my $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => "CF B", - Queue => $queue->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field Order created"); - push @cfs, $cf; -} -{ - my $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => "CF A", - Queue => $queue->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field Order created"); - push @cfs, $cf; -} -{ - my $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => "CF C", - Queue => $queue->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field Order created"); - push @cfs, $cf; -} - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login( root => 'password' ), 'logged in'; - -diag "reorder CFs: C, A and B" if $ENV{TEST_VERBOSE}; -{ - $m->get( '/Admin/Queues/' ); - $m->follow_link_ok( {text => $queue->id} ); - $m->follow_link_ok( {text => 'Ticket Custom Fields'} ); - - my @tmp = ($m->content =~ /(CF [ABC])/g); - is_deeply(\@tmp, ['CF B', 'CF A', 'CF C']); - - $m->follow_link_ok( {text => '[Up]', n => 3} ); - $m->follow_link_ok( {text => '[Up]', n => 2} ); - $m->follow_link_ok( {text => '[Up]', n => 3} ); - - @tmp = ($m->content =~ /(CF [ABC])/g); - is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']); -} - -diag "check ticket create, display and edit pages" if $ENV{TEST_VERBOSE}; -{ - $m->submit_form( - form_name => "CreateTicketInQueue", - fields => { Queue => $queue->Name }, - ); - - my @tmp = ($m->content =~ /(CF [ABC])/g); - is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']); - - $m->submit_form( - form_name => "TicketCreate", - fields => { Subject => 'test' }, - ); - my ($tid) = ($m->content =~ /Ticket (\d+) created/i); - ok $tid, "created a ticket succesfully"; - - @tmp = ($m->content =~ /(CF [ABC])/g); - is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']); - - $m->follow_link_ok( {text => 'Custom Fields'} ); - - @tmp = ($m->content =~ /(CF [ABC])/g); - is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']); -} - diff --git a/rt/t/data/configs/apache2.2+fastcgi.conf b/rt/t/data/configs/apache2.2+fastcgi.conf deleted file mode 100644 index c9d9cb0..0000000 --- a/rt/t/data/configs/apache2.2+fastcgi.conf +++ /dev/null @@ -1,44 +0,0 @@ -ServerRoot %%SERVER_ROOT%% -PidFile %%PID_FILE%% -LockFile %%LOCK_FILE%% -ServerAdmin root@localhost - -%%LOAD_MODULES%% - -FastCgiIpcDir %%TMP_DIR%% - -<IfModule !mpm_netware_module> -<IfModule !mpm_winnt_module> -User www -Group www -</IfModule> -</IfModule> - -Listen %%LISTEN%% - -ErrorLog "%%LOG_FILE%%" -LogLevel debug - -<Directory /> - Options FollowSymLinks - AllowOverride None - Order deny,allow - Deny from all -</Directory> - -AddDefaultCharset UTF-8 - -FastCgiServer %%RT_BIN_PATH%%/mason_handler.fcgi -processes 1 -idle-timeout 180 -initial-env RT_SITE_CONFIG=%%RT_SITE_CONFIG%% - -Alias /NoAuth/images/ %%DOCUMENT_ROOT%%/NoAuth/images/ -ScriptAlias / %%RT_BIN_PATH%%/mason_handler.fcgi/ - -DocumentRoot "%%DOCUMENT_ROOT%%" -<Location /> - Order allow,deny - Allow from all - - Options +ExecCGI - AddHandler fastcgi-script fcgi -</Location> - diff --git a/rt/t/data/configs/apache2.2+fastcgi.conf.in b/rt/t/data/configs/apache2.2+fastcgi.conf.in deleted file mode 100644 index 75cbadb..0000000 --- a/rt/t/data/configs/apache2.2+fastcgi.conf.in +++ /dev/null @@ -1,44 +0,0 @@ -ServerRoot %%SERVER_ROOT%% -PidFile %%PID_FILE%% -LockFile %%LOCK_FILE%% -ServerAdmin root@localhost - -%%LOAD_MODULES%% - -FastCgiIpcDir %%TMP_DIR%% - -<IfModule !mpm_netware_module> -<IfModule !mpm_winnt_module> -User @WEB_USER@ -Group @WEB_GROUP@ -</IfModule> -</IfModule> - -Listen %%LISTEN%% - -ErrorLog "%%LOG_FILE%%" -LogLevel debug - -<Directory /> - Options FollowSymLinks - AllowOverride None - Order deny,allow - Deny from all -</Directory> - -AddDefaultCharset UTF-8 - -FastCgiServer %%RT_BIN_PATH%%/mason_handler.fcgi -processes 1 -idle-timeout 180 -initial-env RT_SITE_CONFIG=%%RT_SITE_CONFIG%% - -Alias /NoAuth/images/ %%DOCUMENT_ROOT%%/NoAuth/images/ -ScriptAlias / %%RT_BIN_PATH%%/mason_handler.fcgi/ - -DocumentRoot "%%DOCUMENT_ROOT%%" -<Location /> - Order allow,deny - Allow from all - - Options +ExecCGI - AddHandler fastcgi-script fcgi -</Location> - diff --git a/rt/t/data/configs/apache2.2+mod_perl.conf b/rt/t/data/configs/apache2.2+mod_perl.conf deleted file mode 100644 index 9f4587e..0000000 --- a/rt/t/data/configs/apache2.2+mod_perl.conf +++ /dev/null @@ -1,41 +0,0 @@ -ServerRoot %%SERVER_ROOT%% -PidFile %%PID_FILE%% -LockFile %%LOCK_FILE%% -ServerAdmin root@localhost - -%%LOAD_MODULES%% - -<IfModule !mpm_netware_module> -<IfModule !mpm_winnt_module> -User www -Group www -</IfModule> -</IfModule> - -Listen %%LISTEN%% - -ErrorLog "%%LOG_FILE%%" -LogLevel debug - -<Directory /> - Options FollowSymLinks - AllowOverride None - Order deny,allow - Deny from all -</Directory> - -AddDefaultCharset UTF-8 -PerlSetEnv RT_SITE_CONFIG %%RT_SITE_CONFIG%% -PerlRequire %%RT_BIN_PATH%%/webmux.pl - -RedirectMatch permanent (.*)/$ $1/index.html - -DocumentRoot "%%DOCUMENT_ROOT%%" -<Directory "%%DOCUMENT_ROOT%%"> - Order allow,deny - Allow from all - - SetHandler perl-script - PerlResponseHandler RT::Mason -</Directory> - diff --git a/rt/t/data/configs/apache2.2+mod_perl.conf.in b/rt/t/data/configs/apache2.2+mod_perl.conf.in deleted file mode 100644 index 3d28c2c..0000000 --- a/rt/t/data/configs/apache2.2+mod_perl.conf.in +++ /dev/null @@ -1,41 +0,0 @@ -ServerRoot %%SERVER_ROOT%% -PidFile %%PID_FILE%% -LockFile %%LOCK_FILE%% -ServerAdmin root@localhost - -%%LOAD_MODULES%% - -<IfModule !mpm_netware_module> -<IfModule !mpm_winnt_module> -User @WEB_USER@ -Group @WEB_GROUP@ -</IfModule> -</IfModule> - -Listen %%LISTEN%% - -ErrorLog "%%LOG_FILE%%" -LogLevel debug - -<Directory /> - Options FollowSymLinks - AllowOverride None - Order deny,allow - Deny from all -</Directory> - -AddDefaultCharset UTF-8 -PerlSetEnv RT_SITE_CONFIG %%RT_SITE_CONFIG%% -PerlRequire %%RT_BIN_PATH%%/webmux.pl - -RedirectMatch permanent (.*)/$ $1/index.html - -DocumentRoot "%%DOCUMENT_ROOT%%" -<Directory "%%DOCUMENT_ROOT%%"> - Order allow,deny - Allow from all - - SetHandler perl-script - PerlResponseHandler RT::Mason -</Directory> - diff --git a/rt/t/data/emails/8859-15-message-series/dir b/rt/t/data/emails/8859-15-message-series/dir deleted file mode 100755 index b9f8ec3..0000000 --- a/rt/t/data/emails/8859-15-message-series/dir +++ /dev/null @@ -1,356 +0,0 @@ -Return-Path: <rt-users-admin@lists.fsck.com> -Delivered-To: j@pallas.eruditorum.org -Received: from pallas.eruditorum.org (localhost [127.0.0.1]) - by pallas.eruditorum.org (Postfix) with ESMTP - id 72E3A111B3; Mon, 26 May 2003 14:50:14 -0400 (EDT) -Delivered-To: rt-users@pallas.eruditorum.org -Received: from mail-in-02.arcor-online.net (mail-in-02.arcor-online.net [151.189.21.42]) - by pallas.eruditorum.org (Postfix) with ESMTP id 15E761118D - for <rt-users@lists.fsck.com>; Mon, 26 May 2003 14:49:56 -0400 (EDT) -Received: from otdial-212-144-012-186.arcor-ip.net (otdial-212-144-011-024.arcor-ip.net [212.144.11.24]) - by mail-in-02.arcor-online.net (Postfix) with ESMTP - id 745EE15E87; Mon, 26 May 2003 20:53:15 +0200 (CEST) -From: Dirk Pape <pape-rt@inf.fu-berlin.de> -To: Jesse Vincent <jesse@bestpractical.com>, - rt-users <rt-users@lists.fsck.com> -Subject: Re: [rt-users] [rt-announce] Development Snapshot 3.0.2++ -Message-ID: <2147483647.1053982235@otdial-212-144-011-024.arcor-ip.net> -In-Reply-To: <2147483647.1053974498@[10.0.255.35]> -References: <20030523202405.GF23719@fsck.com> - <2147483647.1053974498@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -MIME-Version: 1.0 -Content-Type: multipart/mixed; boundary="==========2147500486==========" -Sender: rt-users-admin@lists.fsck.com -Errors-To: rt-users-admin@lists.fsck.com -X-BeenThere: rt-users@lists.fsck.com -X-Mailman-Version: 2.0.12 -Precedence: bulk -List-Help: <mailto:rt-users-request@lists.fsck.com?subject=help> -List-Post: <mailto:rt-users@lists.fsck.com> -List-Subscribe: <http://lists.fsck.com/mailman/listinfo/rt-users>, - <mailto:rt-users-request@lists.fsck.com?subject=subscribe> -List-Id: For users of RT: Request Tracker <rt-users.lists.fsck.com> -List-Unsubscribe: <http://lists.fsck.com/mailman/listinfo/rt-users>, - <mailto:rt-users-request@lists.fsck.com?subject=unsubscribe> -List-Archive: <http://lists.fsck.com/pipermail/rt-users/> -Date: Mon, 26 May 2003 20:50:36 +0200 -X-Spam-Status: No, hits=-2.5 required=5.0 - tests=AWL,IN_REP_TO,KNOWN_MAILING_LIST,QUOTED_EMAIL_TEXT, - REFERENCES,REPLY_WITH_QUOTES - autolearn=ham version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) - ---==========2147500486========== -Content-Type: text/plain; charset=us-ascii; format=flowed -Content-Transfer-Encoding: 7bit -Content-Disposition: inline - -Hello, - -here is the digest I forgot to attach. And I also forgot to say, that these -were the only messages after a restart of apache. - -The messages in the digest are the copies which I - for testing purpose - -allways queue into a mailbox just befor it is queued via rt-mailgate into -the rt-system. - ---Am Montag, 26. Mai 2003 18:41 Uhr +0200 schrieb Dirk Pape -<pape-rt@inf.fu-berlin.de>: - -> I attach a digest with mails I send one after another to the rt-system -> and they get queued into one queue, each as a new ticket. - - - - ---==========2147500486========== -Content-Type: multipart/digest; boundary="==========2147489407==========" - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 27591 invoked by uid 9804); 26 May 2003 18:10:50 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:10:46 +0200 -Received: (Qmail 27575 invoked from network); 26 May 2003 18:10:46 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:10:46 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKYe-0000Yi-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:10:44 +0200 -Received: (qmail 27557 invoked by uid 9804); 26 May 2003 18:10:44 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:10:40 +0200 -Received: (Qmail 27540 invoked from network); 26 May 2003 18:10:40 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:10:40 +0200 -Date: Mon, 26 May 2003 18:11:00 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972660@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [27578] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 27754 invoked by uid 9804); 26 May 2003 18:11:24 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:20 +0200 -Received: (Qmail 27704 invoked from network); 26 May 2003 18:11:19 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:19 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKZA-0000Yy-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:11:16 +0200 -Received: (qmail 27690 invoked by uid 9804); 26 May 2003 18:11:16 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:13 +0200 -Received: (Qmail 27677 invoked from network); 26 May 2003 18:11:13 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:13 +0200 -Date: Mon, 26 May 2003 18:11:32 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972692@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [27711] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 27971 invoked by uid 9804); 26 May 2003 18:12:02 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:52 +0200 -Received: (Qmail 27908 invoked from network); 26 May 2003 18:11:52 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:52 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKZj-0000ZC-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:11:51 +0200 -Received: (qmail 27848 invoked by uid 9804); 26 May 2003 18:11:50 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:46 +0200 -Received: (Qmail 27809 invoked from network); 26 May 2003 18:11:45 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:45 +0200 -Date: Mon, 26 May 2003 18:12:05 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972725@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [27911] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 28283 invoked by uid 9804); 26 May 2003 18:12:39 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:12:36 +0200 -Received: (Qmail 28256 invoked from network); 26 May 2003 18:12:35 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:12:35 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKaQ-0000ZQ-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:12:34 +0200 -Received: (qmail 28236 invoked by uid 9804); 26 May 2003 18:12:34 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:12:30 +0200 -Received: (Qmail 28224 invoked from network); 26 May 2003 18:12:30 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:12:30 +0200 -Date: Mon, 26 May 2003 18:12:50 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972770@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [28259] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 28578 invoked by uid 9804); 26 May 2003 18:13:20 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:13:15 +0200 -Received: (Qmail 28534 invoked from network); 26 May 2003 18:13:14 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:13:14 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKb1-0000Ze-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:13:11 +0200 -Received: (qmail 28516 invoked by uid 9804); 26 May 2003 18:13:11 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:13:08 +0200 -Received: (Qmail 28479 invoked from network); 26 May 2003 18:13:07 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:13:07 +0200 -Date: Mon, 26 May 2003 18:13:27 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972807@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [28540] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 29108 invoked by uid 9804); 26 May 2003 18:14:15 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:14:10 +0200 -Received: (Qmail 29066 invoked from network); 26 May 2003 18:14:10 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:14:10 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKbw-0000Zr-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:14:08 +0200 -Received: (qmail 29054 invoked by uid 9804); 26 May 2003 18:14:08 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:14:04 +0200 -Received: (Qmail 29036 invoked from network); 26 May 2003 18:14:04 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:14:04 +0200 -Date: Mon, 26 May 2003 18:14:24 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972864@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [29069] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - ---==========2147489407========== -Content-Type: message/rfc822; name="test _________" - -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 29551 invoked by uid 9804); 26 May 2003 18:15:16 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:15:12 +0200 -Received: (Qmail 29521 invoked from network); 26 May 2003 18:15:12 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:15:12 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKcx-0000a4-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:15:11 +0200 -Received: (qmail 29511 invoked by uid 9804); 26 May 2003 18:15:10 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:15:07 +0200 -Received: (Qmail 29465 invoked from network); 26 May 2003 18:15:06 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:15:06 +0200 -Date: Mon, 26 May 2003 18:15:26 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972926@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [29524] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - - ---==========2147489407==========-- - ---==========2147500486==========-- - -_______________________________________________ -rt-users mailing list -rt-users@lists.fsck.com -http://lists.fsck.com/mailman/listinfo/rt-users - -Have you read the FAQ? The RT FAQ Manager lives at http://fsck.com/rtfm - diff --git a/rt/t/data/emails/8859-15-message-series/msg1 b/rt/t/data/emails/8859-15-message-series/msg1 deleted file mode 100755 index cc99c40..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg1 +++ /dev/null @@ -1,36 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 27591 invoked by uid 9804); 26 May 2003 18:10:50 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:10:46 +0200 -Received: (Qmail 27575 invoked from network); 26 May 2003 18:10:46 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:10:46 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKYe-0000Yi-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:10:44 +0200 -Received: (qmail 27557 invoked by uid 9804); 26 May 2003 18:10:44 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:10:40 +0200 -Received: (Qmail 27540 invoked from network); 26 May 2003 18:10:40 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:10:40 +0200 -Date: Mon, 26 May 2003 18:11:00 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972660@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [27578] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - diff --git a/rt/t/data/emails/8859-15-message-series/msg2 b/rt/t/data/emails/8859-15-message-series/msg2 deleted file mode 100755 index dc442cf..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg2 +++ /dev/null @@ -1,36 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 27754 invoked by uid 9804); 26 May 2003 18:11:24 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:20 +0200 -Received: (Qmail 27704 invoked from network); 26 May 2003 18:11:19 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:19 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKZA-0000Yy-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:11:16 +0200 -Received: (qmail 27690 invoked by uid 9804); 26 May 2003 18:11:16 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:13 +0200 -Received: (Qmail 27677 invoked from network); 26 May 2003 18:11:13 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:13 +0200 -Date: Mon, 26 May 2003 18:11:32 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972692@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [27711] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - diff --git a/rt/t/data/emails/8859-15-message-series/msg3 b/rt/t/data/emails/8859-15-message-series/msg3 deleted file mode 100755 index e23866d..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg3 +++ /dev/null @@ -1,35 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 27971 invoked by uid 9804); 26 May 2003 18:12:02 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:52 +0200 -Received: (Qmail 27908 invoked from network); 26 May 2003 18:11:52 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:52 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKZj-0000ZC-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:11:51 +0200 -Received: (qmail 27848 invoked by uid 9804); 26 May 2003 18:11:50 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:11:46 +0200 -Received: (Qmail 27809 invoked from network); 26 May 2003 18:11:45 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:11:45 +0200 -Date: Mon, 26 May 2003 18:12:05 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972725@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [27911] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 diff --git a/rt/t/data/emails/8859-15-message-series/msg4 b/rt/t/data/emails/8859-15-message-series/msg4 deleted file mode 100755 index 831695c..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg4 +++ /dev/null @@ -1,35 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 28283 invoked by uid 9804); 26 May 2003 18:12:39 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:12:36 +0200 -Received: (Qmail 28256 invoked from network); 26 May 2003 18:12:35 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:12:35 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKaQ-0000ZQ-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:12:34 +0200 -Received: (qmail 28236 invoked by uid 9804); 26 May 2003 18:12:34 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:12:30 +0200 -Received: (Qmail 28224 invoked from network); 26 May 2003 18:12:30 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:12:30 +0200 -Date: Mon, 26 May 2003 18:12:50 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972770@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [28259] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 diff --git a/rt/t/data/emails/8859-15-message-series/msg5 b/rt/t/data/emails/8859-15-message-series/msg5 deleted file mode 100755 index 272c93c..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg5 +++ /dev/null @@ -1,35 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 28578 invoked by uid 9804); 26 May 2003 18:13:20 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:13:15 +0200 -Received: (Qmail 28534 invoked from network); 26 May 2003 18:13:14 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:13:14 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKb1-0000Ze-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:13:11 +0200 -Received: (qmail 28516 invoked by uid 9804); 26 May 2003 18:13:11 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:13:08 +0200 -Received: (Qmail 28479 invoked from network); 26 May 2003 18:13:07 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:13:07 +0200 -Date: Mon, 26 May 2003 18:13:27 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972807@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [28540] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 diff --git a/rt/t/data/emails/8859-15-message-series/msg6 b/rt/t/data/emails/8859-15-message-series/msg6 deleted file mode 100755 index 3ae9d3b..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg6 +++ /dev/null @@ -1,35 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 29108 invoked by uid 9804); 26 May 2003 18:14:15 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:14:10 +0200 -Received: (Qmail 29066 invoked from network); 26 May 2003 18:14:10 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:14:10 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKbw-0000Zr-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:14:08 +0200 -Received: (qmail 29054 invoked by uid 9804); 26 May 2003 18:14:08 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:14:04 +0200 -Received: (Qmail 29036 invoked from network); 26 May 2003 18:14:04 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:14:04 +0200 -Date: Mon, 26 May 2003 18:14:24 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972864@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [29069] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 diff --git a/rt/t/data/emails/8859-15-message-series/msg7 b/rt/t/data/emails/8859-15-message-series/msg7 deleted file mode 100755 index 6149dd6..0000000 --- a/rt/t/data/emails/8859-15-message-series/msg7 +++ /dev/null @@ -1,36 +0,0 @@ -Return-Path: <pape@inf.fu-berlin.de> -Delivered-To: pape-rtdoublecheck@mi.fu-berlin.de -Received: (qmail 29551 invoked by uid 9804); 26 May 2003 18:15:16 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:15:12 +0200 -Received: (Qmail 29521 invoked from network); 26 May 2003 18:15:12 +0200 -Received: From es.inf.fu-berlin.de (160.45.110.22) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:15:12 +0200 -Received: from leibniz ([160.45.40.10] helo=math.fu-berlin.de) - by es.inf.fu-berlin.de with smtp (Exim 3.35 #1 (Debian)) - id 19KKcx-0000a4-00 - for <staff@tec.mi.fu-berlin.de>; Mon, 26 May 2003 18:15:11 +0200 -Received: (qmail 29511 invoked by uid 9804); 26 May 2003 18:15:10 +0200 -Received: from localhost (HELO math.fu-berlin.de) (127.0.0.1) - by localhost with SMTP; 26 May 2003 18:15:07 +0200 -Received: (Qmail 29465 invoked from network); 26 May 2003 18:15:06 +0200 -Received: From eremix.inf.fu-berlin.de (HELO eremix) (160.45.113.36) - by leibniz.math.fu-berlin.de with SMTP; 26 May 2003 18:15:06 +0200 -Date: Mon, 26 May 2003 18:15:26 +0200 -From: Dirk Pape <pape@inf.fu-berlin.de> -To: staff@tec.mi.fu-berlin.de -Subject: =?ISO-8859-15?Q?test_=E4=F6=FC=DF=C4=D6=DC=DF=A4?= -Message-ID: <2147483647.1053972926@[10.0.255.35]> -X-Mailer: Mulberry/3.0.3 (Mac OS X) -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Envelope-Sender: pape@inf.fu-berlin.de -X-Virus-Scanned: by AMaViS 0.3.12pre7-U23 [29524] (NAI-uvscan@math.fu-berlin.de) -X-Remote-IP: 160.45.110.22 -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-15; FORMAT=flowed -Content-Transfer-Encoding: quoted-printable -Content-Disposition: inline - -test nochmal in anderer Queue -test =E4=F6=FC=DF=C4=D6=DC=DF=A4 - diff --git a/rt/t/data/emails/crashes-file-based-parser b/rt/t/data/emails/crashes-file-based-parser deleted file mode 100755 index da1913e..0000000 --- a/rt/t/data/emails/crashes-file-based-parser +++ /dev/null @@ -1,193 +0,0 @@ -X-Real-To: <mitya@example.com> -Received: from [194.87.5.31] (HELO sinbin.d-s.example.com) - by cgp.example.com (CommuniGate Pro SMTP 4.0.6/D4) - with ESMTP-TLS id 125035761 for mitya@example.com; Thu, 11 Dec 2003 15:17:46 +0300 -Received: (from daemon@localhost) - by sinbin.d-s.example.com (8.12.9p1/8.11.6) id hBBCHjN0031595 - for mitya@example.com; Thu, 11 Dec 2003 15:17:45 +0300 (MSK) - (envelope-from noc@rt3.mx.example.com) -Received: from d-s.example.com by sinbin.d-s.example.com with ESMTP id hBBCHjar031575; - (8.12.9p2/D) Thu, 11 Dec 2003 15:17:45 +0300 (MSK) -X-Real-To: <mitya@example.com> -Sender: <noc@rt3.mx.example.com> (Network Operation Center) -To: mitya@example.com -Date: Thu, 11 Dec 2003 15:17:45 +0300 -Message-ID: <redirect-137509289@d-s.example.com> -X-Original-Return-Path: <vox19@b92.d-s.example.com> -Received: from [194.87.0.16] (HELO mail.d-s.example.com) - by d-s.example.com (CommuniGate Pro SMTP 4.1.5/D1) - with ESMTP id 120757484 for noc@rt3.mx.example.com; Mon, 27 Oct 2003 09:40:53 +0300 -Received: from [194.87.0.22] (HELO moscvax.d-s.example.com) - by mail.d-s.example.com (CommuniGate Pro SMTP 4.1.5/D) - with ESMTP-TLS id 107945800 for noc@rt3.mx.example.com; Mon, 27 Oct 2003 09:40:53 +0300 -Received: from d-s.example.com (mx.d-s.example.com [194.87.0.32]) - by moscvax.d-s.example.com (8.12.9/8.12.9) with ESMTP id h9R6erFm062621 - for <security@d.example.com>; Mon, 27 Oct 2003 09:40:53 +0300 (MSK) - (envelope-from vox19@b92.d-s.example.com) -Received: by d-s.example.com (CommuniGate Pro PIPE 4.1.5/D1) - with PIPE id 120757490; Mon, 27 Oct 2003 09:40:53 +0300 -Received: from [194.87.2.108] (HELO b92.d-s.example.com) - by d-s.example.com (CommuniGate Pro SMTP 4.1.5/D1) - with ESMTP-TLS id 120757480 for security@d.example.com; Mon, 27 Oct 2003 09:40:52 +0300 -Received: from b92.d-s.example.com (localhost [127.0.0.1]) - by b92.d-s.example.com (8.12.8p1/8.12.3) with ESMTP id h9R6eqIe014669 - for <security@d.example.com>; Mon, 27 Oct 2003 09:40:52 +0300 (MSK) - (envelope-from vox19@b92.d-s.example.com) -Received: from localhost (localhost [[UNIX: localhost]]) - by b92.d-s.example.com (8.12.8p1/8.12.3/Submit) id h9R6epst014668 - for security@d.example.com; Mon, 27 Oct 2003 09:40:51 +0300 (MSK) -From: "Stanislav" <drstas@d.example.com> -Subject: Fwd: scanning my ports -X-Original-Date: Mon, 27 Oct 2003 10:40:51 +0400 -User-Agent: KMail/1.5.4 -X-Original-To: security@d.example.com -MIME-Version: 1.0 -Content-Type: Multipart/Mixed; - boundary="Boundary-00=_z3Ln/tUeUBipHgx" -X-Original-Message-Id: <200310270940.51758.vox19@d.example.com> -X-Spam-Checker-Version: SpamAssassin 2.60-jumbo.demos (1.212-2003-09-23-exp) -X-Spam-Level: -X-Spam-Status: No, hits=-6.8 required=5.0 tests=BAYES_00,FROM_ENDS_IN_NUMS, - HTML_MESSAGE,SUBJECT_RT autolearn=ham version=2.60-jumbo.demos -X-Spam-Report: -6.8 points, 5.0 required; - * -3.0 SUBJECT_RT Tracking system - * 1.0 FROM_ENDS_IN_NUMS From: ends in numbers - * 0.1 HTML_MESSAGE BODY: HTML included in message - * -4.9 BAYES_00 BODY: Bayesian spam probability is 0 to 1% - * [score: 0.0000] - - ---Boundary-00=_z3Ln/tUeUBipHgx -Content-Type: text/plain; - charset="koi8-r" -Content-Transfer-Encoding: 7bit -Content-Disposition: inline - - -FYI - - ----------- Forwarded Message ---------- - -Subject: [DEMOS #12148] scanning my ports -Date: Sunday 26 October 2003 20:19 -From: 1stwizard@isp.example.com -To: no-reply@d-r.example.com - -This transaction appears to have no content - -------------------------------------------------------- - - - --- -best wishes, - -Stanislav A. Mushkat -http://www.di.example.com - ---Boundary-00=_z3Ln/tUeUBipHgx -Content-Type: text/plain; - charset="iso-8859-1"; - name=" " -Content-Transfer-Encoding: 7bit -Content-Disposition: inline - -Somebody at IP 127.0.0.1 scanned my ports. ---Boundary-00=_z3Ln/tUeUBipHgx -Content-Type: text/html; - charset="iso-8859-1"; - name=" " -Content-Transfer-Encoding: 7bit -Content-Disposition: inline - -<HTML><HEAD> -<META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> -<META content="IncrediMail 1.0" name=GENERATOR> -<!--IncrdiXMLRemarkStart> -<IncrdiX-Info> -<X-FID>BA285063-5BCE-11D4-AF8D-0050DAC67E11</X-FID> -<X-FVER>2.0</X-FVER> -<X-FIT>Letter</X-FIT> -<X-FCOL>Elegant Paper</X-FCOL> -<X-FCAT>Stationery</X-FCAT> -<X-FDIS>Rice Fields</X-FDIS> -<X-Extensions>SU1CTDEsNDEsgUmBSTAkkcGNgZmVTY0wNCxNhYUoiU0kOMEoTYGBjYEoJDSZnSyFhUksSU1CTDIsMCwsSU1CTDMsMCwsVHlwZVZlcnNpb24sMywxLjAs</X-Extensions> -<X-BG>8E549F43-079D-11D8-B0F9-00B0D0B65B96</X-BG> -<X-BGT>repeat</X-BGT> -<X-BGC>#eff3f7</X-BGC> -<X-BGPX>left</X-BGPX> -<X-BGPY>0px</X-BGPY> -<X-ASN>ANIM3D00-NONE-0000-0000-000000000000</X-ASN> -<X-ASNF>0</X-ASNF> -<X-ASH>ANIM3D00-NONE-0000-0000-000000000000</X-ASH> -<X-ASHF>1</X-ASHF> -<X-AN>6486DDE0-3EFD-11D4-BA3D-0050DAC68030</X-AN> -<X-ANF>0</X-ANF> -<X-AP>6486DDE0-3EFD-11D4-BA3D-0050DAC68030</X-AP> -<X-APF>1</X-APF> -<X-AD>C3C52140-4147-11D4-BA3D-0050DAC68030</X-AD> -<X-ADF>0</X-ADF> -<X-AUTO>X-ASN,X-ASH,X-AN,X-AP,X-AD</X-AUTO> -<X-CNT>;</X-CNT> -</IncrdiX-Info> -<IncrdiXMLRemarkEnd--> -</HEAD> -<BODY style="BACKGROUND-POSITION: left 0px; FONT-SIZE: 12pt; MARGIN: 0px 10px 10px; COLOR: #00005b; BACKGROUND-REPEAT: repeat; FONT-FAMILY: Arial" text=#00005b bgColor=#eff3f7 background=cid:8E549F43-079D-11D8-B0F9-00B0D0B65B96 scroll=yes SIGCOLOR="0" X-ADF="0" X-AD="C3C52140-4147-11D4-BA3D-0050DAC68030" X-APF="1" X-AP="6486DDE0-3EFD-11D4-BA3D-0050DAC68030" X-ANF="0" X-AN="6486DDE0-3EFD-11D4-BA3D-0050DAC68030" X-ASHF="1" X-ASH="ANIM3D00-NONE-0000-0000-000000000000" X-ASNF="0" X-ASN="ANIM3D00-NONE-0000-0000-000000000000" X-FVER="2.0" X-FID="BA285063-5BCE-11D4-AF8D-0050DAC67E11" X-FIT="Letter" X-FCOL="Elegant Paper" X-FCAT="Elegant Paper" X-FDIS="Rice Fields" ORGYPOS="0"> -<TABLE id=INCREDIMAINTABLE cellSpacing=0 cellPadding=2 width="100%" border=0> -<TBODY> -<TR> -<TD id=INCREDITEXTREGION style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE: 12pt; PADDING-BOTTOM: 0px; CURSOR: auto; PADDING-TOP: 0px" vAlign=top width="100%"> -<DIV>Somebody at IP 127.0.0.1 scanned my ports. </DIV> -<DIV> </DIV> -<DIV> </DIV></TD></TR> -<TR> -<TD id=INCREDIFOOTER width="100%"> -<TABLE cellSpacing=0 cellPadding=0 width="100%"> -<TBODY> -<TR> -<TD width="100%"></TD> -<TD id=INCREDISOUND vAlign=bottom align=middle></TD> -<TD id=INCREDIANIM vAlign=bottom align=middle></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML> ---Boundary-00=_z3Ln/tUeUBipHgx -Content-Type: image/jpeg; - charset="iso-8859-1"; - name="BackGrnd.jpg" -Content-Transfer-Encoding: base64 -Content-Disposition: inline; filename="BackGrnd.jpg" - -/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAHgAA/+4AIUFk -b2JlAGTAAAAAAQMAEAMCAwYAAAHbAAAC1gAABZX/2wCEABALCwsMCxAMDBAX -Dw0PFxsUEBAUGx8XFxcXFx8eFxoaGhoXHh4jJSclIx4vLzMzLy9AQEBAQEBA -QEBAQEBAQEABEQ8PERMRFRISFRQRFBEUGhQWFhQaJhoaHBoaJjAjHh4eHiMw -Ky4nJycuKzU1MDA1NUBAP0BAQEBAQEBAQEBAQP/CABEIAGUAcwMBIgACEQED -EQH/xACAAAEBAQEAAAAAAAAAAAAAAAAAAQIGAQEBAAAAAAAAAAAAAAAAAAAA -ARABAAICAwEAAgMAAAAAAAAAAQARIQIxQRIiQDIQMFARAAICAgIBBAIDAQEA -AAAAAAERACExQVFhcYGRobECEsHhMtHxEgEAAAAAAAAAAAAAAAAAAABQ/9oA -DAMBAAIRAxEAAADtRZYE1ASghQFgUZoCkKSwLmhcllAEqkSkqFAlhUomoAS3 -IoJqFlDNpFEAQFE1AIVYAWIVKAJRNZpYCwVmmshKACA0CBAUCBYGwf/aAAgB -AgABBQD8B/yP/9oACAEDAAEFAPz6/or8H//aAAgBAQABBQC2+ZeHjbD+saX6 -hwXeDW1Rg4xLLTa+m7ZiIEsI1MTiHP1dYpvFADiFM1/X6nq9byuwdPPz5oFo -fWlEMQ9ULKrWq2ppG9Y2J6INQma9lVTRdlUKgHzXXSEECw1SYu5WsGoJPkis -ZYpx31GvXZQ/JM3VwShzVTsp1EZbBI8LcaUSih86+s2Zl4Wp6+lAZnVsDkjd -ku5m+lJTdXDG2SHM9M2wKX1YxsaZTTwmoVrYnqsMrM652yjs01K0mtbGAz6Y -5dpfqNz06qpq5QNjiIjiZtbhtceNuf0jyeqGgu6rXMvI4omPWbPMYzEfMI+a -xHnFvOP4/9oACAECAgY/AGP/2gAIAQMCBj8AY//aAAgBAQEGPwB72Yucb1Bf -IhFEaeZ+xRXFQELN+HEUQdjU0Xn4g9gRCQcpw1yajGYsP/kFvUzvjUBWrIMF -HI2OJQNEAjiEEFdTmfG/MTHq5RFOnpTV3kzCBx7x4YOD1AV5uYJvnqMA0hep -jfwpYCwC4Bx3q55zeZRBCw9TkoIuHw78RdczSNH2mgqcLpRC+RASAkA3B13m -cYd5mR84c/yOx4lWtRAZ6mGDhiP9WgXVyhWA+xDgMOWGMsTg/wBTz8SjjXrP -8hHIlX1MZ6mDzgc/cIV/iyN1GBR0MQMKjnEzvvMz8mUkErKlfqU63iV+IKNH -7mNZBLFQEpEDeDOV32IVn8WR4caoywqI2p695mbZzNUQIcKfk0bo+0NpCqn7 -CiQiNGXkdQen1DpjGeZ7WNw3pK+I93maCPc16+Zkf6XxMCsFwAkaiIB57vc/ -IAhZ/HqZBBbB0ZokAEOGxsYqBgPp8agQBu4VSMJdqx6SwDsGBrTmAR93uZGX -6KePowEADAIjoX8gw459CICaW/MLGvodQfkDW71zBxRHtB3j3jC4PMIYoAgK -NfPMCQNN7jCzvlzXPopzhQvNZY3CRya9ZrEFfRE0iCB5mscZuVYfKmAi94uE -3Q8qfytQ7xD0svmFcmaxNPI8iMjh3pmF2HbzqeUi+YkiD/MrOl5LmbwPuWVf -mXpv3hDH8qAjPpiZHXkRnSd6ZhB53mejzKV6US0K9TCCLyCeIhtETX5MsHBG -JkD/ANiFkMCE2qGoCdZ8Q8AMGpYFqEhdhRIYH3CF3d1M/Mexma+4CwdQ2Ddc -x0exAlmj04QUQd8QWLB/iB5GxmEg5TENVZqPYzFV8eHAy9T/AEc8a4n3Ov6g -/VwvE6lpQ4VNysXzhS8esOO8w/rlF/rypjV3B5H1Knr8T//Z - ---Boundary-00=_z3Ln/tUeUBipHgx-- - diff --git a/rt/t/data/emails/lorem-ipsum b/rt/t/data/emails/lorem-ipsum deleted file mode 100644 index 1aceb14..0000000 --- a/rt/t/data/emails/lorem-ipsum +++ /dev/null @@ -1,5 +0,0 @@ -Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut -labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris -nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit -esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in -culpa qui officia deserunt mollit anim id est laborum. diff --git a/rt/t/data/emails/multipart-alternative-with-umlaut b/rt/t/data/emails/multipart-alternative-with-umlaut deleted file mode 100755 index 1ad4fe3..0000000 --- a/rt/t/data/emails/multipart-alternative-with-umlaut +++ /dev/null @@ -1,62 +0,0 @@ -Return-Path: <gst@example.com> -Delivered-To: j@pallas.eruditorum.org -Received: from vis.example.com (vis.example.com [212.68.68.251]) - by pallas.eruditorum.org (Postfix) with SMTP id 59236111C3 - for <jesse@example.com>; Thu, 12 Jun 2003 02:14:44 -0400 (EDT) -Received: (qmail 29541 invoked by uid 502); 12 Jun 2003 06:14:42 -0000 -Received: from sivd.example.com (HELO example.com) (192.168.42.1) - by 192.168.42.42 with SMTP; 12 Jun 2003 06:14:42 -0000 -Received: received from 172.20.72.174 by odie.example.com; Thu, 12 Jun 2003 08:14:27 +0200 -Received: by mailserver.example.com with Internet Mail Service (5.5.2653.19) id <LJSB7T54>; Thu, 12 Jun 2003 08:14:39 +0200 -Message-ID: <50362EC956CBD411A339009027F6257E013DD495@mailserver.example.com> -Date: Thu, 12 Jun 2003 08:14:39 +0200 -From: "Stever, Gregor" <gst@example.com> -MIME-Version: 1.0 -X-Mailer: Internet Mail Service (5.5.2653.19) -To: "'jesse@example.com'" <jesse@example.com> -Subject: RE: [rt-users] HTML-encoded mails with umlaute -Date: Thu, 12 Jun 2003 08:14:39 +0200 -Content-Type: multipart/alternative; - boundary="----_=_NextPart_001_01C330A9.E7BDD590" -X-Spam-Status: No, hits=0.0 required=5.0 - tests=AWL,HTML_50_60,HTML_MESSAGE,INVALID_DATE - version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) - -------_=_NextPart_001_01C330A9.E7BDD590 -Content-Type: text/plain; - charset="iso-8859-1" -Content-Transfer-Encoding: quoted-printable - -Hello, - -ist this kind of Messages, that causes rt to crash.=20 - -Mit freundlichen Gr=FC=DFen -Gregor Stever ^^causes Error!! - - -------_=_NextPart_001_01C330A9.E7BDD590 -Content-Type: text/html; - charset="iso-8859-1" -Content-Transfer-Encoding: quoted-printable - -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> -<HTML><HEAD> -<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; charset=3Diso-8859-= -1"> - - -<META content=3D"MSHTML 6.00.2800.1170" name=3DGENERATOR></HEAD> -<BODY> -<DIV><FONT face=3DArial><FONT size=3D2>Hello,<BR><BR>ist this kind of Messa= -ges, that=20 -causes rt to crash.<BR><BR>Mit freundlichen Gr=FC=DFen<BR>Gregor=20 -Stever ^^causes Error<SPAN=20 -class=3D975501206-12062003>!!</SPAN></FONT></FONT></DIV></BODY></HTML> - - -------_=_NextPart_001_01C330A9.E7BDD590-- - - diff --git a/rt/t/data/emails/multipart-report b/rt/t/data/emails/multipart-report deleted file mode 100755 index 538e0c8..0000000 --- a/rt/t/data/emails/multipart-report +++ /dev/null @@ -1,66 +0,0 @@ -Return-Path: <mailnull@example.com> -Date: Sat, 23 Aug 2003 00:15:18 +0800 (SGT) -From: Mail Delivery Subsystem <MAILER-DAEMON@other.example.com> -Message-Id: <200308221615.CGA36111@mailbox.other.example.com> -To: support@example.com -MIME-Version: 1.0 -Content-Type: multipart/report; report-type=delivery-status; - boundary="CGA36111.1061568918/mailbox.other.example.com" -Subject: Returned mail: User unknown -Auto-Submitted: auto-generated (failure) - -This is a MIME-encapsulated message - ---CGA36111.1061568918/mailbox.other.example.com - -The original message was received at Sat, 23 Aug 2003 00:15:18 +0800 (SGT) -from mx12.mcis.other.example.com [10.1.1.232] - - ----- The following addresses had permanent delivery errors ----- -<jesmund> - - ---CGA36111.1061568918/mailbox.other.example.com -Content-Type: message/delivery-status - -Reporting-MTA: dns; mailbox.other.example.com -Arrival-Date: Sat, 23 Aug 2003 00:15:18 +0800 (SGT) - -Final-Recipient: RFC822; jesmund@mailbox.other.example.com -Action: failed -Status: 5.1.1 -Remote-MTA: DNS; mail.mcis.other.example.com -Diagnostic-Code: SMTP; 550 5.1.1 <jesmund>... User unknown -Last-Attempt-Date: Sat, 23 Aug 2003 00:15:18 +0800 (SGT) - ---CGA36111.1061568918/mailbox.other.example.com -Content-Type: message/rfc822 - -Return-Path: <support@example.com> -Received: from mx12.other.example.com (mx12.mcis.other.example.com [10.1.1.232]) - by mailbox.other.example.com (Mirapoint Messaging Server MOS 3.3.3-GR) - with ESMTP id CGA36101; - Sat, 23 Aug 2003 00:15:17 +0800 (SGT) -Received: from STATION13 (rhala.dsl.pe.net [64.38.69.104]) - by mx12.other.example.com (8.12.9/8.12.9) with ESMTP id h7MGFGac020135 - for <jesmund@other.example.com>; Sat, 23 Aug 2003 00:15:17 +0800 -Message-Id: <200308221615.h7MGFGac020135@mx12.other.example.com> -From: <support@example.com> -To: <jesmund@other.example.com> -Subject: Thank you! -Date: Fri, 22 Aug 2003 9:15:19 --0700 -X-MailScanner: Found to be clean -Importance: Normal -X-Mailer: Microsoft Outlook Express 6.00.2600.0000 -X-MSMail-Priority: Normal -X-Priority: 3 (Normal) -MIME-Version: 1.0 -Content-Type: multipart/mixed; - boundary="_NextPart_000_05684DA4" - - - ---_NextPart_000_05684DA4-- - ---CGA36111.1061568918/mailbox.other.example.com-- - diff --git a/rt/t/data/emails/nested-mime-sample b/rt/t/data/emails/nested-mime-sample deleted file mode 100755 index 8b85d94..0000000 --- a/rt/t/data/emails/nested-mime-sample +++ /dev/null @@ -1,396 +0,0 @@ -Return-Path: <Xxxxxx_Yyyyyyy@some.net> -Delivered-To: jesse@pallas.eruditorum.org -Received: by pallas.eruditorum.org (Postfix) - id B5D3E1123A; Fri, 12 Jul 2002 11:35:27 -0400 (EDT) -Delivered-To: rt-2.0-bugs@pallas.eruditorum.org -Received: from postman.some.net (postman.some.net [193.0.0.199]) - by pallas.eruditorum.org (Postfix) with SMTP id 2736011234 - for <rt-2.0-bugs@fsck.com>; Fri, 12 Jul 2002 11:35:27 -0400 (EDT) -Received: (qmail 11615 invoked by uid 0); 12 Jul 2002 15:35:26 -0000 -Received: from x22.some.net (HELO x22.some.net.some.net) (193.0.1.22) - by postman.some.net with SMTP; 12 Jul 2002 15:35:26 -0000 -Date: Fri, 12 Jul 2002 17:35:26 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -To: rt-0.0-bugs@fsck.com -Subject: Example MIME within MIME within MIME message -Message-ID: <Pine.LNX.4.44.0207121734250.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-192303556-1026488126=:25020" -X-Spam-Status: No, hits=4.0 required=7.0 - tests=DOUBLE_CAPSWORD,MIME_NULL_BLOCK,MIME_MISSING_BOUNDARY - version=2.31 -Content-Length: 11478 - - This message is in MIME format. The first part should be readable text, - while the remaining parts are likely unreadable without MIME-aware tools. - Send mail to mime@docserver.cac.washington.edu for more info. - ---12654081-192303556-1026488126=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - -MIME is fun at times. - - --- - Xxxxxx Yyyyyyy SOME - Systems/Network Engineer NCC - www.some.net - PGP000C8B1B Operations/Security - ---12654081-192303556-1026488126=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-2102091261-1026488126=:25020" -Content-ID: <Pine.LNX.4.44.0207121734322.25020@x22.some.net> -Content-Description: Digest of 2 messages - - This message is in MIME format. The first part should be readable text, - while the remaining parts are likely unreadable without MIME-aware tools. - Send mail to mime@docserver.cac.washington.edu for more info. - ---12654081-2102091261-1026488126=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121734320.25020@x22.some.net> -Content-Description: first outer message (fwd) - -Date: Fri, 12 Jul 2002 17:32:37 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: first outer message -Message-ID: <Pine.LNX.4.44.0207121732180.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-113777422-1026487957=:25020" - - ---12654081-113777422-1026487957=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - -first outer message - ---12654081-113777422-1026487957=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-387266385-1026487957=:25020" -Content-ID: <Pine.LNX.4.44.0207121732222.25020@x22.some.net> -Content-Description: Digest of 2 messages - ---12654081-387266385-1026487957=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121732220.25020@x22.some.net> -Content-Description: middle message (fwd) - -Date: Fri, 12 Jul 2002 17:31:45 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: middle message -Message-ID: <Pine.LNX.4.44.0207121731190.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-1711788944-1026487905=:25020" - - ---12654081-1711788944-1026487905=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - -This is the first middle message - - ---12654081-1711788944-1026487905=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-1221085552-1026487905=:25020" -Content-ID: <Pine.LNX.4.44.0207121731262.25020@x22.some.net> -Content-Description: Digest of 2 messages - ---12654081-1221085552-1026487905=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731260.25020@x22.some.net> -Content-Description: This is the inner-most message (fwd) - -Date: Fri, 12 Jul 2002 17:30:31 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: This is the inner-most message -Message-ID: <Pine.LNX.4.44.0207121730070.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -inner-msg - - - ---12654081-1221085552-1026487905=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731261.25020@x22.some.net> -Content-Description: another inner message (need two before pine will do the mime-digest thing) (fwd) - -Date: Fri, 12 Jul 2002 17:31:12 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: another inner message (need two before pine will do the mime-digest - thing) -Message-ID: <Pine.LNX.4.44.0207121730480.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -again - - - ---12654081-1221085552-1026487905=:25020-- ---12654081-1711788944-1026487905=:25020-- - ---12654081-387266385-1026487957=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121732221.25020@x22.some.net> -Content-Description: middle message (fwd) - -Date: Fri, 12 Jul 2002 17:32:05 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: middle message -Message-ID: <Pine.LNX.4.44.0207121731470.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-1731270459-1026487925=:25020" - - ---12654081-1731270459-1026487925=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -This is the second middle message - - ---12654081-1731270459-1026487925=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-128832654-1026487925=:25020" -Content-ID: <Pine.LNX.4.44.0207121731502.25020@x22.some.net> -Content-Description: Digest of 2 messages - ---12654081-128832654-1026487925=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731500.25020@x22.some.net> -Content-Description: This is the inner-most message (fwd) - -Date: Fri, 12 Jul 2002 17:30:31 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: This is the inner-most message -Message-ID: <Pine.LNX.4.44.0207121730070.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -inner-msg - - - ---12654081-128832654-1026487925=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731501.25020@x22.some.net> -Content-Description: another inner message (need two before pine will do the mime-digest thing) (fwd) - -Date: Fri, 12 Jul 2002 17:31:12 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: another inner message (need two before pine will do the mime-digest - thing) -Message-ID: <Pine.LNX.4.44.0207121730480.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -again - - - ---12654081-128832654-1026487925=:25020-- ---12654081-1731270459-1026487925=:25020-- - ---12654081-387266385-1026487957=:25020-- ---12654081-113777422-1026487957=:25020-- - ---12654081-2102091261-1026488126=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121734321.25020@x22.some.net> -Content-Description: 2nd outer message (fwd) - -Date: Fri, 12 Jul 2002 17:32:54 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: 2nd outer message -Message-ID: <Pine.LNX.4.44.0207121732380.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-1955637437-1026487974=:25020" - - ---12654081-1955637437-1026487974=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - -2nd outer message - - ---12654081-1955637437-1026487974=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-362457126-1026487974=:25020" -Content-ID: <Pine.LNX.4.44.0207121732412.25020@x22.some.net> -Content-Description: Digest of 2 messages - ---12654081-362457126-1026487974=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121732410.25020@x22.some.net> -Content-Description: middle message (fwd) - -Date: Fri, 12 Jul 2002 17:31:45 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: middle message -Message-ID: <Pine.LNX.4.44.0207121731190.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-1711788944-1026487905=:25020" - - ---12654081-1711788944-1026487905=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - -This is the first middle message - - ---12654081-1711788944-1026487905=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-1221085552-1026487905=:25020" -Content-ID: <Pine.LNX.4.44.0207121731262.25020@x22.some.net> -Content-Description: Digest of 2 messages - ---12654081-1221085552-1026487905=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731260.25020@x22.some.net> -Content-Description: This is the inner-most message (fwd) - -Date: Fri, 12 Jul 2002 17:30:31 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: This is the inner-most message -Message-ID: <Pine.LNX.4.44.0207121730070.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -inner-msg - - - ---12654081-1221085552-1026487905=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731261.25020@x22.some.net> -Content-Description: another inner message (need two before pine will do the mime-digest thing) (fwd) - -Date: Fri, 12 Jul 2002 17:31:12 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: another inner message (need two before pine will do the mime-digest - thing) -Message-ID: <Pine.LNX.4.44.0207121730480.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -again - - - ---12654081-1221085552-1026487905=:25020-- ---12654081-1711788944-1026487905=:25020-- - ---12654081-362457126-1026487974=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121732411.25020@x22.some.net> -Content-Description: middle message (fwd) - -Date: Fri, 12 Jul 2002 17:32:05 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: middle message -Message-ID: <Pine.LNX.4.44.0207121731470.25020-120000@x22.some.net> -MIME-Version: 1.0 -Content-Type: MULTIPART/MIXED; BOUNDARY="12654081-1731270459-1026487925=:25020" - - ---12654081-1731270459-1026487925=:25020 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -This is the second middle message - - ---12654081-1731270459-1026487925=:25020 -Content-Type: MULTIPART/Digest; BOUNDARY="12654081-128832654-1026487925=:25020" -Content-ID: <Pine.LNX.4.44.0207121731502.25020@x22.some.net> -Content-Description: Digest of 2 messages - ---12654081-128832654-1026487925=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731500.25020@x22.some.net> -Content-Description: This is the inner-most message (fwd) - -Date: Fri, 12 Jul 2002 17:30:31 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: This is the inner-most message -Message-ID: <Pine.LNX.4.44.0207121730070.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -inner-msg - - - ---12654081-128832654-1026487925=:25020 -Content-Type: MESSAGE/RFC822; CHARSET=US-ASCII -Content-ID: <Pine.LNX.4.44.0207121731501.25020@x22.some.net> -Content-Description: another inner message (need two before pine will do the mime-digest thing) (fwd) - -Date: Fri, 12 Jul 2002 17:31:12 +0200 (CEST) -From: Xxxxxx Yyyyyyy <Xxxxxx_Yyyyyyy@some.net> -X-X-Sender: bc@x22.some.net -To: Xxxxxx_Yyyyyyy@some.net -Subject: another inner message (need two before pine will do the mime-digest - thing) -Message-ID: <Pine.LNX.4.44.0207121730480.25020-100000@x22.some.net> -MIME-Version: 1.0 -Content-Type: TEXT/PLAIN; charset=US-ASCII - - - -again - - - ---12654081-128832654-1026487925=:25020-- ---12654081-1731270459-1026487925=:25020-- - ---12654081-362457126-1026487974=:25020-- ---12654081-1955637437-1026487974=:25020-- - ---12654081-2102091261-1026488126=:25020-- ---12654081-192303556-1026488126=:25020-- - diff --git a/rt/t/data/emails/nested-rfc-822 b/rt/t/data/emails/nested-rfc-822 deleted file mode 100755 index d4f118d..0000000 --- a/rt/t/data/emails/nested-rfc-822 +++ /dev/null @@ -1,253 +0,0 @@ -Return-Path: <jonas@astral.example.com> -Delivered-To: j@pallas.eruditorum.org -Received: from example.com (example.com [213.88.137.35]) - by pallas.eruditorum.org (Postfix) with ESMTP id 869591115E - for <jesse@bestpractical.com>; Sun, 29 Jun 2003 18:04:04 -0400 (EDT) -Received: from jonas by example.com with local (Exim 4.20) - id 19WkLK-0004Vr-0I - for jesse@bestpractical.com; Mon, 30 Jun 2003 00:08:18 +0200 -Resent-To: jesse@bestpractical.com -Resent-From: Jonas Liljegren <jonas@example.com> -Resent-Date: Mon, 30 Jun 2003 00:08:17 +0200 -Received: from mail by example.com with spam-scanned (Exim 4.20) - id 19Wayz-00068j-KO - for jonas@astral.example.com; Sun, 29 Jun 2003 14:08:42 +0200 -Received: from jonas by example.com with local (Exim 4.20) - id 19Wayz-00068g-FY - for red@example.com; Sun, 29 Jun 2003 14:08:37 +0200 -To: Redaktionen <red@example.com> -Subject: [Jonas Liljegren] Re: [Para] =?iso-8859-1?q?Niv=E5er=3F?= -From: Jonas Liljegren <jonas@example.com> -Date: Sun, 29 Jun 2003 14:08:37 +0200 -Message-ID: <87d6gxt7ay.fsf@example.com> -User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.2 (gnu/linux) -MIME-Version: 1.0 -Content-Type: multipart/mixed; boundary="=-=-=" -Sender: Jonas Liljegren <jonas@astral.example.com> -Resent-Message-Id: <E19WkLK-0004Vr-0I@example.com> -Resent-Sender: Jonas Liljegren <jonas@astral.example.com> -Resent-Date: Mon, 30 Jun 2003 00:08:18 +0200 -X-Spam-Status: No, hits=-5.7 required=5.0 - tests=AWL,BAYES_10,EMAIL_ATTRIBUTION,MAILTO_WITH_SUBJ, - QUOTED_EMAIL_TEXT,USER_AGENT_GNUS_UA - version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) - ---=-=-= -Content-Type: text/plain; charset=iso-8859-1 -Content-Transfer-Encoding: quoted-printable - -Material f=F6r att uppdatera texten om niv=E5er. - -Denna text b=F6r dessutom ligga som ett uppslagsord och inte d=E4r den ligg= -er nu. - - ---=-=-= -Content-Type: message/rfc822 -Content-Disposition: inline - -Return-path: <list-bounces@example.com> -Received: from mail by example.com with spam-scanned (Exim 4.20) - id 19WFzq-0005i1-WE - for jonas@example.com; Sat, 28 Jun 2003 15:44:13 +0200 -Received: from localhost - ([127.0.0.1] helo=example.com ident=list) - by example.com with esmtp (Exim 4.20) - id 19WFzp-0005hf-Tz; Sat, 28 Jun 2003 15:44:05 +0200 -Received: from mail by example.com with spam-scanned (Exim 4.20) - id 19WFzh-0005hR-Bu - for list@example.com; Sat, 28 Jun 2003 15:44:03 +0200 -Received: from jonas by example.com with local (Exim 4.20) - id 19WFzh-0005hO-AO - for list@example.com; Sat, 28 Jun 2003 15:43:57 +0200 -To: list@example.com -Subject: Re: [Para] =?iso-8859-1?q?Niv=E5er=3F?= -References: <002701c33d62$170fb2e0$a33740d5@TELIA.COM> - <002301c33d66$bf6483e0$d97864d5@remotel2tu76c8> - <64753.217.210.4.156.1056801224.squirrel@example.com> -From: Jonas Liljegren <jonas@example.com> -Date: Sat, 28 Jun 2003 15:43:57 +0200 -In-Reply-To: <64753.217.210.4.156.1056801224.squirrel@example.com> (Jakob - Carlsson's message of "Sat, 28 Jun 2003 13:53:44 +0200 (CEST)") -Message-ID: <877k76uxk2.fsf@example.com> -User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.2 (gnu/linux) -X-BeenThere: list@example.com -X-Mailman-Version: 2.1.2 -Precedence: list -List-Id: Öppen lista för alla medlemmar <list.example.com> -List-Unsubscribe: <http://example.com/cgi-bin/mailman/listinfo/list>, - <mailto:list-request@example.com?subject=unsubscribe> -List-Archive: <http://example.com/pipermail/list> -List-Post: <mailto:list@example.com> -List-Help: <mailto:list-request@example.com?subject=help> -List-Subscribe: <http://example.com/cgi-bin/mailman/listinfo/list>, - <mailto:list-request@example.com?subject=subscribe> -Sender: list-bounces@example.com -Errors-To: list-bounces@example.com -X-Spam-Status: No, hits=-7.0 required=5.0 - tests=BAYES_00,EMAIL_ATTRIBUTION,IN_REP_TO,QUOTED_EMAIL_TEXT, - REFERENCES,REPLY_WITH_QUOTES,USER_AGENT_GNUS_UA - version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) -MIME-Version: 1.0 -Content-Type: text/plain; charset=iso-8859-1 -Content-Transfer-Encoding: quoted-printable - -"Jakob Carlsson" <esrange@example.com> writes: - ->> Om du g=E5r in p=E5 Hemsidan och sen p=E5 Torget. ->> D=E4r ser du att det st=E5r ditt anv=E4ndarnamn och ->> bredvid det Niv=E5 5. ->> Klicka p=E5 niv=E5 5 s=E5 kommer du in p=E5 en sida som ->> f=F6rklarar allt om niv=E5systemet. -> -> Bra svar. Men jag k=E4nner f=F6r att ge en kort f=F6rklaring av niv=E5-sy= -stemet. - -Jag skulle kunna l=E4gga en massa tid p=E5 at skriva samma sak om och om -igen. Fliker in h=E4r f=F6r att s=E4ga detta =E4nnu en g=E5ng...: - - * Det =E4r jag som hittat p=E5 det h=E4r med niv=E5system - - * Det =E4r en stor skillnad p=E5 hur det =E4r t=E4nkt att vara och hur det= - =E4r - nu. Jag har stora planer och en massa id=E9er jag vill genomf=F6ra. - - * Niv=E5systemet =E4r en =E5terkoppling f=F6r vad man gjort f=F6r webbplat= -sen. - Som ett tack g=F6r hj=E4lpen. - - * Systemet finns som en inspiration f=F6r de som d=E5 k=E4nner f=F6r att g= -=F6ra - mer. Men jag vill inte att det ska ge en negativ influens f=F6r de - som inte gillar niv=E5er. Var och en ska kunna v=E4lja att ignorera - niv=E5n. Speciellt b=F6r de f=F6rst=E5 att det inte har att g=F6ra med - graden av andlig utveckling, esoteriska kunskaper eller n=E5got - s=E5dant. - - * Inspirationen till niv=E5erna kommer fr=E5n spel, hemliga ordenssystem, - kosmska hiearkier, skr=E5v=E4sen, akademier, politisk administration, - osv. Det =E4r ett element av rollspel. En lek. - - * Olika niv=E5er motsvarar olika roller p=E5 webbplatsen. Webbplatsen - webbmaster och ansvbariga har en viss niv=E5, bes=F6kare och g=E4ster har - en annan niv=E5. - - * Alla datorsystem har administrat=F6rssystem f=F6r dem som sk=F6ter - systemet. Jag har valt att arrangera dessa funktioner i en skala. - Niv=E5n anger hur mycket av systemet du har r=E4tt att administrera. - - * Att ha ett niv=E5system f=F6r access g=F6r att man kan g=F6ra som p=E5 f= -ilm; - att l=E5ta de med h=F6gre access komma =E5t mer information. De med - riktigt h=F6g niv=E5 kan n=E5 topphemlig information. P=E5 denna webbpl= -ats - kan varje anv=E4ndae v=E4lja att h=E5lla vissa personliga uppgifter. Har - du h=F6g niv=E5 har du rollen som anv=E4ndaradministrat=F6r och har - tillg=E5ng till dessa uppgifter. Just nu =E4r vi tre personer med - denna niv=E5n. - - * Niv=E5systemet =E4r ett m=E5tt p=E5 p=E5litlighet. Vi ger dig h=F6gre n= -iv=E5 n=E4r - vi litar p=E5 att du inte kommer att f=F6rst=F6ra f=F6r oss. F=F6r ju h= -=F6gre - niv=E5, desto l=E4ttare kan du sabbotera inneh=E5llet. - - * P=E5 en h=F6gre niv=E5 beh=F6vs det inte bara att vi litar p=E5 att du v= -ill - v=E4l. Du m=E5ste =E4ven ha ett gott omd=F6me, teknisk f=F6rst=E5else, - intresse och logiskt t=E4nkande. Utan detta =E4r det l=E4tt h=E4nt att = -du - f=F6rst=F6r saker av misstag. - - * Vi vill uppmuntra medlemmarna att g=F6ra det som =E4r bra f=F6r - webbplatsen. Tilldelandet av h=F6gre niv=E5 ska uppmuntra till att - g=F6ra det som =E4r bra. - - * F=F6r att minska missbruk av e-postadresser visar vi e-postadresser - bara f=F6r de med lite h=F6gre niv=E5. P=E5 s=E5 vis vill vi undvika att - n=E5gon g=E5r med som medlem bara f=F6r att samla e-postadresser f=F6r a= -tt - sedan g=F6ra reklamutskick. - - * Idag n=E5r du olika niv=E5er p=E5 detta vis: - - 0. Kom in p=E5 webbplatsen som g=E4st - - 1. V=E4lj anv=E4ndarnamn och ange e-postadress - - 2. Logga in med det l=F6senord som skickats till dig - - 3. Skrivit en presentation - - 5. Presentationen har godk=E4nts - - 6. Du har svarat p=E5 ett f=E5tal fr=E5gor om dina intressen - - 7. Du har svarat p=E5 en massa fr=E5gor om intressen och beskrivit dem - detaljerat - - 10. N=E5gon v=E4ktare tycker du f=F6rtj=E4nar h=F6gre niv=E5 f=F6r att du= - =E4r s=E5 - trevlig och engagerad i webbplatsen. - - 11. Du har gjort ett antal kopplingar mellan =E4mnen och =F6verv=E4gande - delan av dem har godk=E4nts av en v=E4ktare, och du accepterar att - b=F6rja som l=E4rling i v=E4ktarakademin (jobbet som - systemadministrat=F6r) - - 12-39. D=E5 och d=E5 tittar jag p=E5 vad du gjort i form av skrivande av - texter och arbetande med uppslagsverkets =E4mnen, och justerar din - niv=E5 i f=F6rh=E5llande till m=E4ngd och kvalit=E9 p=E5 arbetet - - 40. Du har full=E4ndat ett helt =E4mnesomr=E5de. En m=E4ngd sammanl=E4nk= -ade - =E4mnen med bra textinneh=E5ll. - - 41. F=F6rtroende att arbeta med adminstration av medlemsregistret. - - 42. Delaktig i utvecklandet av webbplatsens prgrammering. - - - * Allts=E5. Automatik tar dig till niv=E5 7. - - * Men som sagt. Jag har en massa andra planer d=E4r mycket mer kopplas - till niv=E5er och d=E4r det finns systemautomatik f=F6r hela v=E4gen till - niv=E5 40. - - * 41 och 42 ligger utanf=F6r niv=E5systemet i =F6vrigt. Den som har de - niv=E5erna har inte n=F6dv=E4ndigtvis tagit sig till niv=E5 40 innan. De - motsvaras av anv=E4ndaradministrat=F6r och systemadministrat=F6r och - niv=E5n speglar maktbefogenheterna snarare =E4n vad man i =F6vrigt gjort - f=F6r webbplatsen. - - * Alla texter. Allt inneh=E5ll =E4r =F6ppet f=F6r alla. =C4ven f=F6r bes= -=F6kare som - inte loggar in. Du kan till och med g=E5 in p=E5 - administrationssidorna utan att logga in. Vi g=F6mmer inte inneh=E5ll. - Det vi g=F6r =E4r att hindra dig fr=E5n att =E4ndra inneh=E5llet. Vi d= -=F6ljer - dock en del information om andra medlemmar i syfte att f=E5 s=E5 m=E5nga - som m=F6jligt att sj=E4lv skriva in sig och skriva en presentation. - ---=20 -/ Jonas - http://jonas.example.com/myself/en/index.html - -_______________________________________________ -List mailing list -List@example.com -http://example.com/cgi-bin/mailman/listinfo/list - - ---=-=-= - - - --- -/ Jonas - http://jonas.example.com/myself/en/index.html - ---=-=-=-- - diff --git a/rt/t/data/emails/new-ticket-from-iso-8859-1 b/rt/t/data/emails/new-ticket-from-iso-8859-1 deleted file mode 100755 index 299392d..0000000 --- a/rt/t/data/emails/new-ticket-from-iso-8859-1 +++ /dev/null @@ -1,31 +0,0 @@ -Return-Path: <hw@nordkapp.net> -Delivered-To: j@pallas.eruditorum.org -Received: from sm1.nordkapp.net (sm1.nordkapp.net [62.70.54.150]) - by pallas.eruditorum.org (Postfix) with ESMTP id 48F4E11112 - for <jesse@bestpractical.com>; Mon, 2 Jun 2003 14:58:37 -0400 (EDT) -Received: (qmail 3612 invoked by uid 1009); 2 Jun 2003 18:58:36 -0000 -Received: from unknown (HELO office.nordkapp.net) (213.161.186.83) - by 0 with SMTP; 2 Jun 2003 18:58:36 -0000 -Message-Id: <5.2.1.1.0.20030602205708.0314c5f8@mail.nordkapp.net> -X-Sender: hw@nordkapp.net@mail.nordkapp.net -X-Mailer: QUALCOMM Windows Eudora Version 5.2.1 -Date: Mon, 02 Jun 2003 20:58:30 +0200 -To: Jesse Vincent <jesse@bestpractical.com> -From: Wilhelmsen Håvard <hw@nordkapp.net> -Subject: Re: rt-3.0.3pre1 -In-Reply-To: <20030602185607.GN10811@fsck.com> -References: <5.2.1.1.0.20030602204834.031406d8@mail.nordkapp.net> - <5.2.1.1.0.20030530194214.0371c988@mail.nordkapp.net> - <5.2.1.1.0.20030530194214.0371c988@mail.nordkapp.net> - <5.2.1.1.0.20030602204834.031406d8@mail.nordkapp.net> -Mime-Version: 1.0 -Content-Type: text/plain; charset="iso-8859-1"; format=flowed -Content-Transfer-Encoding: 8bit -X-Spam-Status: No, hits=-1.9 required=5.0 - tests=AWL,EMAIL_ATTRIBUTION,IN_REP_TO,QUOTED_EMAIL_TEXT, - REFERENCES,REPLY_WITH_QUOTES - autolearn=ham version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) - -Håvard diff --git a/rt/t/data/emails/new-ticket-from-iso-8859-1-full b/rt/t/data/emails/new-ticket-from-iso-8859-1-full deleted file mode 100755 index 493ca15..0000000 --- a/rt/t/data/emails/new-ticket-from-iso-8859-1-full +++ /dev/null @@ -1,38 +0,0 @@ -X-Mailer: QUALCOMM Windows Eudora Version 5.2.1 -To: Jesse Vincent <jesse@bestpractical.com> -From: Wilhelmsen Håvard <hw@nordkapp.net> -Subject: Re: rt-3.0.3pre1 -X-Spam-Status: No, hits=-1.9 required=5.0 - tests=AWL,EMAIL_ATTRIBUTION,IN_REP_TO,QUOTED_EMAIL_TEXT, - REFERENCES,REPLY_WITH_QUOTES - autolearn=ham version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) - -At 14:56 02.06.2003 -0400, you wrote: ->> This patch didn't help us out. ->> We still got problems with auto responding e-mails sent from the system ->> when a new ticket is created. ->> The same problem appears when one of the staff replays to an new ticket. ->> All Norwegian letters is converted to strange letters like ø ->> ->> We would love if this bug could be fixed. On our mail server we are ->running ->> perl 5.6.1 since we are using debian stabel packet lists. -> ->I'd love it too. I just can't find it. Can you send me ->(jesse@bestpractical.com) a couple of email messages containing ->characters that break your RT? - -Hello again, - -Thanks for your fast replay! - -I don't know how this looks at your end but it is letters like: ø æ Ã¥ -If your want to make this in html it will be ø å and &aerlig; - - --- -HÃ¥vard - - diff --git a/rt/t/data/emails/notes-uuencoded b/rt/t/data/emails/notes-uuencoded deleted file mode 100755 index f27fdf8..0000000 --- a/rt/t/data/emails/notes-uuencoded +++ /dev/null @@ -1,2368 +0,0 @@ -Return-Path: <mhenrion@example.com> -Delivered-To: j@pallas.eruditorum.org -Received: from serveurlotus.example.com (unknown [213.56.193.67]) - by pallas.eruditorum.org (Postfix) with SMTP id C21DB113AA - for <jesse@vendor.example.com>; Thu, 27 Nov 2003 10:55:58 -0500 (EST) -Received: by serveurlotus.example.com(Lotus SMTP MTA v4.6.1 (569.2 2-6-1998)) id C1256DEB.00578401 ; Thu, 27 Nov 2003 16:55:54 +0100 -X-Lotus-FromDomain: DOMAINEQZ -From: "Maxime HENRION" <mhenrion@example.com> -To: jesse@vendor.example.com -Cc: support@example.com -Message-ID: <C1256DEB.005717B5.00@serveurlotus.example.com> -Date: Thu, 27 Nov 2003 16:55:50 +0100 -Subject: Test e-mail which exhibits problems with RT -X-Spam-Status: No, hits=-2.6 required=7.0 - tests=BAYES_20 - version=2.55 -X-Spam-Level: -X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp) -Content-Length: 144905 - -I send you this mail from Lotus Notes to make sure it'll exhibit the -reported symptoms (lost attachment and body). I Cc: it to our RT address -to verify it does cause the reported problems. Could you please mail me -any replies to my personal e-mail, mux@example.org ? - -Thanks in advance, -Maxime - -(See attached file: Naz_Head.jpg) - -(UUEncoded file named: Naz_Head.jpg follows) -(Its format is: JPEG File Interchange ) - -begin 644 Naz_Head.jpg -M_]C_X``02D9)1@`!`@(```````#__@`>04-$(%-Y<W1E;7,@1&EG:71A;"!) -M;6%G:6YG`/_``!$(!(D#$P,!(@`"$0$#$0'_VP"$``0"`P,#`@0#`P,$!`0$ -M!@H&!@4%!@P("0<*#@P/#PX,#@T0$A<3$!$5$0T.%!L4%1<8&1H9#Q,<'AP9 -M'A<9&1@!!@8&"0<)$0D)$248%1@E)24E)24E)24E)24E)24E)24E)24E)24E -M)24E)24E)24E)24E)24E)24E)24E)24E)?_$`*(```$%`0$!`0`````````` -M``(``0,$!08'"`D0``$#`P,"!0($!`0$!0(""P$``A$#!"$2,4$%4083(F%Q -M@9$',J&Q%"-"P5+1X?`5,V+Q"!8D-%,7<H(U0QACDI.B)29&5%8!`0$!`0$! -M`0`````````````!`@,$!081`0$``@(#``$%`0$!`0$````!`A$A,0,205$$ -M$R(R87$%%5*!_]H`#`,!``(1`Q$`/P#Y`NZSM9#1`&(!5%[G\U"!WW5B](U: -M0(GDE5'DR3$]R3,K53ZB?5?D$I,JNC=`\EN#.=PHMVZH^%$6?,)R3(`R90/K -M:AB0!LHFG"&6Q`,?*(E\^"`"3.=TC6=J`)([!0M#=1U'X3.TZ9D[X**G=6=( -MR82\]X,ZC`&"H0X"9<3W2:(&GOWF4+VLMN7D2T[[AR*E5<YPU?>56:T,@P<X -M3^D#'*J+3:SC(<8[92\XB/5]U7VV$E/Z=(!.459_B7`0'&2F%<EX)D]R%7!) -M:$B1.<S^B(G-PYFQQ/*7G$P9/M!5>9,:ML)Y$]AW03FLXR78A.VY=&=IV58& -M2!^X1-BFWO)S""S_`!#M,.,'VV2;<.(C48"JR'#&!V*>!LUV_OLBK)KO@C5) -M_9)M=V0(GNJSAL9"7!!E066UR&X)^BD%P06DOR%2&00WG=$WYSQ[JHL&Y&>9 -MQV3ON7.;ZG:@.).%59,Y.#[)H&F7.`/QNBK;:Y#?S$XP"4(N'[:S[Y46H-8< -M2#C.4``SZA!V")I9?5=AVO[<IA7=J)C$[DJN""8!VY"3C$;@(6+?\4_83O@) -MZ=U4;@$YQNJ0<>')L[3G?=15_P#BG`0"[/=(W;N3NJ@/J]>8PG=M(<!P%46Q -M<5)C5!&Z%UR0^=6_,JJZ220[',XE!J(VD@HJZZZ<3J+H)X*=]T]K1ZLGW5*G -M+G3N$[-()F/_`,1E0TN-N7@RUY)[R<)V7=1V=1^ZH@.,F<CA$V/+F8CLJBW6 -MO'^8/4[[HA=U,^L@K/?#GB-N4Y)Y)CW15RI>5'#_`)CL>Z`7CY]1=`[$Y50& -M1,Y]BF&^G!]I07_XRII!#JD3]E(RO<NI.KM-30T@.=P"LV`T[C]D0<?+(DD$ -MR0D5<;?59(+S)P9)2_CJN_F.)VR51=+7@S'QA($N$#9$:-.^JR/63]5(R]K. -MP*CM1]UF'7L,=H1M=+IY0:#[ZL'R'N$#9/\`\0N`3-1Q!.8*HD..1N@]0)@@ -MQ[HK39U"J2!YA`/*3>HU9_/O]5G,+F"9@>Z?5D3Q[HC2'4*PF'9=]T_\?6!' -M\QQ^2LZG,[R-U(3Z):<<"9A*+K.I7(<2*KA]4XZI<:R[S78YE9H))$NB?=+4 -M(C.^4&O2ZM<:Y-=^F<PXJ9W6[ME1_E5ZA!V]1P%A%T-/'NI*+M(U3J/LLU8V -M[?KM\#_[NK,?XBI7>(+\`#^+JQ[/*P/,<'SI`]E/1D[@'.`D*V[GKMZUP>;N -MOW`#RJEQXCZB^KJ_BJ_P*CEG]1JD5PW5D?HJC2`V8,]P>$A.&PSKO41Z'7E; -M/_649\0]18YO_K:I@Y]9@K%:\DDM/P.4#G._J)39IT%3Q#U(48;>U9]GE*WZ -M_P!3:=;KVMCC65@L,M],_=3C\I9@^_*IIT-GX@ZL]P<;ZK#3)EY5YWB;J9`_ -M]75`]G9*YJB-%&!@G<=T?F!K`T3'LL4=(/$_5-`TWE4#_P"Y,?%750__`-[5 -MS[KG?,U-`)..W*$N$F=QW4TKH?\`S5U?7)O:@^J3O%/5&`3>5<_]2YQS_3,D -M90OJ%L9S[*CI'>*^JA\_QE4>VN?[)4?%76`''^/KCC\Q7-.?WG[PHR\9[\!" -M.I/C+K8R.I7(CL\J1OC?K[!J'5KH>WF$+DC5TM&#J_="YY=].$Z'8?\`G_Q( -MTS_QJ\$\"L[_`#1?_4;Q8T"/$-^('_SN_P`UQ.O/`(3O?Z<\JZAR[=WXG>+V -MMQXBZB)Y-R__`#3?_4[QHV2/$W4\<?Q3_P#-<,YTD-[(7N!.70!NAR[S_P"J -M'C(;>)NJ0.]W4_S3?_5'QII.KQ/U0@;?^I?M]UPDN()DCLE2J/%6>?8Y5X-U -MWP_$[QDTZO\`S+U0#L;A_P#FA/XI>-1__D_5!`__`-A_^:XBK4+A#=]LJ'62 -MT@@2H;KO:?XK^.`#'BCJ7_\`'=_FI&?B]XY;G_S1U$]OY[O\UYWYA+")*;6- -MNRJ/26_C)X]8UI_\T]1@XCSBI/\`ZT_B$W;Q5?D]O-*\R#P`#O&R$UC,SDH/ -M4*?XX?B,R)\6]1$?_M4=3\<OQ&F6^+>HB?\`]IM^B\LU.W(D$*.M7\L$-DGW -M31MZF_\`';\2*6H'Q3U!Q(P?.V_15S^./XE:-;O%O42WDFIM^B\K#_3).0>4 -M1>-,R,YB86M0Y>HL_'+\2"X$>*NH?_Q/]%+1_'7\1FNSXHO2>_F+RG5#,F/8 -M=U(S+@Z23\)J'+VNT_\`$'^)M.W:QOBJ[@=WJ3_]8;\3_P#_`*NZ_P#WUX]0 -M/\IOJ`13_P!8_P!_1.#E)>;X.DJE4`G4&CW]U>O/2YTY/95"VD\@O(8(_-NE -M-(*I$\#ZJ.((DP#MRC?I!,.#@3P@<YLQ@D*)T!Y=!!'V3,!(!DR-NZ/!DDS_ -M`)H=3FOU#\Q$3*`2[U;F3^J9FG5DG!VA%J&"\3VA,PC.H3]4#")SCZ[IPZ6Y -M.?;*9Q$P1">`3L`F@0!<W48QB)RDW\W8=DM)B0,C=(G'Y3OG*H)A]7YC]TGO -M`;J&VTI8`@$@QRF`F)A`6HZ<&,(`XM$-),HM.TR`DTC)_9`@]H'?NB(U9)D* -M)Q`R/L"G:]K3D$_*"3`)DS'(_P`X2>0`")).=10F`,SG9*`Y^DS'9#0VZM.' -M@0=NZ51S@XYR=PG9IF'?1!4<)QF4!`X&<E.9%3F2.Z$Z-(:!$Y30-4SL@D`] -M<ETSPD2`X%Q$#W3.>TTQ@",3R5'[%V$1,Y\B8S&Q0:S^;4")R9@(2^`<P>T[ -M)`@^IH&GL%%2-?@B8^J;60">3]T+=C.J1O@_ND<_U8'(RJ<E))W`GE,?=Q,< -M%+TDD@R?E-$C#A[A0$`79&/JF!<U^X^B'!YRDUOJ(*HF#AY@Q&$6KDNB%"0" -M9!2<8.3)Y4$CW2\MF#^Z8.(;!&KZIG-P-L#A"V6F=8!/""0%I.0/<(75#/:= -M@$.F:>8`/)3#3OJ'T*(D:[&8B=Y4C7$"&M,J)L1Q'>$3@1L8'L@8F3@1]4+G -M&(VX2(#3^:>\%`?54P9'SNJHZ;B.^4]0D@X!(0@..QCZIR`V"7-.)0)CR6P1 -MDHFZ@-_B<H`WU1IGV3L#L0!`X)*:41=.<GX1,?\`TYA``=<C`&0EI/,90&PN -M+IQMR437D#8PHVM)B'>VZ.>9&?T32';4C&4FN.24S!G,B.4@"7P-D4;CZ02G -MUQM@'E,`7,D-F-TP:03#B)XW03TW0`3/=.ZHT[20HJ0(=JP<83U=1'Y??=$I -M.>20)B/JF<\D^W<!#)DQB>$)+@3@D=@@.1J(C\RGI.TTAL`%!;@U'@&8)4U< -M#40..%*LA!WKD@?,JQ3<*;=6J?959U`<%*HXBG,R=MU`JM05+G42#[QLF>8: -M0V"1O)W4;):`V3G>$4@$&()W0/YA+H&$S"=Q$'E,X34D!.&MF<>_NBIZ.G5. -M1C=6*32XZSMP56:Z#I#1/=6ZKAY8:!$;PI:1(7B!)SV0O<T[&(0BF-&<#W05 -M7:G%L8&%!,UPC`$_*?7)))4+&NF9P-@0G/R,]D!$M)DGX"3G%P`W^NZ!A;OB -M1[R@JU"1F(;VP4!ET'TD3[("8?&,^R`O!&,&=@A($`P2.TJFAQZAK/V0U()] -M),\A(QITP/C>$+R(+B![(IY&DQN$!U$=OE*99G;V0ZVDSVXE7:0I$@DY12W5 -MF0.P47ID%(N@03]R@.1DL'ZH<X)#L\RF$;:O]$Y8WR]0J-+I_+&?^R&A.=`G -M'T0!\2[)*%P,1D`<(7N`@$_JB40>#_DD#^G"C!R=_NE()$'?!0$X%Q$?NF(& -MY!&.Z;;4`24#RYH!!)]T#U7A@,\JNZ-6?ND\EYDN$]T]-[\MUX[0M!/;+?E, -MUDQ/WW2=4TGL3V*!SAQQS*(D:WD$P?T4M+8@29W]E!J],CE'J&H`.XR$&G0< -M!1:(&R/6WL%#1TFDTEW'9%#/\?Z)N+I/<F"1,=]7^JI5G`N(';`[*[?$.<7[ -MS]BJ=8@'&$J('2&YF3QV0`-+`XD3VY1<D$@'=`T>L@B%`B9(SQF$/&TIHT[B -M2F;!.3'L4#N:&P[?Y*:1!WD=T\S(.3\RA,:2Z.?T3:GD%I&Y&/A*8&9CLA(S -M$B/S8PG<V88QIQGOE$T-CV#9SB>Q&R<Z09CW(40V@#9$=IP/>%0;B#F#CW14 -MXU>QX4?]1X*3,$X(]U!,_2'0XS"%S@'20(CLAJF'#E)I!!:2J$XMS(]L(26P -M)S[(W._EENH@3J4+FR2/902.TZCP(V[HH!!C(*A;#@)V[<J6F<R3J&,3NA3@ -MXW*8",@'(15&AQD8C.\H>8@M^"J#<1&QE-SL0.Y2(SOLE'IF<($XB<F/="8+ -M(<<3$I/TD@`SVE!I].))"@-S@1(=@I"=)SNA((80#*(/$`M:!`SE%%,`#7&$ -MCN"YT_51DNB`Z0#CA.0X_5(AQ&`23[E/L1W/"C@.).T9*3S+@1/9/\.AM!.2 -M0">$3P0[)"%VD9!D#<I./I[IL2'5$`R$!&&SQA"UQTF73/'"?.($%#8Y&3// -MV35`XOU&)2):`?3!'U0O,M$B`>^Q02!D;F2>P0&(,[I,:XB-4B,Q"1#@=49" -M`J9!R^3&R=Q;J$(0(GD(*A<(='U2"1V&;#_-`R(D;%,\DL$B>Z$;X!55)G48 -M1-'IS&VZ'48&#GE,<C<0@(`:\`QVDI`;[<]TP=B00G:7"<;\A`;M1:2,8R<I -M-&0)@H0XZ(<-(B>4[2[5`(GL902`.:#ID(2,Y$D]D33Z().$(F,'ZH#:"6GU -MB9_*F$SO]$F-)V,%(.Y`D(:'4P0`?LD`[2)D`]]B@#LX:1*<O<&ZH4$C9&YP -M-LIW.#6R'&>Y0D02-.>ZE<\NHM`:)'/*HBDQ.=MYW2C,D[(2XN;))"32XM(! -M@'906+-LEU4DXF(2TD$$.)3AX91:WDY0DM#?RQQNI5A]!+@3/PA<=\@HGNCT -M_?/"AJG$#8^V$"UD8!4E,P9;G':5$"`?5()X4[6.@.VCLJ@2UT`B?E.3#`9$ -M\93:H/I/SA.P-J$``R#NH+%KAVLOD=H4I<9@SW[*(0T>EV/8)5'$N&9![K-Y -M5+J<68(R-TTB=0P4!<-`@(`YVH24$],SF?A"]P#MQG&4&J'">$+W>H09SA%% -MEI(D"=RA+9;D_;!3.+B\DCG9,]X(,.T@;?'R@6Y,]L94L4_X4N=Z7R(`V4.M -MPR2W*=S@:@&P(VE5."?KTR1!)F4#LB"-LRBG<B2[L@>YH`$85"!G@'ZIG0<D -M093'&<#@"4%0AI@D`<`=T#D1F0/N4P!!@#?>>$S8D3*L=2_@!58+)U4MTC6: -MD3JYVX00'T[YS\I4W`\H9#G"8^`D\M#AZ9^40Y<7'@?.4#@)!R24Q,]FI$ZG -M$_W5#XW$S'=,UHF(W0DB#DY3R0V29(W0"78)*KU':R`9]D]=^O\`*%&60\1P -M@,#5`VGNG`:T.,9!30`!#N,I0!N(`5*.B*/G!U5ITC)&<_91N+<D-)[0FJ/D -M:08`[H]#O+%0QI)@9S]MU`#1+A,Q^RE9'FD$'M'91@MU&-^ZD9N-.,;JHNTM -M(I@02B]/8H:=1K6``''LB\T=C]D.%FX.EKA@B,$JE<`AT3SPKEXZ"1&?M]53 -M>!J(G`*54-6=H"B/I?MDA2U3DG&.%&]Y=!+H(/W4`N_/@&$B6R'#=)[AJ(P( -M0-$/@"9303HF0TR/T2:06!I)E*3!$8E-K=K!``;QE`0#9`P8]L(&_(CV*<&0 -M<C.X"9Y]7QB0B">.9.4[OR['L"A<1$`A&_\`(.!.854F-(:?4?A$6AKX[;Y3 -M4G.#,[=RE.!(CNB'=&X.R8F``,)2X',0)"B)).T245(..>=L)B<D`#M`3:M( -M!=,@)Z1!?F<'_50)K1)!Q(V[J0#3B#F,(6.;KV(Y,%)S@0UHQP54['4<?B,H -M69)!/M/=)I(AS@8VRAD:P!CNH)<O/ID$<)F$APR?A-JAL2?NE,9P(RJ&=.H\ -M&=I1-$`N<2)4=1\F03_F4=,X$$E`SP-1$D0A$C&(/.RE(:7.<-_?A1D&8&_O -MRHIWDZ2-1&GE)C@TN!.3^B3=&D-(`_NA,-<X!V"(E$(;S(SV1/:]CAK:1(D> -MXX0'<B$;WZC@N(C??"*6'")R3_LIVN`S(,(&N$#VY2$G(;DX0IR3[2.R<.DF -M!!_=(D!@')R?=-/IDD2>R!SAP),>R1Y(SV]D+V_S2V))YE,T:F@`X"J)&2UI -M'._*1Q$&/<!,(C_JVV28(:<0.5%Z%J)!)W`R5&).!&F4;@9,Y![<*,#!,[[! -M!)IFG)?Z@8CV0Y`T@C2A@3NG;Z3\<DJB2GOO\Y0S(`(!)[*2E2<^D][`3HR2 -MA>7:9,`;0H&WR`(.(1;;D",8*:)Q)D;F4B#.'8!GL@?+7$'OPDV"_.3.Z6"1 -MM]1E.ULSD2,90$TES#\@83M&3&W=,USA$R0=RG`T@.!WVA%Z$UQ+CB!Q[I.( -M.`([^R<.EFW/*`DEYDX(@RB:%.8,&/V1MD8R<*,B'`[QPIV#^43D#]D`Y#H. -MK`Y"*J#$F028DY4?YJN,`=N457!<=I&<H:,]V)X`WA'3#L'^F=OA0@2=AE3! -MIY=$F-DIH3CJ?K(V/")H$>K/919@P1DJ5^EEO`(G(W]EEI%5(+ISE!4=D<$' -MO"6OU1Q*:)=G!Y5036G7)VVE76.<+5S1I')=L2J;"00`.5,S\D@C2$^!JAQL -M('LCH,<&E\@$YCZ(6-UNB7$!2@[-&`-]U*';.2#`CLE3'I$@'O/"8P!G'=%2 -M=J>9^<J*>L#$#$8P@:3DD@J5X<##?Z9)([J(?F_+)B<H'#@203@9P@GU';/9 -M,V&R0,)V9SC&4(=X<'#,R.%&3#0XC$P$3\N(`V^B&GM@XVGO^BL!C!`&GLG) -M:W!@Q&>9E`#IG<`\2FEN=L?JB%4($Y"!Q#8&1[]TG26`Z<`;=DG0&C[HH0,R -M<?)Y35&D.(Q!V]T\C5($@#(*C>('(.\*H?`@'O.-T+RUOIW,Y@J:XHU:5.G4 -MJTRT5&ZV3R-I^X4+H+B<Y']T`O(;Z1N.1A*GIDNP2>XE.3J('`Y"6&M^NZ:- -M!)RYV0"G!``&DB1DH8&7'`,C"8N],ZAP)0._2XB`94%5\NTCGE27)?2+6N8X -M:A(GLJ\`F)S^ZH8P!`R-Y3G\V)D#^Z0(&,F#O[)IY)A$&T@&08QRF=!:,$3& -MR<^H0TD$_JHWY]!W^J!W-);!&#NG.EI!U9!VRD0)`G/"%P;$@2(0&!%0.F09 -MG*.F`#^:3O""FT$`D[X^5)1G4!@GL54K1HU8I-!F81><.Q48H]W9&,92\D?X -MBJ<+=T&!T-,R,:>%1J!DDQ,=RKEW`<?OO$*C5/IDG._RIEVJ-_J&IW(A0OES -MRXF(X4E0Z7&"@<1,[\DJ`'`E_ORFP=C]?9$1#@9R.Z%_]1`D%$,?R:@WV^4P -M'IP<<RG@@>Y,X1/]1)!`&T(H6Q'..QW0^^Q]D1/],`X2!<<GY0(F""9]I*=W -MJW,H`)P08'MF%)HSF2$03&`M(DP,D),+@(!GA"X:6D#/PF&XP280V1:><_\` -M9,2Z?RC!X1%IRX?=,-R<G&44B#JU`$=\[)Z8]1,!/MC2<^^$FGUS*H36#5J@ -M>PF$\>HC()V2<'!V/ZNZ%WYL#G[J=D$W#=S')'9"-B=C*+,3JG[X2:#C(SW5 -M#M(U>TIB8P"!GE-F<F2.0A(P29RH@HVC?=&PZ03`)G[(2&R`"B$!XAV$#G)S -MB.4+XU;P-]^4[MB0[9`XXU`^Q"*%QB"79C&4AAV^1^R0,#3L92<3&=T"!VEQ -MR8PF$AH+73*0D`XG.4M0:X#2-X0/.CC"(.]6/R]X3"`<[I-;#8G<3]43_"=, -MZAE/,M(C?NDQTMT_E'9(X;D@$HH1(/.T;)VQF<&<E-!UY)`^-U(R0)B1R)R4 -M-&:/3O,>V4[`6QB3[!%I=H+P"&SM*6HZ1'',($\PR(.3@A0P9)VCA&XNG)R< -MPF,$02,?HB$&XD_7NF@',9[)2=CE%`'LBI#5J&6ZX`&PV48>-7JV`_5/HV@? -M/ND02Z7?TG[H&@#W._PB@Z@):1'=.)>_)@\^Z%Q/YG8(Y0%@$@N`G$#NDTRU -MT<\IAB3.3G>4[7"#N0).$47]43.)_1$PB(C$J,8#8@2C9,SM_9-(-@]$`X.4 -M),C`(#433@M]S*&)=&<]D!TA)S^O)4U9H;;AHDSV4%(@`;F.%+6=Z`>$#,$. -MW]H*8DDDG;M"'S#C2,#L93R3D"2@(0'#5$B813J<6R/="P'RR22!P$S8:^)U -M3N2I5D2'3,1B=E$^"[_5&YP:6@A19F7#"FE$`8`'.91%IJX$B!RGI_FG)C,! -M$[\LP?8@JHC@M#OS23W1EQ\L#&IW9"XR?=3T*;=1>/\`,(:%0:6CDR)_LG<0 -MVI^:.=U-TW^&_C!_$BJ]G^&F!)/`SQ*&]=JJ%PHLI@>G0&Q`[+*HR<S!Q$1V -M2I8,S!WRD_@^W9,Z)W.!R$$SJKV,<`2)PHF:@09&QY1-_*)SPA(&Y,$X0`:A -MG&V^439))!B-ONF>-1R?9*EI%3+CGA`FEQ<XR/\`[=Y]U')!(P8'U1@M!_*/ -M24-2=0(CZ*APXQ$^\\(9D%HYQ*1<X52[4<\SND\Z3D$1[H'JDBCD`9W49>-, -MF)V^4]1PT;DD\("XZC'`50@_U#A!)@S.=H.R-[A$0@#@3+>4@=[M3`"3+1&3 -MPA.6:8R,9.Z6`-1.)0D#\VK3\;H?].02[!$D)G3IG4)/[IO=HE(@@29^B:*1 -M/H+7`P=@HW5"`/T`3$Z0=1.=@%%4(+OR[[JAWU'P-1,1@=DP=#L"1L"F`]$$ -M92S)'M`0$[!!!(GE".2?L4A&LD"('=,X1!D%"<B#@(XCW2U9.-\D#,I!HX;` -M3%IF,=Q[JAG'U`P=7NBU!QC?]4="B^L:@:6-T@N.IP'[\J(D8;R#DSNHFA`, -MU!L'&P[%2TY:X\Z3E0@@.#IF.94K&D.#OJ51>HU7-I-;)V1^>[N5'2CRQZ47 -MI_PE39__`%9N'D/=#RP$&8Y"H5B7`Q!`5V]U$G<-E4:N9_:%:(B!I^,B5&X0 -M,G<X")Q,EHP.T*-Y.N3E3M">TF`/U2]$&"9A._5IR1"C.-B?A!:Z76MZ-;76 -MIZQ!@1.?<**Y(\USF&&N<2`,0%'J=J&`.9*62XD.^J!9($../E)PSD'YE,XD -MNDRB+6Z))`)X'"!-B(+A(3THR2<`Y4;?2Z"W[HV^Q@^Z"S>OH5?+\FB:4,AV -M9U'NH-!D$`CW]DAD`';W2DB1/"!'TGA(3J&4P^#M".1Y8](!)C5R@'5#N8([ -MRF$1W[A,^-A)A)L[`9/97L'3`,^J/9.08^>4(])@G$Y"<OQ''N5`4PTQ!^4$ -MD&=7"1<`-MT,Y)_=`33(R[9,'D$]BF<1H&($YRA82XG`[!!('29&%/\`RBQI -M8\E_(55N'0I&D<2(SW0'4\P[Q'NA=ZFSR/U3%W])P=\H*C@#(&>Z*<D[G<]^ -M4GET9,'ND'-)!,@'E+C!D($W\@@DGNG]4G'/*;:8&.Y0.X02$EK<<)-/IF<C -M"%I(<8)!/"(9B.40]$_TPG^1,80L=)V2<1,D2500D$@P!RC`_E[0%&'%QDHV -MN.?[*`M;M&((_9`7&#Z?NC:^&;Y/":H6^6#MG:=D`L).YB?>$U,AI)+)]I0N -M($[3[IV#4'`D-Q(0,-\B/E.2-0Y[H6D'?CB40(B/LB[."7&(`^2CDSG([(#& -M'$Q"9CFAWM^J"0D"=+O_`,(2:0?S8'<(7?D(9/=.TC>4!'_F?&P3M<"P`M)^ -M2A:2?Z))^J<'.PCF4!O@Q`C&TIP&C+2<H:L0#&^$I`P=O9`9?-4FJ3`Q(3L( -M$P#"C`WU$8[J0;XS/!0('21&_=&'M,G`GOR@I-+\0,]\(@2<@"0@8M:9,D@" -M)".A3>\:PUQCF$``@G`)[C"ELW%E20.,%`U>)(,[<)FZ/,!R8X2;-2H07'/) -M35&C9@R-R"LJ:Z?JJ2TQ.P*9CR6^H;8A`6%P&H93M(@B2/A4&7NSI,81:VBD -MT'NA$@#!":,:AN@DID/J1$QMA7':12TM>2!C3W5>T8&F7#<9A2G2'&-H6:HF -M$MRTQIY&(2<YIV,F<GNAV;VG8%,[4!L0$"+V!N9DA/3=@'5*9^EK1DAW/`0T -M8TDR@DU`8!W0X)TR@^1CY10!ZCD%`TF"3$;(>Y(&??=/Z=XD#W3TV4RQQ=4T -MXD")DJ@=,TX'U!&4G%L@D$GB.4G$EH``B(D(20!I`@2@<N;!&P[90MR<'ZG= -M"Z)`F)Y2>R'8F3]95#U`"TZG#V0,PZ8$?*0_*3J.-P4.H3D0!PF@3F1(D%!` -M#?2_=$]K1SO[H"V`3[\(AA^724AEN(":)$G.>4Q`!+I]D(9X$21N8^5(:C?X -M=M(TV`M.K5SMRH@T22YQ([RHZKPY\3LJ<&J$D[8&<8E1P-8WA&]L1O\`"$M$ -MG]B@*#I/;N$AW.2D[)B?\DQ:6MW0)L3!E+2`X<#;*;=VK:$>F6R3\(A%I`R) -M!0./H)X]RG.N8:Z!V"`G_J'Q*+L[20"6N`'*4-+IG;@SE+3ODD']$T@;$_=$ -M2!KB3!)PBI2'1D3P2@IO(;@[CDJ1FJ<F>RHO4R`P`MV]T6IO^']4%/5H$3]D -M_J[G[(BS?.:1O/Q_=4*S@XR($*W7+M6,?14;C\Y&DGY5JHWU&%NJ(^%$7-#I -MR0.$YVWPAR';@1P0L[#.=,D$IAM,I.P/5L4FB1#<HA\%LM.1WY2IN#!,"8Y` -M,(>^2(14?+TDO#@Z,0-S[H!D$B3]CA/Z9P))XF4C`.WW3"`[9OP-T!:O5I.( -M1#,9Y0-`@D'(XSE/I$3O&=T$D9R0,IJD<#`[(7B!`B$=(,\LN/YAPJ'I!U2J -M*8DEV!">H?5$Q'=0OB=C\IV%LB0?NH%J&`,?7=$7-F2?JHW?G@`QS"?1J@9D -MJB1L.$EWZ%,XAQP)]X0-P-!DQ[E(@3B4#D09!QP$[BTO_P`/LHR`'01(&Y[) -M`-@@GX"@,1M(*>`!.('9,`(B-]H2>WU3)^$BCH,+@ZH&ZVL$NCA"!)W.=D`D -M'00[W1:?^HY]T00T[$B?E+3F9$]D).ET.]/8IC_TNYG=4.W!CT@C8%%B9G[% -M`X-<R6N.N=CLG#@&`-&D]QRBE`'YMW?JFP!,@_5`!)U%TPGR9$X*"0P693-@ -M?Z(!,Q)E2TFZJ;R)EL&%-!\0`#)[)$2-OL@,GU`PDP&),`GGLB)6Z2,3CE)C -M!/K='O,J*($@X.^5(&.))B1SA-B2"!I$Y358!R(E#)`.R%[P70W[=D4G#TG& -M90AI&3F4G>QWW":(W(*(-K!L-SW3U"<9P$-*9!=.$_J@DG!]]U03HTB1*%D! -MV3RA;/<3\IVM($3R@-S9'SC*?3&<GV0L<>2=T\S)XVC=`8$"03GW1`B3.2>5 -M%Z_\7UE$9`$\\I%&X"(+H[(@V!+=O9!,M&04B3.`?NH#C5MN4[!G<?"$O=$# -MA%ZM.K<JFSN:22<>T)P(;.#W]D`+RB),[[Y]BH!((!$<;RI`T#^J9$!"T@5` -M73],HF/=,Y!^5*IV"&^P1.!@:1]45NUU6HUC07%YC9=5XA\,ML^@T+NWU.>/ -M^;G8(;<B\1ZHDE`]K33&"'3O*L7`)I``[;X4,$#)P@4X$[IZ;7.J0`F)$!HG -MZE3V[?+]7/)02.>Z-,$1V3=I](*4R[5!^H2?CC(S,+*E$.YQ\IW`SB<[RDZH -M=S$H"\:).)[H",QB8W[)I+1)Y[(=8/!TQPG-22TP2`J%F#W"9@)9'*1=+>\E -M(&,\(!J-,B3CVV3M\H:PXEQ/Y<PA+FEI$X/ZI:R0#P/9`M3G-+-6V8"$F3I) -M4C'28'I("C>\-&"#)[H`@DZM0'UW4FC^5)W/*`N;,@Q.QA25GD4FM+@0-E1$ -MT%(^HYA,YS8$G[%#4>W5G,>Z`J0+WP2T?*!P+1GGA"7Q//NB#M3I=$#N@%TD -MQ!RG:USCI`)+N(3!X)[?&ZBJU@`()U`]U4*N2'Z9/V43_>$^H&3,<E,2#@DY -M0.<F(,IR0&['*#4.47HF0!'MRJA-<2(X*1,E,7``CGLEJR<J!Y($<(0X@1Q\ -MI@8D).TM;W11&/H4],M#7`_1`(<S!QV2;!WF408(SC(0F1.(GE*!,ZM^$8-$ -M4OR&9R^2@%D-/$?*FI.=,PK_`(;O^GV;WU+KIS;MQ$4W>8YI8?V(^BJA[#<$ -MAH:'&8_LJBRS\H_-]"G^CONI*8.@:=D\.[JFCU]&K))!6=<?.RM7;W!SLM!& -M?=4:CP!)Q&.RS5#4<<`"04#G21.4GO<&P,#V35`=>D#;.>R(:);)D92TYAQ( -MA!K]&DXGE.^IZ]1.Z!R!,.)PF<9,R!\IB[N)^J)Q@B0W81D($^7.DD.)RF;^ -M:)@\04P))P!/$[):])!/?=%'`WGZ)W21Q'8*.G.HD;GNB:^#B`"$B#@D`0/E -M)K3&'8Y0M?`!$%*F_.VRI$KJ!IL8\/:0\2,R1F,J-ATY_1,2.3GY3/?+G.TY -M*BG`DSRI,MIZ=,3O[J/5&",I.>"W5'^B"322V<9V*'!=`R1^J8&<B&CV2+A# -M06&>2/ZD0[V@B&#$X3P]N)`U;CN@U0Z2)^4J;QKEPD?/*`J8$8W3G.^.R&1C -MD#9,7("JZ]6EV^V4I]6T=RH^W/'RGUB`!L<(I'7$YSRG+8XF,X*'40P`#,I% -M[33].LCW0&?R`G?A.]L8&2>R%C@21$QV3Z@1IB/D[(&>),SO[I>Q$)B]H<1. -MV)28<@%THAR8;M\J2A7?1:XL.7")W46IH:0D'M+<`Y0&T^H%PD'=&`"2"0!\ -MH&N!SF2,E.UX+>/HBBI-8714<=/[(]88``R)P8*B#MO5]$S'%I)X/?\`[()G -M?E(#<_J@(AA`S[HO^:XBF)`R8[=U%JP1(A`[LNVVX3M:#]DVK.0!'*9KP'D[ -M(@H),`E.[:(@[Y3,(U9C&-)2>9S@1P4X4F3I):)C,)__`,4)VN&DQPA9$:9B -M>$T'`R2'8^$;&SZ9^J'>=(,?ME%OVA`U,,#<C?ORIJ=,:H,=P%'`<^1D=R-E -M*P@-G>4`09+@G>`3@$?(1@M!)(WY"3CB8&>4#.C@P1S")T!QS(3-=C2(SR43 -ML.:"=N`B!,1)<E'JD1!/T1:(/K*38+ITF!^B+#,<!M@\93LT3)=D;!$Q[F&6 -MN(/',J%I&F!N?E1IJ^%7@=<H/<]K!3>"3JA>B^);RA4Z'>U650PD"F`>?9>5 -M,:0[21!"MUJ]>G;MM:CB&-,D'!!*K-G*.H3Y<;25!+M1G96*CFU&@-!$;F=U -M#6;MF)X470:;"]_J,0%9!ETM<"/=10&MW$A'Z2"1.,PI06HM9I+M^YPDYVI" -M-(W)SPDV)&!CLHIH<3))_P`DY=-/1((!^J9^_?5]4[9PUS`9._=4`TP,#;A* -M1K./H$;O*#X9VV/=`"0\@8/)0(@@0D-3H!2V.9(F/A!L3R$!8+#$2-\;H9(S -MJR.`E`TQ.^Z1;Z?3QA`F/(!=@\Y3$MEWOLF([;'VW0D@$1N3,!4.T@C+FYX3 -MO=#(:Z1V0.$,G8<ISH`B2>WL$`Y_J'RFT@&>QV2<3'YLM3``3!^$#$$3$)BZ -M&C$\)-$P(.4#W9[J@G8+CO/"K/WVS\J0R#O]"FT:<@C=$!$X''*3\")`"+2! -M_6)[[(3ZAGO"!,@1Z8)[A(F#@#(^4Y$@-#I*1WF2/:4`N/K&!/LGT`.$I.)! -M`;N>$Y;@B9A$[",_W3$>D0#*(&"?9,V3OP@30`22#^R0`DX3_P!)DI$``.(P -M?;*='!I^<^Z><P)^I3:8.K_91.R9:,#.4":[,B1*GHRYP)!+?E!1`#@:@+AR -M&F%+0:21)`GVV6D:%N'&BTAKG#O*/2__`.-WW3TZ)+!,CZE/Y/N?N5>$X5+W -M0U\`&!LXB/T5&IVP<[;<J]>Z=;HG'?95:H<6N&J`-_4LU5>J6R=(`GA`UPU3 -MSP0C<,'T_=!I,@$1/"BE-,$:@2W8B>4PC2X:=_N$B#IEP&<PA:(+N/E1"=#6 -M:MP.$HT[Y]T0$&/NF;)!Q'P531_26@#9-@.U$Q[!.#)R,PA=F,GMOM_N4#\2 -M`#/"+2W48!RDUN9F<[SNG9^4`JA3+6M+6C3LAV<=Q"*H/5#<M]\(1EIWX4!& -M)&F(.Z9X:#N93@&,!$]K#&)PAI&V0?T@IS);,SRAW=O`E'`#9VT^Z!-C2,`# -MW0L#6N]61S[HR"!O^9"\^H``GZH$/RR8R=DOVC"+27F2Z"A].@"<E`XV`!W[ -MI$RR!$!/R0"/=,\0W,YY0`"9'Z)G#(AWM\IR,.)&>/9(#U`SL4#M#G"29(]\ -MH2(@29/8HV-BGJ.T[IG#TG=`-,0W&?:43@Z"1J,')3.PPC^KY39`]C@^Z!P6 -MP<;^Z;MW[IS,$AWU*0F2<!`V8G`A.W$D1E.(CY2<X&)@1&R!Q,D.(QE.);C8 -M'!GA"UL9))X1G\QB806ZUG:MZ+1O67M-]>H]S7VP:060<'WD*FP;C'R1*.LW -M)#H!&9!0-(:XG3(CN@)T$0/J!RBTC6886G_#RHX!_-()W2)@S/\`F$!O>3F( -MDS`$(#(/'RG:9.2?<)%OTR@1W_1$"X/:0)0T\D_NB+=9@`YW0+(G5B0G/YRX -M#XW3D:J<$NG?;W2U$$S!&^/KR@31+-0(D',82$:-I,X"=K26''Z[IP(=!=C; -M<_Y(IQ/L9C*)C9:!)SPE,8TS/;9/2:X#L9F5=(3@X``#'"-S8.7<*32UU*)R -M.R'2';MF,RHIG4R,$1&^=D_I`&,C*DIM+O:<H7:FNVV32&(UAA=.>4=4`50U -MC1,3/=,,.D`X_J*>OZB=R1G]%+RL5WODZ1W&,B$X<YIP9U[R=T[V&#J.V,(' -M-B()E72K%!Q:&N:8TYG?,JQ>75>_O*EY=NFI4RX@``G[*I1IR#@>YE2-_P"8 -M""94T@2[33,`R!A/2.LZS@#9-<5'U:HF2[8'X&%)IAH:(]/92KHC(VF>X128 -M$GU>R%V'`<\II.DP"H$]TOB?5VV2<9&J3'9-!+06DB3ND`YQ)B>#[JD+5!!^ -MIRDQVH@.<1[IIC9N/W2&",`DG<H:,20^03.^2F<0(#9^4X):`Z9B2<80@<DH -ML$YP#1!SRD#G\T=D,``:O@2?9)\AL''8]T$]Y1J4"P/+':FBH-+@<'/W4#7D -MR282<6C`,%VW*$D-)@&)'/*0.7G43P/9#K<1,C)W'*;?;[IL#DXW5#Z\:=1S -MW3/)U#)CL=@F$N<&EPR([H2TAK@?J@(%T8=]$Y>7-`D1*3,?F<)2):_!@>RJ -M&&,Q@;J#S`YP=ICV5BXKTS0TM;\E5?1,D'XE('J/$Q(@\!(U(;&H#ZIBT`3] -M0AC$%TJAR\E\"#'.R;4!L,X3`AN(XR4(C)@[J`G.)&`W`^$['2\@C(&(*9I@ -M3!/RG8UFF9W1`EV9D8V2EQ=O*8MGMVW3Y$@1/[H'UX2:X3!/W3``M^".4VSA -MJ]0]T!DB3`QLF>['.>R;TZ@0=^4PWD@F>`$#ZL1!@29[(FN(//P90$3,@0>" -MEIT^D9CD(B4.'((CWW4U")]IG95F07'2I:8`]6Y$*PZ:U!X=1:9C'9'J_P"K -M]%%;,8Z@USG"2I/*I_X@IJ)Q^%>\@2,3[\*G4]3L`EQ=/*O7H&HXP.9W56A7 -M=;W(JM]4;`JU52K&DP#W`0/!TC(R.>%(]TDDF0=T!,NF?NH!.^<@X3<;P2G& -M"#''=.W2=6K&,(&+L'`SW2&_"8DN@0!'LF9@QD#V0.#B0V9X1,:PYTY/NASP -M"DW?)_1!)`!@SGF4U,G3S]$1!+@&`D^PDH6983G"J'):3GYW2DS\(=68(&$1 -MP=OD%%*8$9R>$[SO'9,TPX#VYY0D^QR@7],$E/3U!TZL^R8`:9RDT9,X]T03 -MR"P;GC!W34R2X8^Z1([8Y2#@#Z.$4XG9VR0<3)SE)I!$$`9V'"0/](D"5`[7 -M'5+C!'LE4<7.`WX3&/,+@/NE4@B6SODH!;D3J/.R<[S((Y2&G5D3/,I#\\EV -M_(0+48F1":>=H/=.XX/J@H9&0#]^4#D[N)D\IB&D>K<G$#"$D$#;4B=+J(]4 -M0<!`G:M\"4AG,#'*%ID;\(VCTZ?N@8.`YCLBWR(E,6@-[IP"0`#GL$#M/JP? -MHB+BT1CV0AL-D;!*,R1\90'J!!).3ND"-67`-Y($H<EI$0$JA:'P!I;VF4$E -M4L:]S*1+F#\KR()'PHBWTZL0A!!/:/='Z=1AVH#F$#`RZ=S[(R=3VAVW.5&" -M-1D[(J=33K#`(<()*`B8,`9"=A@!TG[H9D?YI.R`$$K"?*F/9)KA,P$$^C3/ -M.#E$T`28P,*@Z>\3G[),P@88$"3^RD8)]_K*`F#\HTJ:@TEQ#),]LRE86]6X -MJM928YQ=@87J/X=?A_YY9<WU.2=@6[)&<L_5Q'2^@WE[6:VC;N(//^PNQM/P -MZJFS];8=`V^5[!TGPO:VM`-IT6-@1`"U&=+9Y<:`I<Y.G*Y99/G6^\$7MLXM -M;2+O=/TWP'U"X`=4HD-'?NOHJGT&E4?E@*OV_0*#:8_EA3WA[9/F^\\`WS&% -MS:9)VC"I6O@7JE1QFB6^T[+ZAJ]!HZ/RC[*J[H%!ACRQE/>+,LX\!L_PUJNM -M]=1V>T#O\KG_`!7X3J=(`<8=G;_9]U]']4MF6EN8;@+R[Q9:U>J=<IT?+AC3 -M^8+/OOX8V[WMYYT_PU=W-EY[:1B"29QNL.^M7VU=S'M(B0%](])Z)2I=)#?+ -M`;IB(7E/XM]&IVMX:E,0#N`KN6-8YW;SZBW2#G!*,["#./LB<'#,R)Y4=36U -MP(R#NHZA<[47$G/)2],2TP(2(Q+DS<M```[*J>F?3VSLDT""9,'L4+02=.T= -MDX.D$9^2@:63J:=^)3/#0,'/'LF<(,`3'ND[6!$R`-]T41_(,XA,T`MXP/[I -M9&(!`0C83"H<Y$'Z)$-!`)GVG`2>.8$'CLE3INU"/LIMJ8VG:W40,8F$VG!/ -M;:5.VVJ.W!RI_P"#TB"TR>W98]X[3]/E5(0[D8'"8@-(@Y[=LJ^RS#:8)$_! -MW41LW;_V5F<,OTV<4F:-0SGLB>9=C,;'LC?;5&Y:PP.0=_=1.I.#B-,'?LM2 -MQQN&4-Z`T$S*CJN)>&C')37))=C!43B0)'9:C(G!L8@@\(2T`P<1W3-,Y<,> -MQ2<Z`<[X506ML@$`0/H@IMR`?V0@SG(5[I5A5O*=>HQ]%C:-,N.MX;/L)W*@ -MID8D&$.!DC/:4[QB3./="#O\;2G_`%#@1.?OA$T&1/*!L3`XW`*<R&X_?"*$ -M@D$=_NEB),]DP(U29B$1AS2[,#W1#``D@\)VC&`@!DD*6UKU+>X;6HF',Y(! -M_0_*&T9;G&VR+&C^W=-J).)!/9-+L$\]R@?2"Z&R`=I2:1ORFGN8^B=OYL"> -M4!TIF6_*E:,R-Q^JB;F"7P/A2TR"<2"#NK$:-!O\H8_4H]/M^I0VU1IH-+G- -MGW"/73_QM^RNS:.[@SJ='SF51KENJ`(^JNWS0'&#,?,*C5B-QV2FD3C!P/NA -M<0'3(1.D849(Y60GYV"8@!^EY"9GYM]CLGJM(JG5AWNBFEL@!(#.0CI/%-^L -ML94'(=,(6[B-CW0(!NN#D)-_-$8&Z;!?,?5$&P/<Y]D06H:P`Z('=(G,QN4) -M(VREZ1!C94.8)G^Z(!I.K5D[H6@'(3@%K0`,*!G$:O44B!$SONAJ`.=$A(M: -MP01QO*H(8R4XTQM/U3AK74\[\A,2'1/`C`"&BALR"1&92(R8_P`D/]$$_HG: -MV&]OE`4;;DI1G?U!"<`:1$_5,P'.,J`OZN\)$M+3DI?TEO$]T,$[H";$3.X3 -MC?<;(3\Q]4MAC[RJ=$6P2-0W^Z%PTG<=MD3@0W>.Y*`[$%Q^94-$./5&=TY] -M6"YL<Y2HZ)/F:M,?TF,IFQH@$S\IM3@\DY'9&V`)P2HHQV/>43>8)RB#P7', -M`I,,`_XB<&4V(@G*$>DY!)E!(UKC@[)SO&J!W(0M#B<S":3QF-I5!-:[:-^R -M8[P8,)A)G@A(MG<[<HIW-!P0DT;`1!00`1,_*-HDF'8^Z&R>,Z0-]Y3M;!$P -MA=(P(3`N/930D='E9F>R3!Z)(0N)P)Y1ET",#LJ'@AHC:.Z=F6\Y]T+"Z2.% -M)1:[2=O9$%3:&-V$GDJS86M6XJMI,:7.<<>ZKTR3Z0)/<3*]#_"+PU4O+IMW -M49+`9`(/^2,Y9>LVZW\*_`=O2M67-S3#ZKA.1M^B]8Z+T^G;L#13`^%'X7Z> -M*5!C-,8[+H*-L)S"YY9;<9-\T-.V!`X/LK5&U!&6Y5FVH>D<*W3I:6KFZ2*= -MO;!KXC!5YM$%L$;?JCI4I,E6649XW4VU%-U$`:0%!7MQH/9:IH]A@J&K2$?L -MAIS'4^GBLTC.?9<S6\/4OXT/#?RG>%Z+7MY9$96==V6=7]E=LW%S->W%.V@! -M>7?BY8&O:/>`1&Y"]BZE2#&$'8;KS+\5*M)G3*PQLI+I9'@]]3%.I$[<*M5' -MI;DS[*U?5'/JN(V!RJ[W=FQV7:.J"7:I:<)Y,1@E.3#C.4.2=DL4XYVQ@X2@ -M%N9)]MD+I`PW"0=N8,G$(0Q(B-N\),#G#TR>PWE6;*SK5ZA#*9"V^G]'#-+J -MH),<KGY/+CCV]?Z?]'GYNIPPJ5K7J$0U7*72:P$.<#';9=*VVI,8T-:,(W4Q -M@:<+RY?J;>GU?'_Y>,_LYUG23H]69[*Q;],8QTP#P!V6Z*=,4<MR=D+:3=1V -M6+YK7JP_1>/'J,T68G#1",6L[;K1TM),`)F@%T8F%CWKK^S)\9K[2&@C'OW0 -M&W@"1[[\K7T^DN@`*&JP.PWZ*S-,O#BQZMOI=(;+NTJI6L0]Q!$'B.5N5:32 -M)(4%1AG`77'-YL_T\O<<]<=-)+LQ*IUNG5&9'J75>6W4<`_51.H!P@M77'S7 -MZ\?D_0XWF.3-N]H/I46DY#1F5TEQ;,)TN;LJ-S:-)D-A=\?)*\/D_27'IC:3 -MO@\PCHO<UXTG'(G=6*UK!D;J$L+"?3D"#(727;RW"X]ANG:ZAT1!V#0H7ZHS -MN.4;AR1`[$IMR&@B!WX59,R0(B$JC3H!@P=O=$X`#?[%,2"`V8[1B%$T$;&. -M$+7$"!,?LI'L+'%A,GF#,H'QJW0#,&`#)1&"/3(^J=I9`,F1M"$`$R#E`[3! -M@B2@$]RI-W9D]T,2^3A`GOU&3GW2:[)U`3\)/P9DIZ?Y/S$]C.R`Z8!$@?JI -MZ,3"B:`UL$`2I*>F>%J(T:+Z8I`&E/\`^)%YE/\`^'_^=/1T>4/[(_0FDVCN -MR&/CN=E1KM+GX`#5=O<./:?LJ=?6`!CVREYK2*N"&Y:-/=0`1O!5BYK&I3:S -M2T>6W3@;_*KDSF!\+*[`\`"<]R$CDYA.7&#(&4P=),`(A^Y`S^Z1)!G0/A,= -M]Q\)&#C5&$#P#Z2V9X",`!LM)'_2=T#7%K@1N<R41<XF9SQ*!C.F(,_"<-); -M._(2#AF1/]DYB=A@<(A-(TSRD6D`&##ML)R=+<_IRDYSB!,EHVRJI.#1I.#( -MRFCU2X9X[)$MU#&W"=S@1!;[94`2)&"B;@Q&1R2CMWTZ-4.=3#\'!)$'O]$S -MSK)+B23V0`1F0#_FB:8;MGB4TM!RG=AOI=/?*H9QSDDG=,/4,XSR44EID8CN -MFJ/UO+XR=XP$#[@;F#'T0N#0?E.UPTG)U<)G$8).5.@PTQ/Z)R<8.#PFF`3* -M?TDS.$#/`QZOHA/IR8^Z,D1!^Z9SN`90"T[%I_5(CG4$<&20<\?"0'HG(A`! -MCO/N$1+9].P3-!,G)^B,$;($((D&<;%-I([81,AN9G.R<]S'N@'$#)2:6@GD -M)CM&"=Y2TS)]\%-!.:0V3LG;H(]3@R!RF</1._&H)R&@X/V"`>#,2B;!SB`/ -MNF8-6J8QF$YTGL([H%)B"A8)SC")FF9)D>R1&"-`^Z!FZ2!,(V#!C9`S)C`" -MDIZ<D!`J>)&H`*:@T:B'\;94+&@G8#WV5FDT;8'U07NAV#[J]ITJ8U&HZ.Z^ -MCOPPZ"VRZ328&@$-$XB5X_\`@OTT777FU32U"G]>R^DO#EJVG;LP-EC*Z<L^ -M;IJ]+M]+0TC;W6@RB0Z>!W0VS0T",?"O-8'-Y*YTD*W;F8PK0IEPD;)K.E(R -MKK&%K0UH$$9*EK2O18(^%<HTY;@<(64X*LTQZ/[J-:1!DQ*"I1!G4"K(:/CV -M3$`^R&F?5I`">W"IW5'!ANZUJS`!)^%4N*;2,$PAIRW7*.JF6E>7?B%TFI>T -MJE!LC5B3E>S=3H-=3,#9>=>-*#VO<ZEN#V4MXX23EXZS\-R\ZGW&_LJ/B?P$ -M+&U%6WJ%[HV*ZSJMWX@H5GOI4'>4WDA8W4^MUG4]%VUTQDA<9Y?)/CO/'OJO -M-Z]I5H.TU&$9@X4-1@$P?ONO0NFVEEUB62))W6%XR\+W/3'&K2!=3<=X.%Z, -M?-+=4]+O3EG#T0>5+:TV.J,&K$[!.:,#U'`XA36+:0K!I#H_ISRM7+AZ,/!K -M*>SI^AVM(46QDE:1MVZ9)CYV6?TJHUE-K08+1F<J[4NB[!(@]E\O/?L_5^&8 -MS"2#K:1#0&^G$@;J!\<?HC+@3OOOVA`/S;Q!VE9D=./@BW@N.`AT@$S@QW1S -MQJ0%PU$`[JZ2TU(@$SOV3XU;X0GY3L.8_NK(S:(&<$X0`28F?JCI^IV`#/NI -M&-(,N(CNAPKU&X.3*K/;+B3^ZON#"X2H:M,3(:?E:QK&6*F*8`)X*%U,:O2, -MJT6:A(S\H"P`8'ZK<KE<5%],&2,=U!6IM..ZT7MEN,2H33!DQ,+4R<<O&RJE -ML)G2/B54NK=K3J#9G"V31+@8;!*KU:+7&'M,QN,+MCF\OD_3RL"M99]+8',E -M4Z]%S,1)/*Z!U,ZC#3'=05*#"TRPN]EVGD>#R?I9\8);D$@X]DM.T_<K3JVK -M"8S`56M;N!,"0NLRV\>?BN*N0-+3DGDJ,@&9;]U+5:1(((`P(49;%,N&\K3E -MK0?2#@(FMD3^Q0AI,G^Z)K=HDQP@0`/TX2.()!`*6-X..4BW$Y^VR`<$R?OE -M'#=>MS0?;9#_`%R<_=2>HC),#[HA4V@O`!&3B2K+:3J54L?^8;P0?V5=@+7X -M&_<*9H((F9[+2::-$GRADHI/<IJ!FBTYVY1K)PCO8#03$DP1'"IO+7#3'&X* -MNWAET-[[]U1J@9S@SRK5TKN.#&^V2FU`,DP>$50P)(!08#)].4`!P:9W2,'( -M@?"1;!QM"1T[&8X4"F>('LD73N,\)$2<"$@UL[[=@AH[@W!&4\@`2AF,-$=D -M0((/I*!1/'PGJ`#&_NAV`(^ONB@3,Q`RD*6F(S[%,(C!V1`@$1&4(.8T[?J@ -M)P&#P3PDZ"9@;X3$0X#(3;-R1WA`W<GOM"DHEC6G6P/!$"9$'OA"=)<3D3RD -M6>G5M&=^(0(PYT`&#R2F`@S(ENV)3P,D&1$(20?2#))A`[LM.WP.4M+3`#ON -MD/T30"[&)0.1,YVRFB&#YP$@")$_F2C3SE#1')P/CLG@;;)FQL#LG9&,F!C? -M=`G&#!,@]D,>WU3Z(&K,3"8?E(!S*!P($Y^=TX`(._<Y0G4($F-\I`$`'7(] -MR@=N''2GTX!.24IWGD=TL:B03E`^F'1V]TSH+AJP.4A&K#DQ'O\`=`FALP#C -MNC/I(@QVA1P6SZH@I\H$<@R[Z]TV8+2222D8!B/HGAH;((<>QP`@;40R`1ZA -MF0EN`(R,$IB"!NB:-I/&R!B"#N91-P"<D)1!C]$,'43DRBK8J6W_``KRO()N -M/,U"J''#8_+'SR@#G"WT;MU3]5".YW^45/5,;3V4T@F`AVX([>ZN6=)U6JUC -M#)<8WA4QJ#N-UT/@6W;5Z_:-J:2USQ/;<*I7M7X)>'/X/IE*K48-=4!Q/.P] -ME[#TVDQE!HD;!<GX2ITZ-A2T@"`/V746=4'2&F5QSRY<<8U:#"2(,1NM&UI2 -M`9,'=4^FM$!QC9:UM3!`@X66XEITVC:?96*;?Y1)Q'"&G3B".%(3(`;V4K41 -M'+H!*FHR8$Y]T-.D7.!*LTF!A$Y[*:5&01$HFM&G5^ZE=3!$\)FLTM@YE%0U -M&F/95+FG(GLK]8D^F8,*A>`G`A+1F7X]!,?*Y?JMHRO6ES!`.5T=_4+9!&.Z -MQ+BH"7$B(&%C*FF/UNWL'VIM/+:`X:0LNX_":UZ_T\MH-(J.&".Z@N:[W^)M -M)R`?[KU#\,NMT+6[;0K.&1&5Y/W+A=UWF&^GR?XZ\+=;_#SQ2VUNVO;2<[4U -MYF")_P!%V'2[=OB7PT0&@E[(F)S"]6_\9%C8=:\(_P`51:UU>V]0<W>,KRK\ -M`:NJU?:U#,9S\#"WGG,M91N;T\?\7]/N.D=<K65=NG0XP8W$[K*MWO-0.&8] -MEZG_`.(GI/\`_<MO6IL'\RG!('N5QW3^FM92:"UTC,%>F>7&8O3X?#Y//=AZ -M?4K-HB08]E>I:B(_0\*:VM<#TG'SA7&VA#@"V9]EY,LY:^]XO'<<=519J),Y -M/"-I>(EH6M;]-J.:!Y#B79P%J],\*W-=H?HT@;:@LSGIK/R8X3=KE1KW@Y2# -M:T?E.>5WMGX.`<#6=,C(6W;>%K%E-H-%KL025VQ\-KP^7_T?'A>.7DP9<$C0 -MUP=QA6Z'2NHU73Y+W%QDSRO6*/ARRI^H4F`]EHVUE;,9'EB`NV/@GVO'Y/\` -MUO\`\QY78^&.IU&RYND^ZL,\)W^DAQ:#[+U&E;T22)$=D?ETI(C$+7[.#SW_ -M`-3S?'EG_E&]TE^H'YW0N\)7;F>H@$GY7J-S3IM&1QM*K-8P.VW[J_LX)_\` -M4\SR^X\*7S#Z:<@'$*"MX:OV"32,[X7K;J3'#\L(76M$M]7V3]C%9_ZOE^O% -M;SI=W1,&@<;JE5H.#9#")]E[7==.MZH(-,&5F77A^S>Z/*;]E+X)\KMC_P"K -M_P#J/'GM(RX`905*(\LN*]4OO"-BYN*<$]ES_6/"#X)MS_\`A_V%F^'+X[X_ -M^CXLN+PX"XI2,CN5"6MC@SA=+?\`AJ^I./\`+)![2L6YLJM#4'TG-+=Y!_R4 -M]<HZ_N89\RLNK3(<9`(G_94+V!S",Z09VW5RX$R"9C8*.F*8.W$K<KAGC*SZ -MELTTY,0J-Q0(>0&Q[+<K,!(`[[J"K2!F``%N9O-Y/!*PJP+7Z2/RA,UWM"TK -MRW#Q``(6?6IAE2(D3DE=L<MO%Y/'<48@R<X1;'<QR$5%K#J#Z@;,^J#PA<`# -M`(`[K3D$:2,?:=U+2<`-R%&#)U'/8(@&F26^V#$%5!-<"[.2IJ)$ZR"H`&AH -M..>5-0@$`^^%4:M`32:0#$(M+O\`"5!39%,>MR+1_P!;E4W"OC,@M.,22>ZI -M5#L#B`K=WO+HDA4J@:79'ZK-:1O.O/W05`2X"!`'Z(X(,EP@CNHWY(P84.@N -M@'WW3$F(Y3R0[OREJ:701`Y0"Z0\&1!Q*41#6QMV3.,NW.F4@<9&=D#_`&WV -M*D86B3@8Q$84<B(V")D;DY0*,X_[(GY=)B-I":9($#Z;)YR1O"(?!`@2`>Z9 -MPTD2/LG!YS&WPD\!I<6@ELX*<*%HB=]L>Z?!+2XR(C'"9I/`YW31!COE`1]+ -M8WD\X2<"1Q`.R$EI@`00<E.8\LG(C]4"<T2#L/;)A*)',SOLF)$B),^R0(B? -MR^R!#`F3V3.$.)S]4Y,C`3#!GWD\H''S@#;NG<6N@1D[(2<D@C=,XP`<24"A -MP+FDG)@A24VDX+@,')/*!I!;O]43G"=P@3XDC;/="V2T2!ON4Y$@"4P,-Y^? -M9`S7=C(2+A,$[8,I2#J[>Q31Z<9`]T$A@S,8&$FY(`CZ(0!(V$[3.?A%)C?< -M(O18#?HG`+6->Z(?C[(=Q^B=Q,MD^PE$,[5P<#DIH)GDI5!#N/@)-'K$.F$! -M.;I9)<"(G!W48G5O$G8HW3DNV03!11D-T$`@&$@[88QN"DT"&S@E*/1C;LH@ -M00\P=OA&=R!C.)0T\&(W3D'5![JZ#N/!,(V.B21GN$+0TF"G.V=D!TX)U#E; -MGA&N+?KEO6C#'`[_``L*1O'T6ATUPIUF/R8,YPI87E]0>$KYMQTN@YCL.`./ -M@+LNBTW5-,X$;]UY5^"5S5O^ET0=F`"3/LO9NA6^BFS&?V7&SEQC7Z;2AH)X -M[+5M@T&.V%2M6P,<]U;HNR,@?59;BU(:TYGZI4A+O;E1.S$!3VPVD*?6DU)H -M&)4C&2-X2:T1Q,(I:,3[?"H<#2()F#RF(G`10#A,[TLD&(10.I>C5&V.RH7[ -MM+'9V"MW-7T?FC'?=9=\^=0=RH.8\27[:3RW(E4NG!UY(:/S<!0>--+:X(=R -MH/#W6:-D]_G/`U#!*\N>?K77'';,\16'\'U`U?ZAF"LZTZQ4M[X.UF0Y:/C? -MK-"ZJZZ+A`9!(^JXVR+ZO4`."9)7&WV:ZKM?%]Z>I^&JE*H20ZGM]%P'X:6M -M>RZQ7-++02/U"[#J=84^D>6#)+8CZ*CX2LC1I5*C6$N>2DWKUC4NG+?B]KO. -MJT61EC>WN5@]'Z#>73FZ:+HVD@KTR[\/_P`=U'^)JTR2T1!"UK#HK+>D`RFU -MH[0N^'AM_L]W_P!#'PX3'"<N(Z1X.>S2^X/P`%NT/"UK3A[J;3\C_1=2VTEA -M):.P3_P[BT""N^/AQG.GES_]'RY_63;]%MFL;I8W`X"M4[)M.G#6A:5M;9DE -M7&6[-.6B1NNDQD>7+S99=USKK5_F3"E%M4$`K;-!NK`1?PX+IC;E:<K:QJMF -MXM,#)0T;,S&X*WFVX.XD0B-NP"=@K-);6&VR.HN.(X4IL<2(@96KY0+@0%.R -MCZ0`?HJCGZE@7G/"B_@M.=,KI'T1,!JBJV[7$@A6)ISC[>IO^BCKVSRXZ9A= -M#Y!DB(X0U;<#>)A!S+J%5C9(.$#608(GE=)5M6.'TX5.I9-+L(;8E1C2[2!^ -MJ@N*`$P-^ZV+NPT9`YW55]!PG5'=-&V'5M&5'9:(&=EG]5Z!95J;@ZBP`C<! -M=$ZFW7@?9!68'$`-SLKTLRL>:]:\#TGS4HXGC_87-=7\)7EHPN:USF^R]IK6 -M\#+1GV52O9TJK-+F@@[@J62]QVQ_4YX_7@%6UK47N\QKA'>5#7T"F8&W=>S= -M?\,6EXPN--K701@;K@O$_@^ZM];Z#"?CLLWP[YCUX?K9>*XQ_J!=V&RJWE(. -M;@;[+4NK*O;^FJTMA4[ILM(VCCNL3<KKGK/';*:`TGV3M<`UX+=3G#!).$SP -M?,Q(0O'^&?HN[YUT%FG6(!$^Z,;0),(8(@9]RB.#Z096D$&QG)_93T`T/@F( -M&R@!AAD%2TCD>J!SA-)PTZ6D4P"[CN44L_Q_J5%3<\,`#G$!/KJ=W*^IN%>; -M%Q<X=O=4ZK6A\R3"MWC1F-]U2JD`ZHRLUI&2!(^JC<8GG^Z-T:/?Y0R`T&#* -M:0!+3S!CE,=,X,]T[FGG,IN<?6"H!D0`""C$%\'O!S"9TMXWY*$9@@GZ(IW` -M`;_*3?I'$)-TDAIU1.1,)V!@>700R<2J@VMP,GV[)%PWD`QLE(V$I.;F"443 -M1C3(E#4WXSPGW.!OB4+L`0B':1_LIY'F#\H'OE`W?:/=.!P<\H=E4TS$G*6) -MTB3!W)0U`9B1&Z<!LS(C_"$#X$C8>R3_`$`01!V*$@%WM[2A($3!440+8DP> -M_P`)-]7'LFW$@@$<).:X$#(,3"(<Q`,)C@R3LD1D28"9X$;P@0@-C5&K>$3= -MI]D.B&CU;IZ8/.?9%.W2'1$F.4Y'9XD\H""`08![RA`)[0/=!+H`HZB]KB3^ -M4`RFQIB!\%#"<?E`+C/(*0.T3`+H]Y1:<8.$&[MOH"GWF(&(D(:2`L-/3$.D -MYE"3G(VRG8)S*C=^;V"`B`8[\IM()X)2.`3,?W3%I:[5)&-R@,8;G890.:"[ -M`]TXUQC>3E-SEKI*`FQHQCB>R>(&#N4)V`[CE.X>GCY"!VCU2,]D[@#.\I@) -M`EQ(`[IVF!/*(36_U"!",@:-6!/"C:7-.F)&$[LY&P/*`P&^V=RM"P8YSF@3 -M/8+.8'<NTQ^JT.CG_P!2UI."X82CZ5_`*Q90Z!0)`EPF3]%Z]8M](`_1>7_@ -MY58WHMLT<,'[!>G=/K#2#.ZY95QQC2HXW^ZN4F8&RIT'<\*U3<(X6'18IM$[ -M^RLT0`/T56F9((^JMTHP9V14S8#"XCZ*"I5/F1SW4I&(!4+J<&82K$U"H8,G -M,IJK_>4-,:<G)2JQ'*""Y<2/U5&\`@DX/"N5G2=\CLJ%T0>0%#3A_'#'AP<) -MB<X7"=>N"2&,)'<SLO5O$5@RO0=.>5YSXDZ.ZD7/:V2"N.?B]NFL<],FI;U/ -MX)I+IGNJ@K,MGR-QE3BI</\`Y.DG^RT_#_ANO>W#7U&G3,Y7*>'*_&O:`Z1; -M7?5*S1I(9O\`*[OH_2&6UJT:1,=E>Z#T2C96[0&B5IOIZ6B&X7HP\4Q8N5K/ -M99TV@@`;3LH*U%C7:8"TVTGF1D(769).)*ZQBLKR#'ID\J7R/3^671@+4IV9 -MQNK%*P<2"6R5H8M&T=@Z4?\`#/#IC!X"Z>\\L'LI!T\NC"I(YW^#($[J6C -M;3(^JZ.GTX!OY0C;TYK0(:$-.=_@L;;H76T#9=2;`%L`2H*G3`'9"&G/?PX: -MV0W"C-/3,#]UT3NG']5!4Z:X@]BJ:8+J<_EYW1A@B#QPM&K8.!(TE!_!G)VQ -ME$9KZ0&PW0NH-+<P!W5^I0]6)P@J48;M'LJC/K46Z?3RJOD>K:%JBF9(C=15 -MJ0DGE!F/HASH.QY*AK6D[#9:3:<.)_=1U</CCE$8%?I_J=$2JS[)[28;(!70 -MUJ37"0`JU1C6B9E7;.F!<4R`0YIVV*HUJ#@[6`8[!=%<V[*GJPJEQ;`43!QV -M*2&W.UVDN`@]U5N*`J>E[9"V:E"23'W52K3@D!NRHX[Q'X9MKT.+&!K_`&Y7 -MGWB?PO<V)<X,);G9>TU6%C28A9E[:T;MQ:^#\J\7MO#RY8=/G6_MWTZQU@@[ -M0JO'8KU[QQX.I50^M;MAR\RZSTRXL:[A49!G'LM7'4W&YY)E6<W!B)([A/,N -MV&G9/4`D3QOW2C.28696M'@@',X[*6W!U`#G*!L!HQ[94M`-<2X"(*J::--\ -M4P"V?<!%K'^`_8(:#:?E-U.@QME'II?X_P!U/:&J"Y]+BT&`<$0J56)G<<1* -MMW3?ZI$\A57B=GP)R>RM`U6T&V;'MJEU5SB',TX`[RH!^;=$\^K!!08=.8(X -M[J!-;_U2.R$M<)D0>Z=I@YPED`D.SW)0"]I(DB?JK+`*-E4(>TOK```;CNJY -M+B28VY3.RV!QPH&J/U2`C,'X28<29^Z?7F0<'NJ#IR':Q,QC.R%P).`#/ -M,H28.TH@2'9.-E#9Z>VYE)XW!;/:$MAV0ZR3/?94/Q[)#3W^H0Y<#`VWA,"# -M+H(*`G279PEI,;[YQE,2!DRBD:9S\!`+MH/Z(28<"6Z@/U1-TCN/=-5<=69A -M-*$'?LB)<,SN(3.(@P)0D@`X/RH"DY,<)'CW*8G,?=(.,Q&P0.)C3LG)(,-. -M=Y".JRFV@VHVL'$[MY"BU:=\]E=!W%SO<C<I,&#,^T'E,'N:)82)WSNGU8D? -MHH&,9$9E,Z!RG+R#IS'N83AP@;#W"!-D-Y^919T%QVVSRF!&Z(N;Y<;'5R@$ -M$`R/T1``N,3!V3M>TM(."$@0?A`+H!@S\H2'''[HR3IC!^0F(@F?M*H;3F2Z -M`4OS2(!]TX(CB1PD`.,=RH%`$22DV(Y/LE@G/T3C3&((F,HAVB"1]$M#MHG2 -M<PFV(`'W3@D2/\7NBGDHBXEA:W8J-Q),$B>(1@P,X]Y0)N/G96^G/+:@)G&% -M4P3),@^ZFH%K8,Q"#Z&_!#K!J=.I4M660-U[3T>L'4FS\[KYE_`GJM*C>>2Y -MP&H[DKZ&Z-=--%I:<'LN.3EU77V]00.)X4VO.)PLBQN6N$3^JTK7U#<P?=9L -M:B_;N)*NT2-,;*C1@*Y2(,2BI2Z,)4W3(*9S03C*8PTS$2BI'1&^.ZBK/$0A -M?&C_`#4);//V2@*ASA0NIR=1W5P4H;LF%'!(4T,R\I![(E<]U?IU.H3S*ZNZ -M8!L#*RZU#SGD?LJECDK+P_1_BB[2")76=*Z73HT!I8!"NVG3PUH<0M&WM]+` -M%I-*3+8Z1B$S[<G@+5\K`'9*I18UA)5TK,%J`)`"E9:@P3"FJUJ5-N7"/E9_ -M4.M6U!I'F-GY6+G(U,;6C3HTPV3IPG#Z+($@#W7*7OBBBUITU6_=8=YXO9KT -MBKGB2N67GDZ=,?%:]&JWM%HPYJB'4:6K\X`7F%UXO#&F:F!S*JT?&]`U-)JM -M!^5SOGKI/"]=;U&F'?F&R1ZBT\[+SFS\34*K`?-!GW5ZVZY3?4TBJ%)Y:U^U -M'=4^IM$Y4M._:\#(*Y&A>^9EKMU8%RYH_,M3R5+XXZS^)I.;^Z<5J+O3@2N7 -MI7;MR25)_%/U#2\_"W/-6?VG2>73?S]$#K)AF`/HL2EU"HSG;E6:/5SR2MSS -M?EB^);K=/;I,#/95:UA(,"`K5/J5-[<D%6:=U1>W,`+I/)*YWQU@/LBV7053 -MN:'(;E=:ZE1>"1"K5NGTG">%N65BXZ<DZWAIE5JM$3!P%TUS8$$@`1*HU;`@ -MDQNJS8Q:E!@;@'OV5"XI>HY,!;=:W<#$3"JU[:0=059L8D!KLY"CN*;7D#A: -M56VD$8^57\HM.1*(RZ]!H!`;"H5:$/)B%NW%$ETZ57N:`TR1*K+G[ND"TF-E -MEUK5S27[+JW6[<N(A4KVW#@0UL2J.9K4V/I$/R2N4\6^%;?J+7/@:O;_`+KO -M+BV:#D2JE:BSZ+4RLZ37U\\>).B5;"Z>W3(G!A8P8`2"(CB%[_XEZ%:7])S0 -MP!W=>7>,?"E6SJN?2G3RKZR\QVQ\F^*Y-K00!.VZFI?F&<IKBD*3S3$R.4=$ -MC!,++HOT0/*$X/RBTCO^J:B!Y0D@(]+?\014%T&C())[*I4(U06P1A7K@`O, -MP>-U4>X$1@-X'*"#3/J@X0.QQ,J4O@$MVV(0.#0!ZM]S*B(R!$@E"8(C@*1[ -MB7N>3E,6^D.<TP=O=!&WW._NGJ=VDM`2[XF$CF)CX4-!!C`._='2@RV(Q,RF -M=$3&W"9F&QGZ\*FC@$?U$GV2<8Q()*4AVY2T@$,@^Y0-)!S'NDT-G'.R*8<9 -M2&F`#@\J&@M`,F4QPX@[*2&[@?5,6^@F!.T*P1N.<9E$T`,F8C=#IAW^PC:& -MQ`P.5%)@`IZI;OM.4!GC3D=D6`US8,[C*3P'8;P%0VG`C'LF+27]D36X#G3G -MDIBX!T@@>Z`8&"4T0=_UW1%H.9)!0N@$_M*@:8WRGUY@?J4MX'*3&M[Q_=#1 -M$G3,QW1%Q&<Q\I@T;;$^Z3`Z8,GX0T3A@8X[ICW('Q*DTAV=1S[IJC0(TN(^ -MJIH(/$@)'8NW]TX``R0$HD&<B>ZAHFX.-N?=.TY'LD1O'";\L'<E4&(.Z;)D -M$(1)!S]TH.H;GW"&CD`9V1..8'VWE,&EQWCY38D0=T!8+0`(*:/3L8Y1.:9R -M1MRF`@YGW(4".!L430]L5`"T;C";?Y&Z1F2V20$31.C5(3.,-`2`=&^Z3PW2 -M,S[*KHPTC(A24JFDZH!`X,J(F#QA.-LF1[%#3;\+=2J=.ZC2K4GQ!V[+Z2_# -MOQ'1O>ETWBL"Z,B>?NOE<&#.K]5U7@OQ;>='J-#3%/V)/]USSQ^Q+CM]8]+Z -MB-7YC]UU/2:XJ-!#XYW7A7@?QG;=0H-+ZH;4Y;,2?NO1/#O7FD@&JT_!7&\, -MZL[>E47M#<E6:-1O*Y.AUIAAKB!*T;?J+7'+@1\J;5T+7MYA!7JR-A[K/H7` -M<?S?53ZQO*JI6^KW"GI4S@`_HH6.;N/NIJ=3L1CE6"4-#1.?A,UYIG5@SB"$ -M+W@'?=0U:K3/L@JW>7$CE*RMM3M1PC#=1WGV5RR8`?=6(L4[66`A05'LIDR1 -MA6ZUS3I4"=0PN"\:^(_X?4VD<[83+.2+CCMTU[U:WH-)-1N/=<OXB\;VU&D6 -M4WR1OE>:]>\0]3JEVESH/RL!]:[N'ES]><%>3/RVN^/CCM.K>.JKI#7&/E<C -MU[Q;?.)<"\@^_P#JH6]+KOD^HS&\JQ0Z`^JPAU,GY"QWVZS4857Q5?UC'K`F -M)@PJUQU#J3G"H*CBWVE;=;PHYM:(.G?'?[+8Z5T6EH%-S,C@C">L=/:3IA]) -M=7O:!;5)SC.ZSO$/2KRE4-6DXP.R[K_@[:%0.:W3_97*G2V5Z&DM!/=)-,^U -MEW'GO1+R^H/%-Y,#NM^EU&XIM\S45?J=":VM(;'O""KTPAT:#'"Q8U[;;'AS -MKS]3653@>ZZZROJ==DM(7GM&P?3:'#$+6Z76K4:@:7'"2V+K;M#5WAREIO?/ -ML%C65Q,:C'NM>@6%HV^JU*FA.JNU0)1M>X['9`Z"TY^B!WY/VRM,Z6F5W-Q) -M@X4S+EXR'&5EE\#>5(VIZ<.A39ILTNIU6`2?U5ZWZN',+7+FJ;R2<IV/(Q*W -M,[&,L)75"]HU!N/?*E#:-5F'#X7)&X<UI+7J2VZI4IF!4)"ZX^9ROA=#=6-/ -MR]0`^RS;FQS$?9%;=8U,`<<*V+RG5;!+9]UWQ\LKCEX[LBT&`9E4;FV>! -M,976NI4ZC<*C=V6#NNDRCE<7*.:0XR,J"Y@;-"W[BQ.LDM69=6NX`"TSID5Y -MF(4+V@L@MB5JOM"&203"IU:0!C9&6'?48.V%0N;.6X"WZX(&P@\JG6AWHB6K -M6T<M<T"'D`'[RLKJW3_XBD]I8#/LNON[7/RJ-S2TMTZ?N%>D[>&>-^@5:-R: -ME*GCF%RX9I?!!@<+WCQ'TUMQ:U&.`)(PO)O%/1JEE<NFG@[0MV;YCKX\_E5* -M#6FDTZ@/NBTM_P`8_5-0I12`!'V1^6>X^RY:CLJ.KUJ;*U*G5=396:&5`#AP -MD'/V_14GP#`D_P":M7@;JF/]54J#B=\[JT`2UI`G_)';5*#!4%>FY^K8M,05 -M&R`PB.VR$.]4Q*E@,TF/>UM$N<7;`[J*."XHW!NJ0"UO!E"8(`.4`#Y^DIL" -M)._;*.(.ES3(.W9,6MWDQ\H:"[V)'PD08TS(Y3@`S&!W"1`+<X*0"R2[)/NB -MDAPW3M#=^R48VGX0`?9R=X#<@G/&Z=S00(&)A._3P#@(!#3IDN$?*>2)D[;) -M@V#G>82!D<_912!@Y.`G=$C.`F($@$004[P)W]T`@2[*=QQ)^GRGB`29^(W3 -M:0002<?1`Q@QI^D).!F>/V3F0()(0N_,1G/'=`+B8B1',)LGW[)W?_<?IV2F -M'#)309H=].R=I=M.#E.=.G=Q[(0V02#LBGU.+B<92$@?(W2S`D1"8S.#QL$! -ML+IQWV3DQ$'9"P@-S)^41`P=39.,<(@9DR7#.8E2-UAD84;0-S@#V3M,#)D` -MH#+O2&D9]E&XSB-S]D;3#?S2#&$X8"T\CN@`.],N'W3M_/+A',IRTR`8&R8, -MW`+23PKHV>'9CG.R$.,SCX"-K8P3OCE!'IG[[J`B1(C8[2G$EI`'ND9D;93& -M9S$H'GU&!`A,XNS`PC:"3$A`X<M."J!U9^46LZHC9!._^:(&<#/N5)`+7'5L -M"3NC)`@X^J%\AP(B-L=D37<P,"/9-`B_@@83^81$8/*9NH@_?=-,CO[`HK3Z -M9U2ZLG--*L\'V)7;>#/Q%NK2X:+EY<WN2??W7F[2Z03@GA2,G@F#NLW"9=KM -M],=#\?6%^&!MP&NC8F%V?1>LFI3:X5<?*^0+2]JT'!U.J]KA/*[3PQ^)'4.G -MT/*J.+QP7%<KX[&;C^'U3:]9VE^?E:_3NK-JL$/E?,O2?Q4\VMIJ@M;R05W_ -M`(8\=V):T^<,C8X7/5G998]OHWI(&=E,V[;OK`(W"\UH>.>G>2)KM/O*+_SI -M;&`VN"1C&?[)N4>B5[T-F'?""A<^>,.,''RN/Z1U5_4BT,G2>2NOZ=3;2I#6 -MMR;9VNL>6'\TC]D]UU"G:T2XN&%5N:K:=-Q)^ZX[Q7U-Y8ZFUT`*97U:DVF\ -M4>,0POITWKC']5=?57>8=S*C?:/NJ^27%:%ET.'MAL^Z\F6[7IQD@;>QIW#- -M6G)Y5BUZ'1G\@QG9;G3^G!M/0=BM.C9L:P`"/E6+_P`<]2Z12`/IB.5<M.FL -M;_\`HP/HM@46@&0(_=)K6MSP4Z)&1<=+80?2"=YA5Z73-+I#1[0%T+FA^^_9 -M'3MVZ.,)VO3FZUI(+7MDA/0H:29&!PN@KV;8,#V*A;9@G9+"5AU+9K7!V,;J -M,VS702``#PMNXLQH=ME56VWKF)E9K49-Q:CRS`_U06-LUY$B2MPV8>'$]E5M -M[44JF<05&H@T.:T@#A:/3ZCO*#3NBI6S2Z2%*VV,^D?"B[2M,C8?=([R%+3I -MP())"*E193:0R0)P.RK*HYA)QO\`LH7/(,*[59I$JI787.V1=&I5#\(C5]4! -M0GTDD[A1O=I((,PIH6WU!I$#=0.<"R1(^%%K+G`26I`D:H)DY24T-]9S8TJ> -MC=O8R0X[\*EL3G!4-2L6OC/PM)9MTEEU8C#C';*U[:_H5J8@B8R9W7$4WDLP -M[Y4E"[J4LASH^5TQ\ECCEXY7;U&4ZK2&@+.N[`#(;NLNSZN6.ASX[Y6O;]1I -M7#1Z@O3CY97GR\5C(N:)8XM((E9EQ;.+R<P5UC[9E:7`A4;RP@#&/E=Y7#+% -MRMU0=I/99E9NA\1GA=1>VS@8`$+,OK?09Y"U&+-,>H/3J+=/UE4KVF'QZ<E: -M-U3<7%NK2!^J@K,I@8=!"LX1SG4K,E\'DRN;\4])IW=B6%@<Z-NR[CJ%'4#I -M[\+*N;4#&_<]U9=7;.GD%3P_58\M;L#W3?\``:W;]5Z?4Z30>\N(R>Z;_@]O -MV"W_`!=?W*\#NZD/APSR=U4JOAT@8XY4U?\`.2,859PAW8>Y7.NVR+H.TB,% -M,7##HC'>0FQ$B$S@`T=SQMA0V,U6;-!@C8H?,TD.8=MI0%H`F9A`(,AT^R"5 -M]8OJE[R2YYDDF24.L3JSGNA@:9!Q/^PE&(S!W0V(5#N`2"93O>#F<GD(/3R= -MT.`"V-C\0AM*7@MD[[$RG;4&PD:0HP`>8]O9+$S.P022,DG!2#O1$X''NHY` -M[YV2:(S.>Z`@0'0-MLIVN9D\;*,@S,XC9-`!DN@'A%'Z9U<#$HG.86CG/*BW -M><E'JW`.3RB;.'-V=(/()V17#6MKEK*S*FQU-F-O<!009,0$HD';Y)1=I:=1 -MC7`U`'CELD<>R'6W0TM.1PHL@`0(&Y3`8,9A#:1SFAN\CO*4LC\V3R@CD8"1 -M&<X@("V$1CV*)IQ!A1Q)DGA(-,?JIHV,/;J.8!3ES"Z3IGVQ"`M(WV]D)C)G -MX"NC:1I;F#PD).9;@[J(Z@8//9.<`'ME!(UP@B`>9*(P&@%TQNHH@9VYRDT2 -M,J&TNKT_F&/T14:C09G'90`&,?;NFC.VWNJ;62[UR#(D)FS&#C]E"&.B8._& -M82(AOPH;3D`#?9"/SQ,R@9L3,':"A&"8P=O=4VL?TB=C[)B?4,S.)4+2YVD@ -MP!LE,;*&UAI$!TB/=`XC!^ZB'IP23W3.RT#GE71M)N![)X'$Y*A`(?F8GNG! -M(GV]T5,WL.$F<-])A0DGO\P48,N:9G"(E#23,_24X+2!`CVC"BUG,DMQPFU8 -MR0"-LY1=IZ<9''S!2:2)$P.Q4<@/W,<Y3:SH&=_=#:>3K&))X3AQ)D;;C*AI -MN(V.0B$ZMX]DT;3-J.;D3@YA7+?J%RT'2\YB<K.:2V"#F.Z*B20-.2EY-MBA -MU;J#RUIN:AT["=EZ3^%5AU7J-VRK4<[R1./NN9_#SPA5OZK:U8$L]QNOH7\. -M^@LLZ%.*8@#Z+%D[9S\GR.O\%]*9:V;!O`75@-#!(@0J73J8I4?8+.\3=6;; -M,--A`G`6,LM,XQ7\5=6;1I%C=SV*X[1<WUQ.8[*6GYW4+HO<XQVA;=E092I; -M+R9WV[>G&:!TKIS*(!?$K5H46X`&%%2:YYX4]'7OL>5C;K(MT6L`G2G>0'"% -M$R3N8Y1!CC`F5-[;D.XZA&`0F;3^P1BF=)[J;R@Y@/[J=KPA\OG,*Q1;!C>$ -M@SB"/HC8P$AORKK25)I:3D`=_9(6[=)@#Z)B0-A/"-KQMA:E9TJ5:68CY4#[ -M?2"8RM%PE^P3:0Z,*5J*`I13_=4G4?YA@8'=;GDRT[2JXMP2#A9UPUM4MZ`@ -M$_JIJ5-IF0K#J):.WU0-9$08/92B(,=JP,!3-I_RSW4]&F3EQ^JE%.7#N4D& -M959B'#!Q"J7-*#$;=EM5J30W;*HUZ4O@<;H,FNQT$D0J[R)C<[+3NZ3B-L+, -MK-WWQRHL!4R#$9[)A4+1,92;)$&$&\JE-4<">Q]TWE!XF2/JD]P!@CZH758: -M2W*=()K0UF#,IY;$"%!YH&"=NZ'S@';_`$2&DSAWW1T*]2B):2(XE1MJ@GF4 -M;(>V"5N,6-CIO6"QH8]Q$]EN4;FE7HX>,KAZC8!(,?W3V74*U$^EQ@<%=</) -M<7'/QRNMNK9NIVD2LN_M"701]5-TKJ].M#:KOKW6MY5*NS4UPSLO5AY)D\F? -MCL<1?VV@06K(J4'/J3)#5VW4["23I,'E8E]9.`)&'+MVXN<J4X>03C*KW%LW -M20&_5:5S;Z'Z@JM5P+M)V"#--"F#!R4WD4NQ6LRC1+`2""47D4?=.%?)%<D/ -M,#.T`JN]LNQL=@58?!=),2>56?O.XXRH])J@@$.TRWLHV@@',GA&]QYR.4SO -MRDR,<(R"1)`W^4B(V!2G>&IB3JVX[HIW:-1`.`<80.B9!(([IYDP2)[IB2)Q -M]D#.=/(^Z)H@:L'ZH3&G#3O\)<B<E`39:,Y]QPG#1#G2,8B<E"UY`<8$GLB9 -MP"WXA`L-,&9&$],-Y=$<QND0X$AS((.QX38@J@2#N)W1-:-.<#ND#C;"=VG2 -M1[;J`,D\!(F6$&2!P4X+9&K,_1"XM#L9212@=I([)J@.K?YY2$1L?ND70TB, -M)$,0W`)VQA,&[P41(G/ZI-B,(I@0`1PGDG)^$SC!$<]D\CB90.T'8'<[(23_ -M`$[%/J[DQNGQO*!G<9"3M)$_W2!@2'1W"0@\?K"!:6YQ$\)I@<_*)Q]&YC@' -M9,=(=D?J@1$B!GNF:!IWA.(!F<)0W,2F@B!&9RA!&F#PC^<I/T%H`$)H,PP? -M?E."9W28!`$P">R8B#G]$"=J(_U3M$X;B>$YD`MF0=QW3-@C+9(Y0%I;K)VC -M8=T-0R[_`%3AH<[N!PF>-),B/8H'8).9,(!IF/;!)1$ZL>R$B,<]T#@0P'?@ -MI@9/Z).,-B4FG&V_*!P`1C/LD-0!]1CV3,.(`^,HFF),8^4#C5N/L$[9/IC, -MY(2$@8Q^J*1(:1]$"(],0<<)J>F-DY@M$?ND(F0J&/I<5+3(,3D$IG!I!.QV -MA.&P-ON4"(!$#E=A^'7AQW4;MKZC)8TA8/0.FOO[UC`PP2O>?PZ\/FTM6`L' -MRLWIG+/UZ=#X.Z*RA2IT*;,-'*]+Z);MH4`-`"R?#5@U@!(B-PNB>6TZ>-EB -MN<YY1=5Z@*%%P:1C<RN)ZC5J]1O8W"TO$UWG0WE0])HAPUN$GW7#.N^$VNV- -M'RJ0B)A7K>F7#U)K2F2-ONKU"G!CLO/>7IQA6S`QHA3&F0"4@`'2<*1[FAN( -M6:Z2$P"6XP5,T#&%`Q[2_)_56&'MNIMK22FUNG_52M'HQRH&$ZO2K5`#3_=6 -M4T`,,0!",LT@3^BD$.F,)G./*K*%T\H28B``GJG_`*E&7`[S`02XB)1-B9C" -MB8X1,DX1TG09/*FQ/'I@#Y3^6,N)@CV3-)(D(Z?YC^J*!](O?`0U:`;D?16& -M-&8'Z)ZE)KP`X2.45'08W1&".Y5@4QH,)4F'4('W4^D:)'*1*I5*0!DSE5*U -M(:C&Q6C6:!.)A5JC6S);E18S*U"096?=6S1_3!6[7``^50K,#R3C"G2L-]') -M)&`@\HP?9;#K=A&!@JLZD!(`0K(?3)!&WNJ]1C]/I(^@6S5H`B`,JM_#:21^ -MB:1EO;IG!*A#'ZCO'*TW6WJ,A)M!H$&$TNU&DPG?CW5BG3@;[J846L),<HF: -M8$Q\*LVH'M.QS`55WI<9'U6D8C>)5:O2#G;;K4K"FUY:[4Q\%;/1.LN8[RWN -MU`+*=;$B<J&M1<W:<96ION,927MZ'9W%"\H2""85#JMB8)CX7,]%ZL^V>&/< -M1_OX7765[3O*(@CW*]/B\ORO+Y/%KIR74K0LEQ'ZK%K6O\S6Z3"[OK/3@6DM -MV7-=4M2*1TSCL%ZIR\MX9#7M`B?U2\QO<?=,*)Y!E/Y/S]TTO#Y%K-)F71]5 -M6>0<`!6*YEQ;`&..56>1Q"E>H+@2/8)/!D2-TSMA)QV2(F'$X]D-&<,X[(2) -M))&41`'9"X]T#$&9@&=BD9`B"2$PSMQPB<US1+AID2)Y1`$&1.Z1!X!!/&R= -MND9<X^R8D2/[HIP)]61"(2.#'>4)@#_1%3=+80/+MR23WE-LTZ@DZ8&04TX@ -ME$.!Z9S!2W[I9#1.4I+M.?:.Z`?3S,<)`$DX=/`2AP<<X2/<[#;**>J^GJ;H -MU;>K.Y00TGL=DY!C4[Z2D3)D'/NA#`@..GM&R0)`^>R=I+<S![)R22),H&@` -M3E-B!E.23DY]TG0.?H@89=CZ!/.,9[I@Z,#*0)$^Z+H[-B8D]PD<MS'=-,@1 -M]@G;OB"B%@'\T=DQ[!%D[QGB4P_(80-&8.",(C@;`I-D@`&9X2&\0#V*!MAE -M-N,\\HX)'!.^R$N&G;/[(:.&XX,?JF(,SLD)&0TY"0$MQQNH:.#B(&4BT<$' -MW3@B-Y`V"0#]<M$&,C*!`#<\]D\M%0.C4`>4T>F"W=)L!ID?14/=.I.JEU*G -MH:=FZIA1N]@B#26ET8:)WV0F-!Q]5`Y!<=1&!RF&Y@>^Z0(E.8!$85":V3D' -M"<`:<#;=+4T99(/)*=H$=^Z!"1$#*<09F?HD1MRG='(DSW0T8>SI]D]-OJ@D -M;[)@,;F?E&(&^_LBB.6P>58M[>I7<UDD@;*!NDD9,_J5VGX?]#JWMPTFF0T' -ME&;Q'5_A/X:T-;6JLDD"%[?X8Z;%`'1"Q/`_164[:FP#``7H/3:#*-'3V6<J -MXR;NTEK1--L]O95.LWS:--T.B%-?W+*-)V8A<AU2Z?=7&ACC!*Y99:=,<=GH -MNJ7=QK<XD$KH>F6^&B%3Z):!K!A;MM3T`8^<KS97;TX8Z3T:(:,2`IF-QG9" -MT@-P<!4NJ7].WIDS"Q:[1+U"Z;2!,C"R:O7*4D!T%9?5;]URYS:<Y[*G1Z/7 -MN8<7EL]ESN[>'3<C:/6FR2Q\QV5RRZR'D`N+21W6=:>'SI:,GW5D=%J-R&N! -M"OK4]HWK6[-5FH'Z`JRR^+?S#3[K!L35M7!KP8^%J4GT[AHV"FMK&A0O&N/Y -ME-4K!W]06-68^B8&J!V34;PZH.RSNSMJS?34>Z7%`V=63`4=&J'"094K3Z@1 -M&5N7;-@R('I&ZDH@ALB$PRTG]$3()&(5TSM-3P8S"GIM`,A1,(.5*#VQW32[ -M6*8!@2BTMG?.TJ&B1JVE66%IW"!1`P[[(RW!F4@0`)&/E-J&<H(J[/JH'4X^ -MJLN+2TF=N`JU1P#8,E18JW32-C*KADF"%;())2;2C?=.U4JC-(5=U*72X0M% -M]+42!.%%5HC/9$9M6F&["0JM5H`)G*T+EI$P-N2J5<8/?E39I1JN]6X5.ZK% -MA)/"N7`QJB#^ZS+MI<W)(!X4BZ05>IX(:[([JG5ZH8!UPH;\-9(:!/*R+IQ) -M@'*9$TZ&WZDW5)=,JT.HTW-`7$UKEU/)<<=E2NNN/I,($^V84F5B7';T,WK# -MC4/;*FIUJ+VP0"?E>3?^9;IE3,Z?=:?2O&#&U`*U32??*U,_\2^*NZOZ/]30 -M1_=6>@=0=0KBF2L;IO7;6ZIC2Z9&_P#L*=[VEVMI'>97693+IQN/RO1[6LV[ -MMPT1)&95'J=DT,((^BQO"G4SK:U[L]UV+A1N+4.!X7J\7DWQ7C\OCTXBK9-% -M0Y_1-_!-[_HNCJ6)+S#"A_@3_@*].W#3X'N-RZ8G"KDP2"#&RL5\F&S([*"I -MZJ8@F1B%-O2A._<#W2.H#V3NB3N1&2FJ.);OM$?"J<!P9@_KNF<"<[9A.6Q@ -MQ*8YQLHIO[[IG;03/U2(W&>R:">3\J!#,G*7S(A-M[)\=\<D(',1DR`8R433 -MG]X*`C)!G='@;<JAIGCZ%)P'"1'SC=$/RSNG8$D=\#(3">Z=P:!D^^$HD2=O -MV0)F#R)3NB,QGNDX``9'U"1'I,<(IA^4$B>Z9\``C]D_],S!A*0/^H>R`(SB -M<>R=@)G.Z3@``Z1GA,#/$(%IC'"49!V^4XR)/"3))$9[94"(R2(3/V_=&0#. -M-]\JUTQ_3J=.Y%^RJ\NI$4?+,0^1!/M$JBG!C<=HW3"=6#D(FDZI`GZIRZ6P -M2/D;H$"TN`<(2<,P)^$((@#;Y*=TD8?C_P"Y`\C3_ACLG:X@[S*;$$S@=RFU -M9E`1)X.=D)!C"67&>P3`8,9*!`^J28'<<)R0-G<]LIB!/")C27`-&78B$"&/ -M43@IP#!,'2>3RF<V)U-@_97.FCS[6K;%S6@`U6$[D@9'U'[(*U3`$['OA"<X -MQE.-,R,SRD[3J@;(`,C_`"3MB/5^Z3@#!VA,&R#E#9`Z3@;B-DWJGG"+9I2_ -MJS]4`QB3RB9&9F/V1%HD!IG*<-CT.G4TY:$"IZ=>DR6]P8,IB0#I&8[%.6Z9 -M;I(/,H?S/COR25%$QQ+H(1F3&G[E-0\LEQ<7#'')4]M3+W-`R51?\.]/?>7; -M`&D@D?NO>_PS\-MHVE*:?J@25QOX.^'75`*[Z4S!R/A>[>%NG-H4VC3&%,KI -MPROM=-+HMCY%)N`"KUU<BF,$2G>YE.F-6(7.^(;\'4QA@^Q7*UJ17\0=1=5< -MZFUQ2Z#8N)#WY)]]E3Z=;FXN`]V5U%E1;3HC'U7FRRV]&&.EJW8&L;Z=E:%0 -M!NX5%U9K6Q(V[IA4<YN(*Y6N\BS>WK*=(Y7-7?G]0N-+7'3^RT;MCZSX.%H] -M.LZ5"V#C^8Y6=;:WIF].Z2*;AJ))706%FP``-5>B[75@;<+5MW,ITY<8"WC' -M/+)<M+1@:!I&%:9:4Y@M6%?^(;6U<9J"1[K/_P#.M`5L5!VR5O<CENNHN^D4 -MJK(T`#NLVXZ54MI<P$CV5OH/B"VNP/6"3[KH&TZ5Q0($%/69-XYV.1I14ECQ -MD8(*I]0LG4W:V;>RZ+J?3#2JZV<=E5%)E1A:=QW7++'7%=\<M\QA6M5[:D1A -M:5JX&">56NK1U*H2V?E-;EP,+E.'2S;7ID%L0$MLZH"BH$>7JG=-4>5U[<UJ -MD\'=RFU`"`LRG4@R2K+*X(W51=IU(;&I3MJ@;'99@K09+AE%4N1$"")R5EIH -MBI()F$+GQN539<0!D3\IZERV03G"HLNKL&^ZA<\..3E47U'.,CNIK9WJTJ-K -M=-@+D]:0?9-3<!F$3G`CU&%649<`8]MU#7>W3A'4(+L9&RC>!&<H:4KD@M)A -M9U8')C&T+3JL:X$!5GT@UL&,*:V,VJWDK.OFAQ(;_HM:Y87/V5.M1(.RD@Q* -MED'DR<'.5G7UK;TY[KHZU%P8=(63=60?5.K.54<U>6C"XN#C]`L3K-E+"0S8 -MKN+BP@2!C9974NGZV$'93U-V/,>LNJT7END$#W61<U*A)>:;@!R.3\+TOJ72 -MNF^0T>5_,`AQX/NN3\06MM3)T,<Z<XG"W+)PW[[Z9W0.O5K9[6ZX`&>?[+OO -M#GB)MT/++B';1_L+R/JE-S'DM'I.T!2^'>LU;&Z`.8Q!6KX_N+%LO%?072KK -M14:X;E=]X6OQ5IM#SF(7C'@[KM.\HL!/JB8/_9=]X=O13<TAVZ8WZ\_DQ^5Z -M0&L(G4,I:&?XPJ5I=TS;,/<*3^)IKU?NO+^T_/.Y=+W%I$959T`[J>M(,0(V -MF=U7=(?&5Z;VTC<09`XY2JX`;!VS*?&L`NB3DH.=\;)0F@D3G?=,\.!S@^_* -M:21OE(N)(!=/RH&R7<;)`ZN3D<!.R"9G,[(<;YP@6)D%WLD#@$.^Z4`F9,>P -MA(#$?N@/`<07`\2G<X08V*%O],IW#TB!'=%(D3(Q.Z>1G.Q0_P!'O.<HL:=4 -M(AB)_JSV2,%H2<?Y@`A.0)'$A(I@.Y3F.#.,IB0#B/V2`)J$;#]40Q;G)^XW -M2[B=TAI+^XXRFIP,@(&(EV_Y<)&0)`P$9PS!R3&$!)P3(A%+$23]$[9QF`F# -M)P!A(@8$P@)O?^Z1:"TQ`)Q\IRUHI?F:3.R%X&D\QE`Q&./NFGD1"<`D8!A, -M,G,Q[H'/R.Q3'!DQCE,X;QC,)VM$-<1,^_9`61C`QW2:(!.#P@(B!C[IP1.T -MSB$!.D-$;I-QP2F@:=X]DXC7^9#9$`),:"=($SPF@2<(@&Z@9QR4$A?-'0Z( -M&=1&4?3'`7U&HX2UC@YPC@&5"XR,$P[V3#?'&$!W`FK);OD#="-QC<X1!V`3 -MVB24S@=/^J)L,08YC!"4278,@(B#(CD(2,X/**8`8P8W3D8[X2`W))@F,IRX -MG$J!?TB!SV2$@@B3';E/IDF)CB4;6PW/.RH0))DG+M\IH:1DF`4AJ)B2`?=. -MT$@-YE`@PDMW(_5=E^'/AYW4;YA<UT!P,?9<_P!$Z=6O+EK&MC(SE>^_A%X: -M%K:L?49ZW9_92UC.ZXCJ_`'0:=G0IL;3#0!L%VU.FV@WM"@Z?0IV](#:`J?6 -M^I-8TZ'?<KEEDSC#=;ZB&^EIR0>5SH=4N:Y,[G=!7J5;FK(G=:G2K4,:"3\K -MSYY;>C#!;Z72\ILN&%>KW(IT\QLJP(`+01E*C1-5^J?NN5=I(9M1]5\SOE7: -M;M-,9(,*2VLQL&G.ZLUK2&&!!C*QITE9U2JXU>ZN![BP1C$8*J_P[F5@8WV* -MMTQI;D9(315RQ9Z0X1C<]UC^-.M&RM##@#NMFU>T4R-B!"\]_%-Y<2!\_.ZZ -MXS;SY\./\5>,',8Y[ZPF<"?E<A7\>5_-.ET@']%E>/7/IW08`=)Q^Z[C\"_P -MUZ'XDZ"[JW7*]8L-7RV4Z#@#L#)D>Z[SQX_6-^LW6A^'/CJJ^JP&J02=I^%] -M#?AYUD7UJPN?F!SLOE?QIX9'@_\`$3^`Z=4?4MG$/ID_FTDX!@;KW7\%;ISP -MUAF,?V7++#URX:W+'KMS2;5I;;KG[^D;:L2``"9E=-2@T&&(D+*ZU1:^FXM& -M96?)-QT\=U6-69Y]/4(E4*E`M>8^JNL?Y;P#SA2.HM>=0V.5P[>GI3HU#^7? -MV4E:"W/'*CKTS3<2!`05*X#(..Y5G"6`,->/A.ZH&[''RJU>LT2951]R"V`X -M+>V%]]UIP24A>-`!!SV60^L7$29E.R9P%A6Q_&`DP2)2_BIP=OE9;6NB#REJ -M+9.P_=%;3:NJ>ZFMG'5JGZ+$IW`!''.ZNVESD'ZJ+MO4R-`DH75`2J(NP6[I -MZ58ND?JKM(MM<&NB=T-;).1'LHR^`)2\S8?9:A2:UN3LH:C2YY4KW`@D'/RH -MWNS@_P"BJ*U2B`<M'OE0OHM/?93O?ZB21'LHO,SW4%2K1&F(E5&VC"XD[RM- -MSVZ5`ZF0XN_I(51FW5NT>ENRR.IV9+3S/"Z&HTZHX56XI!P((B$B;</U&Q=4 -MEI;@[K'ZGT2CY)<\Z3W.5WMY:NF0W?*P.N=.JUIW'NKZRL[>:=<Z9T]C=)R9 -MSNN1ZI94Z3M=,F"3$<+U>\\.VOJJ5@7.))DSNN;\3=`M?))INTD;2%<<KCVW -M;*PO`?539W+070,"%[%X=Z@*K&%KP9@@KPBO:NM;LN#@(,2O1OPYZBY[`VH[ -M((&-E<YJ^T3*;CVNQOHM*8UC92_QW_6%SMK=4A;L!)F.ZD_BJ7<_=.7+A\97 -M4$G<?[[*!PEA=!`&)!V5BX=AV?;Z*H\DN&,;A?1KA0/$R1A#48=$R43_`%'X -M0SQL2B!`]<">Z3@!!$DSRG+CI`!PF=)`QL-^ZBFEQ)=RG@`Q)DH0X3(G*<.( -M.)5#P8&?LG:3$1DI,)&"XP0FGW_5`8#-&"9!VXA(^IQP`$.-0DY'9'J!,.)# -M9RE@$_\`+`G=(B!EVV(2`]6#A$0)W!$2B`R&X.4Y+HB?NG<0.,).@"/K\(&U -M&>2>4.2#D=OE/(`:3N<)SD`@B>W"*0@.D)F@EV-Y1`C3&`)V"3G1,``H$0`Z -M3A!$CL$3C!R`3\I`Y&=NZ!A.@-G!X3&200C=+8$C*;4)WCL.Z!MP)CY3QB9V -M_1,2)WPD\C&-T#.DY.\II@DD`GW[IM7J[)SET[(IR9C`$#;W2`)@3!2&!@"4 -MQ+-,YDH$<>G$1E+`<(XV3-P?=.</VG"B"DZ3.9*8SJVVW3ZAH]TA&G!@JAFE -MT&,<)Q.DG)">)!]\X2C$NR?9`P)TD'(E.R3)T_=,V"#@R>.R=A8706F3L`@0 -M)D1,S&R-XGX[(0<2/L43W"((R$`@F0`)3$SD#`12.1$A,<F.Y4"R<$!-D';" -M-D8!X3^D@X,0J$QIU?[A/480-Y,;2K-&"S2?H.R,4QDD3_=39I4$`Y'PIK:B -MY]1L`G40("E;2R`T&3Q*ZOP'T7^*O:9T@@D?1$MU'5?A3X9;7:RO5H[$1C?W -M7MW0K>E8VP,M$#E<CT1]ITFR8`X-$#<_[[*'J7BHUII6[RYNTB<KGGGIRQQN -M5V[+JO7&!NBFX2L1]:I=.EQ.5D6#JE=P<Z3,86YTZD!$S"\^63T8X:7>FT&L -M:'$;=UH,=C?8J&BV:8#0K5K0+M^%RM=I#TF%S_>%HVC(`'9-;T&Z1)QV5FDT -M8(*RUI9H1N["DR[!4(@;'=.7EA$<HNDAH-<2-N94;[4G\J)E729[*:C6!,G? -M=3VTNE-UH\;3)X6!XCZ#4O!G)RNS\^D<0GI&@1F/E;QRC&4V^=OQ$\`=0K.- -M6@PN(R&_=9/@A_C7PH*E.UI.\EQDTWM)`]P/HOI^M9V%=OJ:T\255O/#O2ZS -M8+&2?8+K++-5C6G@W3[3J'5^HNZAU4E]=[L3.,^_"]E_"+IKZ6EY$`QQ\(AX -M5L:;P6TVD#;"Z#HC&]/;I&D!8RR28<[=I3.FD![1\JKU!H=2,1E9(ZL(`+\# -MW05NJZFX.3ME8RSCMCARSNHO<RYP8@JQ;U=5,&=MU2NW.JOU<3/=#;57-,$1 -M.%YYQ=O19PN]0JT_)P<K!NKD1E6.J5#!))'PLBJ`YQ]1,+6]UF22%6N'.P#A -M`P%SMC!PG93D@QGA3T*328.YY6ML]AMK<N?);GY6I3MP&R6P0$=C0B.<*Z:? -MIR``H2,NI3TDX]U'7I.(P%JFB!E"^BW1($*1JL"Y!IGU3E#;7<'\V%/UL!K? -MCE<_6N7,J:0=UK3#HZ-T7P9PKUK7]_=<Q85G",K8LJI=$HK<\_\`E",Y0&M( -M_,J>LP/TA#YT'3Q\K;*\:H([?L@J5=(D@J$.!V=[[IJSI&#*!5JL`F!["<*( -MOD\9"'U&9W0M!C.,;**D80.<3LG>[U1Q*B<^-MR4SB=."`FTT*070<*-S!). -MQ0PZ<G?A-#B"<_Y*RI8&HQIQ`,\E5;BU8]L1^4*VZ.^5%(D`X6MLZ<[UCII< -MQVEL\K@O&'1:F@N8#MG/RO6ZU,/;!&%C=8LJ3@X.#=E>*SO3YSZK3K6US%0' -MT&22/=;G@WJ#J5W3;,-D3&W"['QMT2TJT7O$!PG^ZXFPMA1OAI$M!WGW6[JQ -MJ7;UBROV.M*;IF1O*E_C6+G+"NT6=($G#0%+_$-[E8W7-\XU]#JN#`YY*J52 -M`?1'NK5?#N!.ZK5A$C$;1"^C]<43R9/?LE$24[],3J@SV0N_)^B@8G.(2;#B -M9@XPDT$X`^R$MAV1D(%$)",SLGW$%+2=])`]T"D:0($^R<QP"D6ZG?ETE*#' -M&-U=!XC)/*<@:>Q]TH@"?V3M&=X^$0TDQ@8"=S1&=B)3R`-`!GNF('Y3OO** -M;WTQ\)&#G!^4OZ)PD-\8'NB:,!)C8)$!I(TIV``;_?*8S.P^RBIKAU%PIMHT -MG4H:`X%^K49WVPH7;[9/9.\&-XG@'=,9+AD&.Y5^AMC),I;X**1)*%D:23,H -M'='/Q,IH&DR-]DPY=)GY3R=$G"!F@-)G;^Z0@D\A.&NXS*?4?+#8&.VZ`,!Q -MB/A(D!I:0`/;=)P,9,2-I3<>R*(1$;'O"8M$1!'RA^3"(S&Y"@&)^B7>(!*( -MQI&3JY28`7?YJH3)B&F`[!2#6"?4F]IPG<UP&D_*!"`"!E$6F-HGW3-;!W'N -MGTSL,'E`@)S#1PD&@$3_`-TQ&0!E$X''Y8WE(':`W/V/=/I))@),$@Y$^YE) -MK2!,!`SFAS9!SM\IPSN)2_,2(A$<.&,`1E1"#<D@1!3-&IOYAOPIJ;):2""1 -M_2HWB'X@HK0LZ8-,8))4[J(+<&",Y3=*!-,8!!5]E.7CL."L4Z1]-L/XBO38 -M#^8P3E>B^'*-'I%@*E0LUZ>#"Y3I56E9GS-/JX&Z;JO4;FYJ>6"X#L"8"7+7 -M3%Q]JWNI]<NKR[\JE4=H!C3.X71^&K-Y8'/G,87/>#^DNJ%M2H)F,%>@=&M6 -ML#1'/'*\^==<9\B_TRVT@'*W+2B2T0(5>RHDN&_T6U:41H!7&NV,%;4,-&RM -MTJ3ALBH49:%9;3TK-=)!4F0-M]Q*GMV0#(F-E'1'J^BMT6SB$;]0BF=\'V*) -MU*?@(W,=P)"E#'Z?=#U5C1&D"#(,PCIVIU=L*=K3,'=3T6:LB%E?52?;.!]. -M%&:-0#?Z+6%$N(X1FVD@IK:,;RZ\2'$0$%6K<M:`#*W76S2(&?91FS!!!:KI -M&)Y]PT9+DS;JL<$;+2KVS0(A5:U.FSME32\*O\35=@G"=MP\'*&KH#C#=^R@ -MJ%[L?LII=M!EZQH.5'6Z@S3+?NLXL,[GZI-I^KY33-J6K7?6W,IF-$>RD`:U -MD",**H^?3W34B;V=PEWIW"NV%`ZQC*AZ?2+W_P":W[&T@`D96:W.#VM$0`!M -MN5:-`%L3(CNK=&UTL!")[`QIDJQ&<^F&S`V]U4NZH:R-NZL]2JM#?W6!U&X] -M4S]%-M:VI=;K:FN`&^ZYBZ=-:/HMOJ+]605AW&*DD+6*7A=Z>X-<"?JMBV?` -M&GNN>LZGKAI"V[)P<-BMZ8K2IO)]1V'"($&(Y5=@=C.ZFI%F))'$*[1,T&1B -M$;((AT(?,:!L-E&*X)SLLVM2;2^ANWU"@J/DF-/R4-2K(,<>Z@:USB3G"SMJ -M8K6(GORFIQJ@C?*9@EN94K&9!Y5BZ$6C$#(0&!,B%9IT^"AJ4A&)`5TS5&L1 -M.^_*A=`,GA37+!JGMW4%3+(!6F=&UC29$*EU1NJD((D^RM0`-Y3,8'-AQ)2, -MY.!\3].N:E-^EARO/+VWN+/J$U&:0X[+WGJ-JQ[(`PO._'/2AJ+PW:2"%TQD -M8]K.&+:5&FV9SCNI-;>Q_P#WE5MZ3FT6MTNP$?EN_P`+E=)IX77R_`C.ZKO` -M$G^ZL5LDD'_55ZL`[8/=>ZUP0C,YPF>#`C9$`-)W33$S*&C#`$2F&X<,)3+I -M!33G=0.7!SB?V3`8W,>Z33F"/[I\3DC*H+29#C!]A,I&.3E-`G3LG/I&2/F4 -MV'#0,A,<SN>Z0<(,PG)#0-L[A`A(,GG9(G&YRG).F!L$C!W,1W1##`P?HF!@ -MD(@(GLFQO)12'Y)'ZIB9;JGZ2G&TSD8^4S]Y;(4")X(@H7&#/ZS*-P)$Z8)4 -M>G)(/UX5-$UQ&0?E(?/*0!!,)X@3!0/Q";U;$[)V_E2'YIF90."9"3S@<I]G -M1N?=`9+23)0*#I,#/[(2""#_`&1;`B29Y*4%W'L@'>$P[&81Z8(S*0;V,^Z* -M`?XA&$33Z?=+CG[;)-V]E`^H:?RC='3+7.EY(&TJ,`!TI^<!#0W#GCW1>=-J -M*,-`F=49*$X$<)G-!@,G43D*H0,8@?5.3D0!A#ICM@_=.TD?1021,>G?&4Q` -M:>X3R8`:9`R,X0PX.#?U[($R7&(E$6[%KI)W'9#!$Y1,^,'L@-KO1V*`3YFH -M\H@)`TPDS$3QN$&MT4C?A;-)M-U,Z78Y'=9/0:>JH&MS\K6KL%%FB#/*Q>S_ -M`!7J57`G\P'>5I^&[9UW>`@.C&^ZS&`UZN@-R>Z[OP/TLTRUY'N"N>66HW(Z -MCH%B*=!GH"Z;IU!K6B&K/Z;1R#$+>Z;1B#W7GW]=,8T.FT1`)"U*%/(@0.RJ -MV+-+1[K3MV"97.NTB:VIG3MA6&4=42E2;#8VE6Z%/GA&I$=&@)_+A6*=&?\` -M)6:3,[05-3I@[?:$:5V40.(4C*$M]O96J5)IYW1BF&Q&Z:6549:B1.%+3HMD -MX.%:;1Q*D9;SM,J6&T#*>WLC\LAL!6Z=N1`1&B-6VRK%40P@$\J-P(_=:3J` -M!.,*)]($0%$VR;BGJ!G=4*]OK.0<+=KT@W,`JI7:UL]NRB,2K;1@&/A15:+` -M!`,K0N2)G[`*G5(CU*;%5U(;DPH*M5K<3A'?W#6-C^ZS!4=7>0V3QA#6UD5" -M]_IX5NTMGU*@)'T3=+L7ZI=RM_I]F`084M;F)=(L,R1]5OV%`#C906-NYKI# -ML'A:5`0`8^4C5B3RVAA[PJ'4,-*OU9T[0LCJU0L80,CNE28L/JM1NDDOCV7/ -M7E4%QRM'K-7)B9*YZL^:D:E(TDNCJ9`S*R+X#(,"%L4V:QE9?5Z6G8+>+GE5 -M6Q)\[?"W^G@B).%A]-9#YX[+:Z</-K!K<*7)J8\-$/.`!,)5''5V]EI6]BUM -M`.]LJ%]JUS\K7.F9K:L:@T1V4+GSN0!W5FK;ALZ9^JJNIN`/IF5S;#4J`"!$ -M=Y4M"LT$`'?NH7V]1QP"HJE&JW+6II6JVHTB-0^BL4-,@@Y7-BI7823("GI= -M4=3YE7E+'347-&T)5C.Y6-9=3IO(!=G=777`&1F?=:QK-B*[;),95-_H!P%9 -MK52XA15QC!E;W$5"[>3[HF;D@_W4-W@]Q\IJ)<>?T4+$U;+28_58W7K(UZ#B -M6SV6N#)@;?LH[MWE#N"NF-TX91Y[4L'-J%N@X*;^!?\`X"NKK,INJEQ:)*'R -MJ7^$+ON./+Y#N3+M,$_)4%PYQ`&HD#8RK-<:B`V/5Q,0JE<-V:\P,;1*]*(Q -MS!]T,^DA%B#F$V6ND.RTJ(`D`$PEQ[]T[AOD?"3V@#!,';"!-/JD&(]T0,NP -MXXV*9\BL[4S3F=/9-`/,R>$$C=()F2?F$PR<X3.;#LS([[A(DY$X[JA-C3D2 -MB&G&)([\H1R"92:`>3[!`3B-6!$Y2:-3PWOW2B=,'/(3$Y@!02,)#2,04&-6 -MV$G1\^R:0!M,@*A'2TDDQ]$P(P=,Q]D0PWN@&#)P(WA%27%4UG%[PV2(,"`H -MQI@[>Z08#OEQY2`(<"Z80+TC&)3#:0!"=H.QC*<M],_E0,-H@2G9I+@1GV2# -M8),[)-@51)QL2@=S<P8Y2]ASV3/,&`9PFG&\F)D(AL\F4FC)WRG<"?;^Z0&8 -M!Q[J*0@F8P>2F<`<@X]RG(.G\WT";8Y$`_JJ$V)SB/=,W_ISRGTD-G'/*0C2 -M21!X'=`Y$_/LDQOJ`G/ORF!!`Q]47],0-D!%HV).>R$M@0#ORI/3_0'("/27 -M&2=D#.$1P.Z>F/5D[);#;ZA"S88WYA`8$F92@2#KR>Z>89@2A`R<">R((MD` -MZA]$3.T'ZE-&T[=@G+73IB>%`;/2\0`83MU5*FV_8(*9),;*WT^BUQD3\(-C -MP\?*8"X>P@*]>.#OZM@=E2IQ3<UL&#M[*Y:4C5J-;!(&\97+*\K/RN>%+(U; -MQKVM)@\C*]1Z%;>70:V`)7(^#[-K7M<6@>\?*[_IE.=.!G]%Y\[MTD:-E1V& -MRV[&F!`P)6?8T@&:C)_NM6RI%Q`C/=<[7;&-&U9Z1Z<+3M:8E5[2EB./=7[6 -ME#?=9=(L4:8A6Z+(XPHJ#/3D25=MV>K))114VQCG?"G93<8Y*EMZ4%6Z5(1@ -M1"U$VAHTR"9`^ZG;1U#:)1LI@'T[JU09W(CE-%J"C;Q(`R%89;D"8W4LM#AG -M=$XC3(X2QG=1>6!QL@J,Y4T^O'U0N!T$`[J"/2(@M4-9K8]U8,=Y"AK"9VGA -M04KPAHP2LN]+0"=EIW8AIET3W6)U.X:`YH(6+6I%.ZJ9QRLZ\KX(`SV1UJI< -MXL;RHA:U'ND@=UF+I2<U]R\``K7Z1TF(&G=3V%BSS`0`#.P72]&L2Q@Y(.ZO -M:ZTIV?3M+1+-EH4;4-`&GZK6I6T>F`$YMI;/*UI95*@UC3^ZL$`-D;%)M&'3 -MI@)G@AN\J-\`KO.GNL;JKO3(XY6K6.!WX67U$@L,]E$TX_KKX><PL&?,K&"M -MOQ/N[]I6!:`FN-HE).&,FO;L)I2?HLSK8:&;[+<M@#1(*Q^N-),0(A:CGW6= -MTN/-#"=UO]/HAE36TB%SEJ_RZX.-\9716Y-6E((QF0L6.DK?I7-)M/\`-^J= -M]U;L'])*YRNZL/3/J'NM#I%C7J-!J$GZJ7*QOTFMIZ]\UQ<0V(Y47\4V-7EG -MXA:]GT=I:"6@K1H](H`QH`^G^BZ3#*N.7DQCE*ES5+891)G?"@UW;G8HNCL0 -MNV-A:4A+F-'T4+J5H)/H('"Z_MW\N?[T_#BKA[J=,^=2(/PL2[O*9K:0`%W_ -M`%*QI7-,@`01D+E.K>'',<:E*,"<J7"SIO#R2]LO348T5&.Q\JWTGJTU?+J. -M_58G4*]>WFDX.^(5>T=J.O7Z@N=GX=-_EWS:K7LF9!Y4;JD3)E8/1NH#%)YY -MV6M4<'&6D0=H3_#1KIH(G49]D#):V=7NBJCZ9>200?E-KI^_W7 -M5P?'U8`%QU2,S_95JA&GXXY&5/<..HD<?15ZCGEQ$-''U7L<T;P-@`T("(., -M%$\C)D8.0FQZ2@1EL@[C$H,<E$8F0A=!$D\=T#@M=JG4#P1_=)HDSC=,-.DD -MB'#MLG!`!`_50%'J@A%#2_.!'W0L(B)`.\RD"6G`G*H0:/I/V3AO)'V2:Z-C -M[83`M$X[YE$.UHTQG.V41$#O[E,-(R.4[C/]6/9%-@N_=+2T$['^Z:1J.G9* -M>W"`B`6D3/\`=-I$3N-MR4X@M$P=/!35B`XM!+AR=N$-A(AN$VF1@?=%4+=) -M$1]4FX!P2@30=MCV2<W>?E(F#&\8RFG!SG9%(F!`^"D!Q/T2!`/,I2-<@$0B -M'<-1!!@3"%['DP!MB`B);]1RB)D2XR9Y0`<-DREI$0=D\MUD@[;2B9),B".0 -MH!P03,<IBT:3!F43C,Y^R$F`?5^7"JA:-P1O[[(],4QZ@9[(0?41!*1DG),2 -M40\`'&!RD=42#[B4[)+,$9,I-,GU'`V^44Y._J1:AL"A,C(/.Z6I-(8B792- -M-]/)!`(D2,(\AN")&4,N,R0.X"!VZM\PGI8<)_[I3`&W<RFV``.1.2@<F9`R -M.Z,NG<GZ(6-)J`3MRE`:)!$<*"2W8Y[A^JVNG6;VMD_U+/Z6QSZLC!G,+K7V -MWEVS06Y/`4J6LVWH5:K@P3''8+4Z?;%K@UNHYS!Q^R'IM-H9#X).<\+7Z!0# -MZ_J$CD0N.5KIBZ?P?1:UNIQ@]IGNNSZ=1)<#`6+T.V93I"0T<X73=/IYWCX7 -MF[NVXT;*D-#<$!:_3Z.F"(@*GT^CZ=EKVC`,K-=8O6E/V5VA2`SRHK-HR`K] -M!HD#*-Q)0IC8A7:%.(TA0V[,XV5ZWF`8E%2V[,#"M4VDC`P@I`00,0IZ$C*T -MR36$>EW_`'4],#5'9+^K?/.$3()$;'E0-4;.3VW2`,`$R1V1.`'NG8W2Z=_? -MNH!T`YXV2%/<SE2N`D#NI&,!&?N@JFD0"0)5>[+:8DK0KD-,3L.5S_7;P,81 -M.2LVZ63;/ZU>L@C4N>J^96JG<B5<<RI<UI()^JUNF=-$:G-$^ZY[;Z9%GTUQ -M!<]ICC"MNMVTF_E@]H6\;=K&Q_9974=+'&9V5TDNT?3F#7LNHZ32:&C&`N;Z -M29JY75=.+6@"-L*XM5H4:(<,`&$-2EI)@84]"JI:;0\C&ZZ\5GIFNI2/<*K= -M-TCU2NA;:MVC!5.\M`9V'NI<5F3F[QL#&RQNI$$.]ALNAOZ8;J@RN?ZH``3V -MS\KG>'1QGB9S1JS]UB]-@W!+5K>+B"TG;V6-T36^Z[:3]E/C&3IZ+8MS!SLL -M?K+<Z=^5NTJ?\@>_=95_3)?EOR4E<Y&#<T?+$B)&0M+HEZ�\S*:O;:J<PJ -M#0659_1:LVL_#H@UCJQ>#/;*Z+H=:EITN@G;"XVRN@)#S@>ZU;*Z-.'-/U6= -M:JW>M.\M7-;3D\*AU_KUITZF2^HT1W(6-=>(&6]@XN<!]5XO^)GB^O6JU&-J -MNP-@3C]5Z<.MO'GWIV_BS\2Z%,O;3K8'O_JN0J?BJ[SQ%<P8V/\`JO#?$/7K -MVXNG`5*AD_E!.5GW1ZE9U6/NJ%:FTY&MI`(7;]JWA)I]3>&OQ#IW,!]5IG$$ -M[+N>F7]#J%MJ:09XE?'OA?KE=I:"^#N).R]P_"#Q,ZJ!1K.]0.<_*XV7"\EU -M\=OXIZ2RJ'56B"1A>=]6\WI]SZB=(.0O6[A[:M"<&>%P_C?I+:]%[@T`1O\` -M93/'<X=?'Y/E8]K=,JL948\2.Q72])O?.HQJ]2\ZZ9-G?FWJ$@'8<+H^CW6B -M]:T.])[_``N%M^O3K5U'74G;F!"EID'(.>P4-L-5,3!'96*3(GNMPM0W!#7P -M<SNH:M5NF0,*>X:&DR>%0N7RSM"Z1QR+1J]0>(*7E'_&%6\QO^RG\QO;]5UT -MX;?(=S`,`AP[]U7J"'=YR)4]P6DQ(D<GE5ZI;`(,[X[+UUA'/&X&X49``!&Q -M1G3)GE"8@;'X40TDP#E,,.G8A&7$L#3$`R$((&44H$D&)PD\`G?(38U2)SLC -M/Y8QG]40P(R!]^Z<:0Z7'&^R83SMPD021P@.D01$[\I0)V&W?=,W;$@_*;82 -M52G#6C(^436MW<^,;^Z$9.R7^X0)V7D[Y3N;!.KC:$@V$S]I/^PD#Z6D1D$( -M2UHF<E(CF9GA(-)('/RH&`U'YQW1`$?/=`"0>Y[(].F6ELGB#_DJ:"0!L#'M -MRD(_*1F-TGD%VXPD"-,R"XJ*0'H@[CE*'3,_ZI/`(Y^J=FDND?9`@&:#).K@ -M<)23C4E5!D'(D2A8`AH36G8'/L81`[`B.Q/"%H(_F3@8[IH9)R8^TH$3`B"G -MR6:9'>4_Y6G;`Y*%@D9)]D0S6#`GZH]()R=DP!`&84M33H])@#@JJC$`=@,` -M),P[5!(V*1,Y,`%,W<F=^$#P[D(@TZ2-O[I1$"?HF.#Z3"`FMDY(G"9S"XR" -M??"<#`DP1[ILCU<?V1"`]A[>Z<`.=$B?V2`#L1_V3DD`8CA3H,`<F28V[!.W -M43E*"=L2IK5H-5K-LS*#J/`71ZMY5%31+>_?V6_XP8VW:VFT-U;=H5[\.6&C -MTXAK,D3\+/\`&.IUZ6NF)V"XYYS?JUAX[;[52Z)0\RL=8+I@8*[+HEGH:V`- -MYPLCPO:%T$@D[X7:],M0W3I&%P\EVZ3AI]%MA`U<KI;"B&M@9[+,Z50AHU#E -M;UE3U$2V,+FU(O6#7:1@`K6LJ4C\H5&SIF=_JM>UI'3[^RC<6;9@:9$*];4S -MA0T&`$*_;T8Y*-;36],`CLK5!D-'LHZ;6@*>UAPGCL5=":F`0`3/]E8IC$<0 -MHF`[*:EL!,!6"4-]0,HP!'RHV[_W4U(2)[J$`W>8(A3,9)S`A%2IAQRIPT!N -M4T(6TQ,$\)5H8P03E2NTB?=4>HW+64YD*45>IW(IL))7+WCC<5=,D\JQU>\= -M4):UQ*/I5`$!SQ)]UQRNZZ2:2],LVL`)9GW6DXTZ+,B!W0.<VF))B,K!Z]U- -MP!:TF"/LIO2^NQ^)?$-O947_`,QH`]UPM;QK1N+WR65&DSM/^JI>+A<7K7_S -M#GW*\TNJ%?I/7J=1Y(:X[Y@J7VK>&..^7T;X:K"XI"I,SW74VE2(_P!RO//P -MVOA6L6YS_P!UW-O5D`XE7&\)9RV*50"`#A7;6L0T$D2L:C4(]2M4:OW"Z3)F -MQLMN1IW56]N?285&M<:6D3^JI75X,@._T6KFDQ!U&JV""`9"Y[JC_28C*T;J -MX$.AP^%E=1?JIGV7.UN<.,\6.!!D[K&Z!J%R6G'Z+>\3T=3'/VC]5B=#9%WM -M,G"EZ+'7VXF@`<E5+F@#QMA:EC2/E@XRD:0-0J1AB/H$B%E7=!P>2W8KJJ]$ -M1$+.O+8%LP`MQ&`ZB1D'/[([>X=3<`XF#[J]5MP&$9SLJ%S1+7'>.86M;5<N -MZ(O+:`001C=>4?BAX9NF:JUNS#1D0<[>R]/Z9=.;4#7-AOLMFKTVTZE;::C& -MND=EK#+5<<\?KY)\,7%ET_QI:W'5Z`?;TJFI[*@X'RO6/_$'XT\$7_X?OL>G -MT[*YO:VGR'TF-FB`X$Y&TA:?XE?A9:W=%]6VH-94`P6#_1>&>(?!W5.FU1Y[ -M/29&QD1$S]UZ\?[>^WGRQF4U^&9T6L0]I<W\OZKTW\)^HO=UIM,-($P8^JX3 -MIUAY3,,)=M'NO5/P=\-5*50755K@7&<K/FU88O9[2HYUJV=U0ZN/,HN:3L%< -M8X4J$3LLN]N&ZCI=@<+E>(N$W>'`>+Z1H5!5:(`.3"BZ7?,?7I"#+MCP5T7B -M.C2K6K]0W"Y#H]L*74H!($X,KAY/R]F&OKU+I%8.MV@X,+0:26R<K'Z!'ELW -MD>ZW'M`9(/RKBEJG>G+O5CGW61>U0`8=\+2OGQ.?E<]UNNUC'&?U7?&..5X5 -M*MZX5"&D0A_CG_X@N?KW;_-=IV0?Q=3_`&%W<O6O`[D#S"7&>%5JN].D1!5N -MX+7OEK(G8`[JM<L+':7"(X7>N2%S2,@$2)R@&>%(X3$ND(1`/?V32ASI(@I@ -M.-T<NR!]<I.+2[`COE`!,[82>T"(TDD?;V1L$B"\#G)_1!IYS]U`B#JV^R0D -M081-`#ADHB!L'?W5@8DNW'Z0$VDGZ(X])WA)S=D#`^F,S^Z8"<1E.W:"=L)$ -M$"90(3$29W14C#FRT'V.Q33@YB.1RF(@9A`3RW=I4=:=3B'&"BS`@@2F<YP& -MG60#N$$;OM*<3L2?H4G:NZ0S$_LBF#=YF$\3.EWNDWDDGX3Q!,$*:#$G;4G: -M3.)38)C=(G$*AR3P283M)/=,"WE.2)B`1WV4#ZCR3&TIL[`PGYV$!,_?@]I0 -M(EP&28"%KB8!/W18#>-LYW09)[J@I))@Y"D-1SZ(IP(;[*-C9,$@>Z)H])R$ -M#$&3V[A(`B#"D;ALD84CRP6X:6#6#.J=QV326H7$XS/PF(=));]`C:9(,#/= -M'#8@E#8!J()&0/9"3#I<V>Z.!IF"`>$PQ^5L'N@.D3.!N-TU0D-@3*3=X@9V -ME$]D@X'R%`!(#F@".,KHO`/0J_5NIL;HEDY*PK.AYM9M,'\R]J_">SM[#IS" -MYK=3LRN7FS]8Z>/';J.B]!I6/3?+#`-(R>ZX+QC18[K@I,=MV*]*ZSU.C0Z: -M\AW&%Y:*K[[K3JO+BO)CSD[R:EM;_ANWAK1I=\KM.C420"6K!Z#1`<UIQ`C; -M===TFC#`,I]<JO\`3Z1:X`C=;-K3../=5+*EM#25K6K02TD05*W%NPIY$A:= -MMC(W5*WVQPM&U:3[?*C2Y;#8PKU!P)WA5[=@(^%88T#8*JLTCZ@)QRK-NX0? -M3"@I`R.59IB1/*"1F'3F%,P^J)^JA;JGCY4]$9R,%3:I&@D[%3T],?""@UQC -M;Z*5[6CA!(VII:9":I7QARJU*P!W52O<-;JSO[J6FEB]N]$S@+G.L]1)!:#O -MV1=9OP`6@Y*Q&%U:M!,K%R=,<4ULQ]:KJ,Z>RW["GHI1!/NJ_1[<""0"%M4Z -M;`T8CX7.1M0N*3GB<_"PNOT&LIE[H$!=:]K0"3PN3\8%S@\,)5LU-D_#A^J> -MNJ?9<=XXZ36NJ(-,B09&%W#Z+G5O4/JAO.GBK3RS"LO&EN.KM%^$[:M&T8RH -M22`O3K0N\L?YKA_"EJ;>H.R[6U>&@">-RL8S2Y]M"DX3$J1U9K6Y.0L\W`8" -M2<!9/6^N4K5A+G#'NM[9TV+R^`)`<LVO>R<N"\W\2_B):VE8M=6`(]UF67XA -MT;FM#:HRL7+ZZ8X5ZHZXU[F5%7<U\@1\K`\/=8IWK`=>>RZ&VIE\'/\`FI,C -M+'3'ZW2!ID1PN>Z93#;T;[KM>K6Q-N[&ZYFE;Q?2-YRM6\,1NV3]-,@[*>FT -MG)RGZ=;%U,$;J\R@`?WE,>6:SZM,021"KOH!_P#3]5JW%`$8(*A%&&G"VS6% -M<VL&#PJ=U;`4W-Q+AN5T%Q0;JG]U4JT&G<#/*VPY*ZHFD9`(*N=$Z@^F0UQV -MV"N]4M@>!LL>O0<QVMLA6KW.74FM3KVY!`]EQWC'PQ;7K7.\D$GL-EK=*NM1 -MTDG_`#6D]OF-@D&<JXYZXKEEAJO'*/@ZA9]2#ZM,%L\KO.A.M+2@&L`"TNL] -M-;5S`^BQ;JS-*F&M`$<K6^>$]99RT;[J%)S(:1]UF0ZM4]!D$K+N65&F"=D5 -ME>BW?+B2`N>6=^MX82+?B"U>RS+78D+DK*FZGU(:OZ3L%U=[U)MVP,F)[K.? -M9M%<505G/5G#4NNW0]`+6M!)(A;AJ,-'4:D'@+G>GO#6#U+294+F$$C(X*WB -M9(>HU@1#>5QWC"[\J@:<P7X"Z7JA&@DN/U7"^)W.N.JT;=N9*]&$^O/E?BST -MOICZEA2J%IEPG]58_P"$N_P%=?T3I8'2J`.^E6O^&-3ES]WQS5W]APJIW$`R -M5:O=+JA<&``F855X,D@8]BO6RC>3J,[\@I2P$Z09XGLDX3).23W0/W'<;H$( -MP3E,8G?!1`9Q"'?!_P"R!O8@GW2';!1%C@W+26S`(3.:0^1('$JAA^6(B$6\ -MG?;"%HR`"B(@Y"@+4<'@)#\LF4#<MW1-((&-^Y5#YVXY3/'<$)H)"9X).24! -M.<!L9^B0.?9!F$T3$H)`6')&3NA?#N8'NF)SN,)MW3!'>$4HVQCW"<'./W3` -M83!L'`4!.;!("8>[3LEI`,28`S*<`:?9`P@`04@)G"1$B-B$6F&_"H;TPGF! -MQ]TS0=<3&.4S=Y/'NH@CEHS@)`#5ONG`(W`^)3&)[>R*?T@'T@CY03Q)E&V( -M(WG;A,V`_@9V"(:28R8E'ID0-TY)#2UKX!W2!@QW0)H.DR["+4(@Y*#$P#NG -M`;OPJ&D`@?NB<2`1&>$((!QD)<G5'V0&R'-C?Z)G-C))]A":D&EI#0G@C&([ -MR@>F)=)!PC,MQ*"F,F!"EIM+GC2TDSG*@N]%8'7;7`1G.%ZAX4N7&M3H:H!@ -M&%S'@SI%-U'4X&>Z[?PCT84KP5BTX&Y7F\MEX=\,O6+_`(W:VAT@PXDQB%R7 -MA.@'W7FR22>5L_B9=Z6-H!RK^!+?8N$Y[+CCQ+8U;P[+H=``-DB>5U73*>1C -M'98O1Z0$8PNCZ53AX)V4VQ(T[)D1Q[+1H`$P!E5[1H!SSP5>H-;M*S6XMVS9 -M`,%:5N,#"J6K1I_-^JT+1L-U;A%6J$Z5:8`(]U7H@=HE6!M`$JJGIQ,*=CL1 -M.%!1VR-E8HB8,9*C6DM$?4*S1:V1.%#0:6^TJ1U4-W5V:25:[J;]-.GC<F=E -M%=5XY_55[BY`$ZMUGW-QO!E9M)%FYNL8&8PLZYN"9R@=4)D:OHHG-+C]%BMR -M,[J=1SGXF$NFD`^KNK56VUSB%&VV<P86+MVFKPV>G5FM``6BVKK:`#"P[*F\ -M/`+EJVI(@?ND6Q/4<\LCA974+!UP3JV6TQNJ!PIQ;-TSI]UO6V.G%U.BM827 -M#G=05K#2=L=UV%[0:&N`;E9-S1;L`5-2+.6/96K6OD"(6FU[64LIVTAO^JAN -MA#2&\+#2IU6ZTT708,+@?%+[BZ<YH<0%V=_2?5:1)@K'N[`YU-3MJ33PSQST -M2]JW#G4VN<)69;=+OK=C7.:6EO*]TN>F6[YU,&5D]1Z-0J/T:0>(6KG9#'*N -M:_#?JU>C=,HUB8G&/]%[CX=N&W%HTC)/N5Y=;^'Q1K-J,:`9X7HW@FF:=%K2 -MXDQNN/,K6=F4;74&`T"#&0N9-$-ZA`&Y767PBD8,K`#`;[5L96ZY1M]-MR+< -M1V4WDN`("L=,9_(:8X4U1OK.%TG3G6<ZE`@A0U:9#96C5I3PHJM*`<$K49K* -MK-!/^2J7%/>/LM>K1&8'TE4[FF0#`!51AWM)L:EDWM$`D@[KH[JB(]0"RKRB -M-41^BC6G.D/IU"YI+2M3I=X'0UYSLH[VD`2"/LJ<>55#FR"J6;=`ZFVI3G"S -M.J6@+.ZGZ=<RT!SOD*2X<UV(P597"RQR?4K8"8"P[VB0X@$Y79]1H,<3PL*] -MMOYI`B%N\PG#&HL<*@)V[E:#'M%/)!)&Y45S2%/U1D*M4K@-U2,=UPUJNO<; -M%BX&)S/NM`NTLV6'T5_FD$#$[K8K5&LI29F%UPY8RX9G7*Y92<22,+B>AU#> -M^,=.N6M.P71>+K@MMGD/CTG=9OX2VC+KK!K%N=>Y7HG3SW\O7>EVX'3Z0#?Z -M>58\@?X5IV=LP6K`!B%)_#M[+K'E?`-Q)JDSG=5WP<RW'ZJS>.EY@0"<<JK5 -M?G!)^5VKLB<)&,DH,[`C*E<1.VWO*!Q;I(@ZIP>(4-!R3,),'I(D=Y3EPC`G -M*$F3/]D#N)VC?A.2YP&HR>QW0!_^RG)Q&^-^Z:#9!B-NX1GU.)(P3F,)@8G; -M/UA-)D-)$#8*AY$!K6DG^R4XVV288[#Y3N)!(TX]U`S2=XA-F8C'=&S:8QLA -M<[.V1A`T@-T@9F9X2).F83NRT2`8"%Q((B$T'`)]1!SRF<T@Z<&1/=2LK.;E -MI=MI^G9`]V9C`[*J$@Q^6?A-)&8*)N4S@-YE`HR"3]-D],P8C8II'=(QI'Z$ -M*!R2-FE,3&THI`&\D'9`"),H$>#.R<9]Y2!W`&4[2([_``J"#HD&"(V*8$;C -MZX3$B,3GW3LB,$SQA1"8`23JX3ZMH/RG%0:1Z8@S,)C^>50\C5P)2)$$P/9, -M=$A$S000XG:0BADX[)-/9.V"1.>"B,:1IC"`&"&_*?&Y@?"=X$0(CDII!,DX -M&\)H)OOE$.^`WMLD0-YS&1[)@?5B/[J(=ADB`M#H],5+EK($SLLX1W``XE:O -MAMS/^(4]1`$J9<19-UZ1X.L7-HTSGX'*[BT'D6VJ,`25B^#:;/X.F&Z5T=YI -M9T^I$8;_`&7S[;M[,L9T\W\;W)N.M>6TB-41]5T?A"EY=LR2)A<E??S?$3R9 -MPZ%W/0*(9;TY'J,!:O&+'DXNG5]%&V%T?3&-P,@\K#Z'2'E`RNCL6P!@CX48 -MC1M)#8._RK]!N0"JELW`D-^5>MFR!$K-:BW:#(,+0MP!OM/=4K89VV5RD1GD -ME%7*)C`&RFI27*O;\*S1&>))V2M1:I``S*LT0,$E04FY$J9KH&!NHJ8OTM]X -M5*]N!,:LA/=U@![K)O*^IQB=E+5B2M<:G$`D*(ND$3E5M0D[H@2,0IMK20X^ -MB-CA`(.5&R'$#E6[>A)]E%!2]3NZLTK<$"1NI:%L"9A7;>B(`(5TOLJTK6(+ -M6Y5RWMR`)^RMV]NT1'"L,I,V5F)[(*5,1B,=U.UOHB%,RB`,DPK%.@(!W6IB -MSMD75OJ!.!&2LJ]MW-<3NNJJ46EN6CX5.YMFO#F@#/)4RP=,<G*Z71@;*-]) -MSC,86[5Z<W48F"D;"&@=NZY>KI[1S_\`!S,A4>IV8T'V755+8`0,E9G5*/H( -MVQ*FE<)U!OE.?MA95-CJESM,E=9>=,\^L0)AVZL]/\.`.U8.%B[IN1B6=H*F -MEI$+J>B6XI4P1`14NF"B[;;E:%*D`P8XX*2<I:J]3>!1,[A8]@T5;V?=:/5W -MM#2TF.%#X>M]5?61REYJ=1TMC1B@&B9C=$]FY.ZFM9%,<!'5`[_5=XXJ%1I4 -M>B2<A6:S=1C:%`6_>%4JI6G@?*HUQ.P^5I5VAQA4Z[(;I)"J1GW=.1,02LVY -MHF3^F%MU&C3@@_*IW3&AIG[J::CF^H4C!D[%8US#:G(@[A=-?T0YC@!(6+>V -MA#C@&5-MQ3MW.#Y!P<K0;5)9E9_ENIO@"0,Y4[7X@'C95SRA7A]&#*R[]OIG -MGV5ZX(#9CA4*YD<@+<<K&7?,+V1)G^RY[J-9].OY;1.5TMZV-7[KF^K4GNN` -M1,$\8A9RGTQO+H_#%*+=I(@]U9ZM4`)@^RJ]!?Y=D&@Y`0]2\VK3JN8,,;)R -MKXYPF=<GXVO/Y6AID@[RND_!GIU6F&W#@<G405POB=YKW[:8[QDG)7J7X14Z -MK;*DUV,`8^B[R<R.&?$>CV];31:)B`C\_P!U7&!&HI9_Q%>OT>/V?!5TT3J( -M#>T&56J@1+3DXRK-P/YG`/;=05&>K2X<*O2K$Z9`!!^4GMTZ02<Y([(W-&WN -MA,2>W!)4`;B,;IB,Y*>!ID83Z,$E`+A.!*9A)&Y`]D<YF8^J8@S,G[*A-;NX -ML($Q,)#\T'[!(`<S,I1+H`_T0(&=X!"3L#<X/T*)H&C;,[IC+G:B20@9KO3C -M.$B&G.T\=DA`W"(@;9A`.YSA,[#2/H%(X2?D90M:)(C$_9`+#C]4=Q1J4M(J -M-`-1H>,S@[)F$MJ-J`!VGAPWA27ES7N7,\^IJ%,0T1L-X_5!`P-`,C!_5.(X -M&R>!`<4Y:-.HC?*`($[3E-$$1RB($8R)[*ST9]K1ZE;U[VV-S;,>#4HM=H+V -MSD3PH*PS.,A,YQU2[C`^%/<FD^ZJOH4C3IN<2QDSH$X$\X43J<F.(^R``T$8 -M(F=DP',<J0T26X!_R3FF2XC(X$E4"TPXB`0<2DW$1D1OS",L(=Q[%,6$^HN` -M^2H&$1./ND^`8&>^488=,EPC@S"8@#5(:<1GA`+FM!'O[I-TD=C\I.:#_4`# -MV1A@+8)&_=4"($<HZ+A3J:NV1'?A,QD"-6Z=S&B(<!B4`AH.2[)RFD2?43]$ -M>EHD:D_E,`:2_A-@&'W/=%&29.W?=/Y;/\8']T!#)F3"!L<D[[J:W>:-9KQ\ -MSV0!LMEDCZH(PX3LH=/6OPTZ[2T4Z%=X#L`2?9=IUR_I4^CU"QP&L0#*^?>G -MWE:U>'TW?E[+;/BB[KT!2=4,;+RY^&WIZL/++_9TW2GBKU\O)D:H_5>B]*IB -M&,#3``@RO-/`G\VY%0Y)S\Y"]0Z,"6,Q&Q7/.:X8SR]KMU'0V::;<[?JNBL6 -MRT`F,<K$Z.STMG.%OV`P#N3NL$7;8`&(5^V&`Z?H%4H,]0,>Q]U?MP<3\J-1 -M98(`D0K-%IB95<$@YV'Z*:@\GX^4VU%VB,`JU1C"K6WJ`5IK0`,J5J+`VU9" -M:I4`:/5!0EVD8^RS[^X+=7J@!2J'J-Q!/JQLLXU2Z<SF=T%U<&H^)4=!QUP= -ME!8:TDP"9^59H4G:<R5'0;)!!]U=I#/;W[*:78K2E+CQ')6A;TAJ$`3ONHK> -MGD3E7Z%)P:.<YA61+4E&D&R>RL460)A-2!=@8PK%(-@3\0M*DIB`TR,J2F`7 -M)`!V&P2G9^;M"HL4Q(]E-3$-Q^JBIG/]E/3$C/PMQ*"KANP,JNX'=6ZC-\J( -MLA^)"595>G3#B<"$]6D"V8E3,`#\B/=/6(`(^JFFMLRM1R8$86;U"WD'`6S6 -M[XB%1O=);@;KG9'25S;J.BX@C8K4L-#F`1E5NHTAKU-$'=*SJ^7$F5QZKI9N -M+US2U<1"JW3A3IND20,*=]VSRSZA*PNMW^#DB>)2UF1G]6K&I<Z`5K^'*9#! -M(^JP++57N)W!.ZZKI+0RFULS&%,>TRZ:U'#!S")X!&-^R"BZ![E2O`^(79R0 -M5&&9(QW4%1F8C'=6G-QOME05)F`JE5JK`!@&53>S)5^O.D\*K4VF=E44JS-! -M)5"\!+<8E:=U!DA4;B#@G)4VU&749)(GC*S[VE`+8,E;%8-!D$*A=AIU1OOE -M-*YZ[IN;4)B.,*`@;[$\K3O!/ITX69=L]4@^\*QJS:.JXND$<*M5T@1"FDD^ -M^RCN"-)!&58Y933*ZBZ).^E85R]KJL-'J&5O=3PUTD?*PJ[8?M))PY,JXKMC -M6+:6(B),*OU*\++=[FGU.!!,*%U;2T,&_99_7*[OX9P$1&4PIE&+;UA5Z\V? -M5Z^WNO:_P_I>784_3!(F>Z\2\)M?<]>:3_34X^B]Y\*L?3Z6QH&-*].$_D\W -MFO#3?<L#R'-,C!A-_%4_\)5.L[^:['*'5[+W/%M\35H#B2#CE5JH!XF%8K1) -M@P%`^`X:_4#N`N;VHG$Z"T_E&0/=`?B92?ZC[#8)H..(,[H&V!E)H`/_`'3O -M:00!VF4P&0$");DP!/Z)B"6@QCO*)^<F7$<RA<XP`0"`H&W.HDRG!`9G&(W3 -MD@DN``D[#9(P)VGYA4)H]4B8Y$H@.QVW3-,[`RB$'!*!M(T@YG:2FG$2?E$T -M8[I%IT$D2$#;@0XR1E(8&'9.$FP.9]TG;",>T)0YTD[X]D`&X+D0@-$B?HA. -M1(R@=C?<P<I">2-LE-Q,0@:=.YQ\(">WW3`Z<R92CTS'SA(9.1L@+4Z!)3!Q -MU'8)W`$`C*1#7-)_+`^Z@$O=J,.,)M9<6R2F,S(28UKJ@:7:9_J*JB#G`G(P -MF!=@G<I#!P9,[IB1VE`@2#P.,)VN,&2,8RE(G_-,T2=(]1C;=0*?3G;X1AQ. -M&D1*!PSP([E*??Z*B1I,C&R<ENG!!GW0-!:S43B8W3P)B1!4!`D`GO\`5,\G -M5G)XDI2.\`>Z1D@095(4F/68E(NA^_QE+20(SG8]D[A#@`\N`R3L@=CM.'-D -M1M*$.,'3NF:`1C]24I]1C"B#IG`](GY4M!H\P0/U45,8!G92VT>:-P)RBQZ) -M^'E.&LU8C$_9>H]$;AITXP%YK^'%+66DN:.TGE>G]$IP]LU&G"\7EFZZ1U71 -M_P#EMF8XA;MF8`GY6)TMHAI6W:-,`X^JYUN-*UG`S&ZOT(`ET_'94K1I(GZ* -MVP:>2HTG)D8)D[*2T$B!^ZAI9V<KUHP'.!\HU%RS8("L#;V_=16\-`SPC+PT -M079[J:VJ*\J:)D\+&ZA<:I;B>5<ZE6'JTG*Q[DDN)/*R!8XET'\OPK=O3U.S -M\JI2@>TJ]9MDC8B4T;7+1AU?FPKE$MF9D[95>@P`[1"O6H$[X*?\6+-J#J#B -MM*W`(`GW5&DX-P#*O4*@:!ZLA6"Q2;Z"1]DS"2^",;RDVLTX$2I&:"Z9&RTL -M'2,84[#J(,`2HZ6DN$?=3!XF`=D@D8R/ZL`*1CHV.V84#*ITZ<;J1KLC:2M" -M<.PF$%V^/=1.?I^4[*D"<*[-)7QI)D;J*KZA&)3O?)F,)M33)4%2L#JSG*HW -M^)P%H5R-EGWC06F2L9-XL;J-32#E8ES=Z'D-,0M?K`Q`.>"N=NZ9+BX$X7#) -MZ<$M:^/DDZ\]ED7]TZK5#9QLFO2]F!RJUI2<ZM,<_=0L=%T"D"QN`)72=/;I -M8,+$Z*P-IMANVZW[0[?"UBXY+=`$NF,*R6:LGLH+8^KG*M2"(E=,7.H'M(DA -M0/$YB%9K8!C*K$R2(SRM(AJ06D'M]E3K`D?*N/@XE05&C/8<H,^X(F#B%3N6 -MMTDM_17;QH@F=\`E4:\G!/'=*U%.LT#X&%2N\B>>`KU;_P"["S[P2^`?JC3. -MKB7$[$9^JH7%,:'<DK2N6@`DJC<B!$ITK+>0UY]E!5?+C[*6[:0XF8$K/JO` -M>?4<JLW$-Z&$96)U!HF)^/=:]T\%N3@+&ZD[USJQ]T^//E-51KO`>0[A8OB> -MX:*+@2&X[9`6G6,N=J<X97,^*;@.+QJ)SF5OQSEFM/\`"JFRKUD.=!@_W"]X -MLGLH=+9IWT_V7A?X1@#J`<7""<#[+V,UGML(.T?9>GPS^3Q>>HJUZSS734C* -M'^-I_P#R+!N6N-=YU')[H-#O\7ZKW/*^7:WY@V`3['=5J[8)])'"M7`!)*KU -M-);.?A<'N5WD;<E#I&Y'V1G)W.$Q(TX)^J@"0';?0I$X+I(G$)P`1F04SVN` -MQA`&HDXF$^II$"?JB(`=.1^J8P3OCW0(E@,M)]TL:I((!2(!Q'WQ*38`,EWT -M*0.TMP&X]T[B`,Q.R=L;[RF@3B539PZ/C9(N]\;0FV.GNDYHWV0+$2#OA*I& -MF2A`$P#$(J[FOJ:F-#1VW40AI#07&(]DB0YL`3R7<I?U>K./A,YIX./A#H+0 -M"(V^4B2T07$CLG@1G<;82<UIYD(I'8P=T(@1+D\#/JE,6R>ZH(")@X3.+=)W -M)3_T[(7-,?FQLH%)$PF$\$%/I($2DSG2=MT#`NDG5D^Z6VQ`QLD0>=NR$P!W -M^J51$_U2,\2GI5#3,M,&(D'9`UH.Z<@!`MR8.V8)2/M@]DT`'O\`!2`$D;_* -M!QN<A.`(()CX30=P0B:#J.HH'+=X.R;8C$_">,Q&0DYL8@;;('#LG`@IHSF` -M/A.1C:#O@H3ODX0$T8P`4B)$:1/>4FMS,.A)S9=@[(@F2/\`)3V7_/;C"@`X -M*L].$5`,CX18]'\`:139(X7IW0A(;"\R\`L,,#B97J?06AM-N%X?)/Y.N^'5 -M=+@-:3QNMRR`+1DQ&%B=*@M&(6Y:B",;K%:C3MP/+YV5BGAH[2H+0"/[J<8? -M"RTEI.@C'*T+,`JE2:(SLKE"&MW1J+3<`DE5KNL`(!QV2K5@&F52N*FL0TY4 -M$-R^2294%>JPT@UM.'3.N=PFNW$-,G94PYSZ@RB=K5`-DP9/*O6T-V!PJ-!N -MD@;*4U-.2Y1J1KTZK0T$NA2_Q8#0)(GNN;K]2T#33,RL^ZO+UP])(:<[)MOU -MUV[=G463ET0IJ?4Z9P'97FU"^NGW'EZX.RZ+IM"Y>`XN*;OX6W&?77TK]D@Z -ML0K=&^8X8=E<U_!5A3U:R.52_B;BC7(!)"F5N/:XW'+IZ!97$M!+E<I%AR25 -MP=GUBJP`..GY6]TGJK7#-3]5<<I6K@Z$C`@!."X9;((4%O=TWM$'=66%I_JE -M=8Y]&U.)R3E&S:$P`W)1@8C.%-&PAP)_,F<^.4SF&)&%&1!&5`U0^J95.]!+ -M294URYPG*KU'@CU'/99JQC]3I%TD;K%KTR)&)*W[_208"Q;W!)W]ESR=<:RK -MVAJ'PH[:AIJ`E77Y:3*%C0'3N5AO:[T^`0MRR/I$\+$LL'?"V+(@D$'A:CG6 -MI:C$85AS@UN`%6M.8(]RIJH],S"W&$55QR=E`70"#N5)4V)!5>JTB3,%79H% -M5\'A1/<'#(^O">J8YG]E!DDPJF@5@'-@B0J=S3GLKSF0"3^BJ5ORF/W6NS;+ -MNF.DPJ%<<1E:=WALK-KCU?KA--13N&!X^%F7Q@XV'ZK6K2LV\``D@(LK)O2W -M<A9%T(<2!CNMB_:",+)OB6@I9LM9]S5()@0LV_?J)$3W5^ZRPZL`<+(O'#6[ -M,]HX68XY,SJ3RQCO+S\C9<;XCJ@U<Q._^\+INN5Z8:0V,\E<5URO-0EIF#E> -MCQSEQSZ=W^"[7/ZJTN_5>N=>J"E99($!>-?@<[5>NK:X`"]!\47HJ4"P/]EZ -MO!/Y5X/U%Y57]0I%Y))W3?Q]+N5GTM)I@D$HH9V*[^S$E?/=RQH&.>.RK/TD -MF6\<*U6>X$_E^55KETB2`2N3U(@!JDX"&-1_9)Y)=O\`5($ENXQPB&<T9C/U -M0F=/?W1N)`$D9V0:N1PJ&`,;_JGQ(/"=CRUI(`AV"#E,QS2!'?9#9CET9/LB -MTZ1L1\*2N^B7@TJ98`T3J=.>3L.4S3+0[3M]D`P9V/T2$P2EK)))W]BF:X:C -MG`0/EISRFV/*69$[#ND2,`2BF&<@Q*0!W,E$8G/Z)AC9N_,H&VD$2-X3-ATY -M._=$8,<?)3:1N9@\DX4"&WMW"9TS.93M@DC8(G$`?"HB^=BCHN+'!['9;D'L -MG<1/I!CLFY)@XX0/4<ZI5<][M3GYE#'L,(RYI,B"0$VIH,Y01P7/P9/LD#P? -ME.^!$RWL4(TSOO[IH.<QD3RF'<D$I2#B-T[2'`P<CA129G)A"=AV1-(C3CV* -M3O*X)_U5`-WA/!!W"3@`2)3P)WXR@<`#U#CND#!S]D0PZ&_E&Z0WWV[J(;?M -M\IR(>,[^Z4,F&X!Q\)W@#TDS'(0,R(W@^Z3BX^WR4WHT[_3**6EH&G(Y!.55 -M$2#$-(')W09`AN?=)L3))QC9.<&<91#AW$X"N]*@U@=PJ;6D@$`1W6GTND&D -M.QE9H]`_#_-8`#CE>J=`TEC,%>5?A\0;IC2['*]7Z""UC>5X\_[.KING;@<+ -M?M22T2L/I>X&WRMVT:-(GCA<ZW%VW.!A6*8+G0H:(!SL%;MF@0866XLT&0P< -MJ1QTB04-(#Y$(+AP!@%*H:SS!(*KO=IR8E%4<#Z95>X(#42JUV^7$3A16U,% -MP=ND]NNI`,@*8Z:5/=-$A[BJ*3,X7->)/$C+)CB7[<)>*^JTZ-LXO>`!LO)/ -M$G6!>W[J;JI%.=X6+;O4>KQ>/?->A>'_`!11N+R7/G,1_L+L_P"-H5K::?(7 -M@5O6I4&MJ4ZI#VKL?#_BNG2L]-:H!A;PMG%<O-XK>8V/$76V],OA5J&&3NM[ -MH/XA].9;-#Z[!`Y*\:_$7Q"WJ5?RJ#O2WGNN0;<U!@//W5F][CI/TTRQGMV^ -MIJ'XAV%W6;;4:S7N=L`5UO0;47E`5WMW7R1^'O5FV/B*E5K/].Q/9?6'X<]< -ML[GIM)K:C2(WE+;E=9.'E\7[7]6A?='!;+1E46V]S:O],D+L:9I5&#U`SV*! -M]A3JR"``LWQ_@P\UCGK+JSZ9#7DA;O3>JLJ0-2IW'A[S:T4P/E4K_I%[TT"H -M#+0?=3^6/;M,\<G7T+AKA((A6:;Q&XA<7T[J;F0UYCY*W++J#:@`:X'X.RZ3 -M*5FXZ;3].GB56JF780,K2,$''=.XDB1"5-:15!J:>ZJW+0`3*GJ.TD@G"AKP -MYF%C8RKQYU0`LR\;(,B/=:MY3AI)P%DW67;[_HL5O%2TG5$?5/I/,(B3&-^Z -M"8=!^ZQIO:S0QMN%J]/.`0<E8]%P)Q@E:O3#!]E6:VK-WLIZ@!$E5:#HCD'L -MIG.B"MQD#Q!.57K&3A2UG3,*"I).TJJK5"2["'28D[*7TAV<E`YPV_NM1FHG -M.)&^_NJU?(CA3U7>G.55NG#20`M(IW+001NLZLT`GM[J[7<1,*C=.,F/T15. -MY=!,RLZ_@L)!A7;DDM67=O=M,@H,^NTQ(*R;W+HB/A:5Y4`$;$+*NZX)))D* -MEJA?._EF<!8M^ZF&;Y&X"UKYS7,W'U7-=4J$^81$#<K.OPY=L#Q!7,.8'3V( -M)"X^_+JI?.0<96OU^L#4>`[/"PJCCHYEQR5Z_'-.'DKT7\'!Y5HXC[_5=3UI -MI>#J)$9PLK\+K`T^@,K3EXG]5<ZS<^LM8X%TP0%Z/#.-O!YN<DEO3;Y+<\*3 -MRQW5>E5'EC40"B\UG<+>DV\%N7;-('IDY"IU6'))&#RKE8>C42T@=U4KQ,<3 -M*YO6@)B1B"F<P`'41V1.T@X(S,SPA(!F2)'=$H`)@#8<IG[_`"C'Y2.^R&`2 -M8B/<HH'!LB`?A$S0:<:I)X[)$>KO"36@/@=OE4.\$'26P0<@J>G7;3MRQE*G -M+CE[A)^D[*`-`)./F=D0D-@$`(&`],DC!2(;J<B:T?$)B,[1]4#5(:[(V3$# -M223'PDX;(@R8:(S(W4`B08#1(_1,_#>_`1%HG83O*8-$@$?7V0T89:?G,)X( -M,C'9,1C';=2.CR\B%0,Z6D#&K=)Y=`U2G#89,?FV/=(M$80,9)B4(:?>$^B1 -M@0$;8TF9S[H!#009"8-_I.(1N:(=F$+FD@#4<\H&<P1!S'NHB(=)^REJ.&F` -M[[('#83'*B@<(.^R1!=DF.,(R"'&9@]BG8T%QU:BT;P@%H+=."/A-^5^[H[J -M2&D$"?JA=$S'TA`TR?S"#WX1%S2(@`]^Z%D1S*8;Q.P0&#Z3D"<)-TDDDXW[ -MI/:)P<;Y1.:0R2[=$"V1L[8X2))F#+DW!.K=.T`.W/T[H'@D3(2`)D<$)JAU -M$Z73/!2:-,912CU8'^^Z/2(@B#V*`CTET@'@#E$,G5JB"J@K=LU/\UT%C1_D -MM,0.%B]/:75=/?E=3:TW"T)(PW("YY5J1T'@`?\`JVM$"<97KG1)\IN,PO(O -M`LBZG'SVW7KO0/\`EM)7ES_LVZ?I@@#/ZK;M1L9C&Y6/TULM!F%LV[8;.KA< -MJW%ZCF<J_0;GD^TK/H`F#(RM.S;@9E9;2%Q#-B%4J23)5FJ[$;0H'9$'"NC: -M%Q!R!LJEVZ9$[JQ<``0%4=)))2I"I-@:MH69XEZBRUMW0[*L]1O!0HDD@0O. -M_%M]<]1N#:VY)DY/99SRF,>CQ>/VKCO'WB&XN*[F4G'1/=<5_P"H=4)=J))^ -MB]1;X)-2B:M7+CG*Q;OPH^WNH#-0!Y*S/),7T,)CU'-65.N6B7[9C=/=U"PP -MYQ`[%=)5Z=</=HT&6M$``<*.MX4O:C"]M$GY*D\D^MZD<9=/<XZI,'&^ZJ5- -M1$SD;KL7>$KL/=J88!'U4'4/#%U;VVMU+*Z8^6.>>,_+D[>L^G4EKB,[KN/` -M7C_J'0WL8Y[WT@-B<A<;5I:7DZ1`*C:)$?7==;)DX98_*^EO#7XT6!#65ZP8 -MZ/ZCA=WX?_$WI=X6M;=TSJ'^(?YKXQ:7LR.V#W5SIW4;FVJ"K3K5&Z#OJ(4] -M;.JX7]/C>GZ`>&NKVUZR6O!'L5J]0H"[MM+&APXY7R9^%GXM_P`$&6_4*NGC -M43@[^Z^A/!7C_I'4K&F]M]2!C(UC_-7'/?%>?/QY8)NI]*+=1##J"S)KV57) -MP/==1<=2L[QYJ4GM+3[[K!ZZ^@X$-<TGY6+X_L,?+9PL]/ZH*@$.RM6C<AXC -M5MA<&XUK5WG-=Z>ZV.C]4%0:=0D?JL[LXKO-7F.ANJG:%&:GIR1\JLVL'4HE -M`:@.)]E*:*\+3.HX65=,TM*T*YEL<*A=G$AWT6:D4:DM)(Q[*"H\`8E'<.WQ -MD*M4J0V94;3T7CS/E;72WN(#L^ZY^W?_`#-UN])&IN^R%;5&IM`^ZD+B<'Z* -M*W`@2,J5Q:<R%4@'1F/^R@N'%H($J4D..\*"JZ'9=ONM0JMYD/DF4!?ZIVG= -M$\"<"`@=I@P<JQFHZCH:"3OPJM=V5-7C^DX/=5:T8$_Y%:16K'(RJ-V\3\*W -M7=B"0,K.OW`M(!$HBE=U0V<Q&ZRKZN`XD#=6[Z9)+C)Y61?O+FNC_LK%4.H5 -M]6RS;EY,Y)"N5PTSWE9]\XMIEJM8M9G4[EM.1J]BN3\17H-+TC2)S!6WU60! -MDX).2N.Z[>.8[:`PG(S*N$Y2ZDX875GDO<"9Y`5*@WS;UM!LET]X*>^KN=4E -MHEP)VPM#\.;=USXIIO$PS,_0KU7C';S7F[>R^&Z!LO#5*B['IR5A=4JL-P7& -M)GX6_P!8J.IV082`(Y7%=0JDDN(F-EZO%CK&1\_+^657V=2H!L2?NG_XE0_Q -M?JN6>^7DR<^Z;6>Y^ZZZ:]8X2X9',G;<JK6:7$RT;8"T[H>2#Z!K/YIV'^:J -M5:[)E[6O`P1IC[+S/4H5`X"=B@:(SOPK3G-8QX:^6NSIC*KD@B>WZ(!J%SW% -M[@.V/]^R",_F@SO*DC;4=QE"6AQ!(^@4`$&`"?@=D_IW=O\`*<S$D;93;'V/ -MU5!@!T^G_1(M!RUV)(]T-/)B?U1,(0L,"=X`GW3M$&3M[I/<"^-(`X`3O:0= -M+I!!RWE#02-+CS'9,"X8.W9$TM!!+2?JGJ5-1+G'/=%`!IW$RA?!='T4D>DD -M"4QT<S@930$3L"9&R,MD#@./.R8:"8[[IHT8RF@XGD;X2SJ`)."B8!&3PB+1 -MJS.1B4T@0SW/V3B0=XX12)TI@[!$H(W[\DE)[B223]E(`#."/=`\N`TF.\HH -M,:M\$H07$0<A.';<G9)D8!X13.U9V^J<.#1C20?NBT@R)`"8P0`<'NH@2XAT -M-/\`9(O!.70GX!D&>83>K,"1\H&:]P)(P"$W!).4^\"82()$3@I5.3@9D'A% -M4)D&2!P/[H&M`=C[IVN,^HC!W1#28QGX^48)W:0.P3:0,@X3L#9&H2#P#'ZJ -M@8(=)@E.Q[PSRPYL.()!'(_[I&(Q$#&R1$G3C3V"@)@)D'2"9WY^J1!Q(]Y' -MPF`Y..Z<CU`MB"9@H-'H30ZX)+=PNF+'MHC2L;PE0\VKS/M]5T=>GI:!N3L. -MRXY]MQ>\#S_&R-H7K_0!#6#;"\B\$M#;_3.)V^B]=\/D:6CLN&?:NKZ61H$# -M$+6MB2(_99'33D"`?JMBS:/3&WNN5;C2M&@C;]%HT@UK?=4[6=H5@XGWX4;. -M\->\F<=D-=H&>>45(-&\R%#?/`9RFH6JE5TO+0=E!5.AA<?U4X#34))^JQ/$ -M]\*%`M!S\J6Z;PQW7.^-NJ$%U.CDS$?9#X/Z4W4;FHSU.S^Z;H/2JO4KXUZC -M26S*Z\VC*%`4Z8V[+S[W=U[Y)C/6*%VVF&>6P?943TEMR\D#=;=G85:]3;=; -M-KTSRHD9"7^79N8].:Z3X48^MYCV8/9=E;^#;+^!DDZHSA6*#&TFB!GNIA=7 -M'_*\PZ2NF,QCCE<KU7']0\.T&U7`-!,[KA_Q&Z>*'3W,IXC$KV2YL:CJ+WR` -M<8*Y'Q7T(WC7`M)XPLWCITPRW>7R]U2VT5G`;?XEDUFAH&73)7K7BKP15I7! -M=3:8G:%Q_4/#-Y2.H4G.S!PNF'FDXKV98XYSAR]-Q>T3.,J1N@X!,QNM"YZ3 -M5MVZGTG"/LLRK2J-,220N\RF73SY>*PJC@&2''.)'T6MT+Q'U+IM1AM;VJS$ -MEH<8^RQ'3N1'M$)WD:,8'9:NJY^M>P^&?QDO;6W#+ISW$#=I/WW6YTK\7&W_ -M`%1E#4X,.[G'_5>!!Y`#I$D3(&ZEMKFI2>"UV1V*SZZG%<_VL+\?973>HV_4 -M>EC0YI,<+.I7KK._`+S&VZ\6\`?B(ZRMA2KU':F",G??W6[?^-FWEXTL<2'< -MA9\EEF[VY>/PY89:^/=^G7C*EN#KD0KC*HD1LN'\$]4-Q9M:7#@[_*ZNA4;I -MR5REVWE-+I=S,A5;P#08&/V1!YU3M*KWE26D?LCE5"[AI,;*@^H3G:.5+?U# -MF8*HEQ\S<%9K<7+,GS02<%=)TD^F`87/=+IEU0?JNGZ:`U@GG@++5:=-WIP4 -M-1QA,PB,[H*AR?=:VD(N[[%05W<3*3G9CA05'K4*%S\\QW*C>^!_JB,<S)5> -MX<!@G"U&*BKO.HSM[JI7J;F?U4M5Y,R#]51N'N&6XG?*J`JN`)^51NS&21]% -M-7>8D[G=9O4:@`,.CE61%;J#Y;`B?98M[6`:X=^2KMW7#3_=8O4:I>Z!WE;2 -MHJ[A$G8K(ZE5AKAJGOE7;IX;1(<[/>5SW6;EK6%PF7;DJ,=UG=;N@V3/I'9< -M5UJX#I@2"<-E;?7[II9`P`5QO5;B:CSK)/)7;";Y9SOQ1N:LO'IDCV7:?A/; -MG^.%PUD!HWWX*X>QMW7%ZRF&DS/&Z]L\*=(H]-Z*P-/K(EV9[_YKOK=F+R^3 -M+UQVGZ_?L<!3<<M^O9<CUV\ITNGN/G>H]QM_N5=\05A1N708U&%POBJZUO(! -M)R9A>SC%Y<,?:B_BJE3U^:&SPEY]3_YPJ%NXFBTM+H^`CEW=WV"Y>U_+U^D= -MGXR\-]/;3\QE,LJ'AIW7$]0Z8UCR((/*],ZXUUQU`TW?E'U4;NC6M>@T.'U7 -M.8UPGD]>WC]W1=1`U-)CF5"_2*8,[S(A>H=7\&"Z9_)<1&=ES]WX!OZ;=37A -MXY$;*;=9GC?KC3$("<SO*Z]OA"I3=_.!!(V*AN_"=<#71W/!57VCEB0!F<I2 -M#CGNKG4NG7-G4BM3<!W"J,;)+9`GNG#1SIU[X/=+T$-TM`(W=&Z?T>G&P[I, -MR<'[!4,79QQC9.(F7O,DIZE-["0]KFD\0F@3.<\(&!&0#)E,2.,RB:&YU`F= -MDTCL80(#G>$PTG`$0B@2E`T[01RH'I`!DDB>ZF)HFU`'IJ-,&,Z@?V4&S!P1 -MN40B<';.RH<@#'VSDHGZ0"21)0D@SEL>R9VEP`D;=T"D$$`1/NA><!H?,)P0 -M<')X3`$/,('80T;QE-<5"][JCX)=V$)8\N5&X@C`R/=`+LQ&D0B;#3L(GE"X -M#&1LF`':<**E!/&W*#5!+M2?<`2?9,6P"`<3L@0$\X3%N)B.(2]H'W2@MP8S -MVR@0`#`G@AA`&"A'[>Z378.<[9*!H)VPG$#!PD!P?NEIF3.RH36@8)!E2!H< -M,`F/=`W><%2-<6[8/SNH!:!D@$CY3:!S(/.$5327$M$#M,H#$D"3]4!M!([_ -M`*I])#])!!Y!3"-')?QV2+3.<(.H\&4PTS`&)(717=-C6^IO')6+X+HES0X+ -M<ZDUV@/.RX9]M1;\%TP+T$N$+UCH(_E-D$87E?@5A-ZQN"<KUKH;1Y;1,D+A -MEVTZ'IHV&J%N6#1@%8O3P0=]^ZVK!IQ$@=ESK<:UH,3(PIVRX`<*O0/V^5;H -M3IE1H4%C252N*PIU0_2UPWTNY5RZ=%,R8^%B7U:*AS"59-@OKEM.B7%WJ/9< -MK4I5NJ=3\O<3PKW5*[GU0P$$=UM>$[*G2?YM025RSYX>O#'TFVQTKHM'I_2Y -M;AP"IN:*M<ZFR"KW6+TN8VDQ^.<H^F6C0SS7%3+FZACQ-T_3K713D`2KF'&. -MW"JU;JG3)9J$!5+OJ]K;-U/JM[0L[TWVTG@-9`!D=D5&EJ."!]5P'B7\0K"R -M:[36:2/J?V7'W_XK=2)BQM2_$!SC_HF.6VYX<[-Q]!4*376Q:^X$Q.RSOXJQ -M94?2-1I=L25\U=1_$[Q@7.:ZN:378AK1_DI?"?CV\KWX9=522[NMY7C<A/TN -M7VO<.N6-I=UWFF`0=EC5/#=*H(\L$'V1]"ZD:U)KM0,A=/T<4[BHVF2/4N.U -MLN,>:^+/!U&I;.#*0'NT+R+Q)X9N;*LX%AB5]8=?Z53IT6N:X%K^.RX/Q+X< -MHW#S_+&<_"L]L:WXO+^7S1>652FZ/+/RH1:U0X^C=>T]7\$->\%M,#/`_P!% -M?Z1^'=@*7G/I^8Y@D-=^7]EUQ\UO&G3.X2;>"5:%2GAS7=LC*K.U,<=M)^Z] -MF_$;P>RM;:>FVK35:9FFWCM@+R:^M*E&X=2J4]+V&"'`@A>B>25QF,RFX73? -M56;F`<+T+HMK:LZ<7ZAJB?=>>VC8,!H!'NMNRZC4#6,U&!N)6<VKX[9.7M_X -M:W3C08V9PO1;![B!J.5Y)^$]VUP#>8WE>KV-352;F)"X8=/-Y>*O/?+("IW- -M0EN\2CK/AF<*G7<)SF5IYZI7U0P1.Z@MP7P3GV1WCB7'&$]AETD$_5*U&QTE -MD$%RZ*S_`"?V67TJB-`*UZ#2T`]ME%3,;Z!Q&Z"L1IV1>8,Y^?=15GG3GA6* -M@<<^RBJ[%&^I(Q$*M4<2[E6):=[X=&?E5JQ;$20B?4P2JUQ5):)@?"TQ45P\ -M]RJ55X;JER*XJ9+MRJ-P]V2#*H"ZK9*R>H59!`/W5B]K2>0LB^J03E:D9V@N -MZI#?4LN[<8)!W5BYJDR#.-EEW=:)DA7>F;RH=5N]!+3D+F>K7;7`AQU#D+6Z -MS6`$G\IW]ER75GZB'`B)5QA(RNNUAJ(#L@[^ZYVYESBX!IG`!5[JM8/J.:2" -M>\RJ=C1=5JZ&YU87IFI''+FNB_#OHW\5U-A<P1$_&Z]0ZC3=;64%T0(E8WX= -M=*=:6HK/;ZG#D*]XPOV,MRRI`G?*Z^#'=V\?GRW=.!\3]4TN>73O`=/^BXR\ -MN]=4OW,_HM#Q;<L-PX,?,GDK$IG^9G29Q*[9WG37CQU&K0)=2:X:A/9%![N3 -M6Y`HM!,?5'+>_P"JQMWY>K6W3!<.-2X>XU%H-Z;28T`-..96YTCI8-/43G=7 -M*]FUHPI:\#EZMI4;)8^?91:'-9_,9`_=;M>@T..<+/ZRP4[7,$\*;-;85:T_ -MC+OTLAE/<R@%FTUWAK9#$[>HNMP6MI2J5;K+V/-3RW#V"LARAZST6WNF%KV" -M7=PN(\0^%:UO4+[<2)VR?[+MZOB&B7#S*+E`_KMH]_\`,C3&Y"GK^'3'.QY7 -M6MW4ZNFH-)&(.$#6Z3(=MR%W/B2PZ=?,-2W+14W[+BKVVK6]8L<S8[PD_P!= -M\<YET9]6K4@/J/>!MJ,P@,EQ2+\>EH$)M3HB/]56B>-O5MV3AIQ!W33[!(., -M[!$V<9R8$>R4NT@H2XDF44D#;]478>9G?L40&-\?"',_ZHVF#,1[;H'8#ITB -M!_=)C!)`$^X3`N<Z`W/ZHV4JKGDMI.).ZB;@1,8@<(?ZL*=UO6:#+'`*!\ZH -M<"JNX8<QD'A`\2["?4T"8(E,]P(](,G=#87"!!'J2:V3$'/*=CF\@DI?U;%` -M0;'R$+@.\%&YS-,^W`0AS2W$_0*:-E3:/_Q#W3/(G@)PX#(D'YE`7!QW**9W -MN?LG.D-RGJ5`8@#TB)0:P3)X0/$@)0?@)]0G&R3BW$?H@-P;$S,I-.DB=O9` -M"W3$[;82U`YF(VP@>#J_*G<"3B#'NF+F@"<%$"W2<CY5#!H'])4E,'S(.!*C -M8YNTX4U)S-;9<`/=!V_@YH;:`[GN"M+J$:2"J7A,--C(``*L7[FMSJGA>:_V -M:G3:\!,+KO5F?=>J=$PUIC/LO./P\I:GDD;<KTSHX!(@B%QR[:=!8-#F#=;M -MBV6[!8UBW8@X"VK+`S]I7.MQH4&D-C!5JD1$QRJ=(G?5CW*G+@UO/U*C1NH. -MQIG98/53II.).5K/<ZH[=9'7ITZ=62=I6:Z^/'EA])HON;_(P#RNUITZ=M:# -MXW4'A'HU/RA6>-U9\0!M"F6@X"Y:O=>GVENHSF`UKD.X'"N]6ZK3LK')&`L2 -MCU!E%I).W*X?\1O$%9[#3H.=]%-Z;F'M4WBGQZRA4>RD[4Z8@'_1<9U#K_6. -MK.TAYIM=V_[+.Z;;NNKXU*HF3RNCI6S:8V(Q]UC+6+V888RZ8M#HQJ.#J[I) -MXW72]'Z=;4:`UM#BW]$UG3!>T`\\!=1:VE(V>&B8F96,;<JWY<M33C>I=,H7 -M37%M(-DKF3T?^%ZH"#&<+OKRF*3W`-()Y7$>+;Q]"\:[8`Y*WC;T87EZ]^'] -MH;JFRD'0T-G==)U.>DO8\5</&/9>0^"/';+*BUKC!;B94OBWQ_5NS.LN<-HV -MA)-37USR\65R_P`>K'Q#Y\,K5AC:2KEM9U.HTP:,OC:,KYLNO%767534HEQY -MQ*[O\(OQ;%A<ML^L![6N(]2W,;]<O+X[C/XO3[FS-$^5<42UW8A36%"DRF0X -M@`]U<ZUXCZ-UGIC*MK7HOJDRTL()`6795]>IIX4RGK7+&^^/*+J-K0\Y^FG@ -M\B%Y'^+'A9U6[-]0HQK)+H$?V7LKP"X&"8[Y5#Q#T^E>6I:Y@)`X"U,JL_AE -MN/ERM;NH5M&W&$SG%A!'!7:?B%X?-A>NK"GAQ.RXVY&C):"?NNN%]GJLFMQZ -M3^#MVYU4#)(`PO;.E5?Y`)'"\)_!>/XDQOC9>Y=.`%N.#"QCW7A_4]IKFL9P -MJWFD.)F92KDZL$2H8=&ZUIY052Y[HTX'<J[TJB9'(/"JL`+S(6OTEA=&F%+R -MU&QTVD6P3VX5]N)B3"BM!I8./JCJ')`D(L)SA\A5ZSW.$94PES<E07$`Y5@B -M+AM*KU7[G.5)4(C4#E5JAF3*K-15'G3NJU9\C.?E2U'B#PJ-T=M)*L9J"O4. -MHJG<U1!X5BN]K1G'O*SKVL)QL5J1*K7E3<+)NGSL=U9N*AEPX'*S;JIZG9$+ -M<9M4KUQ;,;+%OZT.,DRM.]?.`?N5A]5J,:TESC[*5F,?J]P\M@@QRN8Z_6;2 -MID`DK<O[F9,;#>5R'B"OYM<Z<&5UPG*Y<,BLYKZAF)/*Z#\/>E5+SJC2&RS< -MF5D6W3:CR):<G=>N_A;T5MOTQM0@A[ARNEN^(XYSUFZZBUMJ=I8-)(V7EGXM -M]3+'FFS(G/9>D^)KC^$L'DO&.Z\$\?=1-UU%X#@9*]N$]<=O!)[YN?KU75GE -MSC]$]#)AT.4#!!)@94]`MU`M])YDKGMZHV+=H\AL=NZ/2/=!;$B@T3PCU.[_ -M`**.D?45M0T4Q&,*/J-.*1(.0K]-N(4?4*8-J9WA9KP1S=.F*E4DF0J/6;8U -M(80(6U:V\`F/=4[JWKOJDM<T#X5HY>O8-&/+6)U:TA[FL!E==?VEQ@4W>HGZ -M*B[H]:"?,:2<J[9U8XFO8F"33#C[=U4JV&J"VWJ./,-PNZ_X34UD/=3(`[*I -M?V[Z3'4F:)(_I!E7AKVTX6XM'3Z:+A\"52O;'63K9QRNO=;>HSF3F6_Z*K6L -M2]^DAHWB$TU,G$U^E,V#=NRIW'3:@P&Q'.<KN:G209`U$A5Z_399#HD8W33I -M[N#JV]6G+G-/91D8,@CV7:U>E-."R6QA4KCH#:KCY8R3QNHU[1S5O;5*];12 -M:7$]EOV'ABYJTVNJ,/\`DNU\%>'+6SH.?5HZZIYA=*;5M8M92HD1R,*V:<KY -M?P\YI>#GZ-;F&&Y(!2H^'Z#20:1WB)S^Z],N[#RK1VH9/SE5K'IE%C-3F^LP -MI$][]<YT#H/3"]K'6GU)*ZRT\,]/`&FB,J3IEL&WD1$8E=)1I!N,1&W9,F)= -MUSQ\,=/J`M?;-CZK+ZQX!Z7<L,4-+CF05W(9$@#*;RR?21G98;FX\0\2?AY7 -MM230!>W<>RXWJ'2+RT>0^BX#.87U`^R;4'J:"L3Q#X5M+NB6FD,[8Y3==,<_ -ME?-;VEIS@;Y0$D#!F>R](\9^`JM#55MFN,3L"8"\^O+2M;5C3JM<TCN%9DZ2 -MR]`+2&X>'2.%$Z0<'Z(BT#(G[)B,SJ)^55"X&9+OT3C3J.N8CC>4[L`2XSW" -M"#/O/952@SB)2(.=@"EDDP=N2E!F"5-!S&H$'YGNDXX@"`G,$C(R4H,Y('8( -M&D:<8*6(.<!.0-(,C/"8`C,-A`[M0EID>R9L`?F$)5!)&!\)RXN`DM$"!"&B -M)VV4U#);)D_"KM!QLIK=L.;)[0@[[PN\LL8+1D0K5;0^L`=_94O#CW"PV`(" -MOV-(FZ$B<KSWMJ1V_@:CHI-.,Q*[_HU.3Q(7(^&;;R[9I;'==IT%I)!WG=>? -MMJ.AZ:,`&/JM>U$#(!]UG63)B``5J6W&%ATBW2$-DQ*BKO!@$A$ZH6L,B<[* -MM2FK7C@<)5BU1IC27'D;KG>M5F_\0#?Z6E=)>'R+0_\`V]UP?6;E[KXEN=., -M+.7$>KPX[=M9=5HT;)H:1JB-UG]2O/XPD`R5SEK6K5G`$D#Y6WTNAL9RIOV; -MN/HJOZ:Y[#C#ED7WAAE4Z],'.05VM-@TQ"<T6:9@9"OI*Y_N91Y77\-MLZVN -MG3@9G"HWS-+2US8/Q*]2O[:F]A!;L%Q_B7I#7-+Z8((,X7#R^.]Q[/TWGYUD -MP.E-+GAX$`+>I533`@[X61:L%$QI,K1H5-5.<_!7#"/5Y;LUX!4<97(>-.A" -M[I%U+<<+IKRLYK@!LJ3[C,O$3W6\;-[8FYT\O'2;NA<Z#J`"Z?H?1`ZBVK6> -M2#C*W+NE1J'4*<&9E2L#!18QQB<+>7DV[;W!6?1+048+`0<KFO%7AGUNN;6F -M6B3M*ZZA=0P4VF>)5_R`^U@P9R0ICDX7^-V\M\.^(NJ=!O12KU:A9.Q<5['X -M-\56W4J+7-JC5&1J7F'C?HYKZZC&Z2V<PN;\,=7O.D=5;3\UX;J$S*ZY8S*; -MC7KM]26EPVJV0<*VRDUX@E<;X$ZFV_Z?3J!Q)+05W/1]+HU''NN.-<?)CIP' -MXI](\RS?Z>"05X7UND:5RX"9E?47C^WI5>GN`'J((V7SCXUM'TNKN9W<?W77 -M&ZR;\-]L=.F_!JDYM0/)[?5>SVE0>0-UY?\`A+:Z;5K]($QO]%Z53=%./9;Q -M_+Q_J;R.J0XD\\H@TEL]E'1)>\S@?NK=)GNJ\RO0HN=5Q^RZ#I%#0T$B%1LZ -M4OGW6Q;"&QNI)^6MKU(C3[IB<2@&1GA)VV^$#/>0<%5[I^KE%7V@*K5<"2)C -MY5*&JXD$*O6=C*.K4$C.54N'DM*UME'<$`95*LXP7$XX4E=Y.Y52Y=#<A6<L -MJUW5ANDF?A9ES4()SRK-P\@N_NLZ[J``\>Q6XEJO<OP<CW67=5-),00IKVZ: -M`<B?8K-K5-1SLM6L(+BI+7%P``7/];K0,EO^BTNK5@QCX,_5<CUZ]TM=+IB4 -MDW5GY9O7;T-+F-W)[I>%^@UNI5#6<UVG>2L_IUN_J74FM@F#W7KWAFP%ITVF -MQS0T@!/)EZ_QC>$O]JY9WAUE*HQH8#GOLN\Z#:BUZ<R&_E;M*A%JVI7'>96G -M=N;0L]($$!=/T\W=O-^KSNM.%_%2_=2Z8\N]P#_L+P?J-P:UT]SA.>2O3/QA -MZPQSC0.'YDYRO*ZT$EPF">^Z^CGQ)'D\,[IPX:9C8Y$J6@X:MB1QE04CISG( -M4U$G8$D;KD[[:M&L/*;B,(_.:E0/\EOIX1R?\*;:?6]-LF..4/5`T6)(^(E3 -M`>O"BZL6_P`.&]S"S7AG;,MJ9-N9W*KW-,LIDD+5I4P:0T]E3ZE2.(Y*7LC$ -M;1+W&JX8]U'79`@">ZUC0B/A5G4QR$5C5K=[S$P-EEW5JW4=()DY*Z.ZHN/I -M`W45O92XN<`594L<Z_IX8UQT@GGG[JC6M@7D"F#$X"ZV_I,93(@#N0N?OG_S -M6L;!^%J7;-FF<+`5(B!.Z*MTBFYVD-(,296UTZWU09$QRIZK#J+6MGN4I.>7 -M*5^B:1E7?#GA^:HJ5J<P<"/A;K+=]2J)87-:03A;EG6ITP&BE$>VZFVN?K,; -M:.&&T84U&W=2;JV'*U_.81D0J]=XK.AC<`9*RK'=1?6JESR8&P'"(6S7'5L5 -MI.I:<D83,I2X''O[JIJ,RU8/XX`+HJ5!Q:#Q^JR*["VZ#N/W6_THM=3`SVE- -M<$%2M&.;*;^#@X&W"TK5D-@1'RH[JO3I#W66E;R&-9(C*I73J3<$H.I]2@$- -MQ"R;DUZX#FEQ)/"*+J%.A5U-(:00N"\;^#;2^I/JT`&O,YC"[BA87`>7/<2# -MPK(L6%N1/>5+(2V/F?Q!T:ZZ9<&G68=(Q,++R!!_5?1GBCPU9=2M7T:E(:\E -MKH&\?"\+\7=&K]'ZF^A581DQ@Y"2_*[XY>S'(+78^$,N$"20#LB,9,-2](=. -MX6V]@R9!.-TAZ20<@H\-<<80^GDJ!GD;MVE//!(^4G``CU2$B)/:!RJ'+70" -M!B,IMP9@GZH@,.]0CLF@`X(RH!9)SR$0+L@@;93M'NT)R`08*`#.W^JFMI;4 -M`/?91[GTCVGLI[8$UFD[R,RE'9=!J.;;MP(WRM[H=$U+QI(_J!/W6'X?IOKL -M`I@O($P,PNN\+VX_BV:A#@X#3O[KS^2M8NXZ-3BDQL8@0NOZ#3.(;(7,]-I_ -MECV76]`I;'(G9>:UN1OV3(;"T*8B3A4[1L08.(W5L;;_`"L5LUQ5TCYV1=+R -M^8&ZI7+R*D;B5<MG>30<\[*SMJ(O%%X*=$M#L[;KCG-%2H29"T>M7/\`$WD2 -M2`=Y]U'2IB=ESSNZ^AX<?6%TZC&\86W9PT<2JEA2(C]EI4Z8+06C;*8L^6I: -M#CJ$[>ZGJN`$3*@I@QOD(WCT223B5TCR54NH<9V!]UD=8`%)P.=X6U5I'1)[ -MK'ZO0<_N1"-8WEQ%_5-.[+'0!,J0NBC(.47BBR=3)<!)X/98_P#$5&MTF8B# -MV7BN/K;'U,,IGC+&E0BHZ=4S[*MU:V>'C0?S=UG'J8MZT-S`R"-E;/5VU'-< -M3'?W6'>8V78+BDZB1JW/"AJ5#(SC?"FO7F\IRPR&_<*G>-JMI8!!GA734_U- -M9OU5&Y]MUJMOBR*>'?!7/VCJK()'/V5FGY[7E^C$R=U>9TSG)>TO6'^8QYT@ -M3*X3Q'8-;4\YH#3JE=TYS7L=KXGZ+G/$S6N<"TG=;PRU3&?':_@W=/%G!,@1 -M$[[!>O>'#YC))7BGX4/\MI&"TD<?"]K\+$&BV(V"S)RX_J`^+@W^$/!SM\+P -M3\0:;*GB!C6B<P?NO=_&50?PS@#!*\2\16GF>)VG4YTNQ\RNF5TQ^G=K^']D -M*=BR!B`?V74D-C3MA9OA6CY5@P_].WT"U`S4[;`77#B/%Y;NI+2E+I/)W6C2 -MIPV4%E0),1]5<;3.T;>ZUVXGLVB<#"T[<"`)RJEM2@29@JVQS6CMP5`6N9$[ -M)B_?$H7GU$YRA=F/]PB[1UR""(S.ZK57"3D*6L8=`XE5;ATR`?[*I45PX<%4 -MZKY)"EN'&<'95:E4##HSR545[MXW!]QE4+BK(._,*:\=(D'?LLZZ<1SLM1$- -M=X$DG'*R[^J"QP`^JL75:6D?NL:[J$DMG'RM=,54N/4^2,;X56\K"G3($`_* -MENJ@8'.]BN=ZY?8(F.P":3M3\1=1\LG0<D0N.ZI=NN*WE@;G,*WUZ[<7RXDG -M/TRJ/1;*YNKD5-#BP$$PNLGK-M2>U]7>_A;T!FD7503,;_1>@/MJ;6P'8'9< -MIX,O!0H-IC@!='6N@ZEK!P5Y9=VV]O1EQ1VA:VY@GZRL7\4.N4NF])J.%0-< -M00T'X*H=8Z_3L:[YJB0"=_\`1>1_B=XG?UB[+!4FFTD8/N5]'])CJ7*OF?J? -MYY:C!Z_U*O?WKZI>XAQ,_$K-,$`R<=D(<2<G?W39,9]EVMW>222<)A!S$1[J -M2W$.S('N>5`S#Y))5BEE^J<!0:K':6ANO[)_,_ZRAI.)IM/MW12>WZJZ:T^N -MZ5P`_2[!E1=5J--:FTG!5VO;LJNEV"/U697LWU+\14):-@?E3?/+PZ:%%@T2 -M"J-PT.N''LM"V86TG`G8*"G2PXD*6<D4:S(DJE7#9U#9:UQ2!]BJ=2FT/,B< -M_1%4J5N7NSM*DKTFTV$#`.%:)8P>F>Y"J7+BYQ(!QL@Q^L-F2(CW7-R/XL@R -M#,1WRNCZXXMI'(F#PL7HEK1JW)J57$F<`;!:Q9R:?2K1SAD>DCLM!UJ&TPP9 -M)Y[*?IC=1\M@)^FRV[7IH%*7"7.4JSABVS&V].`V4KDT=.K+2MJM94J#2YX5 -M2C:-NJWJ9Z`5!B4Z=6M7`)=H!6E3%%K`QC8`WE;#K.C2ID,:-L*O4LV:,B"4 -M5EUF-VD(6-&DJ6[MW-?#23W4894:<Y[HJM=TX.<+:Z.T?PXU3[>ZS;H$L,XA -M:70P'4!WV*J+6IT0'!5ZM`.)+R8]U?%(D845R`QDQ/NIH8]]9TMW.`5FRL6> -M6W2,#"&HWS@2[8<*WTTZJ!#>$4%:U]`[JK5MXD8^%K.!B")Y45:GJ&`)4(Y_ -MJ-$-,F)',+S/\;^B-K]/;>TZ8ULG41]5ZQU>EI:0N5\6VS;OH-PQPDACL`9V -M6;TWC=5\W/;I,$B9Y0-(@AQCV5[K5NZAU"HPA^'$01PJ+V^H&<>RW.GH,?S` -MR/2A&6Y."G<T9]1CW3L9+9!V_54*`1!@F<%,]I!'WRD`(*(N+_S'`;`Y4"9@ -MDEH'9,9#R,&.Z<M;@ZYE,UH(_,&D($))&!"FKTZ;'!M.HVH"`Z0"(/8_"B8R -M=C(]EUWX<>!^H>)KYHI,+*,P7P/\U+=08?0^BW74KHMMZ1<UHDQE37UDZUO! -M0<S0\8(/<%?4O@[P!T_HG074Z5(`Z,GDF%X+^+5B+;QC5#,`N)CZE8F5MTF- -MW4?A.C4#)!@#<@PN\\(VN14)!G<KDO"]G_(8=4!T`E>A^&[4-MVSN0O/Y+RZ -M3IO](8?,!P5VWA^A+`2,_LN4Z'3]07==$I!M`$`SN5QR;Q6Z3-.3A*X?Z8'* -M*J0%2NGR)#MEG;8*9UW')&Y5CK;W4.GD`XC*J].!=6U$\\H/&%8LM(#MQ&ZO -M4M;\>.\I&'9ESZI<3N>ZT;9A<X"%0Z6PZ0MRU8-$[+CV^E>(L6=(M'NKU)L& -M%6HZME<H`XX]EK_CSY#HTB'$Q\IZS0)QGA6J8]$(+BCZ9WG*Z:T\][47@EL$ -M2J56AK!!VC"T7T^9F<(6TAIR03^R:1R/B6Q-5FV!V7'7UJ:50M<"TSNO5;NT -M\T&`/DK#ZIT%CS,;K'DP]NG;P^;UXKS*^Z8*M,U&$XS'99CJ#V/($QL2.%Z+ -M6Z&6N=3@D$=U7'A-KGA^D_,KA<*^AA^KQDY<WT%M1M,`G<YGD+:LNE"N2X@^ -MK)"W+7H+*8$@86MT^R;3&G$RMX^+\O-Y/U/M>&%9^'62)IQRKI\.T6TSZ=^% -MNM9#X4PIE[<@CA;F$CC?)E?K@>J=`EITLW[!<5XDZ)=4*@<X%S9WS_DO<:MF -MPMG3)YPL3KO2*3V.+VM."5F^/['?Q_J;B\^\!:V513F(_39>Q>'+AM"RSVE> -M?=%Z0:5\1387$NG&5UEKYC6:#+2,0N,WOEZ/+E,X+Q1>.KL>&C2`"%P%C:ON -MO$)>[=KI_5=]U.AIZ<XXDCGX7.>'*&GJ+ZK@)G?ZJY3=C&.4QETZCI](4K=L -MB/3'Z*]:L+GB,RJE-X>0T;+9Z31)C"[O#GVOV-,-I@$94H:"XP8]U(U@#1,= -MT3609X*TY'8W2/\`-$^8C]T1<W3G!4<@SGX3I2,<G]4#WMCB4SB)[*O6>`"` -M,H%6JX.)5.L\03'ZHGN#N?DJK<56Z2B(KBH!/;]EGW575($;_HCNJS9)G?"S -M;JX`;@\PKH#=5B)$X`6=<U23B3WE'7KR<E4>HW#:=(P86Y&;=*_4:T&>RQKR -MY$$@?)"DO+K7))^ZQKZZ9)]7^15W^&-;#U.]`:>T&%RG6+AS@XD%L;$]E<ZK -M=M=K=J.!&ZPZ[JES6\NGZN)E;G'-:F-MU%$TVW=T*8&[@)]EZ!T2UM;#I0UA -MLEN9^%SUMX??;VPN2(.\^\(>I7]RZU-(/(XPLV^]FG2X>N*]:]491Z@[2,3M -M/NK'7?%3;7ISW`^K,"?9<97J&C3+G.)>>5S'B;J=2XJ>7K,-VDK>'BWEM/)Y -M)ZGZYU^ZO[FJ35(:02<K#>_5,YY.4QD&)^@,IG.$@-Q`7M^/%KD[8&0$[RQK -M@&O+\"3$0>R8`:9#OLA;^8`$F-U`='<XV'=3T##QNH&EI@@$"5/0_/B=UH:M -M(#RQ.Z*&]D%%H\IN"<;A'I'^%RJOLL@&J9V"IVK1_%/<),E77B0\S&-U7Z1^ -M=YW,K,>&I+B&MTX!*<TXI0,)5Z3S6EIE1W#KH`Z::G`K78@9[*C4C)G[E6+V -MG>53);I`506+R^:E0_"32AK/I@$:A.RI7-TQH(:`>_*T*EE2&3)/N50O*3=6 -MFFT0J.;ZW4N*N=`T9WRKG0K)CZ8].8RFZPUK7BGB5J>%J!=5;3`QW5B5O^&N -MF-ILUEGW6U492I,U&('"*U93MK8<+-ZC<&ZJ>32&.2I2(JC?XRX@1H!^ZOT; -M>C09@!!8VH8,1`W4M;TC3,E155[0ZH2!@*"Z:`PGG97"W0P[R51NG3,\JHS+ -MIH%6#GW3TZ>)`VRB<-50XDJQ18XMC^GV**HWUN#3EI(/96/#?J:6<C"?J\V[ -M=%5A:Z)`/94_#URX7;FAIR@Z,T_*&=EF=0>Y[M+0=,[K2%.K5:2_TM[*C?-# -M7P%"*XI#RH4?3JGDW9IDX)5ZFV:4++ZAJHW#7C8%%;=1P#9(5=M:GD$B5:Z6 -M^E=VW$J.[M:;7X_109?7'-\B8V'*YSJ`\RRJ0W)!X6]U\.;2ADD'NL^C95;J -MB:;&N<7!17A'COH-?S'W%*@2"XR0-\KC*E+2Z#+?HOIR\\-U*5!S*M#6'`_F -M;*\_\5_AN;FL:MHUM.<D`0!^BF].V.?&J\?C,DR$VD:1E=]<_AS?TR22"!M' -M_99MWX(ZE287"DYP'8+7LW,I^7)P-6P/MW2<!I@?57>H6%Q9U-->DYL<PJ;@ -M-]L;%6-!QK.>>45-OI=$']$0;(&?T75_AEX2K^(^LL9I(H`C4Z-PK>$WI9_" -MSP1=>).I-<ZG%NPC6[[+ZF\"^%;/H]A3H4:8:&`9"@\`^&;/HW3:="A2:T@1 -MA=93<R@WW[KE>>7*Y;1=5IM9TU^G,-*^4?Q?/F^-JH@8,9XR5]5>(;@CH]4, -MSZ297R=XOHU*WC"NYY!)J']UCZZ>.-?PI2.BFTNYE>A].IM%```+C_!EK+VQ -M]EW=M3`8T2%PR[=&QX;I@U@/<;+M;4BG2:-H"YGPQ;RX'3]ET55NEH`Q\KCD -MZXP=>I+`%3O'@-V$]RIFN&C:52O8\P;JQ?J[T:FXF=_W5#QDX:6,`,DP95RT -MK&A;:R`/JL._KNONH`?TM]UG.ZFGJ_3X;RVGZ91@-$'LMJTMB0(V5/IU+T@Q -M_9;MDP!@$+GC-O7G=!HTM+L[^RN4:)<V3QW293&J0(5NA3C<+I(\V5/0I@LV -MDCE%6;#/RSP%+1(:T>Z50R#Q[+;A8S7L()0O:3!.`K5>GG=,&R,$I$JN:+8] -M2J7K&M.`K]P2,;\3*H/IFH\N!='*;28LZM;ZG!WU1"FW#2-NRO5J$"&E1>3[ -M&=U-JJ5*#29`,<J*JW20&E7GL)$94;+<N<)G=2UN0-"E+`1O\J>FPATDJQ0M -MM+,C[IZM/&\=D`Z`:9(^JSNJ4QY1['=6*M=P<03$+,ZM<GR2)5M;QQJY^'=[ -MTJTZA5IWIHL>?R/JQ&ZTO$PZ?==8\[ISF.9I&HTXTS*\RZK6)J:P3*Z3PG?A -MMMH>^2=LKA<I?XZ>C]OUOOM9\37&FEY;")VA9W1[5P`>`02K5S2==W9=F`M+ -MI]O``(Q*J9743=,M"\@E=%84`T"1@*M8T=#0(6C1EL#=:CRV[$`V8C"*DW.> -M43&S!3NAN%I@-0"/\E$Z&A&\Z22>5#5J>F$5#7=P"55JEP:23*.O5@02%3KU -MH;$B40-:J(*SKJX&H]D]W7P1*R[NJ2-4[85@&]KC.5F5ZQ<?S)KJOOG"S+V[ -M`;(,+<B6Z3W=T*;")"P[Z\=5<?5A/?575!!,K/NZV@:<''"?XYU7ZE=:&D#5 -M\A874KT-8XU)&.%-U2Z#"Z'`;Y.RX[Q3U@4P0'#7V:=UT\?CW2W4375R^XN? -M*I9<[Z+KO!'AT!@N+AGNO-?"G6:8ZLPW$%I<,_5>U=%O[:I8M=2<TM+>"L^> -M7>OCT>*R8[G:;J5"D+8LC`&%PGB&B*1/EM[GMA=C?7M,L<'>I<=XDKZJ;I/! -MQV6,.W3UX<QU6YHBDZ1Z@.%Q/4JC:E<EP((*V_$5PX.(;L1W7/53KGB=U[\, -M=3;Y_DYH(`R#E)P).<E("-@3"=WYL2/JNC`=OWRG8#$YVS"<@Q,8^$PD.Q.? -MHB':#M^ZL4V[$;;J$''OQE3VSL[X5&E0>11:(=MW1^8[L[[I4"XT6D(O7V1M -M]F5?3;O=(&%!TMKC3)!$%7.HLTV3S,$JG9.#;2?ZE,?KYU6J4OJ;?9&]I&(2 -MLF$-DG)4CPA%.YIEPR85-],`&8A:-9IF(5"\:0[_`%05+MS!1C)*R;V&TRYW -M/"T[W3IP?HL7JSI],S/"JL:ZEU:??'*Z_P`(6IHVGG/$2N;Z=:FXOZ=-K,DY -M7<NI"VL0V,Q`"O42\HJ[Z]S4\JF[`W*M65JRD!OJY)2Z;;AE+5&2K3*1W=LL -MA.`:TZ2846D$R1`4U:#`&WLA<TC\PW156X=B-XQA4*Y&5=KY&WV6;>.+JF@8 -M[H(J=,N?JB)1UZNEHILF5*QH92AIU/.V5:L[+0-=;+BJ*%*R#O75R>R+I=%M -M/J0`:%I5:0TQ&>,JG1IM'4&NGE23E=MFLS^6LJXI!SR3]%NFGKI<Q'=9EW1( -MJ$PHJ&VI@TX#54ZGTZI4&IHD%;%C1DR-E>;2:1D)2.8Z!3JVKWMJ,(DX5FY- -M4U-3*9/T70"U9,EH@)5J=-E.=()^$',5+$W+@:K?HMOHW2Z5O2UAH!4EM::Z -MWFG;MPM+'EC2<++4C&ZM0IN&6C[+`O+"FYQ$#/9=)?R\XY[JA<4/23"NDKG* -M_014&IH#F\J,="I`8:%U/32R2QYP<*6M:,95D9:5FPCSCQ1X$L.JVCV5+=@> -M1AP&0O"O'_@^[\/7SFOIS2=^5R^NZENWY6!XT\,6G6NG5*->DT^GE9LLNXZX -M9ZXKY2\*]%N.K]7HVE"G)>[/LOJO\*/!MMT/HU-OE@.W)]USGX0_AU2Z/U&I -M7>`XEV">`O7Z5$4F!K1@!:WLRRW=*8(MQ)&!R@LA4O[L!OY0>%!UFMYERVWH -MB9Q*ZCPMTSR:#7$03[J;33.\74*=KT&H2-F%?*GB(,K>*JU3TEH<>_=?4OXO -MW'\/T&KG=I"^4[C57ZR]Q.SID!<LKR[83AVO@JB`T:0876TZ9!$A8O@^W#+9 -MDB)726S`ZJT3A<;RZ3MTWA>D/)!`W[+6O6CRLJMX?IBG;C"N=0,49PN.3K&; -M3J0TF8`X51[Q4K_F^B5W5TT#IF?E5+)Q<\F?F5N1<>:T.HU&LM-!,X[JETRB -M7.UD`2E>N=4](SQNKW3[?32&%QSO+Z/AQU&A94\<+5M\-`5.PI>D2`M&DP1` -MW2+FFI9=LK;*9T=YY4-%F0K=('3S\+>+SY(:0=,%3-9(DIJC2,!/!;DG*TS0 -M5:9[B%$:4L_+[S*FUY@_HA.,]ME6;BK/IDB"-R@-`,W$>RLB29V^J187?V*) -MZJYH!P@Q*B?9D'MW"O4Z+FOS]T=0"0T*4TSFV8`,G*=EKZQ`C*O!AG`D!.&! -MIWV[IK:JM6CIID\K-NM9&,GNM.[>`#E9E<@$P2LY5O#%0JAVJ7=UE=8<T&!` -M*U+]Q;3)E8%ZXU'[K%NGJ\>&V3?6H=+A.1PBZ#1N/XEK1,3]U?9;.JNT`3*Z -M;P[TAK*0<6C'LN4F[PZ^3*8SE/TRR8*'J;G=7+2T'F;):2RH!,`*[8N$\+M' -M@SR34*1!5AK2$31$<RHJCBTD#A5R3C#25#4>>\!1FJ2%#4JQ*J)*M0!BIW%8 -M@;&4-Q7);^8?"HU[@Q'=5-E=W!!PJ%W7+@3C"&ZN"2086=<5_>1/":0US7,D -MG99EY=','Z(KRO`,&%D7EP)))6I"TKRN2#J.0LFZK9,';WV3W=R).8"S:U23 -M&J2[LJQLU]=%K<&"5D=3O@*;BYT$!2=1K:)#IQE<7XJZU3:XM:2#V73#Q^R6 -MR`\3]::QI&K(D`RN'ZC>5*]Q)D@\(NIW;KBI+I@]YRJ]2A79:MN'47-I/<6M -M?!@GM*]>.,CE:BUEKI`),]UTGAOQ=?=.:&.+BP<$E<T3OV^$+26@B,JW&9=K -M,[CT]*_\[4*U,EQ+7G=9/5O$5*HPZ'9(7&EPB1@)M4#G[K,\6,=+Y\K-)[ZZ -M-6K(R"JSW9D2DT^O.1[I2"0<PMN)Z=32US=+7!_^+A!J[3["43HB>/W0[R)F -M-@@8OQIS'.4^H[Y^Z1T_[RG&?4Z8[JH=IYS]2K-&"\`X]U`(@<_"FMY#R).> -MQ5&M1@4FC*/[I6[6^0V>W)1Z&?[*;:?:'60!8NGLLSI;?->`#("T_$.EO37$ -M%4?#M-K:0,J8_7@R:#0`(V1.`DGA$\B1G=(@:<E5%:I$E9]U!<9,#Y6C7])] -MEE]1=`(`^R#+Z@YK)),E85>KYCB2W`*TNIESG\85-E#55#`,NQA6*N>%:?EU -MG7+VP-Y(72VVN]J:W`AC=IY63;TVTZE.V$`'\RZ&T=3I,T,B$J)6L+3MLI*_ -M_*$X1B"W!4%5Q<=,X4$=,'6FN'0$B[2('T*@KNTMU$[(*U[5#&',$JI38(\Q -M\DHG'S:VMQP%<Z;:_P`36#B/0TX44_2[,Z?.=)[!7*Y@:0KKF!M.&P%4J":D -M`;>Z:@A#26`*C<TRRNUY&)6I3'&TJM?M.@G.%>CMJVH#K4$%5;IDF85SI0!L -MT-XR,B)4O;416C<>P5RBR20H[2F="L._EL01UG-I#\RCMJ3Z[];YTC:4=&W? -M</+W`Z6K0ITM+0&B`LUJ(A3:&`8^%4NVFC)!QVX6FZF0.RS.J.@:>Z:&:ZH7 -MOS./9*JS6R-_A2NHZQ,9Y1T$`'L56637I.8Z1A7^D5#<,\MYDH.HTP6$ -M90]#FC7$P!*"Q=6]2W,\*"Y<W0&-(DK0\27-.C8$C>,+"\+"K?76MTZ0>5G3 -M5='T2S;3M-3ADH[VIY5N]^TA:=*C%O`.0,!9'7V'0VF.5*U%/PS9&ZO?.>WG -M"[VWI>70T1$+&\.6C;>FUVDR5T$Q0D;PIIJ/)_\`Q`W?E=&J`.$EI'[+YPZ: -M[7U02`2797N?_B7NG-LW-:?Z<_<+PCP\[7U8-``),R.5PO-KT83AZEX<<T6[ -M<1[%=#TTS7;_`'6!TBGY=LW$1M/*W^@4]=9L'E<=K([GHS!_#C&3PFZV0R@< -M*?HC?Y#1F54\6U`RD1@#E8=(YSJ5P<F9*KVM=S*9(E5+^MKJ;DJ(UW0&,6 -MLOXQV\./M6_TX><\8.ZZ"TM"&3DK'\,4R6M>=B>5VMM1::(@-&-UY^Z^A;ZS -M2I:4X;C4>,J[2IG$H&L+2,`_"L,!C,$+>G*U-0:T>DA3M#1@'=5Z32!NI6!S -M7;Y6XYT;FP9,$(G`8(&$6B6Y.R"H9(`B$9TK5B0XZ1(0@@L@;GA2O;/Y1LH@ -M-+P)E&]"#2!WGE'0G,D_(34LMC*EIB0!QPC-@3JX$DIPP1$0C+=3_;A&&0-I -M[^R)I$ZE@&=E6N7.#?=7GDAA`5"Y>.5;-$FU"YJ:R1"J5`T?"NUV:C,*M78` -MTR1LN==\69U&'`MGCA8E>A#IW6S>&'23\++NWZG:0L5WQXB]X<LYJ:G9![+J -M*<4&<".5B^'&Z*8<<0M*XJ.J8V^5O&:CR>;R;IGD5'X,\JW9,=J!/"KVE/@[ -MA:5JS2((DJO/M-3:`U1U0`XRBJU"`H'O<79A/\0-2-.#"JUZL$PY'>5`UORL -MNYK@@@`>ZTSLKVN6YF2%G7%<:3!37=8Y=B>\K-N:I</3B-U8EIKFMJ?^;'.% -M0O+H#`A#?W6@&0%B7U\03.5J326I;^[&3(6+>79#LE#>7;B<9G8=U3J@EI&O -M'<IRR&I6+X("I7UPUE,D^G$RBNKC^'9ZX=I_5<IXFZN3,$@0<+>&-M+0^)^K -MM;2=H=$#$%>>]5NG7%1SG$F3DA2]:OJM9Y`<8[`K+)).1^J]F&,QCC>:=P`X -M$_=*<:9D'B=D!'J.)^J>9SO\+89S=($[;E)PDDZ<I.)D"`?C9"23/MOE$%IE -MIS'L$(B<A*`&P/U*9TEW,!11/'JQ,)LANVW=,79A,?S$`G'?E$(N;IR"2=BF -M;,X!]LI.P!$CY14ZCJ=5M0.<2PR#G=`)$',CME/`.VI7>J]6O^H4:-*[J@TZ -M,^6QM-K`V=\-`[*@V0Z)(![JB5KCI@R/E34!/)4+7#<3CLI:3FSN?\E4;EJ/ -M_3MWV[*2/]PH[8?R&R\C&R.!_P#(FF]?X^Q_$MQ3/3G2HN@U*?D@2$7BVSI' -MISGM,$]I5+H%G4\D'S2.<A3"SEX,ITW6@.$@X"3V@^K95F4[FF/\34?\20V* -MC?JM=],GN0TM6+U4AK9!'NM6[N*>@N!$+F^MWU+\C#K)]U-#/N#JJ%Q=Z1[I -M^A_S*YJ$'2W8JJYEQ6<*;6D:CL970](LQ3<VC'I&^%J<%6;*S;5)KN!#CM[* -M:W;5H5`720KUK3U,T-`@*T^U8RD)`^JR(FW#31P<E"X-U9._NJ]>@X.EAV0T -MZ[FXJCW!14M0MY.RSKVKYCO+;L-U)=73?RM,RH&-QI&7%`]I0=7J"DP>GDKI -M+2W;;VX8`H>B6;:%#(EQY6@X2PJ-2*M>?RCE4Z@(82095YXSN20J5T2!IDF5 -M4I4&R-7U073&FD3P5-;M'EQ&WNBK,UL)[)2#Z'#J43E6*](YDJKT0AM9S8V. -MRT;AL.]7=2K$=)K0R20$U*FZXJ<Z0A8QU:J&M.!N5K6ENVBV.%%D*G1:QI:, -M#E$UA&2I`W&221NFJD-9`)^4:5[AX:R3@']%D5CY]<O$84_5:Y)+&DGA16M, -M@#NFD/2:-(VD80WS&M];3A3R&"2Y9G6[VFR@X`B?9-)M#5J!]73/PHV`"Z9' -M)6+;7U6I<G1)"U.EMK7%X-4Z6JT6O$6A])M,NEQ6EX-L&T:37$1*QFT7W?5M -M,^AJ[?HMJ:=%K3@#99:BPZFW0%B]58']1IL70560#G]%S5]6/_%&9B"LZ;=3 -M96X%L-+MDGU"UCFN_53=-=JMAO$+*Z[<BC2>[4`(W1?CPO\`\2ET"7-Q!;S] -M%XYX5<:O56D.'I(R!$;KO_\`Q#]0=7N@`8D',_"X?P#;/-1U:K^7G=>?\UZL -M9_&/3[*NT6S079CE=7X/+7U&D@#A<1T>7,:!!^5WW@JU.L%IDKS^UJR.\Z/1 -M!I@Z<+G_`!^2!Z=EUO3:99;\97)>/P"3)V"-1P=S4_G<GV5WIU`U:D`@E8]R -MYQN`ULR2NK\,VYTZM..ZQY;\>O\`2X\[=%T2T+*;=+,<0MZU<ZG`,_!4/1*0 -M;2:'85^LU@!=(GN"N>,^O3E=W14BW?96:5-I;@XW5!CS/$!7K=W8;KHYU/2P -M(($*2!EW/""D,"<^RD<<;+;G]1ZCO&$+SF2/U1@-Q*BN,-#P-E&H=VV9RHW4 -MM<D1*!E36_1ME6'4W-9C9NY3M>D`8YN)Q[JRP>D2HHU1J"FI.]7J&.R%$/4R -M9",-T-R@!C\F`FJO])@E(Q8CK/R2/LJ-:2(W5MQ#B9.ZJ.#G/ALD]E+6\8B< -M#"S^HOAI,&0M&Y):V'`A9/4)<TQMW7.UVQC+O'G2=1Y5.V::UR/?=3=0+0T^ -MJ3PFZ+2.L%W&5,9MKRY>N+;M@&4H!5BW.NIL<*M1:Z!$96E84QB5UKYN]K=I -M1!9)*M1I;*%C6L:-_IRFJF>R@"L\:H)^ZK5ZH:./E-7J`'*S+NX&HYF58E-? -MW!+3GA9-:O+LE27-=VHQ^JSKBHW(QE73-I[ROS)$>ZRKVX#?ZL=D=]<-ILR= -MN5B=1NY80TA;D8M0]2NI=^;`637K%YTS`15R:CC+C(Y[(6T);!&(A3:(:C`U -MNJ<_*J7-0MIR,&)5RY#:5-V#LL3J-UIEI]..=U9RU&5UR](IG5L)S*\]\2]1 -M?5K.#2<]N5O>+NJ-\WRZ;I:9!65UWH%RSI+.JM:31(RX<9A>OQX^O;CEERYH -MO<Z>?J@?^:<=MT>`=L]Y0`QOW[KLAC$>_P`I?E;`S\%(EG<?=(``R0JAA^8P -M3('?(3.U'GY`2)S![1A(D!T#;E1=FDG8%)TET@QV3@#(!3-@NB2@88,B4B0T -MXR"E`)(2<`<3@(!(+0'$'.<IHSZ=65;K6[J5A0KBM3?3KET-:X$M((F1N-PJ -MP@0-D0),';]4IF.W9.UH!U3OA.UK1I=P>90)CHVWVA6*1(=C]5'+<F0`>RGH -M#U#V*HUK:J]M!HEN.Z/SJG_3]D%`@T@8E'([+6XV^TO%;0>F.'^PL_P[_P`L -M"9'RM/Q.#_PJH0=@L7PNZ*4#)4P^OG9]1T8P)$0HZK&/&6S*.EJ\J>.%#=7` -MITMP(5L3;-ZI19&D$_`*P+FA3IOTM9)]UJ7UT^L_2P$D<J&G:O=#W-CM*2&U -M3IE'37#RPN=L`5T5A9.\N7_F/94K2W)JA[!^5;-J7$!L`'=7OI!VU,4\%N%) -M=/UB&YCL4]2?Z5`"6`EVZRU$=0P!C"SK]S9CM^JNUZH#<C99[YJ522W`053; -MAK"XSJ5WH-K48_S:[3DX4G3K9UU<`D>@+H:5"F*`;IA/^+"H%I9C=$\>G8@' -ME0U*;Z1EFW924ZP>!J])45&]AQ`^0LN^<-8CNM>K_P`LDDK'O/\`F'4>58E3 -MVAU`"9]U:`#V2852S,F&F%?8V&^RM2*MF!2O(F)*T;SUO;39,K)NWZ;IND[E -M=!TBTEK:KSD]U*U!]/M6TJ7N5<#0/=$RF!Z3DI3&_P!U&P/.D&52O:H8UQ)B -M%9KOWW"Q>HW&I^C[HBO/F/UN[\J5CS(:P%T]DK:B:D3^5:-M2938`&B?=$4* -MEO4=3+G'3[+"Z_;,;2.9]I74=0(93);V7*]5_FG1).5-+M1Z;;AL0T">0MNU -MJ,M*!U"'.V4-E0#&C4,!,VF;R_:&Y:-RKIEJ^&K5AJ^:3))77V09Y>.%D='L -M138(PMRC1(9B%ETQB&](;;N)/RN=KVIJ%U4#(X6QUA[F4RW,E4@1Y!EN_*G% -M6M3IU;18YSA<IXTO/-!IL.85]U_IHN8/A<_U:LUE&I5J?F(P25G*Z;QCPO\` -M%*SK7G664=XSN)51EHVPLFTJ;@71F>2NLZY2:^^?7<`3Q(6#?AKZ[7'U0?C" -M\-RWV]V/4C0\-TJH8'O81)WG=>K?A_1+@WT[KSCHM>E6+*;-Y7K?@&U#*32> -M5F,]UV5*D!:ZH'RN%\?,+M1G`"]#T`6A/ML%PGCD-%&J=.S5:L>;63!5ZAQN -MO0.@6[6T6X_1<+T"GYG5"\#E>D>';9U>JRBW!)A<,KNOH>''UQ=/TNQ8ZT#M -M)(.9"H79T5BSCW76T>D5+?I[@VL-31D+D>I:?XHNR(V&RU9K289>UIJ>'#.Z -MNVT-<`-E0H/$B2/;*M4G<R5N0K2I.D2`$!/K/J_51T7P(G/RAJ.`F)E6LQ+5 -M)$004#WX#3E/3@Q.W;NHKCTF1PC4#Y9;5D#E7&D/9I=B51:YSR!J4P=!&K,* -M3A;-K)IC>(`3ADM47F%P``F$[7'(),)M-"B&2,PHS(:9*EIND$_NF>T8Y515 -M>9!`RBM7"F"YQ@]RGJ`#)/RH:QEQ`/PLUJ3:/K3FN#0QP)&Y"Q;L@$CLK]T0 -MT03!63U!T@Y"YY5WPFF3>>JY`X6KTNCZ!&25G6U#76!/!70V%(``Q$<PM^-Y -M?U66[I+0H00T\K1MJ$$.^\(+6E)D@?96B"T95KS0-5VD#*JUJ@9(DJ6Y>!B1 -M]5EW]S#3G*NDM1WEP?\`%,+)OJA+B2BN[B!(.^ZSZU0N<07+4C--<5)#A@E4 -M;ZLV)$3RCNZP:T@"7'8K#ZE=#45J1BU#U.X.HRX9X6-6+S4@9A25JCZM6&B? -MJK]I9`L#G?7*MUU$_P"L^VMI;J<,3N5*X"FWW&<K6\H4V0&[JC=4F@DF/HLR -M*R;TC0=9@%<)XXZ@VG_*H@ESA"ZSQ%7+R*%$R]QB%9\*_AY5OO\`U=ZPF3,% -M=/'J7;.5U-O(KSHM]7L#=&D3&1/9=YX*Z>[J7X77%G<4]3F@P7#?,KM>O=$M -M[6Q=0\H"!M"'P-2HNZ54M:;(;D1]UZM7BUXO+G[33YDN:;J-5S"`(,*)V@.Y -M!Y!V7:_B=X5NNG==N'T*+G43D$3C9<;4IO:8<WXE=7HQNYM'4:-P#CE#J/Y9 -MSV"<-.H"/NC#"''L.0II0`2V8^J9P&DNX]U(&^J=TY83Z=)D*B$`8TDD)0"I -M',>UWY7`=BA<QTP6GZJ`&-U/@<IH!.)RCTD&-N<I-V$C=$`&@XDXSA)P](WQ -M^B+)RV4@S68:/B%0#`??*>!(W&?=+DP9^J42WOW[H"C_`#^%/:'^9,[F5"(` -M!$J:V.0=O=4C8M@/)'K(1X_^0_9-;TM5%IU0C\G_`*_U3AO3[7Z\&CIM68(A -M<SX;K14=I&)73]6:76%03@A<;T9XI7;PX_U<*^/^UCYV7]74U*SA3C5E4KAK -MZQU$P.5-1.MD[\JK?URZ:;#'NM,@-2E2>0P!Q4U%M2Z<&Z2!W&$NF6)?#GB! -M[\K6IT]`A@&.%!#2HBF!3:/JK-.F*7J&8_1/38&C41G]DY(+3$**4SF/HJMS -M5;.<$J6H^*>2J%1VIW*`*I+]R@ITW5J@IM^I4E41#0,G[K4Z/9AK-1W/=%6> -MFVM.G2$1CW5MVT):0/3`3&<A12:!IRH:]`.RS!'NK5-LB=DY;`W164^JZF=- -M14;\ZQJ:/HM>[HZVD`Q*Q.IM?1)$F%8E3]-/IW@JS7N#^5@U%9O3ZA<W0V2Y -MW*V;.V#*8)R3OE6I&8^WK&NRJXXG9=3TNH/X5H)F%CW[99IB(5[H3@:0:3)4 -M:TU14$`[!"XR8!^Z1:(B("`@"0HJIU*IHHN,@%9%O3\VKJF0KG4B7U]`_52V -MM)K&B-E`5NS```"M,8`PD;I[>F`)_1*N-+)!.>$Z5E=9J0V))_LL$TV/K!V5 -ML=6]1(G/L%G/I"F`9(`[HS0W]44Z&EL:CA:OA&RTTP]PDG*PZ+?XSJ+6@$M" -M[GH=J&46B%2-/I]!H&0KS&CX06M.&A2O&)V*Q76,OJK`^N&G8*&[L@ZW.@YA -M3U&.==XV5C20R#F%F1IQK[8T[QS7C=8/C)F/*;@0NP\0T]%3S&[KCO$+@0YS -MG9A</+=1T\<Y>=^(_P"43F,96!6BJP%@D$?,K7\7GS*[H,">.5CVY<TY>(G= -M>2UZI&WX-M3_`!3!$97N/@FWBBTD+R/P%0\V[86[2O;_``G0TVS!"2G^M.Z) -M;;P5Y]^)#PSI]1Q/'"]!ZE#6%OLO+OQ?N!2L7:3GLF5:QFZYWP8QKW^:<">5 -MW?0JKZ->G4IG+3*X7P++[1KSSW7>=+#6,'JSW"XU].36.G=W'7VOL"`P,JN& -M2=ER-U4UO<00?=*K</?2T`[?=5M7K)*W<O:\N6.$PG"S1V&J/NK=(G3_`&5" -MF_\`57:#Q`<5N)8)U1S7<E$RL3APPA@.).84%5S61E0D7//(V"9[M;2!D\JJ -M*V)G*-E?'I^J;:TG80P@$?93_G;JW]EG^=#P8RK5.I(DX/LA9I;HZ#(..RGI -MTQ,QC]E6I2'`J:H[F8^%8Q1UH!WD'D*$N`&-@E4>(E15'2PD'=*2`JU),`J$ -M@G,IC(='[HZ/JQ$+%NW233,Z@3J*R;U[B[3_`(EN=1$'+868]@=<#G*PZ[U# -M]*MOZHF%LVM+`&TJ.RI`4Q$+1MZ0%.0NLFGSL[NBI-T#'^B&K4&DGMV*)[]+ -M2.ZS+^XT-,.581]1K[P0L>\KZOZI*>^N'/<<_JJGYR25IBJUP79$JO5>13)F -M25;KPUI61U&L&M):8A61+57J=Q!.5AW0=7?#3NI[ISJCHSGE6.GVLN!(@\%: -MZ9[5^GV#F&3![K4HT3I@&(4KJ6P@8]E(P!@+B`?=9:TK730UF7K!ZY<BG2=& -M8V6MU2XW.RJ]#Z2_J]WZAZ&E;D8RJO\`ASX9J=4ZBV]N&R`=BO7J-C2MK44V -ML'I'94/"EC3LJ8I,:!&\!=,ZFU]&7+T>/#5W7G\F7L\L\>6_\U\",+E/!\V_ -M4JE'(ER[_P`?4--8D`0N&L6AG7`T")*]&4X>?MI=1Z+9W=9[;FG3>U^\B5S7 -M7?PNZ#U"7TJ(I./_`,<#^R[2\?Y-9A?B0I[2K2B<'NL^NXN.5G3R"]_!>W-3 -M^7>5&CW`/]E4J?@T&"6WI/R/]%[57N*+CAID=E`74W3_`$G=3T_UT_=R>.4/ -MPFHTGDU*I<!MC_16[3P!TNA5`=3U'W`_R7J51@-,N!:%G.MP^J7D3'*>C/O: -MXRKX"Z-5;B@-7PLGK'X;6A8]U`"8P"O2J5,3D94SJ;'B"$F$/>O!^I>!ZUO. -MJ@<C<+(/AMNK14+FQW7T-=VE%TRT97/]9Z!:W#B13$QN,+4A^[8\<=X9H/;Z -M*Y!(C(5>Y\(W6DFE4#CM$_ZKONJ=/K650TZE,5*8YY"ITJ+`X.HO)_Z7*S%? -MW*\^NO#G4Z+=3[<Z8P05GU+>O2=%2FX+UP.8ZF&5&9_Q`S"AN.G=,KRVX:\] -ML$)JK^]^7DNSMM]@3LIZ.H.DC<Y(7?WOAGI+WS3>1[95&IX9I-.IKYC`3IJ> -M25D4`31:>_\`U(])[?\`\RZ*U\.,_AVS,J3_`,N4^[D=/:/K6^:W^&>R=PO/ -MVN\KK3Z9.-2]"K@&F1R5YWXCFCXA='*N/&;Q=XUT/GGRPUF\836%)KKW^8=O -MW5?I`<:#71+W;+6%J*3!4_J.ZW>W.=-"FP.,```*5S6LDG)4=D[^3)^Z:H35 -MJXV"BFJ/)_+LA,P,Q\*8LXC`[*"X=VQA18K7;H!]4A5V_EU&9.%([UO/8<RI -M+*@:U4..P,!!)TRT<YPJO:MVC3#&2`HK.D&,4SW9QV4:#!U8A.T$GX29ZMU- -M3I@-D@HIVCTB,%,=6RE:T`2>$M(,]D%2J`<1*R^MTP:;OW6R]H</A9O6:;?* -M,E!B="TMN2'#(VE=-0:2`5S5I2TUBZ>5O=-K.<P!VVRTS$E]3/E8^471Z;O* -MEIAREN&ZJ9(E+HIBH6QSLLM+]&I,,<(3W6EE,N'".K;@C6TY6?U2J:=$L,@E -M3;2G2'FW!<KU*EZA"AZ=3]&J1E7J(&%4'39I:)PHKH0P[_56(],C"KWDZ8D> -MZBL*^AMQDA4>K/#:&D8QPM#JE,MEVK*QJSG7-<,,C,>R1FM+P99E[Q4(.3RN -M[L*(`!"Q/"]IY=HR`%T=K3TP05:UBM4F@#9#6`\MW"E8"1)05VQ3<3V6'1ET -M\W!/NIW/8X`(K!@=4),;H[JUQJ'V4I&-U^D/X9SNP7FOB*N6U*K2=EZ=U8'R -M'@Q,=UY'^(#C3O*@:=UP\_3KXN].`\1UVU.H&F9WX4E&G0ITVET"?U4%_3F^ -MU5G`1QW5RQMO,+.>9]E\[*[>WIW'X=T:3M#M`B5Z[T$-;;M;,%>8?A];-8YA -MU8X"]3Z7`MQC/==<.&:;J[P6.',+Q+\=[TT:08#NX8GW7L_6'^EQ'9?.O_B+ -MOGLZA3IXC4#/U6<N>';P3>4=#X`J"ITNFX?HNYZ;4EK9`"\W_"R\+^E4A@X7 -MJ'A:C3N'?S-@)*YV;NH^A>)RF?&F<`JM4_Y@.!*T^M6].DT/ID@.X*QZKX=$ -MS/NK.*QW-Q:HN&_"M:Q&%1MX(F2IVB#Q"Z,)A5(."(]T-=X<))^@43@1L9"C -MU.U;*+(.K^3='T]PDSO[JO6<"S!0VCB'<J-?&A4IESM6!"LT9#=]\JDRN2\> -MD1W5NDX1M/96,W:Y;D@"5+4>-$!5Z3O2/V3U'?TCE;VP(.D=Y451X:=X33#9 -MSV4-2"9!6;6I#O?DG<*[TNDPTY<[?.5#T:R=>W0IC\NY*UNM6++"T#V&8QNL -MR6\KE9.'.^)G-94U,)(B%F68-2IJE%UBX=6J%L[&,*ST6V)`EIRLSFL^7+6. -MFA8LP,X^5=:0`FITFLI@`9]U%<U6M8<Y'NNCQH;ZJ&ATN'W7/]3N"3&J?JK' -M6+S=K2L@/=4?F8/NM=,6D22.$+R&MU$P0IQI:S.ZI7CX:8._=6,U5O*YSG"Q -M+]Y>XMU%7+VKDC.ZJ"GYE9;ZC-Y1V%MK()$_*V*%NUC,#Z)K*B`P#<A6Z3`# -M*Q:U(B=1&@.(D=E1OB`TAIA:-V\,81C98]^_5R""M8I:S;\O?5T-`+G;0N__ -M``VZ.ZATWS'M]3LY"YKPG84Z_5&OJD`#(!"]8Z;191Z>WRF8C?9=L)NN.=X4 -MNG6>FIJ(6@]C0PCE*SI/J58+H"O/MVLI0!PO1BXUYSX_I>H_"\_<P4^N4W'& -M5Z?^(-$&F2%YIUX>1<-K[@$+K>8X_6CXBIN?4I%DY@2M+I/36?PP<Z7%16KJ -M=YTVC6'8&5LV,"FUHCX6,>4G6E<6-$"?+'U5>[L*4$%FGW"U_*+Z\`>GVRI; -MJU_D$QF%K45PU\U]"OY>[95JVHM?0@@94G6+=SKO26R)S*&F*M!H:YDM[A7I -M$-6S-,ZL?11MI@&(RM*F!5IX<,]U6O;&HT%[:GZJ+M2KL83#CMPHGT*;S@82 -MJ6M<F=4J2A;5"(.Z49O5.D4KFBYKMB(B5R'6/#->A5UT&E_QB%Z!4IO9)()A -M05-3@<%!YY0Z=7HO]=J]I';*GI=.96U$5'!Q]LKMWTVU6!I;OP4%3I;20ZF" -M"-T''4>@-!Q&_(W4KNENI^GRI`Y74_P=1M3(EH.R3J0#3CZ(,&VLZ`H-&DCV -ME2?PE#L?NMIMO3+9+,^Q3_PU+_`?NIMMZY4,@8_5<%XWIZ.N-<=L2%UM1]RS -MTN$B,$+B_'-U5;U2DXC3ZAGMNKQ[1RF]5=Z#6<VOK`):/==+:UVW%(D[A9'A -MVG2?:MJ-.HD29Y*5:J^SK'3^4E=;^'*?XUV5''T9A6K6-/,CE9?3K@5,\E:# -MG!E.0<D*58*XJ:9R1]54>2[`F/=)S_,?OONE6BF(F2[A1H+6^8\4:>>\+6Z? -M1;28`&Y'95>EVX#0?ZB=UI-`:R.0%")`X-&Z0.=]T#3("-F7`1]4:'3W5EC2 -M6B3A!3IC$J<M``@;!"&.&X1#(_5,``?E)K0TG/T45'5',8^5G]5:?X=QV@+3 -M+#DJCUK_`-J8`GG*NASMF8N-,;E:[:?H#FXA9);HN`<"2M[ISM5$-$;*]QCZ -M.A4!I:7;@)^E@"]([IZE+3+H06A'\:W.5(TWAAO$+)ZZ6N(&)Y6M2&I@B<X" -MRNML/\8&$1\J6-%9,;H:1F%<I,&F8P2J%'S*,?X96I;%KJ0)*J`=(;$!5;LD -M[#;]%?J@!N(GY6;<NA[M]LJ*Q^MU=-,MC)PJ72:#JMZW`W_NCZF_S;O<D-.0 -MM3PK::Z^N-MH2,NGZ/;AENW2!C"U*+3&`%7L6AM.#@J[1TG!QA+'2)J5,%LB -M3"BO0/(*L4YV#OJJ]^#_``Y,94L:4>GP">,K18&N9&9*HVK"6<25(*CJ9VE9 -MI%3KMN!2<X@G$2O&_P`2@*5R\D1[KU[Q%=`6KAC(Y7C/XJ/;HJ.<[<1/W7#S -M3^+KX[_)PURQS[L:1K;/YE?LXIC><QA9%A=4F/\`+<[.\A:=*H'Z"W;W7RKQ -MR]_^/1?P\'F:)GY/T7I_3PUEO]%Y;^'E;2QDD!>@65Q-,2Z2[W7?&QBINID. -MIOD<+YN_\2E$"_%3,2/[KZ1N`'4C.<+P#_Q,VSO(+QGU#'W4R[CO^GO\F?\` -M@RZ;)D/QVE>O=#N3;N#VNC$+P[\&[HL:RGL/^R];Z;<>D!T_=<[Q:^E9MTEY -M>/N1J<Z8&W"S*KOYI,_=2L<30U`@M_55+AP\S;Z>Z3EC6EVA6!<!LKDMT>DK -M.L=P>/U5LDP%T8L2!PF2>-E'6>-/LH7EQ,;?"=C9(U<HNATX>Z,Y4[;<F%%3 -M(9L=E9HW.(.<Y"FB_P"!8QU,R1@*Q3J`C<YX3-(J20-Q$)FT7,=JX*K-6!5= -MIR83BKB3N%6#CJ+<A.YT!HV5J:35:TMRX?9`'ET"8E0U7[@_=14GN+Q'=9M: -MQCJ?#]-ULWSR#)X]E4\8=6?4I_P[1I`R24-'J1I6H!,:6[%8%W6=>7I$[NRE -MRUCJ,^O.Z:QH/N*\D3)W72=/H-I40,*/HMDVE1#W#*LUR=6(`3"</)Y<_:AK -MU&@D8D=EB=8N=#3Z@K?5KEM*F270?E<MU"Y=<5]+7$CLNCC;L%>L^I5,J2DR -M,F?D)4:$L!/Z(JKQ386SLG:!NG13X"R+UY<2-6.,JQ?7!((D;+,N:DB)W]UN -M33*O5ESR.ZM]/M3Z<2HJ#/4#"VNGL'DCNIE5D!3MRT`#,!,^6$P,JU5<`P25 -M1N3(,&.RS%JCU)Q+MU5I4#4N&R<?NKCJ+GD^G;:2M?POTCSZH?4'I77%C+B+ -M'A>TFYIM:S;V7H-"A%D,0LCI%E1H51`C*WZSPRV$8PO3C.7FO2.WI:&^D94D -M.+<]E7HUB3Z1(1U+@Z8(A=)IFN9\=40^@[&87F7B6V!H.&C9>J>*:M-UL^1Z -MEP'7J0?:O<NT<*@\)MU]&:R/RF%N6],,<'.$-`V)65X-`_AWL/!6EUJH*-H" -M)&,KEA^!._J="@XZ0TGNHG]3>^G+0(Y"P>FU?/O-&DD2MQENP4M.B0=UOCX* -M!J4KB[FJ`"=E:JVI%/+99"S[^DZC6EHD+0Z3U!C6-HUY@XRE@HU;-NN6%U,E -M0W5K=END5);\KJOX>TKT=3"V2JQL:8.G4/B5!R[NG78;K:9CA!0JOI5--PR/ -M==DZSBG`V5&\Z8'`@,!:>%(U6,/(J-P0<*&I1I%D`R#PKM?H;2=36EHY$H'] -M%!8-+W-([*HQ;FTAY+3[A%:$D:2#(4W4K*[M07AY>WW""Q>RHV8AP&0B'>!/ -MJ9'NJMU39O/Z+5#6N"SNH,TUH:@&C;!U(.C='_"#L%=M:8-NP[84GE!1T=G5 -M,%<1^)=,Z6U`V8(S]UVCW>@YA<OX_+7=/(WS_FKE/KCC>6-X.ZDZF^G3<[#@ -MMN]J-KO)X&RXOHD^:]S2!IF(^BZ"TKO-#)RN^7+G)ILV#=#-3#*M-N'.(8_' -MRJ?2ZAT@`_=7Z=%KQ),%9O"K#0P-U2-DUNPU;CS#EC3"H7KZC*C:+#(G.5I] -M&<TM#70(WRLJT;=C6M4PR)R@:6P(B%(2!@#=1HFCCA6*#6G`G"A9)<,;<*Y1 -M#?+!P$!`0V91S+?E1ZO7@!2@<@3E%.QN<F91$1S)2:2!M/LGW=//9%"]L4R2 -M8`69=-%:K$>EONK5]4'_`"FS+C&$5&AY=#(]2@YSJE,-NM0&!LM'H9#@#V5? -MKU,Z]1[[H_#]08`SE;G3-[;>F:4.,R(6=48:5Z"#`GE:E/+0X[1W5+JC)<'1 -MGNLUIKV;IHM(.1&0J/4ZI=?-;4;J]^58Z6X&V$G80LV_JM?UIK9D#=-<FVB: -M;:E(`-CY0T`ZD_3/I4U/_E@!&^F'4I&Z6$!6RS$K'ZS5\NFX`Y(CX6P7#06N -MQI7-=:>:MYY3<@&2IV54MZ1<=9,EQB5U7AV@&4FD\CA<]1+16:P8B-ETO2:G -MH:`-A"TD:](P(E6[8:HD*A2U/<,;*W2K-IMAQ`^JRZ1>D!H"K7IFB04S;NB3 -MFHU*L]KF2""#[I8NXBLY#<I[HCRSC,*2BWT*M?/+:9:3A<ZTY7Q=U`6]-Y=L -MW)7BWXA=9%U5?3#9:XXS\^R]-_$5TV]0AQ!C*\CZGT^G4OQ6>\D3@2O+^HRN -MM._@QF]U@6M"I4NVN8--/N976].M&^2(&&@'4J[:5(D#$MV"U>D.;YK&U7^D -M<!?/RG+V>VVWX<>ZCH.D@=UVW1;HN:TQD^ZY6VITQ3:X'!V70]&T!K8,X6I: -M.B8XN89[+R'_`,2EH7]"K/#3B#^Z];MJA\L'8+S[\=[7^)\-W0&?23/T*WE> -M-M^+C./#?PHN-/4&4W.V);O\+V?ICR:3#@[8"\%\"5C:^(RTNP'G'U7M_0[A -MKK>F=0R%C.:R?5EX=+;52*<']%#6J%U6&[3E5_XE@I_F`.ZCH5BZH07;]BI. -M$L;%K(:"T$_*NMAP'ZJA9$E@!*U^EVS'M+GDXX[KHY7A!;T"^I,'*.[I.8!( -MCLMRUL0(((@Y^$U_T[6PD)IGWFW-D$OP=U(Q@!X^%+>T#2K:3N$`@OSN%&JM -M6YTN!CV5BJ[T@1&%2`TM!:<'=3:G&C$B2M2L6!?I$GG<J%U<9'8(JKQY1&Q5 -M4M=J(;$0LVZ638JE4ET"2/W5GIU/S'YP/=5F4'/$Q(Y4[*O\,PR,0N>]UTLD -MG`NM5!2HEHW*;PQ;^;4;5<#,[K,O+G^.O6TF8$]UU70J'D6K3$8W6I-W3S^; -M/UQTTWD,MPP=EE]0O&4:3BXY'<JU>5M-)QD!<9XLZ@?4&N_WE=G@1=9ZJ:]< -MTVG?;*&PH_U/YRLCHS:E>^#GB1,KI&4PRD!$'NL[VMD@:C@QF/NLV\JAP(GE -M6>H513ENQ]BL>]K@N.DQ*Z2.=J"XK9/)F,%1T6>94!,Y.$J=)U1\1N5J].LF -MAHG$%+=$@;:T`#7#*T&4PVF2!PC93]$!"_5&D+';>E.]?K):!!04+<N&?OW5 -MZC:ZJDD21V6AT_IY>1`5VK-MK`U*C6-;DE=9T;IE2E:^EF8W6SX4\.M?IK5& -M9&<KIKBVH6UL1I`@+T>'"V[</)8XRRLZ_P#$@/!PM8VKS&MTA';Q4ZB8',*] -M<4F@PT\+O)S7&J]M;TVL@#=-7MV%A@*S3IP/=-7;+8(72,5Q_BZRFW>6[[0O -M/NJL>R@]CL`=UZKXAI3:N)W`.%Y_UNU\RC5])F"NL<,F;X*I,9YCBX%HG^R? -MQ=<MJM%*CM[(O#E,4K>JUW_4J%"D:_5'-W:#,;KECQ;3ZO>%K$-8'O'J//*U -MKNEI8=,XX4_3K<,H-],8E27,-89:/9:QBUS_`%!@<"1(C=/2M65[4.:WU`J> -MJR7N!R"I+-GE&!!!6F8KT65K?U-V&X**\K^8T5&.+7#A:/EM<9PJG4+1NG6W -M#AE(JWT^J]]JQQ,PBKO<<M=![*CT>L0UU([[JS6)TR#$%9BU%<W%=H@`%0'J -M88"*M+`W,I7M3\Q)W&RSKC4UA+<RJRLUNH6=:)=A5+CIMK=M\VVJ`/.T'E4B -M*51Q%003A0UZ52A%2A4<V#P5=;76DM6A>6N:E/S&C^I475!5O`'2)X6K:WUS -M4I-:7!W!;"L46VCW@7%#23RLW_"?Z&A3:*31JX1Z&_XBM"CTN@:32RLX-(QE -M%_PJG_\`,Y9Y::A_(3SRN0_$"H?*+)R=PNPJO#:)<<>RX#QK<"I7<W4-UTLV -MY1SG2G>34>3C4Y;G37%^ESI(VE<S<5=->0W'<+8Z-<#0)=[+K.6'5=-)V[;+ -M4IU&M:23@#*Q^FU6BFT@F85NM4):Q@_J.5*JU:-;5KNJ1O@`K2IVNBF'L.2% -M6L&C4UK0(`X6D'`0LJ@I5*K'^MN.ZO4:@J1ZOI*#0'M@Q]4!MW,'H)G=1II4 -M```=_E2^PPL^VN-(#*@,\K0H.8YHC,H"8R#G/U4]/#8RHFCU[X*E9@RBG,"% -M%=5@QIB22E=56L$\H+&@:K_.J_0=E*"Z=;D@UJDEQ.)5IS<;*1H`;M[).8"F -MFF%UVEZ"9Q\*ET,AMQ$E;'6J0=0=!("P^G'1=:"0KBSDZ>AMLHNH@&B9.45! -M[12;D!4^IUS4864Q)VE+`NGW#W$4VF<IKZAY5XRJ<DPI/#E$M$OB?=6/$;"& -M,J3@%9O<K4BU;N_DM/LI35TC,`%5+6LT6@?[<J"XK5:A)9L%JZC,!UZ[;0HN -M>TY/=<Z;G42\G+E)UZX?4KB@TZC.T*3I_3*KM#WR&[G"FTLVO^&>GNN'-JU& -MG/\`B73M;9V%`.J/:(WDPL2XZQ;=+Z<8(U,$+S#Q_P",>H7E1]"VJN8V<1*S -ME9.VL>>(]0ZYXWZ1TYKP:["1PTA>?^(_Q5#ZSFV@)'!7G)H]0O:DU/,>3DDR -M59L^@7-3/E.'T7.^61TF'Y=/2_$+JKJX=.Y[KUG\/NI5^J6%*K6.7"87@W_# -M:MM5;YK2!*]I_"FH&](I0=FQ^RZX9^T8RFK'H#&M;2WX6;UHL;;N).P4C[T, -M9I<%E=9KMKV[@'QC98M='EWXD=4)NGT6NVW*\PZ[U5[:[J=&-1W<<PNI_$^N -M6=6JLD[[C*\\ZG5=3K/>XX(P%X/-=W3V_I\>F\>)>YQ+B<GV6YT>Y>ZY:X -M;-./=<9TBX#JHU8@X`Q'Z+I["\8`-1DCL%X\YIZ;B[SI]R'4VDNR8$+KO#Y9 -MY()[+S7I-RX!CXQ[E=MX>NBZDT%PRDNT^.OI/:*<R8'NN3_%,BIT&NW?T\?! -M6LZ[T-TD[\2L?Q1_ZGI]1LXA==[B3M\R4G&T\759)`\R9^J]>\+70?94R"XD -M`+RKQ_1-CXKJ%HTC5(79_A[?-N+.F)F-\K.<W)7U,,IIZ`*NMH/ZJWTZ'502 -MTK';5TAH$GZK6Z&6EP)D9^5B=NG<=!8C8!I]EN=,MZ@RTYWT^RR[*`T;`KI. -MF-IFV!`AY'YETG;CG=1+3<:='\Q#@%-3NF&A+CQ$*A4=5=4T-!(G\P17-`,M -MYF5TE_#E<65U9X-T2,@E5<:HC*DN3+B>Z@=4@97.NLG"1E6&$DR=D+ZY#8#B -M/E0"K+S$QM*DHTC4=),#NEIZ_DF/<YQS[RIJ$:NQ4]C;AE4ZA)C"BZO5ITVA -MVSMOHL7=:FMZ7*-:FREZB``,E<[XAZA2UN93=SQRJW5>J"G3=+_JL7I51W4^ -MK-`)T3_=+>$O\>:ZCPA;&I7\Y^Q/^2[#S0R@&@[+-Z70IVMH-,`ANZK=0OO+ -MGU+IC-3E\WR9^]V;Q%U5M*FYH<N1NWONJ^K<'A-XHOO-N"UCIDI^BO$AKAQ, -MJ^WQCU^M/I5NVFP.(C"L7ER&M(!V"`U6,I`A974;L:B&D%;QC&5V:_NYD$C] -MUGL:^M5`&)/='2I/N*L@8[+5Z;9.:YIE,LM+,!=/L88#RM*E;Z&Z8YF5/;T( -M:V.%8<R&9"Y[VUI3\LZ829;N>\`*ZRE+HCZJW;6_J`T_*"O:V<1V72^&>F>9 -M5#W``*#IMGYE1K0,=EV71K-M"DT@?HNOCP]JSGEJ+5NQMM:@8!`63UBO4J4W -M!H^5LUJ>OTX`*I=1IT:5N[5!@+WS\1Y<O]871VN_B"\X([K0KO/F=_=1=+`- -M1Y`D&5.`'5H4Q^I4E`%S=TJ]/TE6*;(`$H*NQ$+I&*P.O,U6[P-X7#7].75F -MQ.Z]!ZW3BV<>X7$W0:+FJUP,96_CCDXJ_N'6=2HUN)G`*M>&:?F-\\@R3.57 -MZ_08Z_,@Y*Z+P?:4VVX:1*F?%3&?5AE9K:<.!P%!7J-,\8D3B5JW-*E!!8/A -M9UU;4RTC;L0K"L]P!=B-U/1I8"@J4*U)X+3J:%8M:S7$-?A#0].E\#`'9'5` -M=0@C=&\LQD05%</:QDS]$&'6?_"7VHGTDPK=6NVI1U-S.5G>)'!S-;-Y5#IU -M>Y?3+6C9+J4DW&N\-R7X:JM:M2:XR=DS:5>H`'NW3U+*B!ZQJGA38I7-:B>! -M"EL_+J"!D)7EC0\LPU4J5LZF^:57(&`@NNM?(JBHT0KU+16H9RY4@;A]`-D$ -MC*&UN*E"IZV$`*&FM1;IIALG"*/^IR"E>TC3!T%%_&4O\!472[U2MIH$`K@^ -MN4Q6O7@977]5JM;0).ZY&Y9I>^N2<[+KIRC&N+:F:+B2"6\!0=*<&W$.P.$] -MPZN*C]/Y">55:]S;C!@<*XI796-;32&95_IKWU;@N)PU<[T^M-O'*VNAU)8& -M\G<K5'3V0T4M<Y5RF[DR3[*A;N`IM;(GLK=`^H&,+-(O6YD`@25:9I)@JK:` -M:I"L`D/S!E9:AZE"F\2!!4;15H.D$Z58IR?=3:06YB44UE7:YL..5)=W#:;/ -M2<E4;MC:3"YF'*'I_F/J!]PTZ9VE/^B_9T'UJ@JU!(!Q*U&M],`0$%L6%@TG -M"E$`*::$T`X)PG<`&Y*>DV3V")PD^R"C?-+Z3MX7,OTT^H$KK+K\D@;^ZY7K -M32V]R2)/9)Q4O32M"^Y(IM..5IMM:;*>1J57H3`R@T@[K5()8>ZMF^R*%DT, -MN=(Q[*WUNCYG321N%6J?RKH%:<"O9EL[A9O,:G;`Z.36_EDX:CZ[<LM+<AN^ -MP4+'&RO*C!R56\NIU&_TD$M!W5[FV;WI'T#IK[NY_B:HD$SE:O6:].UMO+80 -M"!$A:#13M+04J;1('"S+BQ==-<YP.5G*Z61QW417OJSJ+0XR?NAZ?X(;6KBK -M7:3.5U%'I[+>K(`!F,K4L<;F5R_;WVU/XL3IWA"RI``4FS\+5H>'K9@@4FX] -MEL6WE@"",JVQK2TA:](UNO)_Q(L*5N_T-`@RM7\*+F:;:,F1PG_%>AZ-0V!6 -M3^&-P*75=&I3QW5,IN/4KJV+Z7R%R_B?S[2@_1+AMNNXM&"K;-/$;K'\16#: -MM-P(A7+A9'SKX\>^O?U'N$9WW7#=;#R2X&1PO3_Q=L76E>H^F/LO+ZC_`#[@ -MAP).T+Y^<YV]_@Z#T(-%4FH1)VSLMVP<VG<M]8+1F8C*S+"S+JL.,=L;(NHV -MM:B\/F9P#/\`9<,N:]'%^NKI]19J:UF3MA='T+J9IM`U9[+A^A4`RD'.<-16 -MYTFK-8,&0#NN?MJL:=Q2NGW#06DRK%7U6A8YVX63TZLT-`D"%:JUGD0W]%TE -M'CGXW='>ZN^YI-<2#Q]5RG@WKU?IMTUCCI#=]2]\ZWT:AU2B6U`TDC*\T\8_ -MAM7:Y]>T'N!G_):QS]?XY=/5AE,HZ'P_U^VZA38#5:'GW78]&K-#&D.'W7S[ -M1I]6Z-7TO%0:>#*ZKPQXVK47,96+H&#J)3+#[B]>%^/?.C515J-#CCY704JX -MIT8IN.<$+RGPSXE9<L:^E6S\KLNC]3J5ZC==01[%8EC6>-[=[TS3_#AY:-,2 -M5F=>O&"F]K#`*O65]19TUI;49$>J2N-Z_?\`G7E3089.%TO$>;#'VR-6NQD< -MJM5N!)@JK4J9&=U&YY7.UZIC%VE5.J,Y5NC<BDW.5DBX:R"@NNHT:5$N>0/A -M,=UG*1KWG5&`_F((&`L#K76&,8Y]2J,=RN7\5^*[>W+A1,N7+VESU'Q!?AFA -MY8XYB``EXYJ=3<=)4ZG6ZI?BA2RR8*[WP;T@6U-M5P`<<B53\%>%Z5G;TZM1 -MGJC)*W[RY%NT-;B"LXS?->'S>7VXC4JUPRE!VC9<AXCZE%TYC3[0KG5^J:+, -MP<A<7U&Y?7K/<Z<G"ZY7AY\9ROEOGUFOU3E:UFQE*FTD[+%Z54&C)DA7A7JU -M7>2P$SRIA/M,N>(LW=X#+&9/R@LNG5[BL'%KH/RM+H?1'O<*E5H]Y746=G1I -M,#6M'9:N=O$)AID=.Z2&4Q(`*T*%DUIVA7]#)`#83N89VA8_ZJLVFUH['LB% -M(N$$85AE(`3^Z.DT:M/Z*[-(K>C#@%=H4X(`&2DUK6>H[K4\.VKKBY#W#!6L -M>6<N&IX:L"&M>YJZ*BSTP1@)NG6X92#1B%.88W,+W^/'4>;*[0W!#:1("YKK -M]9SY:"M?JURUK"-6.RYVX<:UQ`[KK>(Y]KG2:1;;22K-%DGOE*VIAEL`,'E6 -M;>F/S'/LIC.$O9]):T#90U`(.5<+?;"@N&@C"Z1BLKJ4&@X?NN*ZG2!OGEHE -M=O?L_E.7(WC)OG'&ZU\<[VXCQ/1(N-78R5I^%:X#6Y/O*C\749:\Q$<JCX3K -M?S=#G;8^5<^F,>W77;0YD@JE4;(B<JZ1KI"56<R'_E)455#3EA'NA_A*;S,` -M?"LN8-4@*5C`!@A15!]CZ?SG[J"O9G,N)`[K5J>QW5.],TRFD8M]0I-IN@3A -M<_3J5*%_#?R$PNDK,+CN85'J-F`TO&%=<:B3B\I:(:]D@&3RIB*9;#L$")4? -M2ZK74])&6A2UF@L@%2<K>%*M3T&?U5.YH^OS&.WX`5[4`\M)P5!4!:#!,3A5 -M%>@\TZH!_+SG9:;6-JT0[3)'*H56,+)#H/*N=+J!A%-QP5FK%BE2:*8V1^4W -MV5RG2E@(B"B\D^RFFW/WU4O86Q)=C=<]U5YIWE.@X8G(6[6:ZG2-3<KFNL^9 -M<WFMN"W==OKA.BZNUH9Z&8A<[=.;JB(SRN@OZI=3#"[(P5SW4SHJ$F(2<5.X -MU.G5`VVWVPNB\+EKJ@!G&5Q?3JY#0"0/A=7X;J"=7<8RM_4EW'5:OYD`K0LW -MS`[+$H5"XR"M6R<0T+"M:U,;#`5EIU&3F%2MWD`<CM*N4':A&T<RHU%FG^5* -MK7%*GJ=":=+"=AW5-I==W.G.AOZJ">VINNJ_F/)T\`J^ZV8]H;`$;)6S0P`- -M$0IVD3)32J['.MSI=,*];N#X(*A<T5-QGNA#7T7ZOZ?9/^JTF"?;W3._+NH[ -M:J'"`I*A&(&ZBHGM$9(7-^**0;7#\Y/*Z9QEAU;;+#\5TOY0.P[J43=!=JH- -M![8RMJBWTSLL#PW4!I@?1=#2/IV6ZS&?U)I:9A6K*N&VH+B$_4:;749B%BU[ -MAS`:<X"D_#5_(>J5&UKP^6,DK4Z9:MM;85'1J=[*MT.V:]_G5`M-C?XBN*;/ -MRA9O";#;6[[FM);CX6@;1C*4"![*]96S*3!C,)ZS6DSCZ+$YY:CF^I6T5):W -MY52E+70X8707ENTM)61=T@QVQE6+I);@1A6QKTX*HV[A$?NK5!QVU*K'*?B9 -M:5JG3G."\X\,=0?8^(*;7XET$KV3Q6UE3IKVG.%XCU.@]G67O$@,=(*Y?UR; -M[CZ-\*UVW/3J9!F0I^I6VIAYE>7_`(=^,6V[&V]P^"T1)PO3;#J=M>V^L/!) -M"ZW'?,9QRUQ7D?XRV+74G0T3*\9O^EOI52ZFV9.Q7TCX_P"DF]+BT%P.87GS -MO";J]8@LQV7B\F.WHPR]7EUC8UZ3R\M!+OT1=0#C#=,M9[KNNL=!%E4TO!PN -M>ZS;LI"8E>;R8<;=\<[:PQ7K4Z;:5$?)[+5Z+6=3:"1]5F&[IMJEI_-V0UKT -M0-#H:,0O/=[>C3LNGWTU`7GT^Q706U1E:@W3$_JO/>FW!(:[4872=-OFTPV7 -M3([[*XUF\.@MB16R<!:-1M"M1T.:#/*Q:%85:6K5$[%.RZJ,<3J=`]]UTQ%? -MK?@^QOR2:329DX'^2XCQE^';J-N^M9L+"-H_[+U#IM\:K@TO`'*OW;+>YMM# -M@""IZ\[CKCY+B^;>D=4ONB]1\BJ'-T&#)*].\'^+;>X:T.<&NCD[JKXY\(4; -MNXJ.8S29D0%Y]U/I?5.C5O,87.8W&"KN9?Y7MP\TO;W@=8\VCZ:L@C@J(W8> -M8)V]UXOTCQG=6Q%.J\^G'JV"V:?CINQ(^04N-=98])JWD'!D;)S>4VLU%T%> -M5U_'#G$N8=("H5O%5_>$TJ3WDGM_V4F%[I<OP]$\1>);2V#O5+EPW6?$M[U% -MQHVVHR<`(^C>&.K]6JZZ[BUIS!7HO@OP1:V9:^I3U.[DG_-+G)QBXY>3&=N* -M\%^#.H=6KMK7FKR]].R]:\+^&+/IM$!M,!S1(6Q:6]I9T6A@#<+.ZCU`TZA# -M7XE9U]R>7/RW/B-2YN:5&EI]H@+G^IW,DOF8V6?U7J3R]I!CZJM<W9?:@B)* -M991SF.@7M9U1VAVTRJ/4&-8V0<E,^Z!P5<Z3T^KU&H`1(7/W_+7JAZ%9W-P^ -M*;2X'LNY\.>'W@!]2G!]UL^#N@T+>@V6#;>%U=&UIM:`UHA;QW8S;)TPK6P> -MUH;IP%:IV&Q=,?9:YI@&0(]D+FM;D\K<C#.-NU@P,^^R!]$<J[5J,!@E4KJY -M8S^H)H`6-F"8/=":C*1))`]U3NKS,"?99E[6N;EXHTVNSRDT5O6%0WMZVG3< -M2V<KO>@68H4FXX7+^!>EMMZ+:K_SD<KLZ%:E3;&J%[/#A]KS^3+XNF&[*AU. -M\#&&#E0=0Z@T,(&_=9-5[[A\`E>K>G'LUS7+R7.,A1=.+7W.H$#Y3U[-Q$$+ -M0Z59-I4]3FB8WA3OAG_4]-[7O+,$MY5R@W$X*KLI@NW*M-U#&WNNC)WC&57J -MC)GA3N?@M*KW)`&#NM1*S^H-!I.7(W-/_P!<XCOLNNO3_(/=<S4IZKUXC,K5 -MZ<[VYOQ51F@Z1NN.Z56-KU@:MB5Z#XEMYH.,+SCK`-&^U@[%:LW'/JO1+7^9 -M;->T[A.ZGZN,[*KX4N6W'2Z<'40%HPX[[+#:LYF2T-D<F4`8&RK<`"57JD!T -MSNFA#5``$1*HW;FD$&%<JO`$Y5&YR_:545"WU$CCA1WC-=$A712EH)P@<P$E -MKCC@HE8%H[RKPT\D']%<JZ9@*/K%`4ZPJM.`5(8JVPJ-@'V4ZIW%:YIP[6?W -M3!K7,]RIW,#FC5B$%.F`X@&$%"K3-*KOZ2KMJP8)X37#`XG&45C^:)&%*L;% -M!W\EN>$6L]T-`M\H8E%+?\*SIMS'7#_"T-'(W6/08]@-0Y:_*VO&8_D'&9X5 -M2WJ,=TP-J-`<!A=9=[<.G/7CFN>0W:>5E==93=1@CV6SU*DQO\P+%\05)MAB -M3*L*HVE336;JTXSA=5X<J>EW^:XUSBQ[3'W70^'ZY#)X/*WWRQU7963]39!V -M6ST]P(&#E<MTNL=/YACW71=-JCR@0%&FS1=ZA&5H42-.^5DT'ZS(!$J\*P;3 -M+CVV6=+M)=UG/<*#'23N95ZRHBE2`@@\K/Z8T%YKOW=LM:@X$"3A3_524XVD -MR5,`(B%$V-X.RE9"*DIMB"5+`<R`HP/3,J1IG$J*A+32=K9LK%O4:YH)&2DU -MH."9)45>D6NUL)]PBIR)S&/=9OB6GKM25?H5P6AKL%!U5GF6C@"I2,#PP\A^ -M@KJ;=PB97(]#>&WSV.X.RW[F[93H:0X2>RVST;KO4`QOEL,E8_3Z56]N(&W= -M2/8ZXJ:1))Y6Q94*=C:`F-<96=G8+RX;:4VVU*#4/9;'1*7E6X?4&2-UC],Z -M<ZOU$W54SR`2ND`:VAI[8PN.5VMA6W4:+ZYI!XD<2K#R'`&?C*Y#K6JPN?/I -MOPXY6ST'J3+F@PEV2%TQU8U_5I56`M@Y6;?6[2"M34'>D$&5#>-:*>8(2QIS -ME;^6X[@!1MO=!C)6C<6KJ[SL`HSTQ@&1*SLTSKBJ^Y)9_2N'\9=&+*AJTF3. -M\+T6I:-9^4`:55N;!E5A%2,K&<]N6L;IXU7IU*;I`(A;OACQ3==.J-94>2S9 -M=/USPO2JM)I0#[+C.L]&KVE8RWTM*QCG<6[C,GI?0_%%EU!@8]PF,_[A;0MK -M.K3-1L`N"\-M*M>UK:V/+7!=#TGQ?=4G>75>=/O_`-ET_CFQSCTWO'?1YHOK -M"!"\?\4U88^F<0=Y7J/5?$'_`!"R\L.ES@N&ZIT2K<5'.#=1)PO+YO'KAW\7 -MDWV\SJ>8ZLY\&3M"EL];ZKJ;@`!GY787GA_RO4YD+&N.G,I7&L-+?A>:XZCU -M3RRHQ7=;T#/S`1]-ZG4J7`;J,3D2J'4V.<[,CY0V3/*)>[Z<+EZZCK-6.^Z7 -M?@4@TG/`*UZ%1M2D)$D[A>?],OG/N@ULS\G9==0J.IV8<(EWNM2\.=XK>MPQ -MFI[2/H5:97]49C]UA=*K.JB,GYY5FI=EC\DAW8JR+[).IU`XF0-^5E=7Z1;7 -ME(L<P>K*DZK=--,&23\IK*O4J.$\>ZQE_KI*X[K7X=LN-3Z(ATJI2_#6NZD& -MAH:!S.Z];MS3%LQK@)(S*FHUJ+1,1"LEZVZ3S61X_5\"%CJ=)]-H:S^H#+OE -M=3X=\&6=HYM3R?4-B0NHJ%E2Z!#>58K564P,PI9;Q:7RVK]E:6MK:M+:8!(Y -M2-^QC/Y9,MX"R;SJ;74M,RJHNV`Q*MLG#G.>URYZH75C)52[NP\ZM655O&:S -M+"<YCLLZM3>&%KB09Q*X^_QK2Q<D5-0+S*JUKC0R`X]E4N+MU(QW"CI5C7:' -M05F_E6C86C[CU9C==YX&HLIM;+0>ZY;PM2\QH;J))7:]`L:E(X^JU).TMXT[ -M'IU2F&`#$J[YX#=\++Z?:52P1)6I9](NZ[L@@+K+\<D52]$F"H*MP\MELF5O -MT?#C6MFJ8A&_IMO281HSPNL\.>7QB^3&.2J&XJ.@`Y3#IM>J9=NNG%I2!.EH -M1,H-G\L+>/Z>WMB^;\,&UZ&TP7"?E:-CT2D'`BGMW"V+>BR>,*[;AH'$+T8_ -MI\8Y9>6U4M+(TV@-=MV4E>W>6@-*O4V:L@Q[*5C`)E=ICKIC;#=T^JXYRAJ4 -M*MN=0^RZ-K`L_J3FG`[K4P9M8E2\J.=!D`=@H.J>)[?I]-IJU`/;_82\075. -MSMG/YX7E'B^[N^HO>:;"6@K>YC/;)PSMZQ>DV?X@]+J5=)KM!^O^2Z#I_7K> -M]IAU&H#.<%?*U6G5J7]2F7O8YIG!73^#_$'4>D5!3J/+V#:5G]W&W34E?1_\ -M4',`)RHZE8/V,KB/"OBVVZBQM-]0!T97327MUT7RU=$V.]>=!@A8%)Y_CG$@ -M22KO4KE[00X$++L:[7WD#E6])]-X@;-$X^B\U\5TCYSH:!!X7J75!KHG'T7G -MWBVVRXYP5J.=['^'%V^7473@?W78R8_U7G/@ZLZWZL!,:L'*]!+R:8(^\[K' -M^-"J.`;D*E<D:L%25GD#=5JIY*NA'6+B,C?@*![1&0IBX.RW<;!!IDYWY01! -MQ@B,)XU-@%3>3Z9E`69G909O5:6J@[.%1Z82&.89QMA:O48-$\@<+&L"16>$ -MO42?5DAAV'R(2:P`AP">F`XR1A3M8W3@04%&YSB)16M,@SIW4KZ<UM)D?"FI -M4BR6G'92D6*#1Y39(E%#>X2;HC;]4O3V_59TZ.:94'4>JN8XC0P_=#U6A2I5 -M2`0.T*#I3?(NJM7,%1]7>XN:^<NS,KMJ<//]9G4*9`QD%8'5Z(#20=MPNGNO -M5;SB=Y6!=L<*CIR2=DJN:NJC)]6Q.RV/#]0TZ,D@SD_=9'6&:+B>"5?Z0X:0 -MP5/:>ZU.F:ZBP?',+H>DW$4XQ\KDK*J`X;SW*W>G58@DXC9(O;KK!P(&=QDJ -M6O4#M-!I!)W6=T^J74QZN%/T]X?=NJ$&!LI81OV+6M8!V5ZG^2(*SK)PF!`5 -MZF^!NHTM429W*EIB8[*O3<)B=U9;@"%%3,_+`W4C6X'WE14\22I9$1.%%/F, -M#/RBI@_U94-2LVGDN`4)OJ0$`?571M8KVQ)U,*@KUBRF14G'*=G46:=L+/ZK -M<NN&:*;9E/4VPK:JYO5ZK@#"T#7?7N!3&RDL.FM:34K'?DJ*Y=3;<AEL-3AV -M4EX9URW["A3I4\Y="N4[2I49KJ?EWA#X=LGZ&UJ_(E;59H%.`V`LWGIN37:C -MTUA!(C'"NENH22`%%0`8X@_='4JRW2"#*QC-W:3MG=5Z>+UODM@CNL=UG<]) -MKB"[RUV/3Z$`N</S)NI6=.YH%K@#'W4LU?:.LFYJJ/3;ME2B"")[*2X(JPT; -M$K%(JV%=S7M.DGW6CTVX:^H"3LNDLRG#.M7E?I46,IP<J&XI`;`*SJ!`A/ID -M=Y4TTRZ](&<9[JM5ID&2`MA]$OVG*J5J,&#/LH,]S/0!&#RJ?4NDT+AGJ:(* -MU:U.)$%`YL".`LW&7M97%]8\*T:C"YC1/LN.ZQT6O:53#,-)7L7EEPP)"S.K -M]+94!=IB=UROCUTW,M]O)J3:E%^DL,!;_1ZC'LBH`#O*Z#_@%.LXZFJG>>'Z -MM&KJI20F[]2R?%&_Z?0N*9.D+E^K=!8ZF][6R`<GLNW?9W%)H#ME5O*#VV[Z -M5,"'X=A8N,R[:F6GDO4^E>K2UNTJK=='<:<AI!7=WO2*QJ'33+IWPH+NV<RE -MIJ4B#W(7&>&?EV_=KA[*W=1J@D!L8GNM6ZZEHH"'Y'=:0L*=1I&`%G]5Z:#3 -M);&3O"YY>*QN>297E?Z)>NI40YQ;!&X4M[=MK/:01)]]ED68<RB*;C):,[J& -MO5J4ZX:""TXP5PO'#K&C4J^:[3J,3O*N6E44-.?JL>G5`:'2`!O/*EI5W5'[ -MRUJQMN.CI7CG$MG"G_B(GU3.ZR*%9E%AAPF%4N;\@N>"M^Q&ZRZ:VO@SW17E -M?73UMW/'9<C_`![G7,AYS[K09?.--H:<_NI<MQ=:37-4AQ<#OPJ]*N[SR2X^ -MR@N*SG"2`0/=5*M<"H2TG*YMR.@L+L.J-:YVVZ;KU;R6BHT$25SM*^%*LQY= -M$')!70731=V!<001LDE6\=L*XJ><]KFY]N5IV5`LM]>K$8PL[I]J\7D%OY<# -M*ZNTL:E2ES'*LPW>&<LI(+PV'4ZP=.^R]6\%61NV!SMB/\UR/AGPW5K!L-7I -M_@WIE>SI!KFQ`V^Z]7B\4MU7G\GDNN&_TKIE*E3:"`5JQ1H4Y;I4%K3?H#LA -M!>M<&Y)7OP\>./3S7*U6N[MU1Y:W;N%4KU''!XW*FH#+DSK6K5K:H,+>^&5< -M9,P$3`XG`6C0Z<XMET_57:'3F-W&>RD&71I.DR,*W3MW2M-EDT$G=2MMVZ<? -M9:D%!E)P;G*)C#VA:'DC3(2%$1(51FW>IE/98=[<>6"3]ET'5"&4\[E<CXAJ -M[M89DK7QBN7\47=2YK.IC8'[)>'NGVE>V=J:-495^WZ9K::CQ^9+H-D:5Y4` -M/I/"X>3^4W6<IIR'5/`M.OU5]>B(U'98G7/#%U9G#-0!WA>ULLAIU-/Z*M=] -M/;5:6/:#VE9GBUS&Y>-/":1K6=>6RQS5VW@OQFZ@YEO>.G&Y4GC7PN&36H,@ -M@SA<!U!IH52UP+7-,;K>&5Q,IM[O5JVO5;'72(DB5R5RVM9=3)$Q*X_PCXMK -M=,K>35J33(@2=EWEA=VW5XJ4RUQB=_\`?9=]RS;EK5%_Q!M1FEXAWV7.^)F- -MJ,>=,@G=;/7K(T3YC20?98EW7<:#V.`U'&1LND<LHY*UJ?P_4@X8@XRN_MZQ -MJV;'-=DCNO.NI_R[N1O*ZGP_=N=9MU'("EG*R\-USCR?LH*CAM.$#'^8-SE( -MR'&(4:`0!ZN5+3F-DWECVD^ZD9@94#U!#1F57KN]/8\*U5;Z0[,JA7=G?<]U -M8BM=D&GI)_18ML?+O7C43/9;%T<.))E8E0D7Q[)>D:=(2V=X[*3;`5>W=``" -MLTFF>9]U%-1:#5]0(A3/`!E$QL"2<]D-P0,_HHJ6F\!@&4_F#W4+3Z1ZH]D\ -M_P#6HUIS=9WH;3(`,969U!AT$QE2U;DFLZH1`.TJM<UBYLR"5VTX(:A(H_F^ -MBS;RF7DN=PKM=SM!XGA4ZHFE,PI5<MUUI;7#G3I!P0=DW2ZCVB7MD'^J5<ZQ -M2Q,3RJ5H#5I.#I`&V=EJ=,ULT*Q#P2[!'!716%4:6DE<9:5=/I+7XY*Z+IUP -M7TFB=MH*I+RZNA<%E(0Z0!PM?I`TVV3NN5H5XIM'O]UTE@_^0WX4L5NV3\9S -M]5I6[NZP[6J`X0?JM2SJ:FR)[Y4I&A2_.3E66.TA5:3I8`%-3)U1*C46J9Q( -M0WEVRA1DD!)BYS\0J%[5LV_P9(/LL7*8\UJ3?#8I5*%4:GU9!15KNPH`RYI7 -MF-!_B*D-&A_;A07=MX@N`Z7.SVA7W\?Y/V\^GH%]XAZ52!UO:`-LE8UYXZZ; -M2D4(<?:?\ES'2/P\ZO?U/.O*[P#F%UG1/PVM*+PZOZOF?\UC]Z7^N+7[6O[5 -MF#Q/?]1J1286TW<E=KX*M*9#:CQJ<X<I7G0+2TZ=_)IAL)>&:S:;M$P1A:QM -MR_LSE).G;68``;$1PIZT"F52LGZF`RI[JJ'-#1E,NEVJ5ZFFF23NI.E4C4=J -M>=ME'6HZR)..RO\`3@&P,=LK&*XS2]28(P43FM.WZI,&(!!^JD:.\?=:;C(Z -MYTYMQ2/^+VP%SEN]UG<EE21P%V]0!P(,$+"\1=+;4I&HQN1V7/\`K=Q;-\4U -MI=,<T>K=7*+VD#..,KF;-[J=4TW...Y6Q;O)8,KKVQTTP6G8P.RCJL;"@IBI -M.ZE.N((6:T@K4L3&ZJNIGX6B[20,;J)P;R/NH*@!&!A#6IMJ@#WW5I],3,?9 -M`8;N84[X7I49;,INGGNF%!M5T$81N>:C](`5R@QK&#W4OX(R.H=/%1D:<+'J -M]/'FZ=/LNV\K53P%5J6+7/U1NL7%K;F[;HM$PXLRL[Q'X=HUJ9T4Q)W@+O:- -MG@`C"CO;!I&V%+A%V\AN/"M1C"6@_*Y?K?3*M'4T3\+W>ZLV"@06CZKS/QI0 -M\JY=%,@$]EBX-3)Y6\/9=%A#AGE-6B"8,CLNDONF-J.+].%B7ED6/+73'[KQ -MY^/5>G'/;+\XNJN9I<X*Y2,-D8CA3-M&ADEH'>!NJX8]I=`7++#3I,]E5N7; -M!Q'<JA?W%1KBQI)*G;3>*IEI=K*LML*;FESV$D]UC4CK+(R+8/#C4)]+LD+6 -MIUM&F3Z>Z"[I4J,`"&G@*(.<ZEIF,)9M;EM9K7-)M$^H@E9#*IJ7!!=`'8*V -M+2I48&.;^;F5:L.F-#=9:1ODJS$]Y(:QM&U"Q]29WA=7TI](46L.\05D6-J' -M.#6%=7X:Z,0W6[)/9;PP<<\_R'IO2:=2Y#V,D'*[#H_098':-ALM7PKT9C0/ -M0<CE=OT7I3&LDMX7J\?B<,\]L;PG;-HU-#F1A=I9TF!H(`677L/+K:J8`6G8 -MM+:8D_*]6.,G#BM&H6F&C`5;J#I&1'PIG.;JPJ?4GM#9#I]ETTSM6K5*=&GY -MCR%-T[K=C&EU1I(]PN+\:]5N:5`TZ3'?(E><OZIU6E<N+*M2"=I*7+#'BIK* -M]/HAO6K,`$5&?=/_`,=LA_\`I&_=?/K.M]>B-50_=%5ZGXAB07Q]4_<\9Z9O -M?CXBL6X\YN?^I1N\46`.:K?NOGQW4NM:CYCJP^Z.C==1?E]6H([DJ_NX)<,W -MT+1\1V53`K-^ZF/6+73+7A?/G3KCJ8KRVN\`^ZWJ?5+UC`U]5T_*OOA4UE'I -M?6^L4G-TM=)'995"B;EQ>X$MW7/^'?/O*\U2=*ZI[A0H!C#^JS<O>\=+)Z]J -MM^\,864QD*'HC-%4ZOS%6J-L:KBYQGE2T:(:\F!]%G/IG2_;N](DRCTMDF<% -M0T8$P1*DDQD[+>/,%>_MJ55A8YLA>??B#X,IW=-U6U;I?/'T7HU0@C;*JW+` -MX$`*Y8S)9=/FCK?3[VQK&C589:2%K?A_XDK=*Z@UM;46$1GC_<KU#QKX8H]0 -MIN>U@U[X7E?6NBU>GW+@]A`G=<;[8UOC)[(:E#JW3&U*3VY$X*Y#Q#:/HM=$ -MS.ZS_P`.^O/L[@6E<S3(ALE=EXIM&W-AYU$#(7IPRV\^>.GDW52YU7,`@[K9 -M\*LJ7%N=#H@+.ZY1ASLPX'NM/\.G#SC3C!5RK.+7:+BD0"?96*3*[@,`+5K6 -M8.0`HV6[V]L;++2@:-P)!<$#FW#,3*U7"&B?U4%9NF85&;6J7.VP"S[JM7!] -M;/LM>Y,.R`53N2UXG2$1E?QF/5QW6=4J-=?AS7<E;%U18_\`ISW6'<6T7GI/ -MT5O236VO;N&K>)Y5VAIF)^BPPRNS.DJS:7548<W'S*RK<C21G"@N'`.V*K.O -MV@:7#]$GW%)P!F.R"VP`M">&J%CVZ!Z@G\QO<*-.$NZL^GA.`/+!=E1U634P -M/=2L:U]/2.%V<5:H095:J=0CG967`ZCC95ZS03'ZJ:5E]8I`T-``E9UFP`.: -M0/HM/JC9JM9V"IT*(:\P))25FHJC21#A\:5=L:CJ+@W8#@R%7SKCCOPK)IEU -M-N-7N$&O85IK-DF"NJL:HAN9PN#L*FF[%,SA=/T^O#1"U.5=/:UB7!H^RV;* -MI#<?J5RO3J\O,N)6]TVKKC&R6(W*-0``!6K=S7.D+-H.DB/W6@R&@`?HLUJ5 -M<:X<HJC6ED$`J"G!(_NBN*PIT_[J:VNT%X;=@@,"CL;1E:KK<T`)4*+KE^M^ -M!P%IV[(`;VV"QJ7IKI:M&-:T-T@*WH]/^JKVXSMLK;!_W6A4ZC0\RU(7+V+1 -M;]1<TCE=F]DM(7(=<I>1U`5`8DY69=9+>G4VEPQM)L<C96[`&JXE<_T>J;D1 -M&RZ;I5(LI9Y4SO.G.<I:K`&>Z&V)#O4%/5&H?Z*!PAPSE633JT:)$-RI9RJU -MLZ6@&`58:"8[(T51H&905F5M]-I]E&ZU!R$;*DP.49]+20<]EC4K6V=>L-, -M8*I-IU:C@'#'>5HO'FU2(Y[JRVB`T#3"S_D5FV])E-V<E66,&L$%2U*()QNA -M-(@X36A("`I:36P2>55<2",8[J1E8!%70UH;`E#4:"S*A%6=M_E.'M(R<H*M -MS;![B-*Y?Q?T*G7H.<&Y/^^RZVK4`<51ZE4%1FF-UC+':[>54>A52]S(Q*Y[ -MQ7X?NJ)+@TP3_OA>P4NFN;5-7RR0[L%'U3I-.[9#J6X[+A<-NLRT\";1J4_3 -M4$_*MV?3&5R-`A>B^(_"5%E$O:T`_94/#/0CYI#FX"Q<-\6+[:YC`M_"DT-? -MUCLLWJ/3S0FF*9G9>K'IS@T4VTXGE"/#--_JJ,U'E+XI.B>2WMXG<]'N*KQ_ -M*<0I+3H=Q(:6GY*]J'A^V;Z13_15+SPZ)!8T1\+$\<VW^Y7F+NAOIM#N5/;] -M-<ZG!/U7?O\`#-6J(`PK%OX4,1IRM?MQ/>N#Z'T>+F2["[CI%G2I:-3H5YGA -M&L!+"1[PM&T\)W3J0ESI[PM8R8LY6UK]!JVK&CU`'NNCHWM!K``]H7`7W0NI -M6DF@]Q473K;KSW'4XPO1/)XYVY^N5=U>=2MV/!+Q]%/2ZM;>0#J'W7#5>C]6 -MKN#B]TCLIZ'0^JD:75'1]4_=PV>F3H[_`*]0H_\`Z1L?*CL+\WSBX&0L^S\+ -MU:@FKJ=\K>Z7T06S!N,*_N;XD/37U%>V%K<VY#J8<3W"P3X-MZU<O\IH;VC_ -M`$7;T;-K0"3)/NK#:=-K8`!4R\<R673E+3PA9,:)I-D>P_R5O_RY9-;'D-(^ -M`N@JQ*@KN<!NK/#BERKGJWAJQ+3_`"69]@LOJ'A>U+8ITQ]%U^E]3$84M*U! -M;D9*7Q8_#VKSEWA]U(D"F`HO_+UQ5J`Y#5Z3<65-PF(*SKLMH'3`,]E/V[\I -M[,KI=HVQH``>H"%;HT'U'R9,J6A2=6=J<,%:-O1#0!"WC-349O/**WHPS+8^ -MJC<P"K!G*O\`EC3@*C=RVMR,K>N&:8M+78S*1,$J:MFB#'U55\SE2<5DG.TG -MY4535F"C)$@'"9\&8*TJK5;JF2N;\3]"HW])PT#5W74%A)V0OI:FQI4N,IMX -M7UGI]QTN])@B#Z2N\\!=7;U'I9MJSO6T`>I:7CGH-.\LR]K1K&<+S[P]<U^D -M]:\IQ+6DP=USG\:MGM%OQYTS^%K/>UITN."%E>`JOE=4+"XYXE>@>)[6GU/H -M@JL&0)QRO-^AAUKXA@-YA>B_U<9V]4I`.IC!P.2HW,R5-8Q4MV$DB0AK@#(4 -MBJ58.S.P4%9TM^5;J@0>52KG!C"(I7,D20J+R-6ZO5RTX"I730(`PJB"X.#( -MGLLDLF[U`+3N7.GV673,7I(VY4O5)VO,$S_DIZ+!AT#"CI`;S$\J>FT3@J*" -MM1IO&VRK5;5IR'*XX$-R@=!,CA-$0LM:VD14PB_A:_\`\BMTP-`S">!_B4:< -M"XESH."$=$D3!D!0L)#<R/D*Q;Z@V8&Z[:<:BKR'%5JC0'YY[*U=CU856X(` -M)D2%"LZX:7W3G#@PH:K);`P?E:'E11G:52JL(>2,SA155K)'<'LK-`Z</&^P -MF%"YI#L_]U/0=K<,25>TZ)S1_$-)D&-PM.QK.:((.>5E7NJE4:YAF3$'A7K" -MIKPX3"16]87!'($KH^DUM%,$'=<10JNI51.&KH^B7(>T'5*TS766+Y=RM:W< -MV,RL#IM4$3NM:V>20I2-$U64J9<H+1C[NOJ(A@]U6K$UZXHM)CF%L6K12IM: -MP<+%_#<_*9C`Q@#>$QD&0-^Q4K#QV35#`C)*:5-:N.L$G`V5ZFXG/<K.MW28 -M5Z@9$;*BP(+8`*YSQC:N>&^4W<KI*8_EX,*I>L#ZC01)W6,HTH^&+-U"V;K! -MD[KI:+=#`J=NP`-``$*9]R&D-E8QYK&.EID'!450#5A/1JM)B4540<+I72#M -MR!LK=%V),+/8=.T^ZN4G`MXPBQ+(WWE(Q_LI-!/;'9"T0XP5&C.`TD2J74*- -M.I1+7<A6W&-S/LJEZ?4`.<%2P<?=6=:SNW56DZ25H],NPX`ZMEN7=FRM;:2! -MLN5ZA:U;*O+0=)*SC=<4RF^736U8.&_"EKU(9A8/3+T.:!^ZTC6;4<!.5NLR -MM"RICR]4F5.6>KTRH;?_`)<B!^BL4L-EWW4D:1NIR,F$!IP`K`;.=D[62X!2 -MJINIRA%"1*OE@R(`^JC-/U0.5!4%(@9PC\H1,[JP:8&#$%-H[#"FE5:E&1*J -MBW\RN`6\[+4-,QV3]/M0ZKJ*6$2T+.F*0&D;<!17'3F/`AH^RT]/&F?92AK6 -MMG$=E-1IR'7.B.?2.`0LSIO1/)=ZFC[+MNH5&Z(T_14&^HQH4])O9MF?P#`V -M7`>REHVC'0(5ZI:U'$P"FM[=]-TP5C*S>ED9]QTX%X@<\*:GT<.8"6+:L;37 -M4!<%K4K6F&Z>RSCA]:<H.D`-!TA2T.E0Z2V%TE:V;B!E)M(-`.5UF++,H],: -M6B1GW1/HMH-($>ZO5:S&LW.%F79J57P-N%9C(EY0/8VK4RR<JU2M*#698)04 -M:19$@R=U,`Z<@Y34MY7F#9:TA_0$YHTFMPW*"7!V)3OU&-)*:B<B&D-``@IG -M/(=AOV2;3/\`4EY3@XPKP:)SC&WW3EV,G]5(*9:R0/HJ=:I_,CCLLY9Z60US -M<EHP%';.-P^`FKEDP>>ZFZ-0&LOXE<YEEMK46J%#2,C*D<`T2?U15:M.F#D+ -M.O;IS_2QR[R,6FZA=ALAOZ+.%)U6KJ>,%7*-N7G4XRK+*``@<)645O1TMPV% -M*&CD*4@S`,)0"?=601D'Y_LJ74Z0@&/HKYDG!5?J(]`D[*I4=`:K<3!`4;J0 -MG"L=/&JC.T(W"#')6/\`4RXK.J4(<9"C-/@K1J"./E15&3D05L4_+$8RDQD- -MSCY5O2(E1$;@B$%2XHM<TM(!E>7_`(E]'_AKD75`$23,!>JOP")E8?B^PIWE -MBX.:"8*93<3>G,>![L7O2G4'.ES1&3[+D.J6O\)XK((_,XG]5T/@B@^TZI5I -M%IB?@)O&]H1U>C7:`?5O]5,,MXV,Y363H>GD?P=.,X&R>XVSA*P'_HVF!D!# -M=P`,K>*5!5V/"HW!,D#]%/6J0)!E4Z[B3+9515JCU<?=4[C\V3"N5R)!.%2J -MD$Y^Z(JU3Z\SLJ=O+KEQ@QRKEUAITR<*IT\S6=D_52]$7&P'1'V*D9J<[T[H -M-!C8%'0@;-GX0&[\OJ.R:F&X.K9.(G,DHBT$=CPHL.`XB92AW=&S3I$RG]/< -MJ;C3S.W=+)[JY;5!@'8\+-MWEM*-6KO"N6;IS/W7=P6KR"1IR%0O&X#!_4<J -MY6>($[*O0;YUPZI,M;@+-6'>P>3@Y5.L``2<=CW5\!KG$=N5!>4Y9EON$JL: -MH)J`D$CLI:!)<``(]U)=42*0=F?904FD.F00#L"D2Q)>M:6M#@"?CE'8.#'X -M&?V454&I4B<`<Y*>FZ'"00-B4B5IL+:A!&/E7>GW+J#X;^4\K,L7S5+85YD: -MM)C/Z*SAJNQZ+=M?3$>PRMNG<::)*XGICWTP"PB)6W:7IJU&42XQO"U6>G4= -M%8\36=C4M:VENY]UFV-1OE-`.!'[+1HN$3,+&FEEASE&X225%1@Y)4\0T&8! -M4L:!)!`"M6U0$Q]%3<,GD_*DMW:'=Y1&K2)B8A-#7OGLH#6TT9$!3V)+J>HQ -ME8S+4VK13+BJCGMJF0=BH?$UT;:UP=U1Z1<A[0=6_NIA.$C7H574G2<A:%"L -M*C1,3^BHT--294C&.9EI6W2+FKT[;?<J>BX0J=%X=$JS2QSNHTM!P`ALGW2/ -M>4+-.F!^J*0!D*:4%:&LU$!5*`-6L29@84EZ_P!):'&45C3AD]TJIF@2#V5# -MK-DVYI$`96BXP0(3.`TZ5,IM8X*X8^SN""#$JW:70\T21D2MOKG3V7#"=.RY -M.X94M;C27>F=UG&WJLY3['96E753W5JG4).-AV6!TBZ#FB7+9MWR)E;TDJVP -MR(/=3,@`S/95J!>7^IP(XQLK$<\J-G:)R#(1`<D)J8/;*D;DPI1$^F79!`4C -M:+0WW`4K&M&#NC;N,84TJK7;I:K-C3#:<[2HZK2]P&%:8T,I:8'T2K#B!RHJ -MSC'8J0R_`4EO1#R9E.A3;9NJD$@Y5@6+&Y(`^5ITJ(IT\H;EHTDA36U4J=$: -MM$*9UI2+?RH*!FI,X"LZ].Y4UNJK-I%CI`,*1E<@P>RL`->T84;J(>9[%76A -M(QP>-]E7ZA#:>#**K2=3RT_=4:M74_0\\[J\!J-)U0YF%890:!NI:+0U@&_P -MIV!H"FOR*OD-[;G=%Y`U1"LD-F>4_I@<IHVJFW`3MH-Q"LB"-N$FAF"#":$+ -M:`)V^4A;@[[#LK!+0))CZJ)U:FW=X31LWE\8"JW%BTNU$HZ]]39L9CW69?\` -M5M.&3E+A+V>^AW]M2;#IV04:[:=.&!0-K/N0"\DCWX4U*FP-RDQDZ2VWL%4U -M:SX)PCIV^@[`^ZL,\L#>041@[%:TR&FP!IGA.-_A.X`#TF4$#5NJ'?G(*$3` -M)^$SS,]PA>2UL]T!8&(S\JMU""S&2IM7V4-_`IRWZJQFGZ8TZ3&RDK$:@=H4 -M/2\-,E2UXF9P5SLX3()<")(]D#R`(*7[#*$YAP*W.E"8TX0.&9`GY4D3_4AB -M'^RHKUJ<CTR%4N:.JD0[E:#Q.1N%6O\`_EX5B5Q=>V%IU8O:/S'^Z#Q/0\SR -MGZ3W*UNI4`ZX#SIE4>OF&,`B9W4DUMF\E;PR@P#``4%TZ2<?JB#M5,`G<<*K -M=/B8(GE:G#*M4)DP<*"H9&)SPI'.!F#\@J"J=.SAW1%>OEWM[JM4#OS<=E8N -M#J]H*A<($`_=!3KM9I)DY53IP'GO),$<*Y<?D=..,*ITP.\UT']4O1%YF<1^ -MJD83$1`'NG#1,D'W'=.3+<84#.(<!!RG`[DIZ1:1/^J:L"#G"BI&_EW/V2^O -MZ*)E1FD22$7FL[E--;>/4*CJ;]1)<.%KVM21,P>RR[?3IT.SV4],NHF=Y^Z[ -M;_+RK=P]U)AP>PRKG3F>7:^K!(G*RJU7^)N:=,8:W)6L'?R2W[*::@0"PD\( -M+C\H$3/Z*5Y/E1$DJ/3.\[(TJ5VX`@[S*I!A95(G[K3J`D9:%0>#Y\:02HE5 -MVG_U;A)!`P%-J(.9]E#/_JR,R,;84]P"TSIGXE$Y%0<:;I#MSW6@Q[?S+*HE -MSJ@!&^P"M^8-@[E58W.GUG>6<K2Z('U+AU:?RX7.V58Y$D!;OABJ,@DS*UV5 -MU=A<NI.&HF%MV=TVHT9SNL&U#:@$1*O4&.9!;Q[K(Z*W,MW5RG.W985G=EK@ -MT\[Y6Q:56N`,R%*U*DJ@`2H9<TR)^JM/TO@JL]L'(E94=2Y'I870MBP_Y+3. -M!"YZDTOO6[P%T5`%M&0N67-9O;'\8--2E(_I_P!5B=&K%A,SV71==;JH'4N6 -M:UU*K.5O#BMV<.MZ96U$0>%J4CJ;PN;Z/<9`G*W;>HV`9)6S%8JLV<U'1JC` -M(3M=Z1"&I3CU`+/3HM4W9PI'/&GC"J4:P@ZC":K6!PWE4V6H5KF-X*O4QB`J -MW3Z`8TEW*M`9V69^6C%V0$;8(D'Z)B&XG=$&C<X0156M(((GA<YXEZ=K];1L -MNG.^57O*8>V"-\+-QVNW#V-1U"KI=N/==!TZZ!8)/LJ/6[!K'ZX&%5L;G2^. -MWNM2[<[-.JMZDG#L*SK$]UCV=QJY6C1>#C=-+*OL)+)E24CE5Z1ALD>TJ>B9 -M(SMP%&ED$$`;]T1_+,[**8*)YTL10T0'5YD8'=6JL0%7LBV22`K+&!SO]5EH -M]"G!E7K6F&[0@HTP8PK--H:`"Y%AW`!D2H;HPS^RF>0!G?Y5.\)TQ/NJE0V@ -M'F&45P8YP5%9_F),[JQ<4R1A94%"M!A7:3FGZY654)IU([*S0J>D=RM)%NZT -MZ3`&VZQ<&N8V6A7J$TX<#"S[9NJL7`*6+M:+](QPA_B-)DIBSDG'9`:8]\\J -M@_XKD9A+^+&5`:?J@=^`F92`=D%-HE_BS)]TOXP\%0BG\I"D,%-B2I7J$1)4 -M%057XU8*L-:`$X89SB%-BF+5Q,.<?NJUW:`$20M8#95.H0"`2%=<`+:V:*(+ -M2?NC%)VTQ[RI:0!I8.GX3GL2DG`K.;4:3#DPJ/8W.1"M$#<J-S`>$1"VYP9' -M$)V5Z9`(*9]$'X41M@#@P$1/K;O,<?*(D1CXW5*I2>T^DJ-[JH]U=C0])&-P -MJ]_4;Y<$A5Q=N!R%6NZFL:M7W59J[TUQ<V.#LK-5I$$\JMTA[?*)F5,^H"Z) -MPN<EJ7@)'I$3*0$"/JDXM/*0$N@25U:(0/E(029"<3&R=\#VQLH`>`#E4[PC -M3."%8JN),-5&[<6X,JLUD=3J,;5!,?*Q.MW-.I48UI$K9ZM0UTBXN`PN.>QP -MORTN)SS\J\:VQ]:A<!3EHX5.L_48$X/*G+O1`.0JCYUD"2K.D`[O,J"IVB.5 -M*^1&-U`_5L4$3AJV*C<V1!^BFB#(0P8@")4-J-TUVDDJOT9I-1T?NK=P?26@ -M1'NJG1!ING@_U83+HC1+0'$@9(SPA:UWY01'<<*<M'"B+PPGE`5*F!'8*.KD -MD/E2,=$$2HG3K+CO\J0(-;`]2?2S_$G#C'"6H^R-</%;%\.&J"9V6HUPTR1( -M&<&%B4*K34])(]IV6D:W\EK&B2XP(7:O*.U#]3ZS01G"T[.X!;H><^Z"@P,I -M!@R.4C0TN)&^ZSTWI>)!@`(7,(4/3K@ZB'JW4#33F55BM6U:2T`'4%GO]%:) -M(/Z+3=3BFXSNLRZ#6.)=R,+/TO2L[2ZL7N`[*\UC74X':!E5K>D#1U%NYY4U -M":9`F0>2D$%9HHUO?=*K^77,%3WC&N]>F>ZJD#3I,P$5;L7M-,ZCQN%L]`J^ -M6S5.YY7-V=3^2X@''"U.EUY8`>/=;B1WG2K@$`D_9;UE5#V@E<3T:YD!DKI+ -M&X``$E+$Z;HIAX)8`3Q+E:M0^F1G!5+I]68]2U*+@6C"SIK:W;W`C2XY/NGJ -MP&EP)4'D2-0W[H;ASVLT[GY6+56>F4O,?J$[K9HP*<3LJ'1O10]6>5/5KR=` -MY7/&;J3M!U-IKO#&G"Q.K4-!CLNGMK>*9>[<[++ZQ;R#CZJUUTQNG5?+JPZ5 -MT=A5+V@`Q]5R[V^74Y"U>E7&(E=)S&.JZBW,B)'RIW?EG*S[-X+9F58K50QD -M24TW*@OJ@;L<GCNFL&U''4Z8G9-1H&N\.=QW6A3IM:W"QW5UI.RHV!*G:X$S -MC"IFG)D'V1`/:%6EL&3@I`D_TJNVH08E2,K-,@N@*:5*,"80U!(E(/9,RC.6 -MX<IH9?4:(>PXRN5ZA3\FXD8GW7:5@'",K`Z[:C27#CE2\%Y4^FW):()6S:5@ -M1)*Y6D]S'D=BM;I]>0`=EISZ=-;U1Y6\PK5JZ3LLFRJ2)F%HT*D[%--RKP=* -M&L\!D3/U0-*&X+@WY45-8"3NM.U8/^ZSNEL<6:EJVH)B2/A9;6:;0.,A%(.$ -M&2-PD>$43^TRJMZ`*9(W5C;)A5;QTMP/F54J.Q:1)5MP!'!56RGZ*RXB5%5+ -MFE+I4+':7Z<J[6$@E4JC9=LB):S@:<3A06Y(>0"5)`TX(4-%T5HW,H+1[$2% -M%IWR84CL9P4SLA`,`@;X]T@V$1_+,(3G?ZJFS?LD`",<).$#!320`-,('#<3 -MRD02(U$)]1_[II_W*!<PJ?41D9/RKA^BI]0R.?H4B4=MFF,(G1)R906CAY6D -M.E&Z`Y(4Q)C!E-.=]TQP<[)$PJ$X1S^JC<Z793DF$$YRB$3G&2@JP3F/E$XB -M20<J(DF<JA&FPB("I]0H-T^DB2KK=P)D>RK=1ANG/U1**RHFG0])*"X:\OU! -M6*+HM1/*$9V"QC$O:G-5IR20=E+2KN&3LI7@")3M:TB0/NNF@S;@!LN3>=JF -M(2JT6N,!/2HM`01OJ!K3/[JE5.H%Q..ZM7H#1M"P.M]290IEK'"0K)MFW2KX -MEZ@RA;%K2"3[KF>G!U6H:A$F9RH^KW%:M5-1P,#Y1V5RT,R(E7.SB1B;[JV_ -M>0%`]I.VZD=7IEH@P9V4?FLF0X#W01OU<M]E&]LC;93RUSB%$\>J`0@A=CZJ -M-X`._P!U-4B%"1G,HBM<!L8,E5>D0+I\DY/=6KD0<D#'94NED,OS/)^ZF72X -M]M>L,X4)@G(W5BL0!$[Y5=\[?W1",QJ#20.?91U#J=+?DIR^&1_=1%X@D['& -MZ*E#V`;):V=D#64M(EZ6BE_C4TKP6RJ.=4`)F.ZU^D5/-O9T@Z%SMN[RP3R- -MY6OX5KZ*+]0`<YR]&GFRFG3T@-4G)]BIM&KLJ=M5)`/!PKE/5/=JPW+#OHX] -M,`^R!M6HUVEPPIJ4M.43J9>W.Y4_XI$BJP1/NL[J@T-/I$*U4:^D^!.RI]4J -M"H!3$R=PE4]L!_#"#S*CR:F&F%.&^4P-X]E6I:C7<9(XD8E/J?%QH#J<1,*G -M<MBK$1*NT7'`.GZ*.[I"-8`^B56>WT%X!C'!16-=S>25#<G0YSCL@MW%M/;= -M6,V.IZ+<D$23A=/8W&IH/*X7IMQI#9'RNBZ==MU-,_"T.WZ94=`),!;E"H"T -M&5R72KEKFC,_5=%8U`6`YCY4L)6U;/DY".YA[QA5;1QU29A6:)UU`)GY7+.< -M-;7A4;2MY<(1=+:*S]9.)5+J1)#6"<J_T2`P-DPL83:XS35T@-C@+.ZG3U`X -M6HT`MB56Z@P%NTK5CK'(]0H^H]@JMI5\NL!)W6MU.D=1QA9%>F6U)3'AG*.D -MZ;=`L!R/E60\UZX:#(Y7-VUWHI[Y6_T&IJ9YA,F5K),:VK9C6TX&X4A@;**@ -MZ1DB%)CV'PLNAJ3C)P5-3,NS*!C94C(X&%%%H8[?"B=0G,*8D:1.Z)H&TQ*: -M7:J*;QWA-JJ,<1RK;?S1PG<QA&=PIH4W5C'K"H]3+'4CW*U*M%GL5G=4HC1$ -MH5S%W2TN+FF`FMZL8E7[RV=Y9F)6/6.A\'ORF-8KHNGW'I&5L658%H]4+D[& -MKH`DX6[85P<`[JTE;U%TYD(;EY`B5#;O$?W37+QJ:)Y4^--KI##HR=^Q6G3` -M')5'I&D41C)5X`D<J-Q)_3";.F9"'5"<ND(I.(D2Y5+XB-U8)Y@*C>D:A@JI -M4]CLK#`W5E5[/##*DU2[!A9X5)5$[*K69ZIX4SW$Y`RA<)YA+5T@J,=C2J-= -MYI5I<M72"V8(*R>M4\2-PB5<H50]LSA&X[$+(LJ^1.X6BUX>T=U;$E2@F#E- -MQD)-&.4Q'ND4YC>4+R3]$VXG8)I;R@/)$(9XA,#`W3:H!$H@I/('LJO4/R8, -M'MW5C5[_`'5;J1:&AP.?96)36GY.WPI`9)4-HX&EN4^J#`<2D*)YEVZ1SNY, -M82;AI&Z!W;;H,3_FDXD&>4+B1F50G$`PA<(.^2FY]3D-0R\"9A$.YPVC/RJ- -M\[4\-/W5RI@;Y6?=NU5P-XY3XB]3;_(!S]TB0#A$`?X<0<J!KH!!68E[/5?& -MQ4;J^@`RFKNG?A5:ID:9D+H-%M]0T22)5.[ZU;T\%P^BR[NB]WY7D*A<=-UY -M=4/W3<GQ-6_4W6>O"H=%&2?99++>K<O-2N70KK+"E2=,!Q]U,6^F-*>UR_Q- -M2,'J]*FQS6!H3LLZ;J8AH4_5VS6;D8*F9I%,-VE+VDZ9=Q9-.Q`52M9N:8:Y -MRVJNDC;E0N;JR)51CNIUV<DJ!U2LTD03[K:J#!("KOIM<"8V09;[N!F1"8W3 -M8,'"MW%!E1TD"57?9-),&$Z0-6HQP`+N.ZS*3VLZFP^_=6[FSJ`#2Y8M_3K4 -MKYICG<)>J8]NJK$%N^%"20W.RH-K5O*!T\*$WE0$M+<!2:*O/=+M(43H&)@# -MW55E^#,H:]XS8X[JBTTG3N$\GN/NJU.O3+`0=T_G4^ZC3YZ-8L!#P<X"W>AN -M:VBWM/)7-5W/\QI+0X.,#NMZPK^50:<^K@B/U7HG+AG/PZ?I]1KR`=S^BU6' -M`$GZ+!Z56@@XSB5LVQ+@-UFLXK31G)4OJT@`?51")D'Z*3U&F`0LNAVL:\$N -M"RKFBX7\TY<UJUFN#:3B<X5>PHE]$U';.*E(I/K-=Z9D]U&_\Y!,8[J2[H$5 -M"]@)X@*J'Q(,[[#9)R7<7;9N"=D;Y<PP@M]1$X@<*RP?R)0C#OV`%X))4-`@ -MTSDB%H=0IP"3&!A9MJ^:1)`P4B5<MWF=1,1PM6TN-+!!E8]"HUP,">P*FM*L -M-`)6H1W71+@%C3JRNGZ;7D`2=UP'1K@!@`<NKZ;<-('JQW*U4=C0K&-P(5_I -M7J.KLN>HUVB@!,:N5T/1V_\`I@[NN&<^&]KE=@(/[(NG.#'@2F+01NHZ/HJ@ -MY2<.K?H'4T$.2O6C3)W473ZC74\%3U1(D\)6XPNJ4SJE8E^P]ETO4J3BQ8=[ -M1,%PS"R5B7#GC=Q71^':Y\@#5^JYWJ3"!($?*T.AU7LIB7+<Y8Z=E;U3H`@* -MQ3?Q*R+*L74A!_57Z#I$R5+&Y5T.,D`HV.D>RAIOYVA22`#.RC21CI.1A&3] -ME#(#2`G:??;A%2B)WD]T61B?LHVD;''PI0#&%E35`",F0LZ_C6&@Y6C4.EA) -M,?"S6M-6ZB9'=+T`KT/Y.DB5S/6;?2^=.W9=A480-IGE8O6:1F8GW4TE<W0J -M:7Z286[TNJ"X96'>TRRIQ)W*L=)N0QX!=.5J<L7AV=J[4P#9$2'7+6JIT^XI -MEDEPD[*>B[5=MC:4:CJNG@>0(_16@Z/8?*K63HH`@B5.YT`3"SIT@Y!'"37" -M(.Z`NGLG<X"(0.3E9U[.H9(SPKU4R"!B%FW%2:H$B42KML?Y??W4X@"5!0D, -M$%3[A2-!)$@`;)';;=(X$PD".<JAGF/3$K-ZN06F>RTA#L0L[K#0)D<=TB5E -MT029&ZLV]32?4HNG`Y!;';*>NW2[5)3%*T:;Q(`.Z-L]BL^UK1)<-E=H5`6^ -MGE4V+3B?T0.W_P`U(_NHW$``P44B0-DP,`2GYG2?E"3/QV*B"+LQCZ*MU*#3 -M[J5[VXB(4%[4!I20K"HK7\ASGV1"=?S[J*T=Z20$;3)F$A4T3W*8$SC]4['" -M"!PFD?EC!50GNRHW'NB>8X4;CE`_]/NHR9=(Y12W3N<(,.$Q]4`UC)A4:\&X -M:-2NDR8./94;@`W(R$O2?6I3]5'_`#59PTO+295B@[TCD?917C3(.RG255KG -M.ZK//T4UP02JM4B,GZ+:!JNE0U?R[?52$MX*BJ?EW05G_G3.YX1N#2<2FTG3 -MC[(C$ZP'><V))]U.S\C0[]$'6F36:[B<J4-'EB"E[2=(JS0.,%0_E=$?JK-1 -MH.)^JKU&@'4(A5$-4G6.Q05(R/V4E9DG&%$6DSW')05:V'C,IO3!AN2BKM^Q -M0-CR\?4HB"N1.DC[+'ZV--9KNQ6PYLS[;+*ZX/3.K961%NW>U]%IC"CN:3)P -M(!3=+<'6HD9/NBJ%PQJ6<>BH/(I%OY<_94[NU8X%TP>5>&3O!5>Z$-R95TLJ -MJRU>&@-=A/\`PU3NK--P#``#]T^O_I6--OFRL\%U,F"),9D+2MJWE46%L25D -M6]1QN00=4;85ZFXEY$@C<$8XRO5'/*.IZ74U071@\%=%T^JT;F5R/2JCF@`. -M#F]PNAZ;6AVDY@;I7GG%;K2"V8B=BI'.@1S\JO0<2R(V"L`$MC$!8KK*K=2> -M!1#`8<]7+-I9;@"1`*HN:;B_V]-,85^K+*9C'UW655(EQU?94.I4"'!S)$[K -M3:T:9,2H7L\QV<II5.QKC4&ND'NKQ+0V=7YN52J4OYA#9!.93N<^G3:UYD=E -M>V9P+J30ZF0YQ(CE8K612).-6(6W6+:EE+I$X*K.MVFF(:#"EFE[9MNXZH8V -M#/)4VKR\.,_W356.%:`2)454D3[;95EVS9IL=)NF@`.)$''NNIZ1=%S!GE<! -M85'-J`N,2<KI>F78:WTSGB5M([SIU<5+RE3F<_"[OIL-MPWO[KS+P54-QU$' -MM&?NO2*#]+!G"XY<Y).UZFZ'$<_*&I$DSLH&U1JW4Q=J:3W2QVE6^E5G!Y#X -M@+8IN!:N>MW0_!P%J6U:&Y,(W!7K)D1A9%]2(:0MUYUTYD!9G4&3(V^%FM.8 -MZC3_`)>)^JALJA#8$"%I=3H^@[8652@2!NK&*W^F7&T\\%;%G5U-B8"Y2WJN -MIQN?<K8Z9<2(U#/NJDX;['[05,P@O$N,K/IOQCE6J+YRI8Z1;VA.P'^K*C![ -MYA3!T#&5+%@Y(_+*-I.2H@1DDR4GU-(.>%-+LUV^!'*"S9$N)RH*8\^MC(5Y -MF`!P%+VLZ"Z<D<+/OJ)()B3[K1=(!Q\*L]FMI/"5'*]6H@2<>ZRV-#:@>.%T -MW6;?4TB..%SMRPM?&PY4C-;_`$DEU$96G8!PO!/"Y[H%<L<&D@Y6[0K`74RM -M:25V5J0&C/ZJ9SAI$K)MKN&`<*2I>0T;J.D:0?'^92U0-RL]MWJ$DS\)VW8` -M[&47:]4?Z2>2%EUG?SQ.<J5]T`WU$?(6;4NVFY'J/Q*7I/K?H.EC<1W"E8X$ -M0-EG6UTT4]U-_%-VF%--;6R1`$?=)A$;[<*I_$9P04[:XTZIB.%=&UI[L@RJ -M'5WRTP),*=UPSO)^50ZC4#FELB$D2U7LWB8Y*FJ-!!)&5#T\DY@*9S3D!T<J -M155P(,S,%6[.K``,8455ON3[J%C]#@"K$:I,B1N@.(YRHJ521DJ02=R%*'J. -MQ(,A1N,B>41`!.<>Z!T"2,2@!Y'!*@O'>C'&V5,\S_HH+LS2.\K42H+)X(R= -MU8:9)AQSQPJ=G!,?NK3(F`T!2%2?TX3SP<2HW.(P-D[7%Q"H*3![*.I,P70B -M).GM"#5ZT"QHW2,`1.R=WY=Q@(()!,R50!B2`250N#INACGNK9_,8(RJ-VXF -MZ"EZ3ZTZ>6M]MD;B'TR"H6$!@/9%4=Z-RFMI5*X&DQ./=5JK3J@*W7`)SQNJ -MS\XP4B17((.(0UL#<%2EHE1U&@B()(5$%)L@DC)3$>HC92AIG/V2+1N$1B]; -M!!F$5*'4`8"DZXTFB2,$#=5.F/#K>!CV5O;,$]PU>W)4=1@=&DX2=.J"(^$X -M<-,;=E16KC)!W"AJ/AT$*6X/K.256J&0<Y50-8`D\*%H(YW4DRW<X4=9TNW@ -MC]5!#7(GB2L_K-+5;DM(VW5]SM39=NJUZ"ZV(/8K4[9O2ET5Y-H<G!4U:3_F -MJG0W0]["=NY5JMB=2QCQPN78=+-BH+@SS@IV$Z\R@NL'2)GNK2!&D!/+5$TC -M2,IY'=&]OF*PN'&H(VQ!E:UM5)=!B3@`KF[)W\SU8C8+8HU&G3!D`X*ZXW:9 -MQO\`37D/'OL/==)TZJ&!LC)W7*].<'56`20WE=!2>W0'$B=ENO-DZFTJ-=3W -M`]E9?5TT"XC99O3Z@-,,]E)6>^K=T[<'$R5BS2XU>Z73_D:_5+E9KSH`.=\I -M42&-T[`;IJH:XQE9TZ2A8!`!(PHJI]4@XYA2M`CDJ!Q]L<IH05/34QWR"BO@ -MVI0@-SNG?3#G2/U4=8PTMDQ""@ZMH:V@Z9)RKH>S6T2J-)@KWT$0&^ZFNFFE -M6D"8@)WVR*]IM\T;*G=LTLD.$*[2+'TSJ'JW454!U,YSP5-::WMF$`D:'1W* -MT^GW/I`:<=E1=1)!(`QRH:%7RFNP1GG8K4K%>G_A:\N]7_5]MUZ'YS=($PO+ -M?PGN`ZDYWO/[KNZEP=8.K[K&N7/&\MNA5EX$A7J#@6[_`%7/V-?.#]5KV521 -M\K5CO*N#TO!!*TK3348%F_F9A6.G57!\3CW6-?&]KSWN83,PH*SFU,X'=7G- -M#V9"I7=+2/3LLUME=69%-T9`"Q6LF1L#WX6QU1Y%-P&)"SZ--II&3]D1")D@ -M&85JPK>7'=0-I%K^W*3AI=^:0KM'16MQJ8,G=7Z%3T8."N8L:Y;`U+9MJXC! -MW5TLK8I/)&\_*F:Z,`X6?0J3_4K-*H8_-NHU*M:]B0J]W6]6D<IZM6&2J=`^ -M;6F<=E+=*T;*GIIB-^RL,&J)_=04G`"(RIFGTRI(HG-Q"C+8$QNCU"-TU0X` -M[;(*%]2;I(.,+G.I6VDN&.ZZ>Y!..5D=3I&/RY42L2U(I58SA;W07BO<YSE8 -M56F6O[+:\&MFM(Y.ZK.G94:#-&R8T6]P5)1EH&?HD3G*CH`4&`P$G6LGF=U* -M#&V2B=4,Q":%6M;PTP1`6;Y`_BP,F5LW+H9DY6?2<UUP$LX/JTRW@0W"-EL0 -M/4284K'8V1M,M@<*:Y57-)W'*847F<JV8W'=.".0J,^I1J#+3$*CU`O:"'2M -MUQ]N%D]9@`DI$JK852&",JU_$M<<E5;-@T?*G--KR3D$I-B5M1N<X05=.X,R -MHGL<T8G"!^L8""S2?I<`7`JVUP,$+*%2,D*S:UQB"G8OG2=RHJF"8,@H@X$" -M#&-BHGX.#A`G$D08^JK7?Y#LIPX1NH:PP03NJ52LGCS")&.95L$`$%4*9T79 -M$B.ZMN</E(B0$3(.W=$"<F84(<)PI`09<1A4$T]T!,&?V1C#2-X4-4[CA0$7 -M%PPEO.$&J(A.W:`51'5Q*S;@D7329Q[+0J&'8_19UX?YX,0EZ1I4ZD,!A#<5 -M`QFZ&D\>4!^JBNAKIQRD2HVU=>=_JF/'<(;1GELR[/[J0C,I.C2*K@J,>H'( -M"DJ\XCV40D"`(E4"X0XC.?JFJMC:8'=%$$H71O\`NB,_J@_E.!Y"Q^FU-+W- -M@A;G4&!U,SD$+G+8Z.H$#<[JWIF=K]1LF<D]]U&\;QA3U`-*KN=N-R@@K@@C -M]E5?CZJW7,;'(5-T$Y)PJ@7G8C`*"KR!(CNCJNTM`DPH7DO$DR0H(*IGC/=` -M^#3/J@_*58;EI48.X=&1N%48E(MI=6+7.Y&/HM&JX3!V*S>I?R^JM>"`!RKE -M9XJ-#@GVK>9"<8.3,(:KMYW"![W:#&Z!SG%GJ;!0@J8]`X3Q[H&5'!H&H?9/ -MYKO\0^RSPV^3`XT[@M(TP>2M*RJ!SA)&>52\04G6_57B``?=*TJG!C=:\>6X -MZ>3%U73GAQ$'!,;K>L7:G""<87*=%KM:R9]<X706=RXU?-<07'?W7H[>/.<N -MJZ97#1)XY6ET?34J/N"!DP(7,6%V_4*;1+G&,+JK!OE6[&`#(6,HQCVOM,D. -MF$1F8*C;M,_1$VH($@D^RRZGJ8;@084+6@B2#[*2HYNF-C[J-KB[`B`H'8T! -MWPHZU/T&<%2T"T3(_1-7V)SLFC;$M2?^(OC$=E=<[U$.$CNH+>F75GU=,294 -MCVN!![I.D#4ID-<YFT*NRH1NZ1[X6@W%#D^RJW5`-9J`(^BBJ]5H<):)![*I -M>TM%)SHB1"TK<@M@`PFZC3#K5Y9G'"6Z339_"2MIH.&6GG]5VG\9J>?5/NN` -M_#:6TCP5T3KDMNBV2IC=UQDYKJ>G7/JP2NCZ?5!I#,%<%TR['FAL[KK.DW&H -M`+I8Z8UTMLZ`#RI@[34!&%1M:LQE7(!9@K%=8V;)X?2&4=5@.ZS>FU8=!,1P -M5HNJ!M,PX+-;E87B"C+]`&5GFDZDP!TB.RV:X%>[WD!1WULTL,#(V)6-ZJZ8 -MU,MU[D^Y0W+9.,#N%+6I.IU%'4>-B<JHKTWEKA'ZK1LZX']1*RW`%^(^5/1> -M0))B.RJ.AMJH+!ZE>H50(Y7.V=?.ZTZ%Q#-6T(LJ]>5Q.D&"5/T]NFG/<K)M -MZHK7.^!RM>DX!D8@<RLWMJ+32`8V4S2(!!WX55CP#ONIJ3\YR/=54[7@C)RF -MJ$`'8!#,F>>R3AJ.5`#H<W&96??4YY6D_`@!4[EH<TD[I1@WM(!T*[X/?IKG -MY0W;!!D!'X7HD5R1W4G:.N95$9V(3FJ"0(5=H=M*(`$JM18UB,%(U"23(5=L -MZ=TVH\<()+I\M(F`%0MW.-S@QE2W+SIG95+*3=:IE+T3MNL=#1'*?S.)5=A@ -M!$)F2@L:\&$XJ'`4'P$XE*HR\3@DA9G6'2KQ$YF%F=7B8!1*:P<?+A3:HB8P -MJMD3HC]U*7>HSL/=2+5B01\I.`)[J)K]N$X=ZXVE4#4I`@Z5&T%IV*L.<2-T -M'YO=30=M=^,?*=U8Z<@X2`;&=RC+&'$A!`;G,1]E&^X&))RI32;MA15*(&QE -M7E%&YJQ<"(A6VO#VZEG=29IJ!P,0C8][:8$E/J-!CNY4S"2/[=UF,N8)#E:H -MUPX`2J+<^D]U#5._!"<5!W4=4C:440=.Z?4)WV46J!$I!W(1!/P(&RS+V/-! -M.RT:A=!!/T6=U&=8DCX3XE7J('E`C8>Z"H01&?NAMG?R(0ETG*3I:>(9)2ID -M%N9"$N@1O\IFD:>RJ(ZL%Q`.$+\#L$3_`,RB>X]P40HR$U68PG),25$Z9,_< -M((+PM\LCV7,51IZD-]UTET'%IPN:ZK++L.`"U>F?K5>6Z!C?NJ=4EM0S'PIJ -M;II!P,JM>._F$@_5(@*I,F1NJQ$O#I/NCJ.)`,('.,1C*(:H6G$?JJ\Z26G8 -MJ6KC(,_"KU<9B?JFBH*NVD?=0L=O.$=PXD_YJN7DNW,!5&5UP@W#3SW5FG/E -M`\_NJ?6S-P#LK5)W\EI:F7]B='.7GE)SF^7`@>RCJ.=(+HREK+A)<-ONI5A` -MXPV0GD_X/T4)J'M/NF\P_P"%&]/G7\3K1U#J!JMD-/8KG+*J69:8E>A_B=:" -MI0D4B33;F=I7FK*FG^61)#MYX7+"ZNG:?RQE;G3*HD#_`&%T?3JQ+6F3(W7) -M=+K%WHG![E;_`$JX`IZ&G;D+UX7<T\_DCH>CU75>J-$X;P%VG3G.=I+CMC=< -M'X8=_P"L<^",KL^F58TD#;NK7GO%;1(:R2!E%2;B8^O"AI.+QJ+I4K"XG$Y7 -M-T!4R3RFEL<[(JC2#O\`W4%0%KMP<HM6;4&#,`>R#J)T6QAVZ>D\Z(U3*@O' -M:[BFP3[I4/2`;;-$"2)4-;43'?@*^YLB(&.RK5&Q6$;J=*B$M#02E=-'EF#& -M%-4_F;B"%7N\-W)0X-94&NIG.4UV"V@\$3(X*DZ406D@G>([*W<40^V?,S&R -MF71`^!7<D`;A7.O56T[X`'/RH/"-'RG2YI'9+Q93+*WF2N6-U8Y2?RJSTZZA -M[7$C_-=?T"]&D9_5>:V]R0X=@NC\/7\.:"9GZ+TSE7IW3J^K25L4'@LCNN3Z -M%<A])OJ"Z"SJC2#*QDWC6BTEKA&5.ZX.C1R52:^6$S$)K5X?=^HX!6-ND:ME -M3:*>HSGNGN&G5Q$*6E&@:3'U2J@&9(E8UIT95U1#G$EJS+RA!."MVJP'_54+ -MQD-/)[*#`?-.MA&UVK\RN5K=KP21!Y5&LQS3`.`DK.DU-^G'NK#[K13^5G:_ -M?9-=51Y>J<^RW*E;O0JFHR5N,J;`F?A<GT"Y&@`GZRMVSKAS?[J:7;6ID!H, -M$*Q3+0!*SJ3Q$R?E6:-2>?HHUM<8[U8^%)J(,JNUX.?V4DPV>Z*)[OJH*Y!, -M']$;G=B@<&D&5!GWP]!PI?"P)J?7DJ'J`ACC)]D?AA^DR2D1T8P,Y'=$"-U& -MRH"S@2A+@2(<C25[@,0@),GU0A<<ZB90%T$R=_=`-T_^61./=5.GNFYW$*2] -M=_+F?N55Z:[^>2,Y5J3MNM.-T8=`_P!55UX&8]DFOG))459+S.\A)K^2?HH" -M9P$.HPBK?F-R!CNLKJCLF"85DU#!S/LLSJ50_E,2JB2V>`TD291.?F05!;._ -MD[_5$TB?41)YV4@LM>0-YY1!\G=5R[:<)P[.=D$X?G=&Q\#C*KL>"-]D[70X -M9^J;%EQ.-DB\]U"7\&8*<.X!_54$YY&9E`7DNVW35'@;G*&0[Z>ZNT5.HG.4 -MJ8'D[8_9-U+4!N82M_\`D`[J7L+RVDX*3:3ID(FN]4(VNAW"I`/UM[X4=2X< -MP9G/Z*V#+5%5I-.[=]U!"VY$_P":E;<-)`U0H*M$<*$TG;#A!H>:TM]+I5/J -M)`$G"B:VJUQSA0=2-9M/97:5I6;@:`)=$(7D`K/Z;<5?X>'`X[(GW1+O4DUH -MJ\'`P#PA<3&VRJLNFZO[(S781C'=42U'2V3NHAOLA\YFG\WU0"H)W.564Q/I -MRHJFQC"=U1L;J-[@6SJPFC:O=.,?(6!UO)+APMN]<TM*Q^K4]5J\YF%J,4/3 -MWZK82?LFN8`R0JW17_RBPG93W#?5CA9QZ6J[I`)[*%SR02IZ^&D[#LJCC)C[ -MK2#+@84%PYLD#[J7&DE4[N0=0VY0VCJ/F<3\JJ]Y#_S`2I7N)$@J"L?0851G -M==)!#I,*2S?JM!_4>ZK=7ES/92=/(;:-!S\E3+N+.DI+6M)(CA"8%,$'"5:" -MTXSPAI@^5I!!]U%@FM!;)A/H'M]T+#Z1A%/LHV\H\54&UZ%9KID-/RO)NK4' -M4.I50T`M!R9VRO;.I4P]CG')CO@+R?Q[9NI]0>Z<3,1[KGGQE*O@O<9EKEH+ -M0=.X^%K=-K@4M((_NL*SJ/IO:`>^3PM2E6UR74Q(WC"[X7ZN4VZGPW6+*+<Y -M)[KLNF5I#(F8_J*\]Z3<:'TFC`,;KL^A5?,8S(GWX7;6X\?DFJZJU?-,"02K -M=-SM,`"/=9=C5@ADM='97J+IP=6T^RYV+C4U0GYA5ZF7C?\`S1N>[41OV3&2 -M3P2HT3JFEA."!N`HNG@5*KJAG?"#J-0TK8GDX1],+V6K=49[IVB_JVF=E%4$ -MG494EN\$?/":K),D;84L:B*W'J)WE07;7:S&/W5JF"!,;SRJU1NMSL\[H([3 -M4PYG)VA7GUO_`$;@,8YG"JZ((+)!XRGZA4<VQ?\`:5/B-3PPWT!\R2=T_C$. -MQ!/J$84_A%O_`/3Z;].$WB!HJ5MH"XR<L8=N-+G,K$;*]TF]\NJV<0=Y4O5+ -M3^67,&0=UDO+J+@3E=\,ERCU#POU!II,SE=ATZNU[&Y7D/A;J1#V`E>A]!O= -M=-I!6\HDKJC6#:;CJW]U'9U7&[!`QW6>^Y\RJVDV<K6LJ>B@)B>5RRNN(ZX_ -MEMVM<&G'>%8W&3/NLBUJZ7`$C_):-!VHCU+-CI*-S1I,`RJ=VQI?[_"O'/[* -M"HT203)E8L:9=>FT$B"J=>CC;'*U+ML$@`RJU>GB2D1D7%N#)!R?T5&^8YM* -M"86U780TJA?M#J#I'"L2JG3*^FGI!S^ZV>G78TCDA8%M3(!(5BA6-+>!E:E9 -MKK+6X!;DQ[*];U/2,Q*YCI]WL)_5:MI<:B#@_5+&I6W3J>H0<?*G;4`],E9M -MM5'W4X?MWA9K6UPNU")W2<!I&?HH`_;(E23C915+JIBBXCA%X<8#!2ZEFFX1 -MB,INA/%,B-I4G:5MP(&3[HVPJXJ-/RB#C,3*TJ8]^/E!4,'>2A)!Q@%#4)V. -M%-"O>F1OLJ_3?^;GNBOG>@J'I9]9DR9PK?B1L:A&_P`)M>(*B:XS&(A,>ZBI -MVU1.Z(O:3,CO"JD'![^Z3@[28)E-B<OW,8Y63U:L-?I/*MR[;?V65U)SM>!R -MK\%RS>?+!"F+O>51M"?*!,A2TZDNW*S%6'.)_IPEN,&"HW.!.1A#J'?'""P- -M38!VB<J2F1_LJOYFWV3M.,F/JD-K#G.(QPD''<E1%_I@<)PZ!))5B)9D&4PD -M'>9]U%YF-T@Z>51%U%WH*&S(\D9^B;J+OY1SCY4=B[^5OE*BP9!D)&0Z5&YW -M\R9^B?428)Y06&ET`IY)89CWRHV.QI"9S^$#5=\)##8[H7G.#$IJ;G28*"5D -M$[1]5%?-#J9D3[2B:XYXY0ULTR"58*E@QLN`:BK46.>3&>RCM'1=.!.)4]0R -M3"D*K/H>J02F=0<6G=3EQ`"?4-)Y*ND4'4G`8)4(-459E7RX:C.Q*!S0'3CZ -MHBD]]4&0#!*%U:H&Q!5\M#C^7Y05J8#<-'U5FRZ8M]<U!@@A4KJX+Z#A)V6Q -M=TV$F0,]@J-S;,-)PTC/NM[K%8'3KK1=/;)WV)5\W;2(.ZSS;:>J1."5:K63 -MB-33"F]6GP5Q7'ED[PJ8JM+Y!W2K6]700"9A9U5M:F2-/RJC4+\&#]%!<P6D -M@*@VXK,;$%*I?#\IY5@-[@UWJ^%#7<TCG&RB=<MU;IA<,=Z79^$T*76@TT-1 -M'R5'TFI_Z8MG"GZH6NMW1)"K=$$-<X1"F7PGU:.XSNG)]#C(PGU-=(+=D#IX -M&#PI5AFL)$A/Y9]TFS&/W3Y_V5G<=7!7+8HF1@B=]EY_^(MJUU.H]HR.>Y7H -M5=S2")XW7,^*K8U*%0;R)SPKY)N.'COKE'E#7Z*A:!B<%:%FX/8T["9A4^JT -MO(O:E,-(@]]U-TYWY6C`:5,+N/7G&S1=H\J3G<05U7ARZ#FX<&D#OGA<E0@, -M9]EK]*<:=1LM(;NO3A?CS>3'<>@]-JM--H[[S\+3M*Y+1,&-ES72;IKVL`)' -MN5MT*LZ<[*6:>>72^QS#4DD[X4FN2!G[JJTOB8GLI2X8<=Q@SA8TZ2JW5'M? -M=MI-<7'!(4U`C0&;`=E7HM-;J#JN(;C]58JC0>T_HH)Z=8!P`/U[JVW2ZGD; -M+,HN+KAH)P5ITX-(-[CE6K#`'1@G_)02!4(GE6)`:0)PJE4^H_=1=I6YR3[R -MHNJ`&R?C=34W32$MVPJ?6ZFBV&PEP^J6);PZ3PSZ.D4LQ#0._P!$_6&R0^9` -MX1=!+?\`@E$[2T)^I#52U8@'"XSMQPO+.K-8^CI`XA<_URSECM.^\+HJ;'`C -MW5>_HM-%T@+=_+O'+=(N'6U=K3JP<P5WWAOJ8\IIU;#NO/\`K5%UO<:Q@:E< -MZ/U(TF-!='$CNNV%]HYY<5['X;J.KU14)!$KIJ-3,`_JN#\"WH-FPATF%UMK -M5!`,Y.5BQO&_&I)#ICZA7;&K.'$`K+IO);$J:D_R^=NRPZ;;FK`G>$P@YG*J -M6U<.&2(4X>"!$9]UG3<H*S=\!5JS);&`5<J9!RH7,$&=PLJSJ[0`=4+-ZCB@ -M[$>ZV;FFPZ@=BLKJ[!Y+@WZ*Q*SK.F8U`XF)1U*32XQ"EZ?2/D`]T=>G#HXX -M1&<7NI'\V!Q"N6=X6ELF9S!45:D2Z`,E5JE/2[&",K4J5U%E=A])L'?]%HV] -M66@3NN+M+MU&J`[8+>Z;?->&RX!+$E=`Q_$J859:/?A9M*J'`:73/96:3IS. -MRPZ'OS-%P!E'TADT_A17#AY)4W29%(P0I!?;@'V1-=GE1S]$3=.)("JI(,S^ -MZ%QW#M]DY+8WW4;S`B1\H*G47``CE1],`UDCOPBZ@X!AR%%TQ_/<\*4:E-V) -MTHO4<[*)CL"%(TXGNFC9.<`(Q/=$'PTB5&Z9G&$%28[JB34P-=.>ZR>JN:*G -M;*OU'::1XX63U1\U0`('LH59MG#R0)&`DYWJWP5#1GRP,YY3N,.P3ME)2IQ4 -M'!^B37^M0%VT)B\@S@#A!:+AW3L><*&0<1N$F'2X23'RE%L.YF>Z;4`2?[JN -M7^DQ*(/P)@H)=?`!^4=-X+<[RH`Y)K@,JANHP*9SB%'8QY>#LFZ@_P#DD$'Y -M4=@[^6=]E:D67:B<NWPDTG5_=1ZCPGU'G=!8:Z`F+LG"A:21O"1=F.$$CC.[ -MH3<^ZCJ.Q]$U-V!`03TW2<(JQ;H,Y(P%`UWJE&[;O[*Q%`NB]B8DJVXR/251 -MNSINFD#G[JW3/\H.D!3Z?#N,L@1"83VR$!C48*1/JW6@-3#MDP,;Y0UIR2F9 -M')W[HB1Q`9@E0UZA((RC<<?N57>9G,951#6$_P!U4<!K<2..%:J`Y!.%#5RZ -M08[JHP.JM\J^%08RKU-VN@UT3(W4/B.G_*\S<A-85&NLFP<A6][2='N)`('* -MS;EDF3WV6E7/HQ]U0NYTG)A5*J&DPDM(F2H:UI3,X&5*\Z3@F9Y3N(?3+MHP -MIH95U8AQ);QV51]K5:202#)@K8>88=,QRJ]1WJQVV5T;8M\VNRA4D$X5'I=W -M4;4<#N"8"Z&[:W09SC*Q:%)C>H/$R'$J7>EG:9MV7&2WY4E&Z:1$[)A;L\QQ -M@9PDVT&J1O\`NFUFEFFYI9.I%+?\85=ML^-T_P##/[K&W3U>?U'.IO`/T69> -MO\T/#I@<+7T4WTGM>\-<!(QNLKJ5!\%P@#OV73_*\TT\X\;T!2Z@^IOJS[[K -M*LVP!B#J6_XX:Y];.=(R>%S=*J]M00/RY/NN&/%T]TN\8WK<^EI<TNB%K6+V -MN+3!(`[K"LJKG-`.0=BM;I]0Z@20(A>G&N&3I>FO+;A@:YP&"(."NBMKJ:@; -M+=+<8*YKHU:=,P=(6E;^:UX>X`P9PMWAYLG46Q,B<M.1[)7]8,ID1I.V%1L; -M@AK9,\917-8UKAK6F8=)@%8L)?BYTR6TA+8<[)5@@NR<SQV5:A5DP9AN%8ID -MEATX6=-2HJ;=-WJ/!6C1,CZ+.>?YD.:<G>5=M7%D#@H;'6UBF2=O90522PQO -M&P5BK4EL$*O6)R-(AR+L]&12C:5E^(7PRF`[=X!$;Y6C.BC)9!]C,K)O#YE7 -M46R`X1/=3+IFV.SZ"7'H]$$02!CA7*P+J7T5;H'_`.44]P(5UP::6VZY3MSP -MJC5;#Q,#B945>D#D;=E<(!(&)35F12F1]%T=]N8Z[9BI,M&W*Y:Z;4MK@B3H -M:X;KT"ZH!U-Q+<KENOV;2UX#2!*DOK5LE=/X#ZF&T:;=63&)7HG2[EKZ33(S -M[KPSP[U#^'NPR'-CNO4_"M^*MNPZAMRNV4W'*<73MK>J(`!D[X4XJ$C$A9-K -M7Q\8PKC*DLP9D+C765?H7!:[2=CRK]O5&D#NL4/`$SE6K.YAP`4:VU]6(E-N -M#PH*+PX27$`YW4@>"["S6Y456F223A9G5VC0["U:SN%E]0<'5`SDE016E/3; -M"!&.Z&H-1DC?=6PS32;.T0HG!H<?\TA5"HT:H`V]U7K,W)P>RT*K?48C?ZJ* -MM3EL@_,J[33*?3.K41"*G6=3J`M5FK3(SLJSQ`WRK*EC9Z;?D:6..8W6S;7; -M2!#IGW7&4ZFDB)'LK]M=EH&8@)4G#I;JN#2)D#ZJWTJN/(&09]UR]3J`>UK- -M6^`MSI&;=N8E2\++MK^=VVV1LK>KC*H.<X")QV0FJ01+I4;:1JC$;]D+JA._ -M[J@;@-<&NJ-DG`E$:GJW'S*`>IU/1NAZ62*8,[E5NIU"6&"$73'N=2:`=^4J -M1K4ZO!/ZHV5H'YC$JD"<P90&JX$RD%\5B[,H75M+M_NJ3*CBZ)PE5<X@Y&%5 -M7*E8%D;K'ZC7!J1/*F=4=P5FWM7^<)G!V4O2?6I0J#R1C]4G%N_'*K47#R@0 -M>)"/6",G=1I*7[ANZ1=&5`7PW!A(O^I518;5)[(M6TE56N``(")M01ML@N!P -M@0=TXRV9"K!\B$8?!03AS28!D]D;2.3]%5UQSGV1!Y@[_P":H74'?RS$=H45 -MBXMIP"`=U'?/EARFLG2W$B$OPBTY\&-^4P=F4$CG?N@U0X[0B++7$'Y2>[B5 -M`U_<)R\[$G"HDJ.(;,IZ;QIB,PH''N8RE3)F)*@G#R3'',*<&6B`53U28W^B -ME;4<&C*HK=5!:=4;*6SJAUL#]"HNI^JD>?[*'IK_`$P3LE2+-5^<?,RF:<@G -M=!4(U'GV3-B-U055Q+C!PA!`;G=*<!,XB<G*(,/.G;<('@<G=(.`$S,>ZAJN -M$$QE6%!4_.<X]U7J.;J)DQSE'4)+]XGA152V8G9:95.K--6T<`($8[E972GQ -MKIG:=I6U<^J@0(_NL"B2SJ+VD[DI>CZOUI`(!PJ542\R(5QS<;Y*IW1C$F=E -M652NS\QF>5%2=#H.WRK#SCW5:!)SLBCK-;HB9"INC.^^59>3IWSL0H:[=+"1 -M^Z(K5(/YLK)NJIHWIIZ1I>9)T@G[Q*UZPEL3GV67UNBXT!4$XSNEG&EG%3R" -MT%G92VY)!(WXA4[.MKMF'^IHC=3VKH):5)>%URL!S>93ZF^ZCAO8E*&]BG#; -MSU].##9PH:E%AR>-YQ*NG<J/AWPFWGLURX7Q'T]MS6N',88:#.%PUQ;BG7<U -MP.Y^B]-J?^WN_P#\2\_ZO_[I_P`KCEQD]OBN\0].AKH)P1NM6T(UM:`2%E6W -MYA\K4L_R!=I4LVZ3HWDMI:P7:B(&<#Y6[TP4_+&LDEQX,RL#I7Y`NCZ?_P`T -M?"Z6O)FN>7%+6#('TE0=*+_.?4<##R0`<PKM/_V[_A5+7_V_W6-\Z9G3086B -M7%P@[@*]9AKFB(G>5E'\K?A:5CO]%?B]4]=O\V3NK%$0S)GLJ];=6:/Y6_19 -MC6^3U`00.Z3@=6G.VZ=WYDF_\QORFC?*&^;IHR"1'M*RJM)PI"I/YGXE:W5/ -M^0LZO_[+_P#&%G*_$RX==T)I;TFG)G&5=R:>TJGT7_\`+6?`_966;!8P[KEC -M"PT^Y4PIZJ$]U!5W5NG_`,KZ+HZJ5:B13.096%U2U+R8`RNDK?\`*/RLFZV* -MS>G2.#ZO;.MK[S`3`,KJO!?5X;387Q[2L+Q9_P"X8@\'?\_ZKKX[PQGC]>Q= -M&O&U*;3KS&RV:%0:1ZOU7(^'/RM736WY&K.4Y7%?U%WI_9)KG-=$_5#;[!)_ -MY'+G6XT+2O,`NV]U=8_TR#ORL:WV/PM*A_R6I5B6I4'EJA3FK>DQLK5S_P`L -MJ/IGYS\KG;J-3E.6C1![1"@>V1&_NK+]C\J`_F5-*[VD/.,;[H'@.:0)^B.X -M_*F=_P`GZ(:5*U,M!Q/RJE5AR5H5/RGZ*H[^KZIM*I5&&<843JKV'NK=;\BI -MW'YEK:6!97?_`!5/W*[/I%QIM&#&RX1O_O&?*Z[IO_MF_16I.&UYX+2F+F$` -MJK3_`.2/E)OY?J5C36UN*<C(U)Y^L*&G^9ORB'YOJ4L:5;]I<TY.^REZ;(IY -M,*.[Y16FP^%/HO!TXGZI1G*C9^<IV[JU(,``R("8D:D)V1'<?"BHZ\"7+%O7 -M`W7"V7_E6#=?^^<K>D^K]*I#!&Z/63_4HJ?_`"_HC;^8_`5THR\8@)]<[2@& -M[OA*EL4T"-4#&X"0>.^_91'_`)A3MW;\J"PUY`B81!Y.02H'?\M'0V^B"5KB -M#*E;4QO!]E`/S?1,W<J]ANH/&G=/TXQ3,S]5!>?F^BDZ?^1+\2+#R4QC5,IG -M[_5#4_YGV5@<.`,GZ(I,@]U$/^8%,>/HJD,YQWDIVNS$H*WY/JDS\P45('>K -M!PI`YI&V-L*!OYDXW*J&OS%$MD0JG3':JQ$JS=_^V<J?2_\`W04I%UY_F8(3 -M.=&1V2J_G*&K_P`L*@P_T=IY0.B<F)3-_($]7=JJ%,"%%5<'-@2"B?\`D4#O -MS'X50%0D=_E!4=+4]3\H^4Q_*541.,MX*P.I`T>HM?L"<RM]NRP_$G_-^H5^ -M)]6`Z6`MSB5%<`NSS"*V_P#;,^$U;=2=(IOB8^JJ/<6U<#G=6G_\PJI=_F"T -MARYK21.ZA<09`4K?Z5'<_D*;57J-QMD=U!<L\R@ZF>5/PAY*#%LIIWCJ)(`) -I("O4!#X(DJA<_P#YE_\`B6G2_P">U9ZNFXE:#I_,$^EW^,*4;)(T_]EK -` -end - - diff --git a/rt/t/data/emails/rt-send-cc b/rt/t/data/emails/rt-send-cc deleted file mode 100644 index da8c4da..0000000 --- a/rt/t/data/emails/rt-send-cc +++ /dev/null @@ -1,5 +0,0 @@ -From: rt@example.com -subject: testing send-cc headers -RT-Send-Cc: this-is-a-sample-test1e@example.com, second-this-is-a-sample-test2@example.com, test-sample-sample-sample-test3@example.com, - afourthtest4@example.com, - test5@example.com diff --git a/rt/t/data/emails/russian-subject-no-content-type b/rt/t/data/emails/russian-subject-no-content-type deleted file mode 100755 index 03d95b8..0000000 --- a/rt/t/data/emails/russian-subject-no-content-type +++ /dev/null @@ -1,42 +0,0 @@ -Return-Path: <mitya@fling-wing.example.com> -X-Real-To: <mitya@second.example.com> -Received: from [194.87.5.31] (HELO sinbin.example.com) - by cgp.second.example.com (CommuniGate Pro SMTP 4.0.5/D) - with ESMTP-TLS id 69661026 for mitya@second.example.com; Wed, 18 Jun 2003 11:14:49 +0400 -Received: (from daemon@localhost) - by sinbin.example.com (8.12.8/8.11.6) id h5I7EfOj096595 - for mitya@second.example.com; Wed, 18 Jun 2003 11:14:41 +0400 (MSD) - (envelope-from mitya@fling-wing.example.com) -Received: from example.com by sinbin.example.com with ESMTP id h5I7Ee8K096580; - (8.12.9/D) Wed, 18 Jun 2003 11:14:40 +0400 (MSD) -X-Real-To: <mitya@second.example.com> -Received: from [194.87.0.31] (HELO mail.example.com) - by example.com (CommuniGate Pro SMTP 4.1b7/D) - with ESMTP id 76217696 for mitya@example.com; Wed, 18 Jun 2003 11:14:40 +0400 -Received: by mail.example.com (CommuniGate Pro PIPE 4.1b7/D) - with PIPE id 63920083; Wed, 18 Jun 2003 11:14:40 +0400 -Received: from [194.87.5.69] (HELO fling-wing.example.com) - by mail.example.com (CommuniGate Pro SMTP 4.1b7/D) - with ESMTP-TLS id 63920055 for mitya@example.com; Wed, 18 Jun 2003 11:14:38 +0400 -Received: from fling-wing.example.com (localhost [127.0.0.1]) - by fling-wing.example.com (8.12.9/8.12.6) with ESMTP id h5I7Ec5R000153 - for <mitya@example.com>; Wed, 18 Jun 2003 11:14:38 +0400 (MSD) - (envelope-from mitya@fling-wing.example.com) -Received: (from mitya@localhost) - by fling-wing.example.com (8.12.9/8.12.6/Submit) id h5I7Ec0J000152 - for mitya@example.com; Wed, 18 Jun 2003 11:14:38 +0400 (MSD) -Date: Wed, 18 Jun 2003 11:14:38 +0400 (MSD) -From: "Dmitry S. Sivachenko" <mitya@fling-wing.example.com> -Message-Id: <200306180714.h5I7Ec0J000152@fling-wing.example.com> -To: mitya@example.com -Subject: ÔÅÓÔ ÔÅÓÔ -X-Spam-Checker-Version: SpamAssassin 2.60-cvs-mail.demos (1.193-2003-06-13-exp) -X-Spam-Level: + -X-Spam-Status: No, hits=1.0 required=5.0 tests=SUBJ_ILLEGAL_CHARS autolearn=no - version=2.60-cvs-mail.demos -X-Spam-Report: * SUBJ_ILLEGAL_CHARS 1.0 (Subject contains too many raw illegal characters) - -Content-Length: 6 - -ôåóô - diff --git a/rt/t/data/emails/subject-with-folding-ws b/rt/t/data/emails/subject-with-folding-ws deleted file mode 100644 index c082632..0000000 --- a/rt/t/data/emails/subject-with-folding-ws +++ /dev/null @@ -1,10 +0,0 @@ -Subject: =?ISO-8859-1?Q?te?= - =?ISO-8859-1?Q?st?= -Date: Mon, 02 Jun 2003 20:58:30 +0200 -To: rt@example.com -From: foo@example.com -Mime-Version: 1.0 -Content-Type: text/plain; charset="iso-8859-1" -Content-Transfer-Encoding: 8bit - -test diff --git a/rt/t/data/emails/text-html-in-russian b/rt/t/data/emails/text-html-in-russian deleted file mode 100755 index b965b1b..0000000 --- a/rt/t/data/emails/text-html-in-russian +++ /dev/null @@ -1,87 +0,0 @@ -From rickt@other-example.com Tue Jun 17 20:39:13 2003 -Return-Path: <rickt@other-example.com> -X-Original-To: info -Delivered-To: mitya@vh.example.com -Received: from example.com (mx.example.com [194.87.0.32]) - by vh.example.com (Postfix) with ESMTP id 8D77B16E6BD - for <info>; Tue, 17 Jun 2003 20:39:05 +0400 (MSD) -Received: from hotline@example.com - by example.com (CommuniGate Pro GROUP 4.1b7/D) - with GROUP id 76033026; Tue, 17 Jun 2003 20:38:00 +0400 -Received: by example.com (CommuniGate Pro PIPE 4.1b7/D) - with PIPE id 76033052; Tue, 17 Jun 2003 20:38:00 +0400 -Received: from [217.132.49.75] (HELO compuserve.com) - by example.com (CommuniGate Pro SMTP 4.1b7/D) - with SMTP id 76032971 for info@example.com; Tue, 17 Jun 2003 20:37:41 +0400 -Date: Wed, 18 Jun 2003 01:41:01 +0000 -From: Ó÷åáíûé Öåíòð <rickt@other-example.com> -Subject: Ïðèãëàøàåì ðóêîâîäèòåëÿ, íà÷àëüíèêîâ ïîäðàçäåëåíèé íà òðåíèíã YXLWLJ3LPT9UHuLyGTzyuKQc06eIZ96Y6RVTCZFt -To: Info <info@example.com> -References: <0ID97EGL951H1907@example.com> -In-Reply-To: <0ID97EGL951H1907@example.com> -Message-ID: <HDE46LIK8GGJJ72I@other-example.com> -MIME-Version: 1.0 -Content-Type: text/html; charset=Windows-1251 -Content-Transfer-Encoding: 8bit -X-Spam-Flag: YES -X-Spam-Checker-Version: SpamAssassin 2.60-cvs-jumbo.demos (1.190-2003-06-01-exp) -X-Spam-Level: ++++++++++++++ -X-Spam-Status: Yes, hits=14.9 required=5.0 tests=BAYES_99,DATE_IN_FUTURE_06_12 - FROM_ILLEGAL_CHARS,HTML_10_20,HTML_FONTCOLOR_UNKNOWN,HTML_FONT_BIG - MIME_HTML_ONLY,RCVD_IN_NJABL,SUBJ_HAS_SPACES,SUBJ_HAS_UNIQ_ID - SUBJ_ILLEGAL_CHARS autolearn=no version=2.60-cvs-jumbo.demos -X-Spam-Report: 14.9 points, 5.0 required; - * 2.3 -- Subject contains lots of white space - * 1.0 -- BODY: HTML font color is unknown to us - * 0.3 -- BODY: FONT Size +2 and up or 3 and up - [score: 1.0000] - * 2.8 -- BODY: Bayesian classifier spam probability is 99 to 100% - * 1.0 -- BODY: Message is 10% to 20% HTML - * 1.0 -- From contains too many raw illegal characters - * 1.0 -- Subject contains a unique ID - * 1.0 -- Subject contains too many raw illegal characters - * 1.2 -- Date: is 6 to 12 hours after Received: date - [217.132.49.75 listed in dnsbl.njabl.org] - * 1.2 -- RBL: Received via a relay in dnsbl.njabl.org - * 2.0 -- Message only has text/html MIME parts -Status: RO -Content-Length: 2743 -Lines: 36 - -<html><body><basefont face="times new roman, times, serif" size="2"> -<center>Ó÷eáíûé Öeíòp "ÊÀÄÐÛ ÄÅËÎÂÎÃÎ ÌÈÐÀ" ïpèãëaøaeò ía òpeíèíã:<br> -<font size="5"><b>ÌÎÒÈÂÀÖÈß ÊÀÊ ÈÍÑÒÐÓÌÅÍÒ ÓÏÐÀÂËÅÍÈß ÏÅÐÑÎÍÀËÎÌ</b></font><br> -<font color="red"><b>19 èþíÿ 2003 ã.</b></font><br> -<b><i>Òpeíèíã ïpeäíaçía÷eí äëÿ âûcøeão è cpeäíeão óïpaâëeí÷ecêoão ïepcoíaëa.</i></b><br></center><br> -<p align="justify"><b>Òpeíep: Áopìoòoâ Ïaâeë.</b> Ïpaêòè÷ecêèé ïcèõoëoã, oïûò paáoòû áoëee 10 ëeò â oáëacòè ïcèõoëoãèè è áèçíec-òpeíèíãoâ. Àâòop pÿäa ïóáëèêaöèé è ìeòoäè÷ecêèõ ïocoáèé paçëè÷íûõ íaïpaâëeíèé ïcèõoëoãèè, â òoì ÷ècëe: “Òeõíoëoãèÿ äeëoâoão oáùeíèÿ”, “Òeõíèêè è ïpèeìû ýôôeêòèâíûõ ïepeãoâopoâ”, “Ñòpaòeãèè ôopìèpoâaíèÿ êopïopaòèâíoão èìèäæa” è äp. Çaêoí÷èë ËÃÓ ôaêóëüòeò coöèaëüíoé ïcèõoëoãèè, Ðoccèécêóþ Àêaäeìèþ ãocóäapcòâeííoé cëóæáû ïpè Ïpeçèäeíòe ÐÔ, êópcû MBA.<br><br> -<b><u>Öeëè òpeíèíãa:</u></b><br> -1. Îcâoèòü ïpèeìû óïpaâëeíèÿ ìoòèâaöèeé;<br> -2. Ïoëó÷èòü ïpaêòè÷ecêèe íaâûêè ìoòèâaöèè ïepcoíaëa ê paáoòe;<br> -3. Îcâoèòü ocíoâíûe íaâûêè êoìaíäooápaçoâaíèÿ;<br> -4. Îâëaäeòü ïpaêòè÷ecêèìè ìeòoäaìè coçäaíèÿ è ócèëeíèÿ paáo÷eé ìoòèâaöèè, êoìaíäooápaçoâaíèÿ.<br><br> -<b><u>Çaäa÷è òpeíèíãa:</u></b><br> - - Îcâoèòü ìeòoäû ïoáóæäeíèÿ äpóãèõ ëþäeé ê âûïoëíeíèþ oïpeäeëeííoé äeÿòeëüíocòè;<br> - - Íaó÷èòücÿ íaïpaâëÿòü ïoáóæäeíèÿ coòpóäíèêoâ â cooòâeòcòâèe c çaäa÷aìè opãaíèçaöèè.<br><br> -<b><u>Ñoäepæaíèe ïpoãpaììû:</u></b><br> -<b>I. Ìaòepèaëüíûe è íeìaòepèaëüíûe ôopìû ìoòèâaöèè:</b><br> -1. Ìecòo è poëü ìoòèâaöèè â óïpaâëeíèè ïepcoíaëoì;<br> -2. Ïpaêòèêa óïpaâëeíèÿ opãaíèçaöèÿìè.<br> -<b>II. Ïpaêòè÷ecêoe ïpèìeíeíèe ìoòèâaöèè â óïpaâëeíèè ïepcoíaëoì:</b><br> -1. Àíòèìoòèâèpóþùèe pacïopÿæeíèÿ;<br> -2. Ìoòèâaöèÿ è oöeíêa äeÿòeëüíocòè (poëü aòòecòaöèè coòpóäíèêoâ);<br> -3. Ìoòèâaöèÿ è ïpaêòèêa íaêaçaíèé.<br><br> -<b><u> çaâepøeíèè ïpoãpaììû ó÷acòíèêè cìoãóò:</u></b><br> -1. Îpèeíòèpoâaòü coòpóäíèêoâ ía äocòèæeíèe oïpeäeëeííoão peçóëüòaòa;<br> -2. Îâëaäeòü íeoáõoäèìûìè íaâûêaìè óïpaâëeíèÿ ìoòèâaöèeé ïepcoíaëa;<br> -3. Ïpèìeíÿòü ïoëó÷eííûe çíaíèÿ â ïpaêòèêe óïpaâëeíèÿ ïepcoíaëoì;<br> -4. Îïpeäeëÿòü èíäèâèäóaëüíûe ocoáeííocòè (ïpeäïo÷òeíèÿ) ìoòèâaöèè coòpóäíèêoâ â opãaíèçaöèè.<br> -<i> õoäe òpeíèíãa ècïoëüçóeòcÿ paáo÷èé è cïpaâo÷íûé ìaòepèaë ïo ìoòèâaöèè è còèìóëèpoâaíèþ ïepcoíaëa poccèécêèõ êoìïaíèé. Ïo oêoí÷aíèè âûäaeòcÿ cepòèôèêaò.</i><br><br> -<center>Ïpoäoëæèòeëüíocòü: 1 äeíü, 8 ÷acoâ (äâa ïepepûâa, oáeä)<br> -<b>Ñòoèìocòü ó÷acòèÿ: 4 700 póáëeé áeç ÍÄÑ.</b><br> -921-5862, 928-4156, 928-4200, 928-5321</center><br> -<font size=1> Åcëè èíôopìaöèÿ ïoäoáíoão poäa Âac íe èíòepecóeò è ïo äpóãèì âoïpocaì - ïèøèòe: <a href="mailto:motiv@mailje.nl">seminar</a></font> -<br><font size="1" color="#ffffff">3ZkRPb60QBbiHef1IRVl</font> -</body></html> - - - diff --git a/rt/t/data/emails/text-html-with-umlaut b/rt/t/data/emails/text-html-with-umlaut deleted file mode 100755 index 90e5d3f..0000000 --- a/rt/t/data/emails/text-html-with-umlaut +++ /dev/null @@ -1,35 +0,0 @@ -Return-Path: <gst@example.com> -Delivered-To: j@pallas.eruditorum.org -Received: from vis.example.com (vis.example.com [212.68.68.251]) - by pallas.eruditorum.org (Postfix) with SMTP id 59236111C3 - for <jesse@example.com>; Thu, 12 Jun 2003 02:14:44 -0400 (EDT) -Received: (qmail 29541 invoked by uid 502); 12 Jun 2003 06:14:42 -0000 -Received: from sivd.example.com (HELO example.com) (192.168.42.1) - by 192.168.42.42 with SMTP; 12 Jun 2003 06:14:42 -0000 -Received: received from 172.20.72.174 by odie.example.com; Thu, 12 Jun 2003 08:14:27 +0200 -Received: by mailserver.example.com with Internet Mail Service (5.5.2653.19) id <LJSB7T54>; Thu, 12 Jun 2003 08:14:39 +0200 -Message-ID: <50362EC956CBD411A339009027F6257E013DD495@mailserver.example.com> -Date: Thu, 12 Jun 2003 08:14:39 +0200 -From: "Stever, Gregor" <gst@example.com> -MIME-Version: 1.0 -X-Mailer: Internet Mail Service (5.5.2653.19) -To: "'jesse@example.com'" <jesse@example.com> -Subject: An example of mail containing text-html with an umlaut in the content -Date: Thu, 12 Jun 2003 08:14:39 +0200 -Content-Type: text/html; - charset="iso-8859-1" -Content-Transfer-Encoding: quoted-printable - -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> -<HTML><HEAD> -<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; charset=3Diso-8859-= -1"> - - -<META content=3D"MSHTML 6.00.2800.1170" name=3DGENERATOR></HEAD> -<BODY> -<DIV><FONT face=3DArial><FONT size=3D2>Hello,<BR><BR>ist this kind of Messa= -ges, that=20 -causes rt to crash.<BR><BR>Mit freundlichen Gr=FC=DFen<BR>Gregor=20 -Stever ^^causes Error<SPAN=20 -class=3D975501206-12062003>!!</SPAN></FONT></FONT></DIV></BODY></HTML> diff --git a/rt/t/data/emails/very-long-subject b/rt/t/data/emails/very-long-subject deleted file mode 100644 index ad420d0..0000000 --- a/rt/t/data/emails/very-long-subject +++ /dev/null @@ -1,12 +0,0 @@ -Subject: 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 -Date: Mon, 02 Jun 2003 20:58:30 +0200 -To: rt@example.com -From: foo@example.com -Mime-Version: 1.0 -Content-Type: text/plain; charset="utf-8" -Content-Transfer-Encoding: 8bit - -This email has a very long subject. Our DB allows you to use subject -no longer than 200 chars, but we creat ticket, don't generate an -error and trancate long line. - diff --git a/rt/t/data/gnupg/emails/1-signed-MIME-plain.txt b/rt/t/data/gnupg/emails/1-signed-MIME-plain.txt deleted file mode 100644 index bbf316b..0000000 --- a/rt/t/data/gnupg/emails/1-signed-MIME-plain.txt +++ /dev/null @@ -1,38 +0,0 @@ -Message-ID: <46D7309C.9040804@example.com> -Date: Fri, 31 Aug 2007 01:03:24 +0400 -From: rt-test@example.com -User-Agent: Thunderbird 2.0.0.6 (X11/20070804) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:1 -X-Enigmail-Version: 0.95.3 -Content-Type: multipart/signed; micalg=pgp-sha1; - protocol="application/pgp-signature"; - boundary="------------enigF67974ED650702891ACEBB10" - -This is an OpenPGP/MIME signed message (RFC 2440 and 3156) ---------------enigF67974ED650702891ACEBB10 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: quoted-printable - -This is a test email with MIME signature. -ID:1 - - - ---------------enigF67974ED650702891ACEBB10 -Content-Type: application/pgp-signature; name="signature.asc" -Content-Description: OpenPGP digital signature -Content-Disposition: attachment; filename="signature.asc" - ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.7 (GNU/Linux) -Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org - -iD8DBQFG1zCi0ygDXYSIHxsRAqEmAJ9mKiEdoWg9IFGlUlhPrzo9+1tKSwCfdqRG -+HKnj+81jWpBEhj6D00uNrQ= -=ZFav ------END PGP SIGNATURE----- - ---------------enigF67974ED650702891ACEBB10-- - diff --git a/rt/t/data/gnupg/emails/10-encrypted-inline-plain.txt b/rt/t/data/gnupg/emails/10-encrypted-inline-plain.txt deleted file mode 100644 index 93cc195..0000000 --- a/rt/t/data/gnupg/emails/10-encrypted-inline-plain.txt +++ /dev/null @@ -1,31 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 3AAFC37F5A; Fri, 10 Aug 2007 15:52:03 -0400 (EDT) -Date: Fri, 10 Aug 2007 15:52:03 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:10 -Message-ID: <20070810195203.GB5815@mit.edu> -MIME-Version: 1.0 -Content-Type: text/plain; charset=us-ascii; x-action=pgp-encrypted -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAgAyB2wkXAxcNw6+iKwzSlXlyZCsdZFSstJbhIr/i+ujIrk -+NLUAIgPfgIeg1nGVVK1z/hszrHRo3FT2b+jSrPF2Ox/wsUqpSvDf641hFbDCIlx -bbqNmUEOCP5Q64Bw+RHoDoGLx9CPgeXLbciXvPZtlC3MPqG9w8lQdJlhTM1lqwCs -1kqyvQ8YiFrvCNxU6x/81O9wWwiGOVELVnwX62crUK8howCpmeGx28Uo3HKG7NMv -vTsdO6vwh38tNRz0kX05+AlxWP+3Vs4se6YwePc+XnhgWQoHqrYcxTOA0OrivJja -1ty5CAHzGudBdXBcDncg0+6d1Ih60d5JP7nhl3lyzAgArA8CO/iv/kFOkQN9qm4O -4zq189niju7mVCmcTLgBoxN2U1AeAlSl/JacPw4b3CGDQKmj1L/SMKOfUvOvCUlU -o6XB7fHPxsFrJag9Yp5snenMRrvoUbypRljebHYsjtkCOsLqK7KUYLx2JQ/pHJjs -AXwuyytBpLVxwEy0xkujpAQ4rsYT+z410zdH8hAthFo9FwFGKsT95WzfGcOa2+B3 -Qi1LX2uav8q5PAQgbjatp/aiHn3mHZSkRtLbOPr9A8GkmjQaNqIFgUMfaKx2hu8z -nIZmAjpZ8CDvyKoFU0g9Z2KqNPagOqHgq6sRKuAp/5nz62sMyl4Hc7UfeYMTHWn/ -tNKCAYtyAHAGuvwLiRCN3M5h5Y1DdgEyIri7RtH/LW2QLCqYt9MLvmVRsPIEtuEh -tZAb+KQzr9W6+fOhpW/1zkBCGxw2PEhv0HafXsVxEjOITbc2Hfwn9kySZ1aeSxL8 -DXzE9fSwcCOXQE1YY7TVNKuqqm34BADCnO7jw/b8EaOHRWgElw== -=MYSm ------END PGP MESSAGE----- diff --git a/rt/t/data/gnupg/emails/11-encrypted-inline-attachment.txt b/rt/t/data/gnupg/emails/11-encrypted-inline-attachment.txt deleted file mode 100644 index e3695f7..0000000 --- a/rt/t/data/gnupg/emails/11-encrypted-inline-attachment.txt +++ /dev/null @@ -1,80 +0,0 @@ -Message-ID: <46BCDCA0.4000205@mit.edu> -Date: Fri, 10 Aug 2007 17:46:08 -0400 -From: Christian Ternus <ternus@mit.edu> -User-Agent: Thunderbird 1.5.0.12 (X11/20070604) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:11 -X-Enigmail-Version: 0.94.2.0 -Content-Type: multipart/mixed; - boundary="------------010900070701080408060501" - -This is a multi-part message in MIME format. ---------------010900070701080408060501 -Content-Type: text/plain; charset=ISO-8859-1 -Content-Transfer-Encoding: 8bit - ------BEGIN PGP MESSAGE----- -Charset: ISO-8859-1 -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAf/dbKZrl//1Q5r/FjPmqjp2+NDajR7Fj2afjKtkR8ySKni -gc8kTvx2ceQ8bdOMfdn2AngPlKKyADp8xLDge3hwZg/mBRpOtk5B6eqGZDSwDxgQ -Q2+mUVilhDBqLB5uv4rXoclT/JqR/WBWW1SjZgVVaf/lB9mI5amcmOPuY5vBq/iY -q+qBAlWc27AfafGPSz0nifohc2qmq/pj2G6YDkKBE01EZRwbwvm35bTjI6rFL6dp -Zzx2kGhAu928orL5Ft/KtyOEqdGwGlrGApLVV2X6+G1X6ASdgR24OAqnPxYMnhoT -I3uYidSE6DSmUAm4R0rGRc1yMG5rBgRDDOYumRJFHAgA9WsNlQTkSuzypFzW7xT1 -zAzurHA1OYttjjWSAFb/eOnLxc27r1mBS0JVoEz/9+HtHOgGcsRe/sym6uwOOMT1 -znpgRGtQ+vL0bwBK3HyLqQzY9o5BGphf3ipCpI6HWwBDdGUJT+K7S8J9Og4AmV9V -iq6V1PCdGwWS/XD4tulHIPUiA7Z6osVqtbHVTuQNWwsFU06SEHOmhNEGDSmO7Q7i -bUS1YvC1STmJttzSsh+A/dh7uN/mfrPG1BJEAi4iZRGM6GFoKS5CQnpyQ4Az222n -w1iB3u170ijcgLvDNR1Nz5DVnXdJcbVg46GvAGjctI7qWmFIKuazCA/AA0hwRjfz -j4UCDgOxaIPydPr+7xAH/AzvNqeXEU9n7Y7K6rALWKwETU98ltzyp0FdO0YCbN/Z -HWAyazGpPL6VqECWdc9xAYa1zYRf9HEW25yi5BMqbPav7oxfkEMbfLEl2OJr+EfO -/GeTijv8riPFazcXdj7CKuumsld/GQgVLjwmRdoVtGN8WMRZfM/CII6uhg2wVbxq -iThRc03DSNwLr0N0aNr66rySOnvTZNEARljPA1VaRgy1YkHXAyj6Z+s5OBZgj3yh -3f6KZXaRBq9r+7iXJFuOpQ35k/pykHL6wwaTYMmEvlPZ9EO1zgvBxS6NWm4Ct4+X -l9anXjRRPS9aSEUZQRjP6VfQPrrlhBNIgAEoKHlIJe4H/RVbTUAqRlTf3k4XBwkR -HoTk/b/vM5grRQTR12DLXKB+NeNEpQPQFbdFOhfX22ZJbVzl3CVxaOEYHB29KT4D -2frp99spiO8gksYdC5kviXeXXlXINtqsAWCEQr96wOlE03NuKh9TLF3ykAKageqr -yDVdFjmeuMwL5XWVdWFUCDKROQz0gbX3WglCVhccrB4aMPx1vP4HiQIn7R2Q9/GJ -I0lrn/se5GuT078BnhpApZkA0zU+Fi32NWTY7TLXYKxK1BpHWREEFIwrPe1D3Sot -tLh+E65rDp2dt9LrZgGerSQqP1V8z50reNcGdRuWXfJSBwWJfVVo6ApEqD17bPo1 -Y8HSfAGGTN7euRDBuov2eMPKlLTYqQAqOE7DJK1IWQtw9aIMxLuTBCORy+DHh8v3 -elFBb1PxNZ64BJrOK4+gUm09eizynTdtHYhvhe8Gplu6JO5U28djXVqlIiHtEhF1 -VltikOnWlztV/2M8XoUKZneB9MBqhJ3W0lqN5Xzw7Jk= -=bB9/ ------END PGP MESSAGE----- - ---------------010900070701080408060501 -Content-Type: application/octet-stream; - name="text-attachment.pgp" -Content-Transfer-Encoding: base64 -Content-Disposition: attachment; - filename="text-attachment.pgp" - -hQIOA076g5OuwfIOEAf+KE8JLsuGPug17A+1JJwCliRR8Iid4CxXyFplTXYgeFGKh2EN0UJw -Rj0k10BKnefbhL2gRM90aQaAF4gBF9mCh4H4Rg1reZ5ohoinNPk1Qgkotx1JnyVxIEk7mzKE -tDIU4BGdcaN6LPhlBRBsSA/nzA19oM8HwecBstws9fbS6ZRwV8XLXKEWsQASEfmJxSYWpdkJ -GEWIprcwkKClXf9RO+FXhFeg9i1ucFC05/1053w1CZtBAB9ohqs/GhILiCzVc8RZtQ+Xig6c -Pdv7Q7zZBRy3lFz3o6bAjefxZfNbvVZmuJGMLPrevXF02v4aGazCtzqm7wR5cH0sxaaW0maD -Fgf8DAeE4A+GqG16s6GGodVllO2JsDWYlyVnf+kfE4FU94uspYteDeGBf4zXhd9ccRYOnDWO -o6yBwgonzgrZHicF6kcYhJLQS0uM4C1cK9S5nh6CP8cZEUUmEar9g5TKQjWivNGl4qNdzm10 -4dZOK1/u5xFb6dkrqOZ1a1M2DfrZRxgdz2RwZZbwre88wGKP3taBtvJvFXk26QNEa78fuoGL -wqo3jvsn1evswD/JL4bVJl6VGRDNAsqSxkR6209W8qseFA1tw1aFM8XhpZzhchOlshg+ri60 -r7fMKln4t1hiaBstROGCCtdLomb4ezxJQddp/SH4K3XdHBJg+4ttjsUmkoUCDgOxaIPydPr+ -7xAH/RbwjSq8A8C7lJVXcwnmEIIpQfaKNaFkSRhp9+/y8e8skhUz6JRopeLnMv0u4o6jos+2 -9VGQ8ei+wzA8NgIbWtnxktT4aobI+lWpy7fyC13aMcG64lYbDUjktW7YNxkMYD9+Pk5bBpwJ -hf9cXhfdSPPofqUM1DmA1LcrkkO+d/qvTCnHjrrjwvTFGBmvKi+iKUk1pltTvOdc5rkK7oI4 -6U6JTYWp9HfvNt7oYCMuILYEftvY0XhBCiUIWUClsQ7WhfqoGpix1peOv4ajzDYeDPo18cMi -oyDrAHAeWAOjYWtuDXOtwpdaWkAoxgZOJgcu2ZVUWdGyFYvSCwOxfZYzv5IH/2a3xIjO21OC -M5ql+lXb1OFfqsqXYXAhOP5+JhBOa5UN+VBIKG9pxVL48mWCK1GwHN5RX5aB+ky6tvkrK1QD -XjCZRxj8o+le03bZ16QiWSEuqxTg2e4/zWY1ZUXBqkxpBVRwT5hzEbLVays0Bju6vKV8CyX9 -apFxFf/vWZ347x+/cK6jc/Bpc8u9PSdOBwGC1ReZixmvgL3fI9ozLOlkNXGvjKxx2Ui6v6LB -e6SBQsD0cnhRGgfWXgJQsmmPDVPbcmM9+pU/p4JsqdA15lNUILXeeiieFNGHjUORgZtjhY45 -Z1Hw8EOfZWBquFbNt5tRaR6UmroviHO4kNx5N39DtfvSegEma6N5QIsTxrpw0IP2NMVXJ9qa -4in+Orrc1EQfljFTLYSyK3zowghdHlZsMUo7d5+AMjDlsjKf9H0f1gMB8hWebQQNlyNOmKa/ -uHMcJVlbpGFCOspBgN4N2+s/Ldz+c9hy9W9x7J5U2bcdsdbEKlMF0EkgUE+f3Jhc ---------------010900070701080408060501-- - - diff --git a/rt/t/data/gnupg/emails/12-encrypted-inline-binary.txt b/rt/t/data/gnupg/emails/12-encrypted-inline-binary.txt deleted file mode 100644 index e07163b..0000000 --- a/rt/t/data/gnupg/emails/12-encrypted-inline-binary.txt +++ /dev/null @@ -1,86 +0,0 @@ -Message-ID: <46BCDCF2.3080704@mit.edu> -Date: Fri, 10 Aug 2007 17:47:30 -0400 -From: Christian Ternus <ternus@mit.edu> -User-Agent: Thunderbird 1.5.0.12 (X11/20070604) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:12 -X-Enigmail-Version: 0.94.2.0 -Content-Type: multipart/mixed; - boundary="------------090206040704060905090502" - -This is a multi-part message in MIME format. ---------------090206040704060905090502 -Content-Type: text/plain; charset=ISO-8859-1 -Content-Transfer-Encoding: 8bit - ------BEGIN PGP MESSAGE----- -Charset: ISO-8859-1 -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAf/bD4qivq3N/0qZZnLucbOARr1mypqomT+gvm1It/DllR/ -F3RRLlm0wcBoVQp52aNecT9OJiZNh32oxPW78XBG2OCZv+jATd2vMf4ESOX1Pj4+ -1DATM9V3lOJ8XYJqAX9dVe3MdUntpwqmGvlv2bYmbrc1o6IVQroPm6eV+ttB0BKc -ELj+1NjpaXDGERoV2P300JcJNR6tu9pXo56kz1vAjAQj/xQBNCoSOxBB1TJA1sKF -iNuQVObWYG2cE63PRZFTlzvTofeHo9kt9ykfyfNMnslwAaXPI5LJP3KGjUOZiomq -XA+FYLzMuFzHaOgRGcpJGKTeZ578N7WZ21zmNOgS8ggA0/RNae8CHklYRd9sySdo -0vxoAO6pokK9HSCaxeX96nS4JJfij/uTMRyR1cbwFBvJSQHUtGNGL1Tn9vhgGfqL -TjrkvkC/HhBqu4QDYH3ekobV/tu/uQjGhxAASTFB5vtYSQvZtmCR1COTmO559aDz -oO+93N4x3AOhC1Nhcmyds9mSCKCt4TCWE3gmHuPKYuLpSwj5Ndi5er6jCsq7RpsJ -W0GzGOGg8wUUPDgBWJbXS5CVAkiJs/SlP0yUqeVR18mf9r/oKUt9DL3GCp230/o+ -0wyVkzqOBPNiIHpFRN1NhikXdKRVOL4ewJeCc9nrlBtLwqpEyZ1g4Ht7SKkE3rl1 -64UCDgOxaIPydPr+7xAH+gNwaV49PwLd8WUJpPuL+YmH5RRsAasWvX+VlnxM+g/7 -cn1BrvpXekq7vctMByxHaV2WnaC42n4M8xC+V1B/7Wk1rmhRMZKpIVjM6X9eNsPg -FvOX5DhJdhgNOhjwT7rk29P24p9TQj06TwPnvLYjQJ6LViiX5l4T1YpG0mMb6Sc2 -vmp1MbGeV8zZ3hVbSpWOmwlotvfiGa4LjLGNduXIiOFF93pviV2xApYNt+FgJHLc -p63GfqUXuj/K2iqKwFIbo7nssx/ceWBRdlgPrE/MSStYhBm/e9mw55nwDsUIB4Pg -tkle/6XgRsOgvHydiTD+mxng/1bx9cmvVtNfvOq82wMH/3JI/rfmQUQGRJ/JFufk -Kl26lQcbd/Vyxff3MVww7oUFBY2oUPwYL/5N3TjhI7HwiCkMP6S9bL1AfHvkLenu -n5GKjSLJmyx7BNQMEIIKWD4tNSjA0CCk3+QVGr9sRIVIVD44Be9I8jlcpkn2r5Qs -9djSXzEBpM+Aiqv5cCBFq2rgYyd9m2c2iHsI6EBaxCzYFz1qobsfvXk4a7ax0/Ck -ug/jPEq8GK36UTp+51G8JhxzgJKSm4Fo7N3Os8emIlZ2QymPrzPkxEQj9eRsMmp3 -qIQ0rOPjTC8847s4lIlAx7di80OYQ1dV2J8NLL/qxF09rr6f978oH59IfSHRKJ2b -aCnSfAGfFBr68Zm20se6/0mzrYY2MDljPrKSDQPmNW7nJ761/YjMgVAeZlnKW7JM -hTdZciuHMTX7+3BDTGCMbAnmYYWurX0jKGJ4X0UJLV8m4nsXvqHvsG6FBzVC5z2w -kytey5Bqi2gXRjk6xqckH4O79kEJw0kLkxJbT9IPBKw= -=vGEb ------END PGP MESSAGE----- - ---------------090206040704060905090502 -Content-Type: application/octet-stream; - name="favicon.png.pgp" -Content-Transfer-Encoding: base64 -Content-Disposition: attachment; - filename="favicon.png.pgp" - -hQIOA076g5OuwfIOEAf+P0Qp/k1B0WDRr9bNcEANStTaiefYoLrUrtMJv+aFtkiSqKfft0A9 -okrYkVUKs6kxfgxueuqNMFQh58nl8+d7Z2qGIgVEXxC8rRxexEQ8mXu5LXzzBbc6Dq8Jsa7B -bXzwGty51culYcKeMEjpEY8Qx76qoNQDNCuvth1JJxJ6xQix/pVyZZbJRu/nLrv1i3Z4KRFY -qafnJlcsUTVj2o9dLfeU13z8nd0uBPY+hiCgYJHSPDLr+mkA+c6YK0m4a88r/wjLmsVHMkn2 -N5nCjuqP4tzT8SCjhoICGTbu+fFdks9NhQjvsW7MHBi9HFFzm6SoEvquFHThzwMl3hAhTLpi -Jwf/a6unMP/swAxoFTJ2GRXBmQOH4sJHR/M31rEVkLZGJixhU94Tpx8ptgLXqme5VCXgl+M3 -Oh0GHRXqFYjR/HGUTZokRKR/BgCEpOGlH5FcabHiu/Gy8UBezPbuC+BNvxuCbuwODMp9R5DE -F8RSCAQ1hrRoJjeHT2wyE7HdCvN/xx7NyenA3GdJa5Z6W7Y0gshr2fAOFL39jKXw4WwCh/Yq -XnyG8uOyPgFrnHI3WpO24VpQHp3MBKebWNhQ/Opy/cABunCSwWQpDB9Ar4GeS3R1WGtMNC4r -ph4afmTHJcQQkoa0VfvHL0hEzycwysYD46O9QhZfhxtKKShgX356oCeMEIUCDgOxaIPydPr+ -7xAH+gMnbi5OLPf5xMeZydvNWdHE/wJTub2rrWFtzvj0Aa5Ne/KFhcDDqSjaL3MXP1WfIJr1 -/ANe1eWcM2hlYVDpEn6YOh0bz6BASE4kbHA5nGMyUrgH0hWfcOgkMUloRZdf1q32j80mchCJ -rF4YsQ6EndnUYzAiXKHGJRUy/6IA2qBH2n/fRiyC2FmmQPtWO4c6t15Vgh4fB3QXSTri8J5r -577yIiHRE+dq6gg1BfyqCtw0DW56lSFQ7dxyMXeLyTGyjTGPlUDc+FbP23CRK7zDIVujARmm -mX3bP2lMfCK326FwBZf2Q4Zl/ac1BN8Mcb4wwcnKvRzfEw8d1Y6pkphe7KYH/0MDDqtmuEw2 -D/xdw4FHB16/HW32bcPaMVvFuseczEfrwPGCrCiPHPm++edAoY0rWoBtzHVpgN+s5bset5OR -snhjuWceuCb+Ga0QV0s/xmIPIQ8VYaXyD5hob6nHEIeskS68Vbni0BpY3nejDPoV3dNHY2Tp -2fjYNHCpsdTz8yyavQVixoQjZQH9hUb48zZDHCt0Af9Rfq6Et5/Qr8iJqAyEU8JzZtrkpO4O -HgLU7JTPLxOGzYtOj8JkLmLguVA5kOafAuU4OTEU43utQfS3KYbdEWT2jJ1QaJVS8CjFJrqH -V99FUsDvgKWSTy5hA9gkQAQE1QdwkoQKpkCWm18KZqTSwNkBfrsEuvHC3Cz4Sy+cJmhr4Hvx -dyZY8DuuWExUcVCjkeuASLgjLEgahnCbMkyKATazswwTEdfzjcOowjLTdaWFEN/Cg22nF/px -9MXMtzBkrTkjYPhfywETKoMVH/Nw7rRNZhkOSb5WJV5ynF1BlbzXI7Z8rA/KrIn8aydzwJUU -qFr8Dw1C7kbE76+SFVWX8fqpwGmQhDAO+kos6ivgN9HDHtuXmwfGeROi2U0WcmFGbAyLo5fT -LCcNPOMflU27WDXm8m+tjq9naUynqvwg5zBBz/xY67L1R8uOwfZplvRi35iZAJjzMHGirkiB -W3ZDXbDqEfKl4aCXqU+XhQZsku2z3OtKZOBVVI5p8nGVEfavg6QECRUNUS7qbtMxlj5IwCGl -babK3W5YVuERjklrrLUYZjqFIZ2yLK3Z2VmSn7yKAb/eRvdEeha+9PKcN11pXPkS/M3t+Vpr -G+4TqNgqwLVWMvbENp08dS3OAPpZLDnqG9CJV0qacDMjv69X26V3Xp6vuZoKqAPxMG9QKAfX -E9LInR1Kd0cpRUkb ---------------090206040704060905090502-- - - diff --git a/rt/t/data/gnupg/emails/13-signed-encrypted-MIME-plain.txt b/rt/t/data/gnupg/emails/13-signed-encrypted-MIME-plain.txt deleted file mode 100644 index f0bd624..0000000 --- a/rt/t/data/gnupg/emails/13-signed-encrypted-MIME-plain.txt +++ /dev/null @@ -1,49 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 19FD037F61; Fri, 10 Aug 2007 16:03:35 -0400 (EDT) -Date: Fri, 10 Aug 2007 16:03:35 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:13 -Message-ID: <20070810200335.GC5815@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/encrypted; protocol="application/pgp-encrypted"; - boundary="+nBD6E3TurpgldQp" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---+nBD6E3TurpgldQp -Content-Type: application/pgp-encrypted -Content-Disposition: attachment - -Version: 1 - ---+nBD6E3TurpgldQp -Content-Type: application/octet-stream -Content-Disposition: inline; filename="msg.asc" - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAgAhFFX4adckICRP4VEhrElZ8rRYAwJVbTLd7S5yOnrovcG -sRAIZTjEmb8CRPX926hm3fJ/5O+pm9ZPE1wzvEBQGcJ+6oZPD4GMwuMqJpaZLw4v -6zj4ogzac0i32vkwLYDLHXle9ytgiBwTFHuOKllCvBmTe5PrFAHqhA0EPJ824gD9 -H93LJUyvn/elOHASKVcUhm1XLV0RxdNTh8Afc7dEAIr0uPaWu1rVatdnc9JnQjsB -luYLP8M+UD9u/sZwSBv7x/PVIOE9QsaFQGQZTYEzKb/4zeujcUyM0+4rjJ+45QUX -cDsrFVmXoQfts2nw0BN5mERZdbOIwvkhZMZzsf+EKgf/dA7x9rguO/eGy/keQf0f -sBHAz24WGWRqcmRNdBsaecVgAsygAEi564RQYvxM7eJxqKl+1TsjUmGUAmacShN7 -JjpqTH9HRrV522UNvVXFitel4Ri3UItP3zI+951x7YvkzUtIz8gfaCOHC71NmPBO -RdKDDBYDEajJkYN6mhL+QpX9fIIP5ALkfVz0JmdHN1e81Z5myuEWnCSuxeyZHCgl -Xw8PuV/Af/+GHqjNUaXRDxN4SWm82pKkK4rxioMI4liI5zuR73GH8wd1RjspCkKd -gPEhmqDxvkxykjhtJt5Izj+iQsyZNRDHRkGJA4BLOLUnvFtwpNCg6DaRDUOBjBmI -P9LAXwGbhZU7uZLtSzwn1gr8TD+cqkpQrFlKRiUCdh6sTwfp+HE3JDmKAwX6t8bM -ndBMYwIPddYdkFFpWOQbl1G72zR3SSuwgyCC5+xZxDWPHT97iCKbvCYAmdN3cGHZ -8Lqu56ulz54pIkBZzSsu8TWzZner2eax1MqITH3WNYYuH57yiMSaUK1DSdFrg9Mc -o/aK0QUaW6pCFbYGZRS1cqUBaN11Z2debMC60JiNFA/htzLwgSwmZiEdAIt4lvU6 -xMdA7dFYuVLmVh9+VQYp3KspNDWsILiPsKbV8oomlcLiZ+g8cRY/NzLKXVqX2a+7 -Jl3hLlEuVKdcWe+XCfWt07Y2Ibwtpkq/vph61cPdus0dgV8U+QITQ4kt1ky8xNBc -L51c -=zSIe ------END PGP MESSAGE----- - ---+nBD6E3TurpgldQp-- diff --git a/rt/t/data/gnupg/emails/14-signed-encrypted-MIME-attachment.txt b/rt/t/data/gnupg/emails/14-signed-encrypted-MIME-attachment.txt deleted file mode 100644 index 8a70384..0000000 --- a/rt/t/data/gnupg/emails/14-signed-encrypted-MIME-attachment.txt +++ /dev/null @@ -1,51 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 061F037F56; Fri, 10 Aug 2007 16:12:29 -0400 (EDT) -Date: Fri, 10 Aug 2007 16:12:29 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:14 -Message-ID: <20070810201229.GD5815@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/encrypted; protocol="application/pgp-encrypted"; - boundary="N1GIdlSm9i+YlY4t" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---N1GIdlSm9i+YlY4t -Content-Type: application/pgp-encrypted -Content-Disposition: attachment - -Version: 1 - ---N1GIdlSm9i+YlY4t -Content-Type: application/octet-stream -Content-Disposition: inline; filename="msg.asc" - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAf+MEje2ZVc5yRFxINYBmz8l5oRdrDkldSFISKNlcFogKeA -ZAwvP0Y2Utxjs+aT25gqR72uftGzCLhKdIb8X/i8CswKHX/1NnLKFTFB+T3Mmwtg -3a9jiB6kQ5haWvcd9y1DBcm1Wnw5B51QmiHZzHu209dphl7qnoak79M0NK4KPSqr -NKqn7yTKFOjJ3qIlCLqawQbQy++IFmtJVKMQSNZawqSX/JSGMNPz9hioyOgyjxtE -XZlrdgV1jumnZ3nVF1bQFMGUMGpi6NAA7+TiPjSZgFkKp2zvyOXwFKjKqkVgAgUh -+295JO9kjFmRYOxpWcSfBaibX4qFSsWvJbvltNceDAf/WCCcvP6+JYHmZL32YL6+ -oSM3SnHuG3PIqaT0/99pMVIhHzhrdrmWsyR6ijcK7PRpQg3mIZDd5pzAgcae3c4M -mYsImADyUC6CX0PvSOYYvG7CskDUiGk76fjDKTkKPkgqEFJXz1v9TA+ptx9v2PTd -CW8cES9Du5PdwPLbltfC54ax/tCKcyyHbtgozVQJB6RfkXKhUjYI632qnXa7BDqO -c5Pcpn7gKKik4MkGEWnf50aqQ6ph4Q9MfOZ+5hc/EBUQd2Genqn8iCTPa2rkrI49 -6sKJ9FSdXL4Xdlat09MxnD5Dw6DKF6G6Ig2SAQA/WBG5+sZxWC5NMd5oeJWHVnCz -VNLA5QEIo0BNtY+wm2W/YH3hSHV5K+Mz+MEKEUaimYSLWKl1p6vboBjHuk0XY1Tn -FDGmLVcO/jLBkiPOhNyibRXaCW/x3iws+xCHngjX4rDeidEtphHCxihVtS1Sh1wT -IHHE+Kl6jlateIeBpug79RsGKcdwYTUg2SuaZXEf5A2tQtUhU6TEWYqhFc0g2dCV -u/lkhrVRt4S+En4DYJ7myQYdMBeHym52Mz9tFZKKQ54dMWDhDsRZIe0Zy8TKBwXd -cwc5kMpkwFK3drbhFuf3WnQUUR80oyGKCffJw3n40ET91b+nAYJ8bPvYFE+gDB+S -vHktXvM+vk4PTAKGN21TyZfB9n8VVtIHq3DUPpStrFFQQUDKjMeZf0TDtEWVd1zl -7jVJ2d+Su/KcAXUITXAQMl4ECXMZ3VD3fnbyRAHI375+wcBh08rM1DQRdhWd40XZ -55rzTy6T0RVa3JcQBCtM8FYubYQvy8iU5XcA2LEDWdDn8D89IJ+UAnFHIYoeipj8 -qbYjl9JetF1gcmm3QlUwtec6nb5VSmWdQrdfnvdxrW54J3gqlGnzCQg= -=7/EE ------END PGP MESSAGE----- - ---N1GIdlSm9i+YlY4t-- diff --git a/rt/t/data/gnupg/emails/15-signed-encrypted-MIME-binary.txt b/rt/t/data/gnupg/emails/15-signed-encrypted-MIME-binary.txt deleted file mode 100644 index 55f69a1..0000000 --- a/rt/t/data/gnupg/emails/15-signed-encrypted-MIME-binary.txt +++ /dev/null @@ -1,60 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 171AA37F6B; Fri, 10 Aug 2007 16:13:42 -0400 (EDT) -Date: Fri, 10 Aug 2007 16:13:42 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:15 -Message-ID: <20070810201341.GE5815@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/encrypted; protocol="application/pgp-encrypted"; - boundary="QWpDgw58+k1mSFBj" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---QWpDgw58+k1mSFBj -Content-Type: application/pgp-encrypted -Content-Disposition: attachment - -Version: 1 - ---QWpDgw58+k1mSFBj -Content-Type: application/octet-stream -Content-Disposition: inline; filename="msg.asc" - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAgAiH54xEwaxc/DL+nyd5f/77c6Vk27bdxRz1eXHVU0ofqs -oeZHkEWpkub80YQL1HOQTabAF3ZUIGfyfGufnqXpWWNjhnxP/Bi/Itxk4p3oq6Pj -RDoDsrO6SPcM1wlbz7M/8rTmpjTk0cYl3nA9Bc7ZDP7jRWRRKFp3Jl63fvK2BWG3 -x0yA1WwJX/gzgsRlFSBBFukaffCqaeQZJ2GSKGbuHTH8EYvGDjqALlEwE/iPYRYq -OoSa27KIzDCwPFJf8/ZK+03qX2D2LrEViflbFlZMcMGrIFmU0BLrlBx8Obimu3lm -8bCDX5zQsOIptLQqrhQ5E1HIeEFHqJAxJwHu5v7AFggAqSNH4adYAxz3vZyQ3HdV -IiDYdwwGh4usb7R7afc8uiFGzxmcc9ktyQ8bBAEpGHMU+ahcUMcfg1svcSKKFQqS -xNJb5rl3Q9D7qqsoFnNdVFGIxhnUpjt16TdFEtRHDUnC6dWjxKw2fzdR7YsclzkP -IjUP1yHRK0ees3r7LGU90zQUcUXGnuX4xbMi3+t8NFPqpi9DIkOKS77XEpLFg+Yg -qrMi3/p72jGBcgbchyS5JJyrVfZjz3igEDy4A2rEw9lJvyemahpccYf9v8LjVCn8 -ofdeLujIyDV1T+wFuB2gIY8fbnvP2UC+ffJ2qGA4uDiz9T1t+IapBjwwrhG/P541 -KdLpAfXAJzKb/gnXdicy/TyGnMguVXryCVZXAx392jA5se/OVjtVkUV8hMcqBPFC -6zMEPZDXVaCZ7r4VX4xK1y7MGTrq+t4v8UhmfxckiwDVrKZkt6MOwdhTq1YBwFwq -DEDN391R2fFr08i+3ogKv30gNlqs1gfqh55uCsZMsrtjMAEnM7JcB6pnptND/mRm -9MYsz5Sxra5L59SNNhJS0GjuTVGIaEhzwusWdFTAeE358AqTOTwdSNe/Fa3qEXBr -YzmrCgTn4x4YTn8IDQkh80It7ENEc7tkgRN/FcG+Q6cwHWgPOj7QDBJsN/lm8V3K -cWKVxwvp+hoP8isigZxi/7nOD1EZkQkMAWyZSFp+iCZH14GcAKwqxp9Y8bgSuF/5 -jzASoge+POvEIpsbS7lmfalU8qR2kCYg17fEvDH+6olqRCT6Bq30cVUYY+LVAHgz -KXgJjK3WYue2XQieGaNYjtwr9AsVl4fxpjXmb+QwL6H0K4JMdXc9tabF5j5YFeTQ -rWYzED39EiXst9dAFomVhXDHD1OdpAbNh5F9/9wlccgZ7co+tK3bdcD18k2G4XGq -1AX27utveaSU8M1jeHG4a9//f6NLn4cqJ8Qryv0uiY7N0iiwWHsoHrci0doMQI0U -glPhkk7qjHf7YAhsRsybfdNrum4jPHMpk1wqY4GR4xhV3JLAbDfKN17yHJWR3c2w -TQ8sOLMPKMibyo/KRBLCz3CpnuSvpc7A5tCenDJLYtDhmUMofTN1ki3gBW3OFQpd -zH6pCuVBQDQ3iLO/lg6Y434fPz3cuKnxBdN/QvdbeiX4H7tGzC/q+qXpu/8Yv2x0 -AVSQkrXcc4CQXAvLzqNMXa6NgKrVtVNXUgHyIxvOgGyVxULKDQo+3bByccCOjNOZ -3gN/JnU2HvEk3iYDYPa+VOJzS1i6itZOCeCBF+NDaaTvG30owmINGCGl/nxv+yIO -9nlCF3QYdaod2TVYfxdp2X7hlPEhv6nHYt2r3/pXYW4Hjy5M/mT7sR+OVAgknpiJ -yOzeNy/dVoxpAAlOuzwl+sYI6TkDnF0vduJO0jxWP5+oa+Al9sWr4x4E59OkGAg/ -lQ== -=NbQY ------END PGP MESSAGE----- - ---QWpDgw58+k1mSFBj-- diff --git a/rt/t/data/gnupg/emails/16-signed-encrypted-inline-plain.txt b/rt/t/data/gnupg/emails/16-signed-encrypted-inline-plain.txt deleted file mode 100644 index 5686a12..0000000 --- a/rt/t/data/gnupg/emails/16-signed-encrypted-inline-plain.txt +++ /dev/null @@ -1,33 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 98F6C37F69; Fri, 10 Aug 2007 16:17:42 -0400 (EDT) -Date: Fri, 10 Aug 2007 16:17:42 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:16 -Message-ID: <20070810201742.GF5815@mit.edu> -MIME-Version: 1.0 -Content-Type: text/plain; charset=us-ascii; x-action=pgp-encrypted -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAgAsnA+yHerSZnvxR6TIiWSIRlohPBIQHUhoeHBH+9Q0DFJ -r6in5UmN1luVGtT8kl1dbLAnoVu2Yyf/d57IWgam41MbWi1EmGLQaaLHcIbQ3JXR -MmXXwG7PTHWdZJismmqCOuT3svTlkqerIBicsHXvfKE209y+jP3lruJ7cVpxZyCI -M75H8d313r3MwBpoRuEiNMBOjG6MXOATFmgRw93J6pzjWirxwmawhaSNeghkO8tN -3vdDkzZlLmM/Pq4jQrkWbIbGH/EwdchbWNnhd91o/Lll77fshkXNMYQlgyU154sk -3wCY5IFGJTUdR1hrETz2nOASLDHIdamhhz1xMItClwgA2uXkVhG0Fslp/A7z4a09 -ivX/gM6a4KuFSNVJtHrlc6Z8/WKe1LNdLiulbFMtbppvMtIkzgZfv/DBavZJBqVI -EOI+9VzLb6IdqybbNp54nRbniU6aiboEk90waSjqHggCnk5qnOUxrxp2ZCIn9pwP -KUisxy6cAKGCEeFdvtXIBqfC6uITAu9kNq78rPN64TUaZbJs8VshIj1zpGi6DUYa -uPvGPIhlLi5xN/oK3Yu2TDrIPxO4m1ZdHQJH8TBn6l6EifAVsDeskSQ4nCZJzc0H -0D+ofkCzxqRkjDY0IOcl7hI79cRxO5tagtf6od0vcK883wUHxe6Kfv26tKm8IsX1 -ANLAFQFi867dLG+X9wc/QyBwNXZ1hPSE8MulfAYyzT/rXno4nkmQrw6zFLf9q4gA -Z7aZsgxXPAvWwhwLGyinNgi0ua5LHZL17CWOfG8/GlIK59mesnk8tC9Gyj8aLU3/ -ROteGBBGfk0UJbfcQ+reAjmORofZdHSMCsGYZ5DJEy3KIUrNHzW4yYAlfzLWYfX8 -k9R41E0xGBuooe578MTBtVOPZKY4gurQZdfrHdYnsUXgfpV1w6WYvEM31n90Px6m -aXWFWq9JVxX/JFOmWJV38fw+EhNgApncTw== -=J8xa ------END PGP MESSAGE----- diff --git a/rt/t/data/gnupg/emails/17-signed-encrypted-inline-attachment.txt b/rt/t/data/gnupg/emails/17-signed-encrypted-inline-attachment.txt deleted file mode 100644 index 6991f0b..0000000 --- a/rt/t/data/gnupg/emails/17-signed-encrypted-inline-attachment.txt +++ /dev/null @@ -1,84 +0,0 @@ -Message-ID: <46D73CE2.8060202@example.com> -Date: Fri, 31 Aug 2007 01:55:46 +0400 -From: rt-test@example.com -User-Agent: Thunderbird 2.0.0.6 (X11/20070804) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:17 -X-Enigmail-Version: 0.95.3 -Content-Type: multipart/mixed; - boundary="------------070807070206050202070908" - -This is a multi-part message in MIME format. ---------------070807070206050202070908 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - ------BEGIN PGP MESSAGE----- -Charset: UTF-8 -Version: GnuPG v1.4.7 (GNU/Linux) -Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org - -hQIOA076g5OuwfIOEAgAn0IWP59DHAWRYz8MG09D5vp+V3rfVdwv8ud2hp/jAUDZ -ogXobK3KkUH5CIDaohqgrxobAtU9D7XhxO1ti6G9ana7+u2GiTIQmC7F1THSipNJ -GZajUNG4E0WQXjvkWvDgx2cLdjn+L/i4Y5lQvP6CEmzZpdfKQk4DZdmMJf/Fz0Ag -jqPI0weYSEr8YBz/p0bEy2Xh7UPw8rwC6ajk/v/E/SfZXI+TpWnFxLt9OUN+o0E/ -o8RQ+5LTpPvkR4RTFFnqZAKu8CU2LqNIWYlzhm67pi+QqeepMuhbW+Ix8tt6oBbN -EXFrwBYfjLeLcmMJcm2fEwE7otDqKHHW5/G/lu8RBwf9E0TjxnGbpTH3ERrj172E -T/LT0LD2qRitQQCdFyeDvnq6KKyoUtkyhwrrfpDfB1ZYBSjgIB8rgolbO6OxnY8s -O6dob+07mQrC3EsbrTQhRjwtLCWB/4kaI0d/9Y4/InStq14AvW0wZWX3kukUq8Us -ReJhrDA/fOV+duOQgcEc6ZsMjLE/snQv6KMN7ey7iOe10ejLs9qHFZClqHhpjbn7 -zTPRapgTOV1hwBWq9603NDP1EQM/wAOFCw1TDUnhFOzUocpBfSwajWY1bKB4pz94 -Nf/U4BBUFq3aQVX3g4mh4sBesYInZ8wMq7fw9fegyiaLL7YzTbxg/YSXHWkTaYCk -YIUCDgOxaIPydPr+7xAH/1BIgIWDNzXHWbrmi2pxg547LWoJ3EpJQ46fk2ryfIll -6Ot1xpCXGStZA1bUnRB0KTZlTNVfXkIy2TuFKJ0xP5JgkeeVQ+Vn8wCXyPB1nYte -WJ9aKHIk9UhKHhW6FHIjWs3CYjfmpJPaI3AXu4hwT/W1yPIFbAb2UYwuvRn5XABk -RDxauFRDoHKPvy4IsorGBPIa5ZkJxuBsP7lxp03CfgnUHX7HYehlNp+rKzp82uLg -fXJdwQAE3OcrnB7rbD9AirIyJpy4q/sYUOnC2M137PF+HYA5zCxktpnkVDtWd6Te -DyQy7T5Ey5/NzP8IbJpS3Wv+bYOiozv1zNCZ4ZbopbcH/RKMlLN78fSTZmgC6Snb -dcwZqi8lvL6vx83VBwUAaQeNDLvtlyjojt0UuDWUI3JQJpv5vcGdLjP21+5f/INt -lua80hg/pKwoKijzQPPtnPBJQOiRkzIEYlaqMkmPi+jgkosf0kcAWxnQGt0L74tD -Q4ENpgCK6jJVkQFN9Gd2efT7EFUc2acY7/YfFcTOBVm6xi0FXoa0HzL4NzMhbrsx -NhlC7/Yp34y3NHjzVlMIKiU9kbHrVCyZyXKuSSV2em0a1SqbJu2wj2/qjK6Ibtts -0aowVn5HafWR6jm8sEEyX/v8c1BdR5Ibmup7Z2DPd0j+fY65GK0nNYZ5QeYq7PxR -rSbSwA0B+Ot9P47q0c2vGrQF7EKvug2sgnE/9K8DX+Q5IVwMQEoJUZvKf66x7DTA -YIMnWxlJeeU6fkURzeBpv0TzidU6/KRa/2xg/QoUTZvftAoaQidsajzFSIZTBEqC -xjzLnkqlDMtlZYBtdvVYDxrBvj8u5whGnhe6GhO8GUfIe/N+bWM5N1kbUAsE7Tau -ify77kszQdf20rLVO9eU0MjXyvKpWcT/Dpk/Nzth3iLACEtjr/dXo5pMwK0mofx1 -I4lLS7P5PtTz4Oat7aV1up1o -=LNkV ------END PGP MESSAGE----- - ---------------070807070206050202070908 -Content-Type: application/octet-stream; - name="text-attachment.pgp" -Content-Transfer-Encoding: base64 -Content-Disposition: attachment; - filename="text-attachment.pgp" - -hQIOA076g5OuwfIOEAf/fLTYMB41pbPXfa0LaNlQ5PVkAa8i9W/RVfA8s+BGgFYz/herlLi+ -eCE9Ls1RoiEmh3e3ZOG0M/iPA0qBMryH4fcYWqx3R7uaZDVIOEcUM3lR9Q0ffNfGRyVMKX+N -nUUI/HAaSLCl1NWF6Qnh+/S8tV97D6FDdqQqJKeG7HtPcXMJ3daqHcCl5mMrL/OgcwEcqdHl -dw8VnESjnkQ3NAvzyNJEpyB7fHN6HtaynxmZbU262ez9Ywh8XsfBbKsDhnLRf/rEUt7X3RQz -YjXL2C6scGT9ctZ6i1yxPQJOP1+Z+UxijfSd8S59n51/SATsdjmhNFst1JZTbX9Xm/Gv//mj -aQgAuzhrqVBvyOtX1fMNxGACBhMuJKMLvb9bCltnl4V8IN76d1HP65bw9FvFC7JNcLnbeLBk -6J6CGhwZYcQHuLBiTAfycM636RotiszjLTx1/7j/Jp3vvzToLm3sNNb4INVmoRBrmVqqP2wl -Ykl7mxdHAq0Lr6NMiTnk9/TVbJnXdCFseLONJaX6ZPrPZUbw6jhgDMeyAjoBkHJjGqfbde2S -TsHvPvT53g8d2RgZx5ATptTphU5QsBbS0eYEIiKoU4lUh7augb6EratU63xTsKc9pJ8DJOqB -l7Ic1ujUDQqlccTVJgYyIJJVO/GUR/AkIYrzWcvEwhtk+PW5CMwrcbEo5IUCDgOxaIPydPr+ -7xAH/RYdKbPnEo/0R8mZls6xuycjGoGNWYuhhaze7NiDPuflz/oMkPL9f/o/7a+9t5mBbdQ9 -XXnNKuhclocbDg6N/TLXWWw9011Ba2ko2l8LpvzlLo7oARaMYZu4kmMYZIkIeQ2GW97gIV4w -yXLJOuVnH5cudt36/P4QqJM0PxSqmQA5sqAMB7cvgK3RFKbDvvrMvmyrdoTFmrcFhKMWbTq+ -g51hVLm7HEHjicP6LEhHv7m4ooe+rojS4D+0HofvkPou4XWJ+R2T4CVKOSfobrp0RjMqjRuJ -PvdzhyUNjP1qhtvUyM0JBgYHd7biFKOKjYG7E7j9+5EhHG0uSG+xRWq9NtgH+QF2Mhb1WB24 -lpXZM2KPM6OdStgEJFEzjr9DwULJpEzQhvOAUI45Jd7oqLQjEdmzuPmkEBdNfcUBKkCNdADp -JBn/0Ak2C4OQImtZX6kyJ2afF7zwMQ5J1eH2e/eOYJTOAVnt29EH51UZHi6OCWosYQhDMNZW -8AXoza4H3474bPzlxw7utSRm/CJwetrmp3L9BahuEheYv3PZCmy/1aHpt5OHIJDmrDVMzaAH -DhWNkRuY4/CLvg/+r4W21Y7tsPllPGNfxLJt9kilu8F3M/alhNK8CxbM3sskNnxSPPid5vE2 -e88iO74uhwvQzTrPKlXfsUDpnGacAwG3uNS3x3CbimjSwAkBjvCRETU1DziOU5xVTCGEQFPv -gF3YtRG7Bmvm0d1zeAlPDuflRhadYCdNvy17gA8LI+YBuk74XavAqKURN6FEevULYaSPZCx8 -HXgjE0uyo8U7l2D9hrYjGuvON84Cwp2O6+jsiLk4oVvdBVbb0PRz4xj/Egnlu+yjGD88Swge -zpQzBdaqE8m6sizWBlYyPGh8amL8/PfS3OC6hZcg4LOiLhj+h+h3eeamTyAE62zjJjC4UMKc -ZEI9ZhQ95BxH9bTS+JxP6UySLnQ= ---------------070807070206050202070908-- - diff --git a/rt/t/data/gnupg/emails/18-signed-encrypted-inline-binary.txt b/rt/t/data/gnupg/emails/18-signed-encrypted-inline-binary.txt deleted file mode 100644 index 315ba58..0000000 --- a/rt/t/data/gnupg/emails/18-signed-encrypted-inline-binary.txt +++ /dev/null @@ -1,89 +0,0 @@ -Message-ID: <46BCDC0C.6090400@mit.edu> -Date: Fri, 10 Aug 2007 17:43:40 -0400 -From: Christian Ternus <ternus@mit.edu> -User-Agent: Thunderbird 1.5.0.12 (X11/20070604) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:18 -X-Enigmail-Version: 0.94.2.0 -Content-Type: multipart/mixed; - boundary="------------090909060406090905060708" - -This is a multi-part message in MIME format. ---------------090909060406090905060708 -Content-Type: text/plain; charset=ISO-8859-1 -Content-Transfer-Encoding: 8bit - ------BEGIN PGP MESSAGE----- -Charset: ISO-8859-1 -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAf+KwEEEyzyWahb5iwjSff0D3MfGimfD7AJTEBjjDgtxcC4 -8xKSJsXhZ2feCi3Wx3TYAoFedoiR0DkyNd//B6dE51bpDpoUX1R8M4W0tOKH03ZZ -N3sIBYSnJBF66GdLfjSvyEGD9sdi+OnWTv9DbQ4x9Sq2d3u8PBLu3krwk75hJEH7 -z9Q4rhqzpRU9ymhWpS/QPd+4SvuhlJ0ciUGeYLmOFc1YAUJNWzTtnja/jZptFY7l -8oDXtHTapeJPB9M0WaDf6R60Evkl9DcvGA6FRBMCzWRjqMSdAPGYiceeMiDYcwCq -hJWSzbDKAHDSY2qwlHZ+2y7mIze3x05qcBHYCIOKewgA5mer22WKZIiEP++p4TZF -kJbwFxfCqf7mB/nsRGDWsfThGED4KSr18feba8ychNLbVx83FEtTZ5tei96N6NrK -eS6BdjedTCbvrq7lhIFmC/qPXy/5cjNxr50RBT0sLUEdnY9dhrwLxo69Rqr5qHQT -luYu7/NhQwOV8OlMTpvy/AfUXGiICLa1iBxtVK8UQ9YMLe1GOyCmseeF3UyfTmKN -YfEylY17YRsmYZerulSwsHnEoCipjEHOwzksR5zXDHmnv7cqVq1gV1SnjSXOd1Cd -QuJFdXY5fBdugcrAAJsiB8Iq4t0B7Ai1Lou6x+kKQoigF4i3zhSmH6blZmc99B1r -jYUCDgOxaIPydPr+7xAH/j7bst78EmNmr4RJvQ4A5bss5BJeOdG36MsTkQ4rXTKv -tA+chOccB3irMYqpWpKoDMWRz8VgAu9MVVc8SBUr6XRIhLRyCpuZxlwLA+EJJUk6 -yeKBHZZ8KgQ+PgC6WYMaTcRRLeOWbTxhhIrZmT2EbEEDE1jbeeLNrEu1wmrdMBBb -fhtQTjOHKb7iau3LOGTbbV+F9llnPHrdy2WTp8ozFbsruEqdUG85zQ8X58sy/iC4 -hS9mj+vRs8nanbYABfDHUhoBk8VWUWPlpWTUfzDX0Wuai7LWo5wn7mK0p2i84vMU -IghS5OGRJfrGVK/1giklqUrmPuiz8M2bG9voLoOVnVIH/izycMW2zZh12TD+YySt -D1NP6OPy/5PgYgVZvzTYtOW7Y5EI1eTYoC0cMgjITokq6NKqN9aI7sReVV9P24El -J/LxLvv9Nk7/8Jq6z1CjF0THtFg1mQYTWn52mrYwBr7aPpv/UDDFA0dmIancXwf0 -CHwFMMHFlYSBChy/vwx8+QiE60pLiz6EnajSq8lEQCf6nSFIvmkWn8y3IxmYRgr/ -CMn0BZc+VLgyzIJYG1Ygll10vXDdmjV4Y4f33stWr2Qse5Wp2Pyg/Lsfqw3C7+H1 -1BoxYJma2NmJ6sQu8xDNKPt8dsyOCYEyJqf8KGhi8eslRPuilKOreZ9b/KZh6OE2 -cNTSwA4Buvhbv4626sdq/BJxEi4Cxrhu3dMPCyeyl1540BOSMpThXdKa5pheJTs1 -78UDi87cJBZx8eQ5Gcg2VfwXkolc/dOvIRBEvnuIvA/3DaqH4gxMZ90UCFSzZ9Jm -By83H0GVB0l8UbneSKtbr4wms5qjSUUzT7NTmqOdZwFmxJIbB0hVZtC1ve00WlkG -qSmK2BXyG2bccsjeC/XOKO2WmZm9Gfuvtr6KcOnHFQYj08ZSfDPzJCuY7PK4/egc -TR4wApehk6BzQwbz66uN2PlHIw== -=2ZQG ------END PGP MESSAGE----- - ---------------090909060406090905060708 -Content-Type: application/octet-stream; - name="favicon.png.pgp" -Content-Transfer-Encoding: base64 -Content-Disposition: attachment; - filename="favicon.png.pgp" - -hQIOA076g5OuwfIOEAf/fVq/LJs3vrFnybm6thFjpDte1mawn7xw9op6UIFqEFRjkesreTn2 -b4vzYgi/8HUKJj6A/b9OBBobsOuHkKddZ+wRnTnMTc6ZGahJOFdOc3C84hEJYvyEgRqJ9hBh -F6awMfPYHIfN3y6PpeJ8jbtWN2QxYvy9a9dsb7oUGi9FuBC7nI0qIqdxeLwjK4MkVGzDhdJU -N4OCCe3LhYyD+Ev8Ote2NiWFdPnCkFiO6vwYI1cEyzltJXeOXYe/7YCKDb3FcTG9UszG2nDl -jz7hIXF4NtYVQjIxxtRxPfxKgkzboXIoAD1enJpBkNtTdVS3jtdbFvSlypDhG3+mfMlUo/k4 -vwf/RF+30fL1kZjue/Jecd4oh6NcOokKRRScIwxTwittYPVYtR5W+swTRyF+YA5SLfygmmYb -QHDjFX+cOx8u8WzmVgK4szOBgh921p6DWxMdD6aLK2wDT//ZVdRDqNV/0AbApexlDriCP/CH -8BQxHKTCsentMtdVDf66Y/44K6HYceeU8iZT3pvQKXfAmetiMau7G/pN+BvkN2HXFhBPa8id -dHYIpixvjk7Mg3PBzt6mJa4SOSf8vzProFx4UmnkexOQcRxpS0Zoep1mB16oWqm7tXEUjBJx -39BwDg8e9sU4Yrri2WzUkIPU0pG3ub5sxbCTMSxMJnZkRk8ul8s9GMtWYIUCDgOxaIPydPr+ -7xAIAIu4kheO0n6eNJeng1XE/giRvZodwsO27kA00KIW8mi6WGLvehlmFoxntck1r2oCNVvH -Oj94nfWsG2i1zvjQDvMp2Cnp3KTmhTrOss37dFayWVODF/Q9Kx+7WXnh9zCEjQe0eCd6PiKF -fvb4zCU3ANAY8dTmqRcDDB9TK39nafpWHEfzhjClHrQhuQDh+yb4ayXAvUXkNLIYzAvuwvku -9x46MPLHf/4VVQAplymRvsMy/Vj3R9triHoE9tD42EOWgbo525IwLQ590x/AZoZhkCOeffWv -6fq29Z6om8TqFTHFGPb7I88s5ihlpvUgvXkAA7ZYdF6q06pDldWqVOCUm98H/0LZKiiURX1P -30EAe7DpKi0bAUvHj2Qc5GCU+Hf1ASGJmeENFNMwY+eDwYA6wuBf0tN5zitvncUj5SBZjXjV -o8Uz7JJ9/6BuUcfAa4/O2qTIFdctBI9bwzzzuXYF3LbYXfjB4WmoaR0nRh8kTlpgFij7WQlg -l+C1G630ynSm4bVHSmD0J/kBDfNUF7Kyr/riPuqnyqf2wVffbLIJYe/axb4slACZ+F4FhfsZ -0NLYL2+pvGW05sv+k/kEyhSQeQZwmu8X4iZdfFK6kOpkHeS7K/yFX7BYRD9nMnZ5Zwekh8l7 -eVno90OdJ4rVJkp4+c2N3kEPPLgrEVlaut9gybv553PSwSIBeo8TwJX0khartEsmJRh4fuQq -Ni8JhsMDG5Mr8DMvmjhWy5Awp+uQ+neNcnk11wQ+OYDFw4JopRED0m+igEK0i/737ANzEhLN -ssbKnPSivQCBo7Yzv9o3XUx+UU4c3E2bE3MQRGDgDmB1SS2h+wyLDWDoBHGXZ17Hxcb83huJ -HxFt+5e2K8T6hL3Rwghtg1DHt9eVS05v35xomDn1zPR+EWTEEhvWrPEw00CGpsq3ub4vJajJ -Aa+4ClaBivaZVKE4rC87cdLNkiBFbXR3ROvkzoSnrA7/ZUgupDLfagDQKAj91hC1hmF1nRix -SOIYGGeM1IsKm806Ah58IOUWsE5vAzoFqCMB4kYNZLbXU1ccxZVTU6QnpE8DzHoDqOtyN5y3 -2nyRLH9jBwKfECR3YHH3NxRbbI317fhmU5pAvRWeHpRp1yzGrCf21lgx12Ot1EWxHuXrd23p -0O2EiQAcwadItgkfKW+UwAxGsVX+vueqSBYmYViCTFWKGqMXmgXgirR4nLt7L20WqrXBFKBH -ms+7e9LwLHStfAzilr1deHnriNfwz0b9UPAvCV3n6FN3uz2asBWZKjOxlEr2VmaQYLiiFWe0 -UhX685wevk7AOX2LZ7iq7SkVmMLSIMgOVI8vmt2PEw== ---------------090909060406090905060708-- - - diff --git a/rt/t/data/gnupg/emails/19-signed-inline-plain-nested.txt b/rt/t/data/gnupg/emails/19-signed-inline-plain-nested.txt deleted file mode 100644 index eb763bd..0000000 --- a/rt/t/data/gnupg/emails/19-signed-inline-plain-nested.txt +++ /dev/null @@ -1,34 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 3EDA537F80; Mon, 13 Aug 2007 15:34:17 -0400 (EDT) -Date: Mon, 13 Aug 2007 15:34:17 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:19 -Message-ID: <20070813193417.GD6392@mit.edu> -MIME-Version: 1.0 -Content-Type: text/plain; charset=us-ascii; x-action=pgp-signed -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -- -----BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -This is a test email with inline nested signature. -ID:19 -- -----BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.9 (Darwin) - -iEYEARECAAYFAkmETNkACgkQ0ygDXYSIHxv3ewCgijZQyL5vWIOfk+06XjqTXdrN -VDcAnj13TCHvhas6rMtxcljNNGvPidw6 -=VMc6 -- -----END PGP SIGNATURE----- ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.9 (Darwin) - -iEYEARECAAYFAkmETOIACgkQ0ygDXYSIHxvvvQCfZlRPNjt77jJ7ANxwOpkHkwCY -wsIAn0PzLhCKhIcAm+hk8CpduzYcY0xW -=Xy5t ------END PGP SIGNATURE----- diff --git a/rt/t/data/gnupg/emails/2-signed-MIME-plain-with-attachment.txt b/rt/t/data/gnupg/emails/2-signed-MIME-plain-with-attachment.txt deleted file mode 100755 index 851549c..0000000 --- a/rt/t/data/gnupg/emails/2-signed-MIME-plain-with-attachment.txt +++ /dev/null @@ -1,48 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 74BF637F75; Mon, 13 Aug 2007 15:23:57 -0400 (EDT) -Date: Mon, 13 Aug 2007 15:23:57 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:2 -Message-ID: <20070813192357.GB6392@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/signed; micalg=pgp-sha1; - protocol="application/pgp-signature"; boundary="bKyqfOwhbdpXa4YI" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---bKyqfOwhbdpXa4YI -Content-Type: multipart/mixed; boundary="DKU6Jbt7q3WqK7+M" -Content-Disposition: inline - - ---DKU6Jbt7q3WqK7+M -Content-Type: text/plain; charset=us-ascii -Content-Disposition: inline - -This is a test email with a text attachment. -ID:2 - ---DKU6Jbt7q3WqK7+M -Content-Type: text/plain; charset=us-ascii -Content-Disposition: attachment; filename=text-attachment - -This is a test attachment. The magic word is: zanzibar. - ---DKU6Jbt7q3WqK7+M-- - ---bKyqfOwhbdpXa4YI -Content-Type: application/pgp-signature; name="signature.asc" -Content-Description: Digital signature -Content-Disposition: inline - ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -iD8DBQFGwK/N0ygDXYSIHxsRAlbuAJ4wxUVCNerg6dLm+w7llCj51YYbFACgvNJR -ajbUy9MMkljajl6Of3IlqRA= -=R6Gi ------END PGP SIGNATURE----- - ---bKyqfOwhbdpXa4YI-- diff --git a/rt/t/data/gnupg/emails/3-signed-MIME-plain-with-binary.txt b/rt/t/data/gnupg/emails/3-signed-MIME-plain-with-binary.txt deleted file mode 100755 index 82ef7e9..0000000 --- a/rt/t/data/gnupg/emails/3-signed-MIME-plain-with-binary.txt +++ /dev/null @@ -1,55 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 9745537F7B; Mon, 13 Aug 2007 15:29:41 -0400 (EDT) -Date: Mon, 13 Aug 2007 15:29:41 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:3 -Message-ID: <20070813192941.GC6392@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/signed; micalg=pgp-sha1; - protocol="application/pgp-signature"; boundary="pY3vCvL1qV+PayAL" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---pY3vCvL1qV+PayAL -Content-Type: multipart/mixed; boundary="at6+YcpfzWZg/htY" -Content-Disposition: inline - - ---at6+YcpfzWZg/htY -Content-Type: text/plain; charset=us-ascii -Content-Disposition: inline - -This is a test email with binary attachment and MIME signature. -ID:3 - ---at6+YcpfzWZg/htY -Content-Type: image/png -Content-Disposition: attachment; filename="favicon.png" -Content-Transfer-Encoding: base64 - -iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABmJLR0QAAAAAAAD5Q7t/AAAB -BElEQVR42u1WWw6DMAwz0+5FbzbvZuZk2cfUritpea77wVIRIBQ7dhsBdIQkM8AMMJImyW6d -BXweyJ7UAMnUvQFGwHp2bizIJfUTUHZO8j/k1pt8lntvchbdH8ndtqyS+Gj3fyVPAtZAkm3N -ffCyi/chBIQQ3iqs3cQ0TZCERzbhngDocOS4z94wXTCmu2V45LuQW8hsSWpaP8v9sy+2IRZj -ZTP5ububbp8Az4ly5W6QqJ33YwKSkIYbZVy5uNMFsOJGLaLTBMRC8Yy7bmR/OD8TUB00DvkW -AcPSB7FIPoji0AGQBtU4jt+Fh1R6Dcc6B2Znv4HTHTiAJkfXv+ILFy5c8PACgtsiPj7qOgAA -AAAASUVORK5CYII= - ---at6+YcpfzWZg/htY-- - ---pY3vCvL1qV+PayAL -Content-Type: application/pgp-signature; name="signature.asc" -Content-Description: Digital signature -Content-Disposition: inline - ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -iD8DBQFGwLEl0ygDXYSIHxsRAuYxAKDQeRS40bRiW5jmrwHNsCDN67vu7wCfV0Pd -7T/gCO7TrbuGaJ0BVsJnJsY= -=Pjdg ------END PGP SIGNATURE----- - ---pY3vCvL1qV+PayAL-- diff --git a/rt/t/data/gnupg/emails/4-signed-inline-plain.txt b/rt/t/data/gnupg/emails/4-signed-inline-plain.txt deleted file mode 100644 index 1dcecae..0000000 --- a/rt/t/data/gnupg/emails/4-signed-inline-plain.txt +++ /dev/null @@ -1,24 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 3EDA537F80; Mon, 13 Aug 2007 15:34:17 -0400 (EDT) -Date: Mon, 13 Aug 2007 15:34:17 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:4 -Message-ID: <20070813193417.GD6392@mit.edu> -MIME-Version: 1.0 -Content-Type: text/plain; charset=us-ascii; x-action=pgp-signed -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -This is a test email with inline signature. -ID:4 ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -iD8DBQFGwLI50ygDXYSIHxsRAp40AJ9ErYdLH2SVRXtgRtx7n/FVFOmKDwCgl/0T -BeRSaF4Xbi8uGhVIkmU+YCs= -=e4u6 ------END PGP SIGNATURE----- diff --git a/rt/t/data/gnupg/emails/5-signed-inline-with-attachment.txt b/rt/t/data/gnupg/emails/5-signed-inline-with-attachment.txt deleted file mode 100644 index 638f0fd..0000000 --- a/rt/t/data/gnupg/emails/5-signed-inline-with-attachment.txt +++ /dev/null @@ -1,48 +0,0 @@ -Message-ID: <46BCDA81.3030308@mit.edu> -Date: Fri, 10 Aug 2007 17:37:05 -0400 -From: Christian Ternus <ternus@mit.edu> -User-Agent: Thunderbird 1.5.0.12 (X11/20070604) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:5 -X-Enigmail-Version: 0.94.2.0 -Content-Type: multipart/mixed; - boundary="------------010302000403000103080306" - -This is a multi-part message in MIME format. ---------------010302000403000103080306 -Content-Type: text/plain; charset=ISO-8859-1 -Content-Transfer-Encoding: 7bit - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -This is a test email with a text attachment and inline signature. -ID:5 ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -iD8DBQFGvNqA0ygDXYSIHxsRAuCHAKC0HnduLWqihY5wzGYDFGbFtA4chwCgr6+t -mQo4oXIqu+kIZ0ExWyiUENs= -=3ABp ------END PGP SIGNATURE----- - ---------------010302000403000103080306 -Content-Type: text/plain; - name="text-attachment" -Content-Transfer-Encoding: 7bit -Content-Disposition: inline; - filename="text-attachment" - -This is a test attachment. The magic word is: zanzibar. - ---------------010302000403000103080306 -Content-Type: application/octet-stream; - name="text-attachment.sig" -Content-Transfer-Encoding: base64 -Content-Disposition: attachment; - filename="text-attachment.sig" - -iD8DBQBGvNqB0ygDXYSIHxsRAmkbAJ0esGNEDMr01u45ZHIIKZpCFSE8tgCfXBedq0Yu5mnZ -zOZyASZYUIf9wSE= ---------------010302000403000103080306-- diff --git a/rt/t/data/gnupg/emails/6-signed-inline-with-binary.txt b/rt/t/data/gnupg/emails/6-signed-inline-with-binary.txt deleted file mode 100644 index 2c725aa..0000000 --- a/rt/t/data/gnupg/emails/6-signed-inline-with-binary.txt +++ /dev/null @@ -1,55 +0,0 @@ -Message-ID: <46BCDAE6.4090803@mit.edu> -Date: Fri, 10 Aug 2007 17:38:46 -0400 -From: Christian Ternus <ternus@mit.edu> -User-Agent: Thunderbird 1.5.0.12 (X11/20070604) -MIME-Version: 1.0 -To: rt-recipient@example.com -Subject: Test Email ID:6 -X-Enigmail-Version: 0.94.2.0 -Content-Type: multipart/signed; micalg=pgp-sha1; - protocol="application/pgp-signature"; - boundary="------------enigAEEA002E4229CA8E5445ED73" - -This is an OpenPGP/MIME signed message (RFC 2440 and 3156) ---------------enigAEEA002E4229CA8E5445ED73 -Content-Type: multipart/mixed; - boundary="------------000104020205010403010301" - -This is a multi-part message in MIME format. ---------------000104020205010403010301 -Content-Type: text/plain; charset=ISO-8859-1 -Content-Transfer-Encoding: quoted-printable - -This is a email signed inline with a binary attachment. -ID:6 - ---------------000104020205010403010301 -Content-Type: image/png; - name="favicon.png" -Content-Transfer-Encoding: base64 -Content-Disposition: inline; - filename="favicon.png" - -iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABmJLR0QAAAAAAAD5Q7t/AAAB -BElEQVR42u1WWw6DMAwz0+5FbzbvZuZk2cfUritpea77wVIRIBQ7dhsBdIQkM8AMMJImyW6d -BXweyJ7UAMnUvQFGwHp2bizIJfUTUHZO8j/k1pt8lntvchbdH8ndtqyS+Gj3fyVPAtZAkm3N -ffCyi/chBIQQ3iqs3cQ0TZCERzbhngDocOS4z94wXTCmu2V45LuQW8hsSWpaP8v9sy+2IRZj -ZTP5ububbp8Az4ly5W6QqJ33YwKSkIYbZVy5uNMFsOJGLaLTBMRC8Yy7bmR/OD8TUB00DvkW -AcPSB7FIPoji0AGQBtU4jt+Fh1R6Dcc6B2Znv4HTHTiAJkfXv+ILFy5c8PACgtsiPj7qOgAA -AAAASUVORK5CYII= ---------------000104020205010403010301-- - ---------------enigAEEA002E4229CA8E5445ED73 -Content-Type: application/pgp-signature; name="signature.asc" -Content-Description: OpenPGP digital signature -Content-Disposition: attachment; filename="signature.asc" - ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -iD8DBQFGvNrm0ygDXYSIHxsRAvwSAKC4d3U6SjfhYpUHu2V/vXtgxGFa1QCfeK6p -dyDDlvlqP9Ns4EExvHXfHuY= -=sX3V ------END PGP SIGNATURE----- - ---------------enigAEEA002E4229CA8E5445ED73-- diff --git a/rt/t/data/gnupg/emails/7-encrypted-MIME-plain.txt b/rt/t/data/gnupg/emails/7-encrypted-MIME-plain.txt deleted file mode 100644 index 11e3b7c..0000000 --- a/rt/t/data/gnupg/emails/7-encrypted-MIME-plain.txt +++ /dev/null @@ -1,47 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id CEA9137F51; Fri, 10 Aug 2007 15:27:49 -0400 (EDT) -Date: Fri, 10 Aug 2007 15:27:49 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:7 -Message-ID: <20070810192749.GA5572@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/encrypted; protocol="application/pgp-encrypted"; - boundary="YiEDa0DAkWCtVeE4" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---YiEDa0DAkWCtVeE4 -Content-Type: application/pgp-encrypted -Content-Disposition: attachment - -Version: 1 - ---YiEDa0DAkWCtVeE4 -Content-Type: application/octet-stream -Content-Disposition: inline; filename="msg.asc" - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAf9FtBMrkLWUKK5BtwuUsYXV9Mbe/YkkmK61MuysAtLcX/M -DiXPzngjL62Dr9l88R3imf2kPmY36yx5WNeXUrFFVmFPaeZrHEJiMNvPGVVQCqRK -uar2vsYRK9th4msZnn0hBYnA8+8kZ8rWefWHpszOcJ1YZpyyEMLf8Vnstyf0Pebp -Wxixr99+mn3MVH38CrhoErI6CMiCFJgPAl5wtGWd0lT3+657dLJCsNI0cT3AY/JC -IJwWD2sdOXOzDo7tdC3l7/YuGsXvd4jGu4A8PdoBMOgPx/N4KT3+uPhp2sRD3PMg -LU59613xT8/FOYxQSib9hGqNZPqXS3ryC3ZvY4Sp8AgApCMocKsN7vm8N+6Yh7Nc -Jjy/kuf8tjuTTs32Yk0ACU3y2SFXKSBZo6cVXgJhUvmG2Dq4O/A8mtP0cjqeBFqp -+vZOb7xhtxxTE6HWWThvx5qxcwjpijzDMS9uzfGaHwLvewdGVLODCup06MJmeAmj -N1WEZqc/cqFZvZ9omCpcvTGoELpOzcUY1MxAq1IVkMzAk7dPIHYuyPSFQK6Y8IPl -xsfSMcq9gjth8qautnriB0ohwkUebGnxgM4CjGjnSmLmUFXkndUOXKbM7R7E3QdL -+6TKMr2pvLl8U3OJrCiyyPVyVi3in4TYi4uegXJl05CAEjEXRf5RFhaWRnn66EYN -WdLAAQHpkESfESVUaWvJwI+JB+LMBoKZjWgvIQ7AQKqLAvIsAqs9PKM4mYOMaawl -en9XNRkW0dSGUxjW4K8u7fLS/xzWrZeCrafEkvCowVv/nR+Wxm296bxX+7z2R52/ -j+J0zms1fRdVxEs+rOI6JuXg4xWxUdLTav7cqvQ5c/izM+jU4yWEa3y0fHma6Jeh -o4+1NerQby8Yzxszh9XVfkbYnQilhP8qCVxYe4HGjKlNi5v/xOgCznCKsqkGYMPU -S32K6lg= -=xeKr ------END PGP MESSAGE----- - ---YiEDa0DAkWCtVeE4-- diff --git a/rt/t/data/gnupg/emails/8-encrypted-MIME-with-attachment.txt b/rt/t/data/gnupg/emails/8-encrypted-MIME-with-attachment.txt deleted file mode 100644 index 3781a62..0000000 --- a/rt/t/data/gnupg/emails/8-encrypted-MIME-with-attachment.txt +++ /dev/null @@ -1,49 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id C962637F57; Fri, 10 Aug 2007 15:39:14 -0400 (EDT) -Date: Fri, 10 Aug 2007 15:39:14 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:8 -Message-ID: <20070810193914.GC5572@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/encrypted; protocol="application/pgp-encrypted"; - boundary="FFoLq8A0u+X9iRU8" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---FFoLq8A0u+X9iRU8 -Content-Type: application/pgp-encrypted -Content-Disposition: attachment - -Version: 1 - ---FFoLq8A0u+X9iRU8 -Content-Type: application/octet-stream -Content-Disposition: inline; filename="msg.asc" - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAgA4dZa3t55kB5pY4Q7+h4thTJVZ+wV2QxI5wZFRvMs7yw3 -MEIWqHusoe7R2zeXLxaT0gMSQj3osO+GrGJRDk4qCGjcjSneFmYKkELx8KRML59N -X7/HeX7v8nSGpyqM5foaky38uAGxj2xBpswfvsY8qdQ37a4mNH2atESnkxYLomZb -4vTRTSE1XtvhaG7oHaXxfmeNln0JezfbfpDGTktZJOupEX99j6/bvloimXyBT6SZ -3wbcP/EYoqC8DQOQTtFTAisWwveTVp6FDFvi5L2BCJ2NzYZSDOBNeXrzf1AJ04dN -9lTzbtejdE/AgwDclDnZYZByiGLM43X6nTk7c9gH1AgAlrxxvO1yz4sZchGM2rrn -yzNJpcvcgbJLTt54gqie/BdQHSnvlCBLZzplx2xV9HIwJB7Kf29Ka2gg2p6mjyID -YUd1451K1hDUmBHgya8jb6g2c6bBxiusUODlGfmv+c+kq/yG0tKws5d0/IGanL+Z -h7XkcEYq3its0acCbcKizgzLSmxSqu6NK7rnDvioUOHHKG8uC9fk2JetdTdYOTBn -AWYDxa3D+kRvOAiOWGMqtvOWAC1BZJ8hssBpesuG1+sucTh7W4ZROtQfEbqC8W51 -s6e17x1YUqE8QIs/aUYkUkX2JqObKsZPJAiVYCQkqJceIk/lT4rXNOfUwl5dAynk -WNLAZQGKuVghSfSoRyKbFMRDimigisWN2JUudaV0Ld6E/5iO7EP7XhjqkzTlwsaN -wui2n0Omxye2dNVMKz3q76fVp79XbznaI1ckeVjiiDmkiaQOp1Au/Sx2Bj0/wolJ -OXnp27oqc9THy3RANLRXIQuRaYOyoxUIjVvhbOVfM3U7MlcAW3jT2kMTI7H83HWc -ezxKfqM7nJUKkIVmRY4J/6X4uo5c8DdIxLeG+ioj+3I7BRkLfIAPYDGaeB5+BD1k -EPcVGd3u1EW7D8f5CRARnU8aaC8DCPk5YYN6wM9JY9n0FEgIkwoniTpqHLs/UMa8 -DWGer1UCGp4qElmHvWHVV8b82nw6Ta2BhWKjA9pphf96KOTt3y4jqxfU4GbrOYDJ -786/cggItsc0 -=qJrM ------END PGP MESSAGE----- - ---FFoLq8A0u+X9iRU8-- diff --git a/rt/t/data/gnupg/emails/9-encrypted-MIME-with-binary.txt b/rt/t/data/gnupg/emails/9-encrypted-MIME-with-binary.txt deleted file mode 100644 index cafc880..0000000 --- a/rt/t/data/gnupg/emails/9-encrypted-MIME-with-binary.txt +++ /dev/null @@ -1,57 +0,0 @@ -Received: by anduril (Postfix, from userid 1000) - id 215C737F5D; Fri, 10 Aug 2007 15:46:27 -0400 (EDT) -Date: Fri, 10 Aug 2007 15:46:27 -0400 -To: rt-recipient@example.com -Subject: Test Email ID:9 -Message-ID: <20070810194627.GA5815@mit.edu> -MIME-Version: 1.0 -Content-Type: multipart/encrypted; protocol="application/pgp-encrypted"; - boundary="GID0FwUMdk1T2AWN" -Content-Disposition: inline -User-Agent: Mutt/1.5.13 (2006-08-11) -From: ternus@mit.edu (Christian Ternus) - - ---GID0FwUMdk1T2AWN -Content-Type: application/pgp-encrypted -Content-Disposition: attachment - -Version: 1 - ---GID0FwUMdk1T2AWN -Content-Type: application/octet-stream -Content-Disposition: inline; filename="msg.asc" - ------BEGIN PGP MESSAGE----- -Version: GnuPG v1.4.6 (GNU/Linux) - -hQIOA076g5OuwfIOEAgAqwVRwpeOIRMvrgswuYagJfk57HvSvrAg7tVzXHaHW5LI -zJeWpKg0PVwmJUYTG9cZN0gkfpr33SULruvniZRSX650E/vv9H03P1dVYhBbcP01 -AyfPoaySinipoqG5OK7aTJVEnPZqqsCKgzFbqEg+FdF3YjNVa1etfmKV/JvoXTxR -il6pOqv+xUJ66GpPUoP7mCZJ/cJEF1zz/EbZoYcS9MgxoP42bOIYBhyqIv3fUh7X -fuDpup5xnJwM3FRjkNQPlqKhgGHCgk04OGgLUw8wzRwYQ5jSyij45J/UcGoNWePi -eVTZignbYIfrlwa5GH6776U9QA9ei7PFP3RqO2CB2Af6AiIdkeN9MfPFfiQ/ASwR -/zePg+OOmKC6locoUHWTEuBCZhgty7XarfPZufBHlA3Z3f369Pxz9nMV07KkO22t -thhltpsxan2pFZL4oPfwA9OdDRGeWIISn4jGc+foNfKTmERY7EZv9ruDC0lxaSvs -HEWJC38sJ3xGdlS439qaddSbm0Lft8JbNwi6FEpThE4abBdITu+BxbkoFrjIy6aC -UJgyJ3YtPTpU8JuT49Ocn+51YPXZTSc/ePnvlzSqRXHeJrOKp5Oyoa9001242MRM -mpaC1lw/sfGIIAXv5t2B569RXDsZ2jIvPjFIleIdyKOG17m8qsP82nWKbN2N96am -p9LpAb5gqid4Hw1PjjjCB0A9w7G9orQeEQuF+2V9MGWAEWOHoVbGWTRjfh4uXASz -4PlazbNDIZZB09ACaDfxG3Y3/TI2X0sl9KJNRALFtHm4+DNbWVeWe+aKrG9ZY9Os -xjD/UQFFQrchpNPD7xV98WWEg4+s8pkk9Mwv+Q/gNf2xBXJXDOhIm2LlY0VlhETq -fk4YS3EUS78Ti4V99w/L9PTnoaZY/8kkI6NNjb+bqldhd9AQHXEkpV5Gh/PrsgFn -FzBZxEwcY8wKP2yKMTp+A3rsjHwM4OChjtkDShf4KDwGS5D+E4o1RJVcM3jfh2SG -RRKge5ewErBmIDIqeU8Wpj5cuyqS77CIB3aplSKLqUu2bC2EiLFZxs2UTg+cp5WK -WFzt+YmH6/p0y9eyaAGOleSh3dnIZHv2BDtzF9x5fHFesjaVp3jpmMsHQ1ol53TR -8N4fUuO140oE0Gnci61EXzLjkGCSBhzZqy/+K8PR0d1hGv+vlwfadpzsPfX8WcxZ -DBuI1E7OcqVaXemR90/C2AbLB8qGuwQ+wTIHPqXlm8s0+6wZ4YUcUoa/F+2VLSxN -VWGji1yioKrSaBjlBBUpHfoC/Q/0hLk2FgIrAZFIPvhHl9nF3Vq/HqlxtGZQ7gnL -TjQtRuI+oU7IhJRR1VZbhr8xn1pirueiiwJUPub6w4XfMGyvcvlIOVpUImW5Hab7 -kg20iwrcJNLCcPJsR5iEbhJBBHLsViMtfdRbstlEV8I4wTY2tNAkfMtUtWdUhwOA -fdx/UmHjbNZFSS6cpsGHL8+QJ2Bo1urkHIz6z1w4f1vTL31NAPeyvZ4kNstSqkNt -6fjdrt8mBRVGQfqRQsK2b/R61ErJoFULboeqOT/ed/Dufu2Wxf/wuuRvG77S8xoq -OiDT8nhyHh7ljjdHZZ2uLro8gg== -=BIke ------END PGP MESSAGE----- - ---GID0FwUMdk1T2AWN-- diff --git a/rt/t/data/gnupg/emails/README b/rt/t/data/gnupg/emails/README deleted file mode 100644 index 634f537..0000000 --- a/rt/t/data/gnupg/emails/README +++ /dev/null @@ -1,28 +0,0 @@ -Set of emails signed and/or encrypted using real MUAs(mutt, thunderbird). - -All messages have subejct 'Test Email ID:\d+'. -ID matches number in name of the corresponding file. -Top most entity of a message as well contains 'ID:\d+' text. - -Emails may have either text plain or binary attachment. -Text of plain attachment is -"This is a test attachment. The magic word is: zanzibar." - -Content of binary attachment is RT's favicon.png. - -Encrypted messages encrypted for rt-recipient@example.com. - -Messages signed using rt-test@example.com key. - -Name of a file may contain the following parts separated by dash: -* signed -* encrypted -* MIME - RFC format -* inline - inline format -* with-attachment - text plain attachment -* with-binary - binary attachment - -In total 18 emails using all possible combinations. -18 = 3 (signed/encrypted/both) * 2 (MIME/inline) - * 3 (no/text/binary) - diff --git a/rt/t/data/gnupg/keyrings/pubring.gpg b/rt/t/data/gnupg/keyrings/pubring.gpg Binary files differdeleted file mode 100644 index f993bf2..0000000 --- a/rt/t/data/gnupg/keyrings/pubring.gpg +++ /dev/null diff --git a/rt/t/data/gnupg/keyrings/secring.gpg b/rt/t/data/gnupg/keyrings/secring.gpg Binary files differdeleted file mode 100644 index eda64ae..0000000 --- a/rt/t/data/gnupg/keyrings/secring.gpg +++ /dev/null diff --git a/rt/t/data/gnupg/keyrings/signed_old_style_with_attachment.eml b/rt/t/data/gnupg/keyrings/signed_old_style_with_attachment.eml deleted file mode 100644 index 0bae0d4..0000000 --- a/rt/t/data/gnupg/keyrings/signed_old_style_with_attachment.eml +++ /dev/null @@ -1,48 +0,0 @@ -Message-ID: <45A10003.1090705@bestpractical.com> -Date: Sun, 07 Jan 2007 17:13:23 +0300 -From: "Ruslan U. Zakirov" <ruz@bestpractical.com> -User-Agent: Thunderbird 1.5.0.9 (X11/20061221) -MIME-Version: 1.0 -To: rt@example.com -Subject: test -X-Enigmail-Version: 0.94.1.0 -Content-Type: multipart/mixed; - boundary="------------030903040907010006050500" - -This is a multi-part message in MIME format. ---------------030903040907010006050500 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 7bit - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -inline - ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.6 (GNU/Linux) -Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org - -iD8DBQFFoQADtaRiGUNF96URAmHSAKCDdVnRJ2gb1idhE1ZXEg1JARalsQCgkaU8 -74cnNxVyp/0XwBA73qzkvx0= -=UmxP ------END PGP SIGNATURE----- - ---------------030903040907010006050500 -Content-Type: text/plain; - name="test.txt" -Content-Transfer-Encoding: base64 -Content-Disposition: inline; - filename="test.txt" - -YXR0YWNobWVudAo= ---------------030903040907010006050500 -Content-Type: application/pgp-signature; - name="test.txt.sig" -Content-Transfer-Encoding: base64 -Content-Disposition: inline; - filename="test.txt.sig" - -iD8DBQBFoQADtaRiGUNF96URAqmBAJ42zyr06nK6R4dNpZD5067DNDgjRwCgkR+SKgz7OdAq -p11D7PQGCR1Wuvg= ---------------030903040907010006050500-- diff --git a/rt/t/data/gnupg/keyrings/trustdb.gpg b/rt/t/data/gnupg/keyrings/trustdb.gpg Binary files differdeleted file mode 100644 index 9f2ae63..0000000 --- a/rt/t/data/gnupg/keyrings/trustdb.gpg +++ /dev/null diff --git a/rt/t/data/gnupg/keys/general-at-example.com.2.public.key b/rt/t/data/gnupg/keys/general-at-example.com.2.public.key deleted file mode 100644 index 04fbe96..0000000 --- a/rt/t/data/gnupg/keys/general-at-example.com.2.public.key +++ /dev/null @@ -1,30 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -mQGiBEbgjJQRBACx8uMHcl9JlKCUU5yh0rBw636MXhKr7cH/+zBTeUVQyfs+J4fo -HlI3fwJzZOxwXKTwmXsHSKxomeBJxPpFCnwHvn7xTYh6Wtis1Rm2Vr4lsw4gxrFj -bpk1ISkHo4tO3dPTNx6Jhz+gYzoVUyfclz/byUmEbe2HJkBCQNmC9/lcuwCg477S -siOdObqTKtQhDqXzFfOHKmsEAKVB8RImtLAO/HPY5+rxiVkfKjsmZovi0PfioGDI -3o1jcSwq/RwWPZTNB0vnlEx1aD3zedUn1T7ZPnKoRttIv0xYlg9wYhX/xvOA9mKy -G5aXSypiJiNwJSQfcChlyVHX3R88pURIzPiwWv2OBOvRagE8Bmgz0DFa0/AQfmvI -vpUmA/4qZVzOJ5hC6fVP+ESKEC6fStvHAEZM3sQK5AnZsuUls3+tgfkD9T6ei5YF -MXDLMGz3thue1M0QEu3IL7cLoTMalWQpjpyDuqXS8UAsd5cG2eP2iA6Uf2VoKQ11 -w6Q1FyMwTC9B0F8JijwdLF77ERSCtIG+TOA1EtH9HfTV5+BfHbQfZ2VuZXJhbCAy -IDxnZW5lcmFsQGV4YW1wbGUuY29tPohgBBMRAgAgBQJG4IyUAhsDBgsJCAcDAgQV -AggDBBYCAwECHgECF4AACgkQ32UfoGMsT1De7QCgu2Gws7EHllWWhJC9mHgDHC45 -Z8YAn2mBLO7ZBi5lptavTfQlR05RvTSKuQINBEbgjJQQCAD55mgtF494BvjhumUE -Zu15W9QL99772EntAHnGd6tx6r2GlqWmIHrze/jguIdyXqVGEVWAosDAu08vF1EC -DDJoCz/tkyjhXOT4MBKWL0Gpetk61Pi2Qv0GsxQSYG+FwKjTk+pE4qxnT932n3U8 -7KxUtgIxzH7Y/oFxgb0LGQxgokSPuq/E+jtglYxey9fzeFWjr2T77g5oWu9PXPCF -jg+km3f9rQxxRgDuM4bPr5tWjhLTpNB0xKZMbx6YUVUP/DyK/DhqaMZ5Qt1vZ0QI -/COSPy9Kq76wR1WW6E0SDFU49xAbtMm2MZgDh5uj/lFp95yDGmBSZzwxY0qy/BbN -c4HDAAMFCADbiPty42xieGtEtQdvjqejEsE15Zhna+zf/4Fch/Ee9laOmtW9Nekg -2ltUMHw+Nc5VseWIKtFqlnOZtcutO6yYgVH+GJ287gnXw3gK8zEcbQ2RUxYEdiuw -ORuMqowmVlOCFxgPW6Vv5Em8E3kb1dEMx+Ec/SVmeXpOcGV5kS9PS9veO3ruoXqx -6l3Gq3BU3xvDhJ3FRRlsUYtGOBuJl0/oXk/1TUjAuQinsxM+Nh4VljeI3eiT2Ygb -ypdXjH6zmTDy7PlEy5RDYdFOsKW1sZXKWoY6y2TU4IO9JBWehS8Lhn3pMTv65FME -6Ow9W5+hLTBYo9E/kUZXWvPlJgGA1439iEkEGBECAAkFAkbgjJQCGwwACgkQ32Uf -oGMsT1BE+gCeOni/yGg3+IIPpIoTCVsf8jUcJXgAn3nsf/TTUli9XyftXRiJbua9 -CM0m -=bGLz ------END PGP PUBLIC KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/general-at-example.com.2.secret.key b/rt/t/data/gnupg/keys/general-at-example.com.2.secret.key deleted file mode 100644 index 6a8510e..0000000 --- a/rt/t/data/gnupg/keys/general-at-example.com.2.secret.key +++ /dev/null @@ -1,33 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -lQHhBEbgjJQRBACx8uMHcl9JlKCUU5yh0rBw636MXhKr7cH/+zBTeUVQyfs+J4fo -HlI3fwJzZOxwXKTwmXsHSKxomeBJxPpFCnwHvn7xTYh6Wtis1Rm2Vr4lsw4gxrFj -bpk1ISkHo4tO3dPTNx6Jhz+gYzoVUyfclz/byUmEbe2HJkBCQNmC9/lcuwCg477S -siOdObqTKtQhDqXzFfOHKmsEAKVB8RImtLAO/HPY5+rxiVkfKjsmZovi0PfioGDI -3o1jcSwq/RwWPZTNB0vnlEx1aD3zedUn1T7ZPnKoRttIv0xYlg9wYhX/xvOA9mKy -G5aXSypiJiNwJSQfcChlyVHX3R88pURIzPiwWv2OBOvRagE8Bmgz0DFa0/AQfmvI -vpUmA/4qZVzOJ5hC6fVP+ESKEC6fStvHAEZM3sQK5AnZsuUls3+tgfkD9T6ei5YF -MXDLMGz3thue1M0QEu3IL7cLoTMalWQpjpyDuqXS8UAsd5cG2eP2iA6Uf2VoKQ11 -w6Q1FyMwTC9B0F8JijwdLF77ERSCtIG+TOA1EtH9HfTV5+BfHf4DAwJaviEcavOA -YWAyNs+6FnvZb5JMpdZWxKrmidVFbPUx7sHk2vEW0UTzcnqnlxmoJ/tKeWwiNl1j -ztCVFbQfZ2VuZXJhbCAyIDxnZW5lcmFsQGV4YW1wbGUuY29tPohgBBMRAgAgBQJG -4IyUAhsDBgsJCAcDAgQVAggDBBYCAwECHgECF4AACgkQ32UfoGMsT1De7QCgu2Gw -s7EHllWWhJC9mHgDHC45Z8YAn2mBLO7ZBi5lptavTfQlR05RvTSKnQJjBEbgjJQQ -CAD55mgtF494BvjhumUEZu15W9QL99772EntAHnGd6tx6r2GlqWmIHrze/jguIdy -XqVGEVWAosDAu08vF1ECDDJoCz/tkyjhXOT4MBKWL0Gpetk61Pi2Qv0GsxQSYG+F -wKjTk+pE4qxnT932n3U87KxUtgIxzH7Y/oFxgb0LGQxgokSPuq/E+jtglYxey9fz -eFWjr2T77g5oWu9PXPCFjg+km3f9rQxxRgDuM4bPr5tWjhLTpNB0xKZMbx6YUVUP -/DyK/DhqaMZ5Qt1vZ0QI/COSPy9Kq76wR1WW6E0SDFU49xAbtMm2MZgDh5uj/lFp -95yDGmBSZzwxY0qy/BbNc4HDAAMFCADbiPty42xieGtEtQdvjqejEsE15Zhna+zf -/4Fch/Ee9laOmtW9Nekg2ltUMHw+Nc5VseWIKtFqlnOZtcutO6yYgVH+GJ287gnX -w3gK8zEcbQ2RUxYEdiuwORuMqowmVlOCFxgPW6Vv5Em8E3kb1dEMx+Ec/SVmeXpO -cGV5kS9PS9veO3ruoXqx6l3Gq3BU3xvDhJ3FRRlsUYtGOBuJl0/oXk/1TUjAuQin -sxM+Nh4VljeI3eiT2YgbypdXjH6zmTDy7PlEy5RDYdFOsKW1sZXKWoY6y2TU4IO9 -JBWehS8Lhn3pMTv65FME6Ow9W5+hLTBYo9E/kUZXWvPlJgGA1439/gMDAlq+IRxq -84BhYLhZWMP6gRz3MuuJr0YX10x+bx3/96Wkh505MRMLqefr0J8WgzjIJS1aIUqA -nusWttcVsQZS3ZHIZk/tp5dq54CICn09Rl+UNySISQQYEQIACQUCRuCMlAIbDAAK -CRDfZR+gYyxPUET6AJwNpkgxKEdjvIbdB7Y+IPgA1wyt+ACdGc0py11j1RLa2gn0 -1+nPnBIS7R8= -=oSXs ------END PGP PRIVATE KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/general-at-example.com.public.key b/rt/t/data/gnupg/keys/general-at-example.com.public.key deleted file mode 100644 index c274c8d..0000000 --- a/rt/t/data/gnupg/keys/general-at-example.com.public.key +++ /dev/null @@ -1,30 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -mQGiBEYrdhQRBACpTwAjSJchxV9rgWJj/4GUe92xZ2wWHVrkv7cELO5GD1ie8wtA -nh57oXfcFhuSmtLTyT/C1Mbzo/tz4Sigf33bZlEMXusp0bLsSz1S/5mslBGRdApJ -Dz5jETEcakpzWsHA5sHfv8HLn+o8WUDtlGZf+Edi0DqUKSiLRkjWMAdcJwCg7cN1 -IIhhFFAf9Lr3Ny7ngJDwn/sEAJoZVUmhBHo9TipR9lZY1si5U0hA8Yn4XghLp4z9 -0rm8dAgLSZwFI2/zoU5u9qjW0UAo8Sp2SO9F03wQpfUGnpQtea/HVNuwiZVU42bB -E5gn5EIYrHYT8X7cd+ZpWVGYu2117uoJtRHwnfuh857ocs7M7xeo7IQUZArqeHOG -i3hABACV9mqnZoPyCOtaBogdXtDlEbqDvYclONJTsSKAfPsNRjJi8lzvJL9ZhtS8 -YKIUvxFu+XX0UVXWoNnzte8Ip/0hwupJu9jIcBJpI9dVEK3H2tWr+NElzML/uch+ -VO7UUmk2H/hF8+a3wXkdEN45FnJCyqC0Kk59OcY3bJIrI56SZrQdZ2VuZXJhbCA8 -Z2VuZXJhbEBleGFtcGxlLmNvbT6IYAQTEQIAIAUCRit2FAIbAwYLCQgHAwIEFQII -AwQWAgMBAh4BAheAAAoJEJ+mYsBt4i/CNxwAoMEYt4mJlH9rCoqc8kkaE2qJslG+ -AJ9plkUk5LWv7ncWcrUpMxVo5J3Eh7kCDQRGK3YwEAgAqxHhoyoViGJsImMKG2XQ -wxHIBJc21zaLwG8MAn6xNXIZRDrjlgy0ItteGB0Hs1VqibE70fwZ9q5O/Ev32M/s -fxtEgJMyfZzOVPMxY0AZu7sUdsfDiTqV/0FwKMjGM1aV2ulqaVZLJr4hpdxjgynf -TUqtkJjYtUMAwMcsee/ORnyuSBGcaG3SjWyOyrI+oDm4e2QZ/jGmINP4b3PHJu9C -JXq3dR/vJGlYxr9uApaXHjVksa5+uPA6iqjyCoRo/Sv+V3SANSOYJYI9tnKFHuLM -YAqwOufWNnvHjb2zS0hCAJJ6p0CMcBhmaNieXcOgmt8MIJe/b5W4ItfgS/2D+yI/ -iwADBQf+ISTkh2pY2QExXtGmhjO1LSxB/sO5n0zJOkQvf/I5aOgWxXDP8dYcc9mp -2sV5okB+S4Dol/ppGaxas+kisdwTNja12Er21Lrm6CGfyqp214EKZcM44KmIb1HA -utLlujBJsWgf6LDggH4s785GKzwtA9NHfiWeWkXWGXrGFsFK6OWDcdSH0GcHus2F -9FHLyOh5jpkd4Xczx5lEAn1wvUhQtRn9bBU7FLGUind352vbKegeFjUvhGCLp+YF -IxSB2OXeVdzUbMjiUM0zJu3VNDsq9IP5EBvV3cwixuOF/XzYiDIPqezDDU9P5H2R -d1IQBgMIPl9WXAFRkCIJUnsmvQOINIhJBBgRAgAJBQJGK3YwAhsMAAoJEJ+mYsBt -4i/CEuwAn1QHO3umF9MHhpWQIBaacJUfBboqAKCYPpflpFvDNn0ioLA7Dw5qVSix -5A== -=CF0O ------END PGP PUBLIC KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/general-at-example.com.secret.key b/rt/t/data/gnupg/keys/general-at-example.com.secret.key deleted file mode 100644 index 36f9ba3..0000000 --- a/rt/t/data/gnupg/keys/general-at-example.com.secret.key +++ /dev/null @@ -1,31 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -lQG7BEYrdhQRBACpTwAjSJchxV9rgWJj/4GUe92xZ2wWHVrkv7cELO5GD1ie8wtA -nh57oXfcFhuSmtLTyT/C1Mbzo/tz4Sigf33bZlEMXusp0bLsSz1S/5mslBGRdApJ -Dz5jETEcakpzWsHA5sHfv8HLn+o8WUDtlGZf+Edi0DqUKSiLRkjWMAdcJwCg7cN1 -IIhhFFAf9Lr3Ny7ngJDwn/sEAJoZVUmhBHo9TipR9lZY1si5U0hA8Yn4XghLp4z9 -0rm8dAgLSZwFI2/zoU5u9qjW0UAo8Sp2SO9F03wQpfUGnpQtea/HVNuwiZVU42bB -E5gn5EIYrHYT8X7cd+ZpWVGYu2117uoJtRHwnfuh857ocs7M7xeo7IQUZArqeHOG -i3hABACV9mqnZoPyCOtaBogdXtDlEbqDvYclONJTsSKAfPsNRjJi8lzvJL9ZhtS8 -YKIUvxFu+XX0UVXWoNnzte8Ip/0hwupJu9jIcBJpI9dVEK3H2tWr+NElzML/uch+ -VO7UUmk2H/hF8+a3wXkdEN45FnJCyqC0Kk59OcY3bJIrI56SZgAAn2a5NRggeMB1 -vXJiR6c1NjYO2+hHCRC0HWdlbmVyYWwgPGdlbmVyYWxAZXhhbXBsZS5jb20+iGAE -ExECACAFAkYrdhQCGwMGCwkIBwMCBBUCCAMEFgIDAQIeAQIXgAAKCRCfpmLAbeIv -wjccAKDBGLeJiZR/awqKnPJJGhNqibJRvgCfaZZFJOS1r+53FnK1KTMVaOSdxIed -Aj0ERit2MBAIAKsR4aMqFYhibCJjChtl0MMRyASXNtc2i8BvDAJ+sTVyGUQ645YM -tCLbXhgdB7NVaomxO9H8GfauTvxL99jP7H8bRICTMn2czlTzMWNAGbu7FHbHw4k6 -lf9BcCjIxjNWldrpamlWSya+IaXcY4Mp301KrZCY2LVDAMDHLHnvzkZ8rkgRnGht -0o1sjsqyPqA5uHtkGf4xpiDT+G9zxybvQiV6t3Uf7yRpWMa/bgKWlx41ZLGufrjw -Ooqo8gqEaP0r/ld0gDUjmCWCPbZyhR7izGAKsDrn1jZ7x429s0tIQgCSeqdAjHAY -ZmjYnl3DoJrfDCCXv2+VuCLX4Ev9g/siP4sAAwUH/iEk5IdqWNkBMV7RpoYztS0s -Qf7DuZ9MyTpEL3/yOWjoFsVwz/HWHHPZqdrFeaJAfkuA6Jf6aRmsWrPpIrHcEzY2 -tdhK9tS65ughn8qqdteBCmXDOOCpiG9RwLrS5bowSbFoH+iw4IB+LO/ORis8LQPT -R34lnlpF1hl6xhbBSujlg3HUh9BnB7rNhfRRy8joeY6ZHeF3M8eZRAJ9cL1IULUZ -/WwVOxSxlIp3d+dr2ynoHhY1L4Rgi6fmBSMUgdjl3lXc1GzI4lDNMybt1TQ7KvSD -+RAb1d3MIsbjhf182IgyD6nsww1PT+R9kXdSEAYDCD5fVlwBUZAiCVJ7Jr0DiDQA -AVQKdEMomLc49M9nDgc3mQkmkS1Ce0xI+BBEf0LhdiUYRU9mclN7HkCj3fl8EUCI -SQQYEQIACQUCRit2MAIbDAAKCRCfpmLAbeIvwhLsAKCoZAIqS3Bp2WndQqZJvHBS -u4f0VACgslT4IpJF1BdbMvA+oyvYVgv3g/c= -=linj ------END PGP PRIVATE KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/recipient-at-example.com.public.key b/rt/t/data/gnupg/keys/recipient-at-example.com.public.key deleted file mode 100644 index 3d3032f..0000000 --- a/rt/t/data/gnupg/keys/recipient-at-example.com.public.key +++ /dev/null @@ -1,30 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -mQGiBEWOOBARBAClfdK23heqW39sO3K0p+KtZkDxWhgpjjRfMSWQWwY++eDFhDr5 -BGG3zxsB2R8MOaHVKetuDjWjmfDi/LvDR8br8+eaLt94F4PBcLa+vVjboYyjvTFs -2t3leyXjNd+mBTZmUcY6WLM0E+biIJdlDhVOv95n8VwvT10R0J/mGO7hTwCg20NC -vJJ/fpWzPItFfKHnKg3gO3MD/RhG6CxmsZs+1bdzY07UwABQG8NhoR5Veqg2+uBr -xiYjemtC+8fAtthEojJ334BE7qDuXEO7eq1R+JOtEj/Hx8gtgWQfDNZlgLA4NUSc -aU3PthtXD4CnY5MsTrxjpD+bjTde6ziEJ3RHPQQSq2S1fKqo5Bf6H7GYWueRiSGS -cNK2A/4/WAYFQbj9Jm7zgvPrLRRnk7RP3A4+ABaWEtGMRbpCaFEHd63gjYEH7P3i -/O6y9kXsYr3SkDbhk6h1Cx8+4fjpZHAd4XbgabZhp5u7Nq3m/TIzQiXMYXrZGleB -CGoQrERbM9mavEgOHGZEwO1I/JKSHdmAg/adTRAbG+AxZK79u7QhVGVzdCBVc2Vy -IDxyZWNpcGllbnRAZXhhbXBsZS5jb20+iGAEExECACAFAkWOOBACGwMGCwkIBwMC -BBUCCAMEFgIDAQIeAQIXgAAKCRBIVe2Ik+ud58m2AKCAO8NDxsU8m6ahhfwrPaQG -O7MjQwCgtDn5aYx4G93pv5UKpGzkHKh2T1G5Ag0ERY44FBAIALAc3V9FsEK3pxdc -ILYVjV85rrL58+hGcsgeNqF2TIgneJ3Dwi0zA82K1gchfvBT7Ab+A7WGi6E0rXnO -s/rMoDV+5Qoac4M9hW1qb1seBt+0au72npIMSqF5V/4nZr4L21g6vE4/cgrLd3BK -bA1hCDdIGeqG3Ljiy++RGnhIkiY+FGpNYYAI9bkXltC9BYtl5DBvMrpTqlDUfSzq -rz3zZYaD30FUGbTTqfISU1RC4sY7aEmgFvB6vvia/s9XyldngPFwuTELCAG/JkFd -ZvodkwlTdv/vIY0SFkHJSjmT2a797wuhxuaC17eWrQhfF0sxsZhJ1Ac3osrGQQvr -8dZCd2cAAwUH/icHkxwmYKa7UPQZYexD4QsGS+rq7TbYzbSWcxz2l5J11/pHdD6m -tdGbtEn5mQPjBnOI3GYwvtqbzG4WO5y5qssYoW22ZL9ov67QpJyKJILNLInWwiqx -oRgB3Kgk5J5vDNw7CZLxrEvQNKE1gTEqfmQGUAiXipJ2VXbTWenPN6fDv5vdKesF -dnDmk+jfjbL0/G8jUwt6vnQXMVZnIuxTMxs+4tTQfK1qh5iMdaC3wy15pg2wZoky -OzjVEJywIQmqAA8lcvD0S/l4+JM6Epfx8gd9IjOVULUd2/TiPSvGM/gpJdop3bUc -UmlWeF59Xx9uZPo7twDubKB6grMWOZwGgM2ISQQYEQIACQUCRY44FAIbDAAKCRBI -Ve2Ik+ud5+EVAJ0TZHopcAmCANc26gPWWDfTaZovmQCcC5jl3o/yXvdaAhfbqKMr -cts0+T8= -=wrrX ------END PGP PUBLIC KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/recipient-at-example.com.secret.key b/rt/t/data/gnupg/keys/recipient-at-example.com.secret.key deleted file mode 100644 index 620a432..0000000 --- a/rt/t/data/gnupg/keys/recipient-at-example.com.secret.key +++ /dev/null @@ -1,33 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -lQHhBEWOOBARBAClfdK23heqW39sO3K0p+KtZkDxWhgpjjRfMSWQWwY++eDFhDr5 -BGG3zxsB2R8MOaHVKetuDjWjmfDi/LvDR8br8+eaLt94F4PBcLa+vVjboYyjvTFs -2t3leyXjNd+mBTZmUcY6WLM0E+biIJdlDhVOv95n8VwvT10R0J/mGO7hTwCg20NC -vJJ/fpWzPItFfKHnKg3gO3MD/RhG6CxmsZs+1bdzY07UwABQG8NhoR5Veqg2+uBr -xiYjemtC+8fAtthEojJ334BE7qDuXEO7eq1R+JOtEj/Hx8gtgWQfDNZlgLA4NUSc -aU3PthtXD4CnY5MsTrxjpD+bjTde6ziEJ3RHPQQSq2S1fKqo5Bf6H7GYWueRiSGS -cNK2A/4/WAYFQbj9Jm7zgvPrLRRnk7RP3A4+ABaWEtGMRbpCaFEHd63gjYEH7P3i -/O6y9kXsYr3SkDbhk6h1Cx8+4fjpZHAd4XbgabZhp5u7Nq3m/TIzQiXMYXrZGleB -CGoQrERbM9mavEgOHGZEwO1I/JKSHdmAg/adTRAbG+AxZK79u/4DAwKKjpV+74Fq -wGCggxQNXbWP1fy2s8C5f3k/jsyGcPyDv2qcVoo9f1cLdb6Alu3f6kSAGWpUink9 -dHErTbQhVGVzdCBVc2VyIDxyZWNpcGllbnRAZXhhbXBsZS5jb20+iGAEExECACAF -AkWOOBACGwMGCwkIBwMCBBUCCAMEFgIDAQIeAQIXgAAKCRBIVe2Ik+ud58m2AKCA -O8NDxsU8m6ahhfwrPaQGO7MjQwCgtDn5aYx4G93pv5UKpGzkHKh2T1GdAmMERY44 -FBAIALAc3V9FsEK3pxdcILYVjV85rrL58+hGcsgeNqF2TIgneJ3Dwi0zA82K1gch -fvBT7Ab+A7WGi6E0rXnOs/rMoDV+5Qoac4M9hW1qb1seBt+0au72npIMSqF5V/4n -Zr4L21g6vE4/cgrLd3BKbA1hCDdIGeqG3Ljiy++RGnhIkiY+FGpNYYAI9bkXltC9 -BYtl5DBvMrpTqlDUfSzqrz3zZYaD30FUGbTTqfISU1RC4sY7aEmgFvB6vvia/s9X -yldngPFwuTELCAG/JkFdZvodkwlTdv/vIY0SFkHJSjmT2a797wuhxuaC17eWrQhf -F0sxsZhJ1Ac3osrGQQvr8dZCd2cAAwUH/icHkxwmYKa7UPQZYexD4QsGS+rq7TbY -zbSWcxz2l5J11/pHdD6mtdGbtEn5mQPjBnOI3GYwvtqbzG4WO5y5qssYoW22ZL9o -v67QpJyKJILNLInWwiqxoRgB3Kgk5J5vDNw7CZLxrEvQNKE1gTEqfmQGUAiXipJ2 -VXbTWenPN6fDv5vdKesFdnDmk+jfjbL0/G8jUwt6vnQXMVZnIuxTMxs+4tTQfK1q -h5iMdaC3wy15pg2wZokyOzjVEJywIQmqAA8lcvD0S/l4+JM6Epfx8gd9IjOVULUd -2/TiPSvGM/gpJdop3bUcUmlWeF59Xx9uZPo7twDubKB6grMWOZwGgM3+AwMCio6V -fu+BasBgNB3AutvANzxcWBPZSJFs3uN0m4ii+g7eu8fYaiIJO7GFk1WD5UORHs9w -0C4JIqUj10yUzvnHBZ6DdkV2aZE9FZljLLpRs+iiwYhJBBgRAgAJBQJFjjgUAhsM -AAoJEEhV7YiT653n4RUAoJd1DuGANpd7VGGwNfoMCCpAk/4TAKCrbh6NpoJr0Ab4 -1toDA5lM/EYYPw== -=5O4y ------END PGP PRIVATE KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/rt-recipient-at-example.com.public.key b/rt/t/data/gnupg/keys/rt-recipient-at-example.com.public.key deleted file mode 100644 index 9952c6f..0000000 --- a/rt/t/data/gnupg/keys/rt-recipient-at-example.com.public.key +++ /dev/null @@ -1,30 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.7 (GNU/Linux) - -mQGiBEa8u6QRBADCqPh8w3cO51hPVb1Sttqq5UhCeB5t2dAL8aVEDkpPfV7LItDi -pN4VqHo2zbGE8q2bCoqW06Ogn0R4xsxEeD9Jq9/k3dHReFL2gbA5F/el1PKXVxG8 -62BnjLkDub8yCdWsg0QDJ6ah7LC7vukTMlJj+3HhoXWEqBrTBKjtFkNIrwCg/LtU -CEyj+z/cl6NQGZUw2A6+5DUD/2DfcLeSir7xrlcidqO4BxtxdWkEBDAnmARKrqaw -zSATIK11+HO3Gteovfa08J1XXU2+IFqi2Ssyaqss1kteJE8DmOAcllSXqmCfOmPm -xoW4gXOQfEv6tkTvF9JST1OZRj5w+ecyxn0282XrzKcxNeLjc+JcLfzPmmuhw4lA -s/nJA/4tBqT0V7QiwaznBo8Bh7N3sz75x0vgSdZLUA0e2VzHKh9mAfK/FeVS1mcJ -04iHWvxOGMqEfXnpxUrogME7f/TWNBVfT4M2JW0sHLvaiJhTtIhn+Q67awQ1f0qG -mGQLIo9OAWZnIfBZ8e2tBwJ3ajiSZ2LIPWFv4Q1hKxOclODpf7QmUlQgVXNlciBC -b2IgPHJ0LXJlY2lwaWVudEBleGFtcGxlLmNvbT6IYAQTEQIAIAUCRry7pAIbAwYL -CQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJEM4wxB7CJ0omPPUAoL3A7jiEZX6xSyXE -duAtnmMplqHrAKDB8mrNols8/ni0VOv0QletwEwbVrkCDQRGvLuvEAgA/qDyDeDP -FrDhh757tpgvJp2CmIx8fyv+i9nLEBVCZjtkLqgrcvtNh8l+xu3y8vjGB6+ToPvG -ZE3FRxyLWNPGIlq1pQSREC9faEDWDrN7yA8miaikLIlfMnGwwzb5bEXWsmXzctTv -DgxTCufDj8T66TKv+cCqc9T956XY6q49Z/p6yZDiY7LZ0N6GkHSoT8o6ZCOvl87n -IjwKR8AXDWBxL5+SeenNkZ8e30pSVDJTOe4u6W/MKK3RBD0FKYr+DOMh5BQtE7yT -QEhzmDTPfGe9m52FV8FbSLpimMnIFM2hGRf6jynoR10s0tk2DVADXDycwNYarRYG -AxV6XafLCPDv4wADBQgAtpM7zhVch/NsL56aIG0QZmSaKCdk6UPsJua91eLEHJFo -zOzethsAWED5KHD5ThsYBKPGq+mFz7QQtw8/DBmcajtBxMv2fvVOE7SrWfeHyMVl -RgidJc3O6HlPPnA/v8lQhsYTxpUddYqB4lC0ktpncxCzX/VNr62YkmrpJx2Yvyd0 -L/lK5fiko65gQC1v/XQ/QI9kpGbOFXFnEgQXmFcDTX4kzTgpJ3cOBrM9GAO/hcwH -82eC0j8fYw8mLYR8yQG0jsXJKCvHxTgkOh0nSkLaeLoq1maLp+NbJKCqgpsmeV4n -QmEJE4Ye7I/L077BtJLv1tk0G0Jh3F2WeSzEvB7cS4hJBBgRAgAJBQJGvLuvAhsM -AAoJEM4wxB7CJ0om/FcAn2tCGofP7IPmw6VxGBZNPHal4sIBAJ9UCgpOaGtX2fRl -+vvcvfcuIys27g== -=mo7N ------END PGP PUBLIC KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/rt-recipient-at-example.com.secret.key b/rt/t/data/gnupg/keys/rt-recipient-at-example.com.secret.key deleted file mode 100644 index 853801f..0000000 --- a/rt/t/data/gnupg/keys/rt-recipient-at-example.com.secret.key +++ /dev/null @@ -1,33 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.7 (GNU/Linux) - -lQHhBEa8u6QRBADCqPh8w3cO51hPVb1Sttqq5UhCeB5t2dAL8aVEDkpPfV7LItDi -pN4VqHo2zbGE8q2bCoqW06Ogn0R4xsxEeD9Jq9/k3dHReFL2gbA5F/el1PKXVxG8 -62BnjLkDub8yCdWsg0QDJ6ah7LC7vukTMlJj+3HhoXWEqBrTBKjtFkNIrwCg/LtU -CEyj+z/cl6NQGZUw2A6+5DUD/2DfcLeSir7xrlcidqO4BxtxdWkEBDAnmARKrqaw -zSATIK11+HO3Gteovfa08J1XXU2+IFqi2Ssyaqss1kteJE8DmOAcllSXqmCfOmPm -xoW4gXOQfEv6tkTvF9JST1OZRj5w+ecyxn0282XrzKcxNeLjc+JcLfzPmmuhw4lA -s/nJA/4tBqT0V7QiwaznBo8Bh7N3sz75x0vgSdZLUA0e2VzHKh9mAfK/FeVS1mcJ -04iHWvxOGMqEfXnpxUrogME7f/TWNBVfT4M2JW0sHLvaiJhTtIhn+Q67awQ1f0qG -mGQLIo9OAWZnIfBZ8e2tBwJ3ajiSZ2LIPWFv4Q1hKxOclODpf/4DAwIc+jyN96r4 -cWCKJH3rJKMiam7fzkjUhawkIXBXWlau1oZeQKvQCxCpj02aFks9bSTK9wseazjU -JRF6D7QmUlQgVXNlciBCb2IgPHJ0LXJlY2lwaWVudEBleGFtcGxlLmNvbT6IYAQT -EQIAIAUCRry7pAIbAwYLCQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJEM4wxB7CJ0om -PPUAoL3A7jiEZX6xSyXEduAtnmMplqHrAKDB8mrNols8/ni0VOv0QletwEwbVp0C -YwRGvLuvEAgA/qDyDeDPFrDhh757tpgvJp2CmIx8fyv+i9nLEBVCZjtkLqgrcvtN -h8l+xu3y8vjGB6+ToPvGZE3FRxyLWNPGIlq1pQSREC9faEDWDrN7yA8miaikLIlf -MnGwwzb5bEXWsmXzctTvDgxTCufDj8T66TKv+cCqc9T956XY6q49Z/p6yZDiY7LZ -0N6GkHSoT8o6ZCOvl87nIjwKR8AXDWBxL5+SeenNkZ8e30pSVDJTOe4u6W/MKK3R -BD0FKYr+DOMh5BQtE7yTQEhzmDTPfGe9m52FV8FbSLpimMnIFM2hGRf6jynoR10s -0tk2DVADXDycwNYarRYGAxV6XafLCPDv4wADBQgAtpM7zhVch/NsL56aIG0QZmSa -KCdk6UPsJua91eLEHJFozOzethsAWED5KHD5ThsYBKPGq+mFz7QQtw8/DBmcajtB -xMv2fvVOE7SrWfeHyMVlRgidJc3O6HlPPnA/v8lQhsYTxpUddYqB4lC0ktpncxCz -X/VNr62YkmrpJx2Yvyd0L/lK5fiko65gQC1v/XQ/QI9kpGbOFXFnEgQXmFcDTX4k -zTgpJ3cOBrM9GAO/hcwH82eC0j8fYw8mLYR8yQG0jsXJKCvHxTgkOh0nSkLaeLoq -1maLp+NbJKCqgpsmeV4nQmEJE4Ye7I/L077BtJLv1tk0G0Jh3F2WeSzEvB7cS/4D -AwIc+jyN96r4cWBgxgN9v8Z6ySQrlQfJWkB3LDcYVugGb3Ht6vIMaFMnW9KFwOgd -/nuf5uqyuy2/jQ0SZT1fUC3skhxT1BXKewfmmlnzoLJu3rz6iEkEGBECAAkFAka8 -u68CGwwACgkQzjDEHsInSib8VwCeLdgy5axSbYZ8Ez42Kcj8Ku2Q4ZUAnjJ92jFc -fC7XWcM/6AX5IyU0jtEW -=DS2U ------END PGP PRIVATE KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/rt-test-at-example.com.2.public.key b/rt/t/data/gnupg/keys/rt-test-at-example.com.2.public.key deleted file mode 100644 index d63d4dd..0000000 --- a/rt/t/data/gnupg/keys/rt-test-at-example.com.2.public.key +++ /dev/null @@ -1,30 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.7 (GNU/Linux) - -mQGiBEbl4D0RBADu+s2KTTSMl2/aK3Jkhy9ZTBMFOOCPeleidjV8z7RVGEwTjcby -B0DbPFC/eK0ot9m/F9CojE6QHK0hqjCKPfARptjG6C/Iqxql0DaRWdo4UYTgT6WW -hhoKK5DUN57Eu0essy1qTyzcXVIRsQdfkn2ldRKC1XSXnKAiL0vODLtL7wCgoDgj -tDtOHdi0vlSHvRhPD1F9P3sEAMvSaiEMN/3AlAWQLqrg0rQRr4dpRZqahoffBIeX -OZGzDSrWtIshMQLLA0HmkphPtRe/y74GBWfpwr6Hs6yl5tP2PSXsAAl+W92st2Vp -lKJWsLZtvW39nS5cwmv0Etz6j0F9tn7Ah4+x89egzIg9GwU14cS2GNqxYsK3+YMY -jSXzA/4zEDOQkrRuSEm9JNG5JCFKexAvjLzhYQQRCOI1PrX3iAMzbYFFIgTpr26h -sPfOb5SMy2OGeECXGd0rxF4+rMCbp0jrQ8B18CWuho7HJK97WuT6NFoaPZCh/pYK -OQkKGnJCUQNSm5u4uWY6yNs/+U4kvYJvIGw7F7uNWuXcpfREabQmUlQgVGVzdCB0 -aGUgc2FtZSA8cnQtdGVzdEBleGFtcGxlLmNvbT6IYAQTEQIAIAUCRuXgPQIbAwYL -CQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJEMeYWRqoMdv7v1oAnR9bV/4nbzizkEAm -691AuqGLFyryAJ9WjLWviRXuiEKMR6LMIn9HC0POarkCDQRG5eA9EAgAoexx9eOo -hJpX0VJ8gNVSlFsLLq60ugiWzfwzrGkL2v4o5QoCwj6XFhK/xtDmqhWu3USBVtqW -vrMuq2VCWWPiezZ/8Zl8NY7GjxDyLgeuEotfBkS8qFLQH7TGqNFLoJOIi3UjNFX8 -cRx29CSQyc3jj88HiC1InuMMwDXf8ukpkYNG0n7E3lZ3dWOadCXY2+kAxJ5qGV0U -WmEBoux9TU8hFAq4DtRmf2x/Mt3k+e5ZXpbnbKGxAAImMV8WR0SGAd5OcgeE+rB3 -ziAtD8YbM+WDxbihloje7YN0hVSFSTsGvypIC/jPSNTVgkJdG7N0NepGh/T3wbAV -eDebMYDmUQYLiwADBQgAmrAkyor1V/M21ERoZdoNFMlbdxuuQ5QhBIkkiygn2dq1 -d7CaOF1Hi5s3o6DsD9ER2YENlPYgPtVPH/agGuITHHugGKitj9sRM/QCGMKf/IKa -zxcTQfcHmOUMXrM6GWzPZiiTrIBpOZyRDyFN1x0y9G9z7lVt507AkyF3aS2da6yc -l2knSX3vPtFkHCUVlvKz6yXGE4xLm8/ACH/zPDjuQ2X/Yz+FfpJAeNihz6/J88Ga -O7sgU1jx3zdRaH5hZXJRlyO7AW1KdOtI8xZi3SBNXKBnfCbUUSBbxa2spXst0Eep -ijEDtsDhK+imdFjX8ul/JE0XhJooRrcdevEbohMn2IhJBBgRAgAJBQJG5eA9AhsM -AAoJEMeYWRqoMdv7OI4AnR5PPGNNdhVSTle3B9cV2Vy11gEjAJ0QHe4iFf7wfASF -jybMsNKYwFb5FQ== -=XFiw ------END PGP PUBLIC KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/rt-test-at-example.com.2.secret.key b/rt/t/data/gnupg/keys/rt-test-at-example.com.2.secret.key deleted file mode 100644 index 83207f1..0000000 --- a/rt/t/data/gnupg/keys/rt-test-at-example.com.2.secret.key +++ /dev/null @@ -1,33 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.7 (GNU/Linux) - -lQHhBEbl4D0RBADu+s2KTTSMl2/aK3Jkhy9ZTBMFOOCPeleidjV8z7RVGEwTjcby -B0DbPFC/eK0ot9m/F9CojE6QHK0hqjCKPfARptjG6C/Iqxql0DaRWdo4UYTgT6WW -hhoKK5DUN57Eu0essy1qTyzcXVIRsQdfkn2ldRKC1XSXnKAiL0vODLtL7wCgoDgj -tDtOHdi0vlSHvRhPD1F9P3sEAMvSaiEMN/3AlAWQLqrg0rQRr4dpRZqahoffBIeX -OZGzDSrWtIshMQLLA0HmkphPtRe/y74GBWfpwr6Hs6yl5tP2PSXsAAl+W92st2Vp -lKJWsLZtvW39nS5cwmv0Etz6j0F9tn7Ah4+x89egzIg9GwU14cS2GNqxYsK3+YMY -jSXzA/4zEDOQkrRuSEm9JNG5JCFKexAvjLzhYQQRCOI1PrX3iAMzbYFFIgTpr26h -sPfOb5SMy2OGeECXGd0rxF4+rMCbp0jrQ8B18CWuho7HJK97WuT6NFoaPZCh/pYK -OQkKGnJCUQNSm5u4uWY6yNs/+U4kvYJvIGw7F7uNWuXcpfREaf4DAwJXViZBji9w -O2Bhhip5V1QOR7FbE8SLAJVVPoX4Lv8iXOMm4jaXAqTPkvWmWZDiUKfDf6Dv5wT1 -aj8N8LQmUlQgVGVzdCB0aGUgc2FtZSA8cnQtdGVzdEBleGFtcGxlLmNvbT6IYAQT -EQIAIAUCRuXgPQIbAwYLCQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJEMeYWRqoMdv7 -v1oAnR9bV/4nbzizkEAm691AuqGLFyryAJ9WjLWviRXuiEKMR6LMIn9HC0POap0C -YwRG5eA9EAgAoexx9eOohJpX0VJ8gNVSlFsLLq60ugiWzfwzrGkL2v4o5QoCwj6X -FhK/xtDmqhWu3USBVtqWvrMuq2VCWWPiezZ/8Zl8NY7GjxDyLgeuEotfBkS8qFLQ -H7TGqNFLoJOIi3UjNFX8cRx29CSQyc3jj88HiC1InuMMwDXf8ukpkYNG0n7E3lZ3 -dWOadCXY2+kAxJ5qGV0UWmEBoux9TU8hFAq4DtRmf2x/Mt3k+e5ZXpbnbKGxAAIm -MV8WR0SGAd5OcgeE+rB3ziAtD8YbM+WDxbihloje7YN0hVSFSTsGvypIC/jPSNTV -gkJdG7N0NepGh/T3wbAVeDebMYDmUQYLiwADBQgAmrAkyor1V/M21ERoZdoNFMlb -dxuuQ5QhBIkkiygn2dq1d7CaOF1Hi5s3o6DsD9ER2YENlPYgPtVPH/agGuITHHug -GKitj9sRM/QCGMKf/IKazxcTQfcHmOUMXrM6GWzPZiiTrIBpOZyRDyFN1x0y9G9z -7lVt507AkyF3aS2da6ycl2knSX3vPtFkHCUVlvKz6yXGE4xLm8/ACH/zPDjuQ2X/ -Yz+FfpJAeNihz6/J88GaO7sgU1jx3zdRaH5hZXJRlyO7AW1KdOtI8xZi3SBNXKBn -fCbUUSBbxa2spXst0EepijEDtsDhK+imdFjX8ul/JE0XhJooRrcdevEbohMn2P4D -AwJXViZBji9wO2DcFJ5JiQd3X934uG+AeTFIWQG75qOWS3j8BpRn50H73tUn9dxB -Z+V9tI7sMFW3cQTnt6c+FSNJBTUAfLTExQO0BqPSrVwVmKImiEkEGBECAAkFAkbl -4D0CGwwACgkQx5hZGqgx2/s4jgCfeukl8vl9mMuariu08MsuywQ77y4An1cIwl1x -997LwJrR5WF/WoGvPQ61 -=E3hO ------END PGP PRIVATE KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/rt-test-at-example.com.public.key b/rt/t/data/gnupg/keys/rt-test-at-example.com.public.key deleted file mode 100644 index db359a6..0000000 --- a/rt/t/data/gnupg/keys/rt-test-at-example.com.public.key +++ /dev/null @@ -1,30 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.7 (GNU/Linux) - -mQGiBEa4o04RBADc+2sFcnuTTaqcKRTmSBQKdXvumT4GoATk194UYMghwprrNb1/ -flXQRk9zLkc0YENFHLMoRUmXKEF+WFxzXrZgHJS096tGn+Ud2FXQbSL47Vl3EHng -c+jSvvVaZRcEySaCyQrsDR7gWlQtCbxbe96Y2x9jX3Zbih9UYnRvWBeczwCg4tgz -EOmScnWiwUdyZNQsvXDqvKUD/REf0WjWDaykQvXYZ0aTpc/WMBsDS16nl8GNz5eD -lCB/JJHKh5QDu89p0557AbVDSi5LCOYAM+v4oi8k5zgiO/7HJptirDkZ27Ichyes -kzhu3Xr9rPLawie/o4FCfncNLbOAEE4EjEGDGRlyowAaXlW7DWT+TLbxY0qL0uHy -AQPGA/9AmYHBJQqHTfQ4/QXdCnp+UwYs+rhPh7YHymBLn8Saa14heE9SZcYfSerL -FAE7KKeBx96+RplgsiaqfWrliUwrV3KnnJICMyqWmn2OyMYiV9iFWqAHFTCsitS2 -q1COv5/Lg1a+XkAwEfoIuLrAXT8buIxXs/BhLc1PD1t9My8srbQdUlQgVGVzdCA8 -cnQtdGVzdEBleGFtcGxlLmNvbT6IYAQTEQIAIAUCRrijTgIbAwYLCQgHAwIEFQII -AwQWAgMBAh4BAheAAAoJENMoA12EiB8bMZoAoIxLNWQ9d9+W4ImPMpUmjLl9ttxW -AJ9ELlhkfdhPukRe508p5fZqKUfl/rkCDQRGuKNhEAgAjSKFedFcU9RjLmSEGo7E -4qMQWOtiNooW4NtRsKC2cbJXnGJUOT+GBzGCxjBZt89T6MVsOy7DoAzs+xWKA5Cf -gFEX5xZWM1c6EA4f7LhC1hawtGQkMQIyHzEy9b7NPEcMlkdOebjjhZ4Ob8svGily -Q9jN6zpR2c36i0sLaZ5gORIHJ9DOX1k5lUzEhkogEYoYof48VQwHt/5xUURli2kL -Daqi+X2+6j/vNp96EQ3sbFifmNejWNaDyyrlyGUvx9g/Eh5wMRospmFA/oE1kSws -tKiBxAPs11OJGBRre2Q6QVW2ULAhxZOFgkCq0DNb8TMnhJOY4jhOP57rrvpMyu9q -4wADBQgAhRl4aiej9lX+YpZUcyhBkqIB/cDwYemmtIWzo6mVWuDuVcyLl//sJsBi -pwJF6O5nr0ZC5CT+GRgjBmh9rQjv/UtWBldJ7og/HfuSMG6xIfljO2FxKjabDhGa -iKzgTk75LnPqfx0FeRNbN78dPy4hV/iIvHPANuyUlmbBsx9hSGqMc78FIDwwfZtB -im5XUJbpHsahu4/8agQLBu+PFK+5CIVWskrYVL1R66nPHCzsfYcOv+1CYCsuFldG -tFNPCegGxE7T7CFs7m7aYeSdgycNaR9wuBZeV17JnOJ2z/mtsR+8p4vZZzSMcTkj -f1j7UCgiKS/ioTD03pU/OZEy9+l1SYhJBBgRAgAJBQJGuKNhAhsMAAoJENMoA12E -iB8bOvUAoMbxSLj4OsaYEQ1FxOfsXPRmSPVWAJ91PvFOwLkhsm88kjPAIc8oymjd -7A== -=ABM8 ------END PGP PUBLIC KEY BLOCK----- diff --git a/rt/t/data/gnupg/keys/rt-test-at-example.com.secret.key b/rt/t/data/gnupg/keys/rt-test-at-example.com.secret.key deleted file mode 100644 index e76fe84..0000000 --- a/rt/t/data/gnupg/keys/rt-test-at-example.com.secret.key +++ /dev/null @@ -1,33 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.7 (Darwin) - -lQHhBEa4o04RBADc+2sFcnuTTaqcKRTmSBQKdXvumT4GoATk194UYMghwprrNb1/ -flXQRk9zLkc0YENFHLMoRUmXKEF+WFxzXrZgHJS096tGn+Ud2FXQbSL47Vl3EHng -c+jSvvVaZRcEySaCyQrsDR7gWlQtCbxbe96Y2x9jX3Zbih9UYnRvWBeczwCg4tgz -EOmScnWiwUdyZNQsvXDqvKUD/REf0WjWDaykQvXYZ0aTpc/WMBsDS16nl8GNz5eD -lCB/JJHKh5QDu89p0557AbVDSi5LCOYAM+v4oi8k5zgiO/7HJptirDkZ27Ichyes -kzhu3Xr9rPLawie/o4FCfncNLbOAEE4EjEGDGRlyowAaXlW7DWT+TLbxY0qL0uHy -AQPGA/9AmYHBJQqHTfQ4/QXdCnp+UwYs+rhPh7YHymBLn8Saa14heE9SZcYfSerL -FAE7KKeBx96+RplgsiaqfWrliUwrV3KnnJICMyqWmn2OyMYiV9iFWqAHFTCsitS2 -q1COv5/Lg1a+XkAwEfoIuLrAXT8buIxXs/BhLc1PD1t9My8srf4DAwKhnHYPLWS2 -9GBnewzagq2czolDuKHrmtb1Eiv4mb4S8X6HhSn4gQSUJ59mVsn7L1TwK7yWJgK0 -+Ix66LQdUlQgVGVzdCA8cnQtdGVzdEBleGFtcGxlLmNvbT6IYAQTEQIAIAUCRrij -TgIbAwYLCQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJENMoA12EiB8bMZoAoIxLNWQ9 -d9+W4ImPMpUmjLl9ttxWAJ9ELlhkfdhPukRe508p5fZqKUfl/p0CYwRGuKNhEAgA -jSKFedFcU9RjLmSEGo7E4qMQWOtiNooW4NtRsKC2cbJXnGJUOT+GBzGCxjBZt89T -6MVsOy7DoAzs+xWKA5CfgFEX5xZWM1c6EA4f7LhC1hawtGQkMQIyHzEy9b7NPEcM -lkdOebjjhZ4Ob8svGilyQ9jN6zpR2c36i0sLaZ5gORIHJ9DOX1k5lUzEhkogEYoY -of48VQwHt/5xUURli2kLDaqi+X2+6j/vNp96EQ3sbFifmNejWNaDyyrlyGUvx9g/ -Eh5wMRospmFA/oE1kSwstKiBxAPs11OJGBRre2Q6QVW2ULAhxZOFgkCq0DNb8TMn -hJOY4jhOP57rrvpMyu9q4wADBQgAhRl4aiej9lX+YpZUcyhBkqIB/cDwYemmtIWz -o6mVWuDuVcyLl//sJsBipwJF6O5nr0ZC5CT+GRgjBmh9rQjv/UtWBldJ7og/HfuS -MG6xIfljO2FxKjabDhGaiKzgTk75LnPqfx0FeRNbN78dPy4hV/iIvHPANuyUlmbB -sx9hSGqMc78FIDwwfZtBim5XUJbpHsahu4/8agQLBu+PFK+5CIVWskrYVL1R66nP -HCzsfYcOv+1CYCsuFldGtFNPCegGxE7T7CFs7m7aYeSdgycNaR9wuBZeV17JnOJ2 -z/mtsR+8p4vZZzSMcTkjf1j7UCgiKS/ioTD03pU/OZEy9+l1Sf4DAwKhnHYPLWS2 -9GBUcgG+SE35K+ynz0mpxRRx4kbgN9Ap6oxzhDYVGRbfDpVxE8hgJuc7zJ27pmPr -VwmdzDROCDy1W9bwjfrV8yhln81npumXxndSiEkEGBECAAkFAka4o2ECGwwACgkQ -0ygDXYSIHxs69QCgxvFIuPg6xpgRDUXE5+xc9GZI9VYAn3U+8U7AuSGybzySM8Ah -zyjKaN3s -=cv/+ ------END PGP PRIVATE KEY BLOCK----- diff --git a/rt/t/delegation/cleanup_stalled.t b/rt/t/delegation/cleanup_stalled.t deleted file mode 100644 index f108ecc..0000000 --- a/rt/t/delegation/cleanup_stalled.t +++ /dev/null @@ -1,458 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -# Regression test suite for http://rt3.fsck.com/Ticket/Display.html?id=6184 -# and related corner cases related to cleanup of delegated ACEs when -# the delegator loses the right to delegate. This causes complexities -# due to the fact that multiple ACEs can grant different delegation -# rights to a principal, and because DelegateRights and SuperUser can -# themselves be delegated. - -# The case where the "parent" delegated ACE is removed is handled in -# the embedded regression tests in lib/RT/ACE_Overlay.pm . - - -use RT; - -use RT::Test tests => 98; - -my ($u1, $u2, $g1, $g2, $g3, $pg1, $pg2, $ace, @groups, @users, @principals); -@groups = (\$g1, \$g2, \$g3, \$pg1, \$pg2); -@users = (\$u1, \$u2); -@principals = (@groups, @users); - -my($ret, $msg); - -$u1 = RT::User->new($RT::SystemUser); -( $ret, $msg ) = $u1->LoadOrCreateByEmail('delegtest1@example.com'); -ok( $ret, "Load / Create test user 1: $msg" ); -$u1->SetPrivileged(1); -$u2 = RT::User->new($RT::SystemUser); -( $ret, $msg ) = $u2->LoadOrCreateByEmail('delegtest2@example.com'); -ok( $ret, "Load / Create test user 2: $msg" ); -$u2->SetPrivileged(1); -$g1 = RT::Group->new($RT::SystemUser); -( $ret, $msg) = $g1->LoadUserDefinedGroup('dg1'); -unless ($ret) { - ( $ret, $msg ) = $g1->CreateUserDefinedGroup( Name => 'dg1' ); -} -ok( $ret, "Load / Create test group 1: $msg" ); -$g2 = RT::Group->new($RT::SystemUser); -( $ret, $msg) = $g2->LoadUserDefinedGroup('dg2'); -unless ($ret) { - ( $ret, $msg ) = $g2->CreateUserDefinedGroup( Name => 'dg2' ); -} -ok( $ret, "Load / Create test group 2: $msg" ); -$g3 = RT::Group->new($RT::SystemUser); -( $ret, $msg) = $g3->LoadUserDefinedGroup('dg3'); -unless ($ret) { - ( $ret, $msg ) = $g3->CreateUserDefinedGroup( Name => 'dg3' ); -} -ok( $ret, "Load / Create test group 3: $msg" ); -$pg1 = RT::Group->new($RT::SystemUser); -( $ret, $msg ) = $pg1->LoadPersonalGroup( Name => 'dpg1', - User => $u1->PrincipalId ); -unless ($ret) { - ( $ret, $msg ) = $pg1->CreatePersonalGroup( Name => 'dpg1', - PrincipalId => $u1->PrincipalId ); -} -ok( $ret, "Load / Create test personal group 1: $msg" ); -$pg2 = RT::Group->new($RT::SystemUser); -( $ret, $msg ) = $pg2->LoadPersonalGroup( Name => 'dpg2', - User => $u2->PrincipalId ); -unless ($ret) { - ( $ret, $msg ) = $pg2->CreatePersonalGroup( Name => 'dpg2', - PrincipalId => $u2->PrincipalId ); -} -ok( $ret, "Load / Create test personal group 2: $msg" ); - - - -# Basic case: u has global DelegateRights through g1 and ShowConfigTab -# through g2; then u is removed from g1. - -clear_acls_and_groups(); - -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'DelegateRights' ); -ok( $ret, "Grant DelegateRights to g1: $msg" ); -( $ret, $msg ) = $g2->PrincipalObj->GrantRight( Right => 'ShowConfigTab' ); -ok( $ret, "Grant ShowConfigTab to g2: $msg" ); -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -ok( - $u1->PrincipalObj->HasRight( - Right => 'DelegateRights', - Object => $RT::System - ), - "test user 1 has DelegateRights after joining g1" -); -( $ret, $msg ) = $g2->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g2: $msg" ); -ok( - $u1->PrincipalObj->HasRight( - Right => 'ShowConfigTab', - Object => $RT::System - ), - "test user 1 has ShowConfigTab after joining g2" -); - -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'ShowConfigTab', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g2->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg1: $msg" ); -ok( - $pg1->PrincipalObj->HasRight( - Right => 'ShowConfigTab', - Object => $RT::System - ), - "Test personal group 1 has ShowConfigTab right after delegation" -); - -( $ret, $msg ) = $g1->DeleteMember( $u1->PrincipalId ); -ok( $ret, "Delete test user 1 from g1: $msg" ); -ok( - not( - $pg1->PrincipalObj->HasRight( - Right => 'ShowConfigTab', - Object => $RT::System - ) - ), - "Test personal group 1 lacks ShowConfigTab right after user removed from g1" -); - -# Basic case: u has global DelegateRights through g1 and ShowConfigTab -# through g2; then DelegateRights revoked from g1. - -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg1: $msg" ); -( $ret, $msg ) = $g1->PrincipalObj->RevokeRight( Right => 'DelegateRights' ); -ok( $ret, "Revoke DelegateRights from g1: $msg" ); -ok( - not( - $pg1->PrincipalObj->HasRight( - Right => 'ShowConfigTab', - Object => $RT::System - ) - ), - "Test personal group 1 lacks ShowConfigTab right after DelegateRights revoked from g1" -); - - - -# Corner case - restricted delegation: u has DelegateRights on pg1 -# through g1 and AdminGroup on pg1 through g2; then DelegateRights -# revoked from g1. - -clear_acls_and_groups(); - -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'DelegateRights', - Object => $pg1); -ok( $ret, "Grant DelegateRights on pg1 to g1: $msg" ); -( $ret, $msg ) = $g2->PrincipalObj->GrantRight( Right => 'AdminGroup', - Object => $pg1); -ok( $ret, "Grant AdminGroup on pg1 to g2: $msg" ); -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -( $ret, $msg ) = $g2->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g2: $msg" ); -ok( $u1->PrincipalObj->HasRight( - Right => 'DelegateRights', - Object => $pg1 ), - "test user 1 has DelegateRights on pg1 after joining g1" ); -ok( not( $u1->PrincipalObj->HasRight( - Right => 'DelegateRights', - Object => $RT::System )), - "Test personal group 1 lacks global DelegateRights after joining g1" ); -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'AdminGroup', - Object => $pg1, - PrincipalType => 'Group', - PrincipalId => $g2->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate AdminGroup on pg1 to pg1: $msg" ); -ok( $pg1->PrincipalObj->HasRight( - Right => 'AdminGroup', - Object => $pg1 ), - "Test personal group 1 has AdminGroup right on pg1 after delegation" ); -( $ret, $msg ) = $g1->PrincipalObj->RevokeRight ( Right => 'DelegateRights', - Object => $pg1 ); -ok( $ret, "Revoke DelegateRights on pg1 from g1: $msg" ); -ok( not( $pg1->PrincipalObj->HasRight( - Right => 'AdminGroup', - Object => $pg1 )), - "Test personal group 1 lacks AdminGroup right on pg1 after DelegateRights revoked from g1" ); -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'DelegateRights', - Object => $pg1); - -# Corner case - restricted delegation: u has DelegateRights on pg1 -# through g1 and AdminGroup on pg1 through g2; then u removed from g1. - -ok( $ret, "Grant DelegateRights on pg1 to g1: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate AdminGroup on pg1 to pg1: $msg" ); -ok( $pg1->PrincipalObj->HasRight( - Right => 'AdminGroup', - Object => $pg1 ), - "Test personal group 1 has AdminGroup right on pg1 after delegation" ); -( $ret, $msg ) = $g1->DeleteMember( $u1->PrincipalId ); -ok( $ret, "Delete test user 1 from g1: $msg" ); -ok( not( $pg1->PrincipalObj->HasRight( - Right => 'AdminGroup', - Object => $pg1 )), - "Test personal group 1 lacks AdminGroup right on pg1 after user removed from g1" ); - -clear_acls_and_groups(); - - - -# Corner case - multiple delegation rights: u has global -# DelegateRights directly and DelegateRights on pg1 through g1, and -# AdminGroup on pg1 through g2; then u removed from g1 (delegation -# should remain); then DelegateRights revoked from u (delegation -# should not remain). - -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'DelegateRights', - Object => $pg1); -ok( $ret, "Grant DelegateRights on pg1 to g1: $msg" ); -( $ret, $msg ) = $g2->PrincipalObj->GrantRight( Right => 'AdminGroup', - Object => $pg1); -ok( $ret, "Grant AdminGroup on pg1 to g2: $msg" ); -( $ret, $msg ) = $u1->PrincipalObj->GrantRight( Right => 'DelegateRights', - Object => $RT::System); -ok( $ret, "Grant DelegateRights to user: $msg" ); -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -( $ret, $msg ) = $g2->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g2: $msg" ); -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'AdminGroup', - Object => $pg1, - PrincipalType => 'Group', - PrincipalId => $g2->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate AdminGroup on pg1 to pg1: $msg" ); -( $ret, $msg ) = $g1->DeleteMember( $u1->PrincipalId ); -ok( $ret, "Delete test user 1 from g1: $msg" ); -ok( $pg1->PrincipalObj->HasRight(Right => 'AdminGroup', - Object => $pg1), - "Test personal group 1 retains AdminGroup right on pg1 after user removed from g1" ); -( $ret, $msg ) = $u1->PrincipalObj->RevokeRight( Right => 'DelegateRights', - Object => $RT::System ); -ok( not ($pg1->PrincipalObj->HasRight(Right => 'AdminGroup', - Object => $pg1)), - "Test personal group 1 lacks AdminGroup right on pg1 after DelegateRights revoked"); - -# Corner case - multiple delegation rights and selectivity: u has -# DelegateRights globally and on g2 directly and DelegateRights on pg1 -# through g1, and AdminGroup on pg1 through g2; then global -# DelegateRights revoked from u (delegation should remain), -# DelegateRights on g2 revoked from u (delegation should remain), and -# u removed from g1 (delegation should not remain). - -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -( $ret, $msg ) = $u1->PrincipalObj->GrantRight( Right => 'DelegateRights', - Object => $RT::System); -ok( $ret, "Grant DelegateRights to user: $msg" ); -( $ret, $msg ) = $u1->PrincipalObj->GrantRight( Right => 'DelegateRights', - Object => $g2); -ok( $ret, "Grant DelegateRights on g2 to user: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate AdminGroup on pg1 to pg1: $msg" ); -( $ret, $msg ) = $u1->PrincipalObj->RevokeRight( Right => 'DelegateRights', - Object => $RT::System ); -ok( $pg1->PrincipalObj->HasRight(Right => 'AdminGroup', - Object => $pg1), - "Test personal group 1 retains AdminGroup right on pg1 after global DelegateRights revoked" ); -( $ret, $msg ) = $u1->PrincipalObj->RevokeRight( Right => 'DelegateRights', - Object => $g2 ); -ok( $pg1->PrincipalObj->HasRight(Right => 'AdminGroup', - Object => $pg1), - "Test personal group 1 retains AdminGroup right on pg1 after DelegateRights on g2 revoked" ); -( $ret, $msg ) = $g1->DeleteMember( $u1->PrincipalId ); -ok( $ret, "Delete test user 1 from g1: $msg" ); -ok( not ($pg1->PrincipalObj->HasRight(Right => 'AdminGroup', - Object => $pg1)), - "Test personal group 1 lacks AdminGroup right on pg1 after user removed from g1"); - - - -# Corner case - indirect delegation rights: u has DelegateRights -# through g1 via g3, and ShowConfigTab via g2; then g3 removed from -# g1. - -clear_acls_and_groups(); - -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'DelegateRights' ); -ok( $ret, "Grant DelegateRights to g1: $msg" ); -( $ret, $msg ) = $g2->PrincipalObj->GrantRight( Right => 'ShowConfigTab' ); -ok( $ret, "Grant ShowConfigTab to g2: $msg" ); -( $ret, $msg ) = $g1->AddMember( $g3->PrincipalId ); -ok( $ret, "Add g3 to g1: $msg" ); -( $ret, $msg ) = $g3->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g3: $msg" ); -( $ret, $msg ) = $g2->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g2: $msg" ); - -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'ShowConfigTab', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g2->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg1: $msg" ); - -( $ret, $msg ) = $g1->DeleteMember( $g3->PrincipalId ); -ok( $ret, "Delete g3 from g1: $msg" ); -ok( not ($pg1->PrincipalObj->HasRight(Right => 'ShowConfigTab', - Object => $RT::System)), - "Test personal group 1 lacks ShowConfigTab right after g3 removed from g1"); - -# Corner case - indirect delegation rights: u has DelegateRights -# through g1 via g3, and ShowConfigTab via g2; then DelegateRights -# revoked from g1. - -( $ret, $msg ) = $g1->AddMember( $g3->PrincipalId ); -ok( $ret, "Add g3 to g1: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg1: $msg" ); -( $ret, $msg ) = $g1->PrincipalObj->RevokeRight ( Right => 'DelegateRights' ); -ok( $ret, "Revoke DelegateRights from g1: $msg" ); - -ok( not ($pg1->PrincipalObj->HasRight(Right => 'ShowConfigTab', - Object => $RT::System)), - "Test personal group 1 lacks ShowConfigTab right after DelegateRights revoked from g1"); - - - -# Corner case - delegation of DelegateRights: u1 has DelegateRights -# via g1 and delegates DelegateRights to pg1; u2 has DelegateRights -# via pg1 and ShowConfigTab via g2; then u1 removed from g1. - -clear_acls_and_groups(); - -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'DelegateRights' ); -ok( $ret, "Grant DelegateRights to g1: $msg" ); -( $ret, $msg ) = $g2->PrincipalObj->GrantRight( Right => 'ShowConfigTab' ); -ok( $ret, "Grant ShowConfigTab to g2: $msg" ); -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'DelegateRights', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g1->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate DelegateRights to pg1: $msg" ); - -( $ret, $msg ) = $pg1->AddMember( $u2->PrincipalId ); -ok( $ret, "Add test user 2 to pg1: $msg" ); -( $ret, $msg ) = $g2->AddMember( $u2->PrincipalId ); -ok( $ret, "Add test user 2 to g2: $msg" ); -$ace = RT::ACE->new($u2); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'ShowConfigTab', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g2->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg2->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg2: $msg" ); - -ok( $pg2->PrincipalObj->HasRight(Right => 'ShowConfigTab', - Object => $RT::System), - "Test personal group 2 has ShowConfigTab right after delegation"); -( $ret, $msg ) = $g1->DeleteMember( $u1->PrincipalId ); -ok( $ret, "Delete u1 from g1: $msg" ); -ok( not ($pg2->PrincipalObj->HasRight(Right => 'ShowConfigTab', - Object => $RT::System)), - "Test personal group 2 lacks ShowConfigTab right after u1 removed from g1"); - -# Corner case - delegation of DelegateRights: u1 has DelegateRights -# via g1 and delegates DelegateRights to pg1; u2 has DelegateRights -# via pg1 and ShowConfigTab via g2; then DelegateRights revoked from -# g1. - -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add u1 to g1: $msg" ); -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'DelegateRights', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g1->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate DelegateRights to pg1: $msg" ); -$ace = RT::ACE->new($u2); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'ShowConfigTab', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g2->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg2->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg2: $msg" ); - -( $ret, $msg ) = $g1->PrincipalObj->RevokeRight ( Right => 'DelegateRights' ); -ok( $ret, "Revoke DelegateRights from g1: $msg" ); -ok( not ($pg2->PrincipalObj->HasRight(Right => 'ShowConfigTab', - Object => $RT::System)), - "Test personal group 2 lacks ShowConfigTab right after DelegateRights revoked from g1"); - - - - -####### - -sub clear_acls_and_groups { - # Revoke all rights granted to our cast - my $acl = RT::ACL->new($RT::SystemUser); - foreach (@principals) { - $acl->LimitToPrincipal(Type => $$_->PrincipalObj->PrincipalType, - Id => $$_->PrincipalObj->Id); - } - while (my $ace = $acl->Next()) { - $ace->Delete(); - } - - # Remove all group memberships - my $members = RT::GroupMembers->new($RT::SystemUser); - foreach (@groups) { - $members->LimitToMembersOfGroup( $$_->PrincipalId ); - } - while (my $member = $members->Next()) { - $member->Delete(); - } - - $acl->RedoSearch(); - is( $acl->Count() , 0, - "All principals have no rights after clearing ACLs" ); - $members->RedoSearch(); - is( $members->Count() , 0, - "All groups have no members after clearing groups" ); -} diff --git a/rt/t/delegation/revocation.t b/rt/t/delegation/revocation.t deleted file mode 100644 index 151525e..0000000 --- a/rt/t/delegation/revocation.t +++ /dev/null @@ -1,135 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT; - -use RT::Test tests => 22; - -my ($u1, $g1, $pg1, $pg2, $ace, @groups, @users, @principals); -@groups = (\$g1, \$pg1, \$pg2); -@users = (\$u1); -@principals = (@groups, @users); - -my($ret, $msg); - -$u1 = RT::User->new($RT::SystemUser); -( $ret, $msg ) = $u1->LoadOrCreateByEmail('delegtest1@example.com'); -ok( $ret, "Load / Create test user 1: $msg" ); -$u1->SetPrivileged(1); - -$g1 = RT::Group->new($RT::SystemUser); -( $ret, $msg) = $g1->LoadUserDefinedGroup('dg1'); -unless ($ret) { - ( $ret, $msg ) = $g1->CreateUserDefinedGroup( Name => 'dg1' ); -} -$pg1 = RT::Group->new($RT::SystemUser); -( $ret, $msg ) = $pg1->LoadPersonalGroup( Name => 'dpg1', - User => $u1->PrincipalId ); -unless ($ret) { - ( $ret, $msg ) = $pg1->CreatePersonalGroup( Name => 'dpg1', - PrincipalId => $u1->PrincipalId ); -} -ok( $ret, "Load / Create test personal group 1: $msg" ); -$pg2 = RT::Group->new($RT::SystemUser); -( $ret, $msg ) = $pg2->LoadPersonalGroup( Name => 'dpg2', - User => $u1->PrincipalId ); -unless ($ret) { - ( $ret, $msg ) = $pg2->CreatePersonalGroup( Name => 'dpg2', - PrincipalId => $u1->PrincipalId ); -} -ok( $ret, "Load / Create test personal group 2: $msg" ); - -clear_acls_and_groups(); - -( $ret, $msg ) = $u1->PrincipalObj->GrantRight( Right => 'DelegateRights' ); -ok( $ret, "Grant DelegateRights to u1: $msg" ); -( $ret, $msg ) = $g1->PrincipalObj->GrantRight( Right => 'ShowConfigTab' ); -ok( $ret, "Grant ShowConfigTab to g1: $msg" ); -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); - -$ace = RT::ACE->new($u1); -( $ret, $msg ) = $ace->LoadByValues( - RightName => 'ShowConfigTab', - Object => $RT::System, - PrincipalType => 'Group', - PrincipalId => $g1->PrincipalId -); -ok( $ret, "Look up ACE to be delegated: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg1: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg2->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg2: $msg" ); - -ok(( $pg1->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System ) and - $pg2->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System )), - "Test personal groups have ShowConfigTab right after delegation" ); - -( $ret, $msg ) = $g1->DeleteMember( $u1->PrincipalId ); -ok( $ret, "Delete test user 1 from g1: $msg" ); - -ok( not( $pg1->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System )), - "Test personal group 1 lacks ShowConfigTab after user removed from g1" ); -ok( not( $pg2->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System )), - "Test personal group 2 lacks ShowConfigTab after user removed from g1" ); - -( $ret, $msg ) = $g1->AddMember( $u1->PrincipalId ); -ok( $ret, "Add test user 1 to g1: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg1->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg1: $msg" ); -( $ret, $msg ) = $ace->Delegate( PrincipalId => $pg2->PrincipalId ); -ok( $ret, "Delegate ShowConfigTab to pg2: $msg" ); - -ok(( $pg1->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System ) and - $pg2->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System )), - "Test personal groups have ShowConfigTab right after delegation" ); - -( $ret, $msg ) = $g1->PrincipalObj->RevokeRight( Right => 'ShowConfigTab' ); -ok( $ret, "Revoke ShowConfigTab from g1: $msg" ); - -ok( not( $pg1->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System )), - "Test personal group 1 lacks ShowConfigTab after user removed from g1" ); -ok( not( $pg2->PrincipalObj->HasRight( Right => 'ShowConfigTab', - Object => $RT::System )), - "Test personal group 2 lacks ShowConfigTab after user removed from g1" ); - - - -####### - -sub clear_acls_and_groups { - # Revoke all rights granted to our cast - my $acl = RT::ACL->new($RT::SystemUser); - foreach (@principals) { - $acl->LimitToPrincipal(Type => $$_->PrincipalObj->PrincipalType, - Id => $$_->PrincipalObj->Id); - } - while (my $ace = $acl->Next()) { - $ace->Delete(); - } - - # Remove all group memberships - my $members = RT::GroupMembers->new($RT::SystemUser); - foreach (@groups) { - $members->LimitToMembersOfGroup( $$_->PrincipalId ); - } - while (my $member = $members->Next()) { - $member->Delete(); - } - - $acl->RedoSearch(); - is( $acl->Count() , 0, - "All principals have no rights after clearing ACLs" ); - $members->RedoSearch(); - is( $members->Count() , 0, - "All groups have no members after clearing groups" ); -} diff --git a/rt/t/i18n/default.t b/rt/t/i18n/default.t deleted file mode 100644 index 6c9842a..0000000 --- a/rt/t/i18n/default.t +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -use RT::Test tests => 8; - -my ($baseurl, $m) = RT::Test->started_ok; -$m->get_ok('/'); -$m->title_is('Login'); - -$m->get_ok('/', { 'Accept-Language' => 'x-klingon' }); -$m->title_is('Login', 'unavailable language fallback to en'); - -$m->add_header('Accept-Language' => 'zh-tw,zh;q=0.8,en-gb;q=0.5,en;q=0.3'); -$m->get_ok('/'); -use utf8; -Encode::_utf8_on($m->{content}); -$m->title_is('登入', 'Page title properly translated to chinese'); -$m->content_contains('密碼','Password properly translated'); diff --git a/rt/t/mail/charsets-outgoing.t b/rt/t/mail/charsets-outgoing.t deleted file mode 100644 index e8f78cc..0000000 --- a/rt/t/mail/charsets-outgoing.t +++ /dev/null @@ -1,331 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -use Encode; - -use RT::Test tests => 78; - -my %string = ( - ru => { - test => "\x{442}\x{435}\x{441}\x{442}", - autoreply => "\x{410}\x{432}\x{442}\x{43e}\x{43e}\x{442}\x{432}\x{435}\x{442}", - support => "\x{43f}\x{43e}\x{434}\x{434}\x{435}\x{440}\x{436}\x{43a}\x{430}", - }, - latin1 => { - test => Encode::decode('latin1', "t\xE9st"), - autoreply => Encode::decode('latin1', "a\xFCtoreply"), - support => Encode::decode('latin1', "supp\xF5rt"), - }, -); - -RT::Test->set_mail_catcher; - -my $queue = RT::Test->load_or_create_queue( - Name => 'Regression', - CorrespondAddress => 'rt-recipient@example.com', - CommentAddress => 'rt-recipient@example.com', -); -ok $queue && $queue->id, 'loaded or created queue'; - -diag "make sure queue has no subject tag" if $ENV{'TEST_VERBOSE'}; -{ - my ($status, $msg) = $queue->SetSubjectTag( undef ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; -} - -diag "set intial simple autoreply template" if $ENV{'TEST_VERBOSE'}; -{ - my $template = RT::Template->new( $RT::SystemUser ); - $template->Load('Autoreply'); - ok $template->id, "loaded autoreply tempalte"; - - my ($status, $msg) = $template->SetContent( - "Subject: Autreply { \$Ticket->Subject }\n" - ."\n" - ."hi there it's an autoreply.\n" - ."\n" - ); - ok $status, "changed content of the template" - or diag "error: $msg"; -} - -diag "basic test of autoreply" if $ENV{'TEST_VERBOSE'}; -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => 'test', - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; -} - -diag "non-ascii Subject with ascii prefix set in the template" - if $ENV{'TEST_VERBOSE'}; -foreach my $set ( 'ru', 'latin1' ) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => $string{$set}{test}, - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$set}{test}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -foreach my $tag_set ( 'ru', 'latin1' ) { - -diag "set non-ascii subject tag for the queue" if $ENV{'TEST_VERBOSE'}; -{ - my ($status, $msg) = $queue->SetSubjectTag( $string{$tag_set}{support} ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; -} - -diag "ascii subject with non-ascii subject tag" if $ENV{'TEST_VERBOSE'}; -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => 'test', - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$tag_set}{support}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -diag "non-ascii subject with non-ascii subject tag" if $ENV{'TEST_VERBOSE'}; -foreach my $set ( 'ru', 'latin1' ) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => $string{$set}{test}, - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$tag_set}{support}/ - or do { $status = 0; diag "wrong subject: $subject" }; - $subject =~ /$string{$set}{test}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -} # subject tag - -diag "return back the empty subject tag" if $ENV{'TEST_VERBOSE'}; -{ - my ($status, $msg) = $queue->SetSubjectTag( undef ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; -} - - -foreach my $prefix_set ( 'ru', 'latin1' ) { - -diag "add non-ascii subject prefix in the autoreply template" if $ENV{'TEST_VERBOSE'}; -{ - my $template = RT::Template->new( $RT::SystemUser ); - $template->Load('Autoreply'); - ok $template->id, "loaded autoreply tempalte"; - - my ($status, $msg) = $template->SetContent( - "Subject: $string{$prefix_set}{autoreply} { \$Ticket->Subject }\n" - ."\n" - ."hi there it's an autoreply.\n" - ."\n" - ); - ok $status, "changed content of the template" or diag "error: $msg"; -} - -diag "ascii subject with non-ascii subject prefix in template" if $ENV{'TEST_VERBOSE'}; -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => 'test', - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$prefix_set}{autoreply}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -diag "non-ascii subject with non-ascii subject prefix in template" - if $ENV{'TEST_VERBOSE'}; -foreach my $set ( 'ru', 'latin1' ) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => $string{$set}{test}, - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$prefix_set}{autoreply}/ - or do { $status = 0; diag "wrong subject: $subject" }; - $subject =~ /$string{$set}{test}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -foreach my $tag_set ( 'ru', 'latin1' ) { -diag "set non-ascii subject tag for the queue" if $ENV{'TEST_VERBOSE'}; -{ - my ($status, $msg) = $queue->SetSubjectTag( $string{$tag_set}{support} ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; -} - -diag "non-ascii subject, non-ascii prefix in template and non-ascii tag" - if $ENV{'TEST_VERBOSE'}; -foreach my $set ( 'ru', 'latin1' ) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => $string{$set}{test}, - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$prefix_set}{autoreply}/ - or do { $status = 0; diag "wrong subject: $subject" }; - $subject =~ /$string{$tag_set}{support}/ - or do { $status = 0; diag "wrong subject: $subject" }; - $subject =~ /$string{$set}{test}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -} # subject tag - -diag "flush subject tag of the queue" if $ENV{'TEST_VERBOSE'}; -{ - my ($status, $msg) = $queue->SetSubjectTag( undef ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; -} - -} # prefix set - - -diag "don't change subject via template" if $ENV{'TEST_VERBOSE'}; -# clean DB has autoreply that always changes subject in template, -# we should test situation when subject is not changed from template -{ - my $template = RT::Template->new( $RT::SystemUser ); - $template->Load('Autoreply'); - ok $template->id, "loaded autoreply tempalte"; - - my ($status, $msg) = $template->SetContent( - "\n" - ."\n" - ."hi there it's an autoreply.\n" - ."\n" - ); - ok $status, "changed content of the template" or diag "error: $msg"; -} - -diag "non-ascii Subject without changes in template" if $ENV{'TEST_VERBOSE'}; -foreach my $set ( 'ru', 'latin1' ) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => $string{$set}{test}, - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$set}{test}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -foreach my $tag_set ( 'ru', 'latin1' ) { -diag "set non-ascii subject tag for the queue" if $ENV{'TEST_VERBOSE'}; -{ - my ($status, $msg) = $queue->SetSubjectTag( $string{$tag_set}{support} ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; -} - -diag "non-ascii Subject without changes in template and with non-ascii subject tag" - if $ENV{'TEST_VERBOSE'}; -foreach my $set ( 'ru', 'latin1' ) { - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Create( - Queue => $queue->id, - Subject => $string{$set}{test}, - Requestor => 'root@localhost', - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = Encode::decode_utf8( $entity->head->get('Subject') ); - $subject =~ /$string{$set}{test}/ - or do { $status = 0; diag "wrong subject: $subject" }; - $subject =~ /$string{$tag_set}{support}/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "all mails have correct data"; -} - -} # subject tag set - -sub parse_mail { - my $mail = shift; - require RT::EmailParser; - my $parser = new RT::EmailParser; - $parser->ParseMIMEEntityFromScalar( $mail ); - return $parser->Entity; -} - diff --git a/rt/t/mail/crypt-gnupg.t b/rt/t/mail/crypt-gnupg.t deleted file mode 100644 index f33fbab..0000000 --- a/rt/t/mail/crypt-gnupg.t +++ /dev/null @@ -1,312 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use RT::Test nodata => 1, tests => 92; -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use File::Spec (); -use Cwd; - -my $homedir = RT::Test::get_abs_relocatable_dir(File::Spec->updir(), - qw(data gnupg keyrings) ); - -mkdir $homedir; - -use_ok('RT::Crypt::GnuPG'); -use_ok('MIME::Entity'); - -RT->Config->Set( 'GnuPG', - Enable => 1, - OutgoingMessagesFormat => 'RFC' ); - -RT->Config->Set( 'GnuPGOptions', - homedir => $homedir, - 'no-permission-warning' => undef, -); - - -diag 'only signing. correct passphrase' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Encrypt => 0, Passphrase => 'test' ); - ok( $entity, 'signed entity'); - ok( !$res{'logger'}, "log is here as well" ) or diag $res{'logger'}; - my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} ); - is( scalar @status, 2, 'two records: passphrase, signing'); - is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct'); - is( $status[0]->{'Status'}, 'DONE', 'good passphrase'); - is( $status[1]->{'Operation'}, 'Sign', 'operation is correct'); - is( $status[1]->{'Status'}, 'DONE', 'done'); - is( $status[1]->{'User'}->{'EmailAddress'}, 'rt@example.com', 'correct email'); - - ok( $entity->is_multipart, 'signed message is multipart' ); - is( $entity->parts, 2, 'two parts' ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 1, 'one protected part' ); - is( $parts[0]->{'Type'}, 'signed', "have signed part" ); - is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" ); - is( $parts[0]->{'Top'}, $entity, "it's the same entity" ); - - my @res = RT::Crypt::GnuPG::VerifyDecrypt( Entity => $entity ); - is scalar @res, 1, 'one operation'; - @status = RT::Crypt::GnuPG::ParseStatus( $res[0]{'status'} ); - is( scalar @status, 1, 'one record'); - is( $status[0]->{'Operation'}, 'Verify', 'operation is correct'); - is( $status[0]->{'Status'}, 'DONE', 'good passphrase'); - is( $status[0]->{'Trust'}, 'ULTIMATE', 'have trust value'); -} - -diag 'only signing. missing passphrase' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Encrypt => 0, Passphrase => '' ); - ok( $res{'exit_code'}, "couldn't sign without passphrase"); - ok( $res{'error'} || $res{'logger'}, "error is here" ); - - my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} ); - is( scalar @status, 1, 'one record'); - is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct'); - is( $status[0]->{'Status'}, 'MISSING', 'missing passphrase'); -} - -diag 'only signing. wrong passphrase' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Encrypt => 0, Passphrase => 'wrong' ); - ok( $res{'exit_code'}, "couldn't sign with bad passphrase"); - ok( $res{'error'} || $res{'logger'}, "error is here" ); - - my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} ); - is( scalar @status, 1, 'one record'); - is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct'); - is( $status[0]->{'Status'}, 'BAD', 'wrong passphrase'); -} - -diag 'encryption only' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( !$res{'exit_code'}, "successful encryption" ); - ok( !$res{'logger'}, "no records in logger" ); - - my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} ); - is( scalar @status, 1, 'one record'); - is( $status[0]->{'Operation'}, 'Encrypt', 'operation is correct'); - is( $status[0]->{'Status'}, 'DONE', 'done'); - - ok($entity, 'get an encrypted part'); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 1, 'one protected part' ); - is( $parts[0]->{'Type'}, 'encrypted', "have encrypted part" ); - is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" ); - is( $parts[0]->{'Top'}, $entity, "it's the same entity" ); -} - -diag 'encryption only, bad recipient' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'keyless@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( $res{'exit_code'}, 'no way to encrypt without keys of recipients'); - ok( $res{'logger'}, "errors are in logger" ); - - my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} ); - is( scalar @status, 1, 'one record'); - is( $status[0]->{'Keyword'}, 'INV_RECP', 'invalid recipient'); -} - -diag 'encryption and signing with combined method' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Passphrase => 'test' ); - ok( !$res{'exit_code'}, "successful encryption with signing" ); - ok( !$res{'logger'}, "no records in logger" ); - - my @status = RT::Crypt::GnuPG::ParseStatus( $res{'status'} ); - is( scalar @status, 3, 'three records: passphrase, sign and encrypt'); - is( $status[0]->{'Operation'}, 'PassphraseCheck', 'operation is correct'); - is( $status[0]->{'Status'}, 'DONE', 'done'); - is( $status[1]->{'Operation'}, 'Sign', 'operation is correct'); - is( $status[1]->{'Status'}, 'DONE', 'done'); - is( $status[2]->{'Operation'}, 'Encrypt', 'operation is correct'); - is( $status[2]->{'Status'}, 'DONE', 'done'); - - ok($entity, 'get an encrypted and signed part'); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 1, 'one protected part' ); - is( $parts[0]->{'Type'}, 'encrypted', "have encrypted part" ); - is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" ); - is( $parts[0]->{'Top'}, $entity, "it's the same entity" ); -} - -diag 'encryption and signing with cascading, sign on encrypted' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( !$res{'exit_code'}, 'successful encryption' ); - ok( !$res{'logger'}, "no records in logger" ); - %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Encrypt => 0, Passphrase => 'test' ); - ok( !$res{'exit_code'}, 'successful signing' ); - ok( !$res{'logger'}, "no records in logger" ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 1, 'one protected part, top most' ); - is( $parts[0]->{'Type'}, 'signed', "have signed part" ); - is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" ); - is( $parts[0]->{'Top'}, $entity, "it's the same entity" ); -} - -diag 'find signed/encrypted part deep inside' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( !$res{'exit_code'}, "success" ); - $entity->make_multipart( 'mixed', Force => 1 ); - $entity->attach( - Type => 'text/plain', - Data => ['-'x76, 'this is mailing list'], - ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 1, 'one protected part' ); - is( $parts[0]->{'Type'}, 'encrypted', "have encrypted part" ); - is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" ); - is( $parts[0]->{'Top'}, $entity->parts(0), "it's the same entity" ); -} - -diag 'wrong signed/encrypted parts: no protocol' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( !$res{'exit_code'}, 'success' ); - $entity->head->mime_attr( 'Content-Type.protocol' => undef ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 0, 'no protected parts' ); -} - -diag 'wrong signed/encrypted parts: not enought parts' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( !$res{'exit_code'}, 'success' ); - $entity->parts([ $entity->parts(0) ]); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 0, 'no protected parts' ); -} - -diag 'wrong signed/encrypted parts: wrong proto' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Sign => 0 ); - ok( !$res{'exit_code'}, 'success' ); - $entity->head->mime_attr( 'Content-Type.protocol' => 'application/bad-proto' ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 0, 'no protected parts' ); -} - -diag 'wrong signed/encrypted parts: wrong proto' if $ENV{'TEST_VERBOSE'}; -{ - my $entity = MIME::Entity->build( - From => 'rt@example.com', - To => 'rt@example.com', - Subject => 'test', - Data => ['test'], - ); - my %res = RT::Crypt::GnuPG::SignEncrypt( Entity => $entity, Encrypt => 0, Passphrase => 'test' ); - ok( !$res{'exit_code'}, 'success' ); - $entity->head->mime_attr( 'Content-Type.protocol' => 'application/bad-proto' ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 0, 'no protected parts' ); -} - -diag 'verify inline and in attachment signatures' if $ENV{'TEST_VERBOSE'}; -{ - open my $fh, "$homedir/signed_old_style_with_attachment.eml"; - my $parser = new MIME::Parser; - my $entity = $parser->parse( $fh ); - - my @parts = RT::Crypt::GnuPG::FindProtectedParts( Entity => $entity ); - is( scalar @parts, 2, 'two protected parts' ); - is( $parts[1]->{'Type'}, 'signed', "have signed part" ); - is( $parts[1]->{'Format'}, 'Inline', "inline format" ); - is( $parts[1]->{'Data'}, $entity->parts(0), "it's first part" ); - - is( $parts[0]->{'Type'}, 'signed', "have signed part" ); - is( $parts[0]->{'Format'}, 'Attachment', "attachment format" ); - is( $parts[0]->{'Data'}, $entity->parts(1), "data in second part" ); - is( $parts[0]->{'Signature'}, $entity->parts(2), "file's signature in third part" ); - - my @res = RT::Crypt::GnuPG::VerifyDecrypt( Entity => $entity ); - my @status = RT::Crypt::GnuPG::ParseStatus( $res[0]->{'status'} ); - is( scalar @status, 1, 'one record'); - is( $status[0]->{'Operation'}, 'Verify', 'operation is correct'); - is( $status[0]->{'Status'}, 'DONE', 'good passphrase'); - is( $status[0]->{'Trust'}, 'ULTIMATE', 'have trust value'); - - $parser->filer->purge(); -} - diff --git a/rt/t/mail/extractsubjecttag.t b/rt/t/mail/extractsubjecttag.t deleted file mode 100644 index 5a25488..0000000 --- a/rt/t/mail/extractsubjecttag.t +++ /dev/null @@ -1,98 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -use utf8; - -use RT::Test tests => 14; - - -my ($baseurl, $m) = RT::Test->started_ok; -RT::Test->set_mail_catcher; - -my $queue = RT::Test->load_or_create_queue( - Name => 'Regression', - CorrespondAddress => 'rt-recipient@example.com', - CommentAddress => 'rt-recipient@example.com', -); -my $subject_tag = 'Windows/Servers-Desktops'; -ok $queue && $queue->id, 'loaded or created queue'; - -diag "Set Subject Tag" if $ENV{'TEST_VERBOSE'}; -{ - is(RT->System->SubjectTag($queue), undef, 'No Subject Tag yet'); - my ($status, $msg) = $queue->SetSubjectTag( $subject_tag ); - ok $status, "set subject tag for the queue" or diag "error: $msg"; - is(RT->System->SubjectTag($queue), $subject_tag, "Set Subject Tag to $subject_tag"); -} - -my $original_ticket = RT::Ticket->new( $RT::SystemUser ); -diag "Create a ticket and make sure it has the subject tag" if $ENV{'TEST_VERBOSE'}; -{ - $original_ticket->Create( - Queue => $queue->id, - Subject => 'test', - Requestor => 'root@localhost' - ); - my @mails = RT::Test->fetch_caught_mails; - ok @mails, "got some outgoing emails"; - - my $status = 1; - foreach my $mail ( @mails ) { - my $entity = parse_mail( $mail ); - my $subject = $entity->head->get('Subject'); - $subject =~ /\[\Q$subject_tag\E #\d+\]/ - or do { $status = 0; diag "wrong subject: $subject" }; - } - ok $status, "Correctly added subject tag to ticket"; -} - - -diag "Test that a reply with a Subject Tag doesn't change the subject" if $ENV{'TEST_VERBOSE'}; -{ - my $ticketid = $original_ticket->Id; - my $text = <<EOF; -From: root\@localhost -To: general\@$RT::rtname -Subject: [$subject_tag #$ticketid] test - -reply with subject tag -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, queue => $queue->Name); - is ($status >> 8, 0, "The mail gateway exited normally"); - is ($id, $ticketid, "Replied to ticket $id correctly"); - - my $freshticket = RT::Ticket->new( $RT::SystemUser ); - $freshticket->LoadById($id); - is($original_ticket->Subject,$freshticket->Subject,'Stripped Queue Subject Tag correctly'); - -} - -diag "Test that a reply with another RT's subject tag changes the subject" if $ENV{'TEST_VERBOSE'}; -{ - my $ticketid = $original_ticket->Id; - my $text = <<EOF; -From: root\@localhost -To: general\@$RT::rtname -Subject: [$subject_tag #$ticketid] [remote-rt-system #79] test - -reply with subject tag and remote rt subject tag -EOF - diag($text); - my ($status, $id) = RT::Test->send_via_mailgate($text, queue => $queue->Name); - is ($status >> 8, 0, "The mail gateway exited normally"); - is ($id, $ticketid, "Replied to ticket $id correctly"); - - my $freshticket = RT::Ticket->new( $RT::SystemUser ); - $freshticket->LoadById($id); - like($freshticket->Subject,qr/\[remote-rt-system #79\]/,"Kept remote rt's subject tag"); - unlike($freshticket->Subject,qr/\[\Q$subject_tag\E #$ticketid\]/,'Stripped Queue Subject Tag correctly'); - -} - -sub parse_mail { - my $mail = shift; - require RT::EmailParser; - my $parser = new RT::EmailParser; - $parser->ParseMIMEEntityFromScalar( $mail ); - return $parser->Entity; -} diff --git a/rt/t/mail/gateway.t b/rt/t/mail/gateway.t deleted file mode 100644 index 00de1ec..0000000 --- a/rt/t/mail/gateway.t +++ /dev/null @@ -1,802 +0,0 @@ -#!/usr/bin/perl -w -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC -# <jesse.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301 or visit their web page on the internet at -# http://www.gnu.org/copyleft/gpl.html. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} - -=head1 NAME - -rt-mailgate - Mail interface to RT3. - -=cut - -use strict; -use warnings; - - -use RT::Test config => 'Set( $UnsafeEmailCommands, 1);', tests => 159; -my ($baseurl, $m) = RT::Test->started_ok; - -use RT::Tickets; - -use MIME::Entity; -use Digest::MD5 qw(md5_base64); -use LWP::UserAgent; - -# TODO: --extension queue - -my $url = $m->rt_base_url; - -diag "Make sure that when we call the mailgate without URL, it fails" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of new ticket creation - -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, url => undef); - is ($status >> 8, 1, "The mail gateway exited with a failure"); - ok (!$id, "No ticket id") or diag "by mistake ticket #$id"; -} - -diag "Make sure that when we call the mailgate with wrong URL, it tempfails" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of new ticket creation - -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, url => 'http://this.test.for.non-connection.is.expected.to.generate.an.error'); - is ($status >> 8, 75, "The mail gateway exited with a failure"); - ok (!$id, "No ticket id"); -} - -my $everyone_group; -diag "revoke rights tests depend on" if $ENV{'TEST_VERBOSE'}; -{ - $everyone_group = RT::Group->new( $RT::SystemUser ); - $everyone_group->LoadSystemInternalGroup( 'Everyone' ); - ok ($everyone_group->Id, "Found group 'everyone'"); - - foreach( qw(CreateTicket ReplyToTicket CommentOnTicket) ) { - $everyone_group->PrincipalObj->RevokeRight(Right => $_); - } -} - -diag "Test new ticket creation by root who is privileged and superuser" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of new ticket creation - -Blah! -Foob! -EOF - - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "Created ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - is ($tick->Id, $id, "correct ticket id"); - is ($tick->Subject , 'This is a test of new ticket creation', "Created the ticket"); -} - -diag "Test the 'X-RT-Mail-Extension' field in the header of a ticket" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of the X-RT-Mail-Extension field -Blah! -Foob! -EOF - local $ENV{'EXTENSION'} = "bad value with\nnewlines\n"; - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "Created ticket #$id"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - is ($tick->Id, $id, "correct ticket id"); - is ($tick->Subject, 'This is a test of the X-RT-Mail-Extension field', "Created the ticket"); - - my $transactions = $tick->Transactions; - $transactions->OrderByCols({ FIELD => 'id', ORDER => 'DESC' }); - $transactions->Limit( FIELD => 'Type', OPERATOR => '!=', VALUE => 'EmailRecord'); - my $txn = $transactions->First; - isa_ok ($txn, 'RT::Transaction'); - is ($txn->Type, 'Create', "correct type"); - - my $attachment = $txn->Attachments->First; - isa_ok ($attachment, 'RT::Attachment'); - # XXX: We eat all newlines in header, that's not what RFC's suggesting - is ( - $attachment->GetHeader('X-RT-Mail-Extension'), - "bad value with newlines", - 'header is in place, without trailing newline char' - ); -} - -diag "Make sure that not standard --extension is passed" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of new ticket creation - -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, extension => 'some-extension-arg' ); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "Created ticket #$id"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - is ($tick->Id, $id, "correct ticket id"); - - my $transactions = $tick->Transactions; - $transactions->OrderByCols({ FIELD => 'id', ORDER => 'DESC' }); - $transactions->Limit( FIELD => 'Type', OPERATOR => '!=', VALUE => 'EmailRecord'); - my $txn = $transactions->First; - isa_ok ($txn, 'RT::Transaction'); - is ($txn->Type, 'Create', "correct type"); - - my $attachment = $txn->Attachments->First; - isa_ok ($attachment, 'RT::Attachment'); - is ( - $attachment->GetHeader('X-RT-Mail-Extension'), - 'some-extension-arg', - 'header is in place' - ); -} - -diag "Test new ticket creation without --action argument" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rt\@$RT::rtname -Subject: using mailgate without --action arg - -Blah! -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, extension => 'some-extension-arg' ); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "Created ticket #$id"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - is ($tick->Id, $id, "correct ticket id"); - is ($tick->Subject, 'using mailgate without --action arg', "using mailgate without --action arg"); -} - -diag "This is a test of new ticket creation as an unknown user" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of new ticket creation as an unknown user - -Blah! -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok (!$id, "no ticket created"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ".$tick->Id); - isnt ($tick->Subject , 'This is a test of new ticket creation as an unknown user', "failed to create the new ticket from an unprivileged account"); - - my $u = RT::User->new($RT::SystemUser); - $u->Load("doesnotexist\@@{[RT->Config->Get('rtname')]}"); - ok( !$u->Id, "user does not exist and was not created by failed ticket submission"); -} - -diag "grant everybody with CreateTicket right" if $ENV{'TEST_VERBOSE'}; -{ - ok( RT::Test->set_rights( - { Principal => $everyone_group->PrincipalObj, - Right => [qw(CreateTicket)], - }, - ), "Granted everybody the right to create tickets"); -} - -my $ticket_id; -diag "now everybody can create tickets. can a random unkown user create tickets?" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of new ticket creation as an unknown user - -Blah! -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "ticket created"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ".$tick->Id); - is ($tick->Id, $id, "correct ticket id"); - is ($tick->Subject , 'This is a test of new ticket creation as an unknown user', "failed to create the new ticket from an unprivileged account"); - - my $u = RT::User->new( $RT::SystemUser ); - $u->Load( "doesnotexist\@@{[RT->Config->Get('rtname')]}" ); - ok ($u->Id, "user does not exist and was created by ticket submission"); - $ticket_id = $id; -} - -diag "can another random reply to a ticket without being granted privs? answer should be no." if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist-2\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: [@{[RT->Config->Get('rtname')]} #$ticket_id] This is a test of a reply as an unknown user - -Blah! (Should not work.) -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok (!$id, "no way to reply to the ticket"); - - my $u = RT::User->new($RT::SystemUser); - $u->Load('doesnotexist-2@'.RT->Config->Get('rtname')); - ok( !$u->Id, " user does not exist and was not created by ticket correspondence submission"); -} - -diag "grant everyone 'ReplyToTicket' right" if $ENV{'TEST_VERBOSE'}; -{ - ok( RT::Test->set_rights( - { Principal => $everyone_group->PrincipalObj, - Right => [qw(CreateTicket ReplyToTicket)], - }, - ), "Granted everybody the right to reply to tickets" ); -} - -diag "can another random reply to a ticket after being granted privs? answer should be yes" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist-2\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: [@{[RT->Config->Get('rtname')]} #$ticket_id] This is a test of a reply as an unknown user - -Blah! -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - is ($id, $ticket_id, "replied to the ticket"); - - my $u = RT::User->new($RT::SystemUser); - $u->Load('doesnotexist-2@'.RT->Config->Get('rtname')); - ok ($u->Id, "user exists and was created by ticket correspondence submission"); -} - -diag "add a reply to the ticket using '--extension ticket' feature" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist-2\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of a reply as an unknown user - -Blah! -Foob! -EOF - local $ENV{'EXTENSION'} = $ticket_id; - my ($status, $id) = RT::Test->send_via_mailgate($text, extension => 'ticket'); - is ($status >> 8, 0, "The mail gateway exited normally"); - is ($id, $ticket_id, "replied to the ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ".$tick->Id); - is ($tick->Id, $id, "correct ticket id"); - - my $transactions = $tick->Transactions; - $transactions->OrderByCols({ FIELD => 'id', ORDER => 'DESC' }); - $transactions->Limit( FIELD => 'Type', OPERATOR => '!=', VALUE => 'EmailRecord'); - my $txn = $transactions->First; - isa_ok ($txn, 'RT::Transaction'); - is ($txn->Type, 'Correspond', "correct type"); - - my $attachment = $txn->Attachments->First; - isa_ok ($attachment, 'RT::Attachment'); - is ($attachment->GetHeader('X-RT-Mail-Extension'), $id, 'header is in place'); -} - -diag "can another random comment on a ticket without being granted privs? answer should be no" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist-3\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: [@{[RT->Config->Get('rtname')]} #$ticket_id] This is a test of a comment as an unknown user - -Blah! (Should not work.) -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, action => 'comment'); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok (!$id, "no way to comment on the ticket"); - - my $u = RT::User->new($RT::SystemUser); - $u->Load('doesnotexist-3@'.RT->Config->Get('rtname')); - ok( !$u->Id, " user does not exist and was not created by ticket comment submission"); -} - - -diag "grant everyone 'CommentOnTicket' right" if $ENV{'TEST_VERBOSE'}; -{ - ok( RT::Test->set_rights( - { Principal => $everyone_group->PrincipalObj, - Right => [qw(CreateTicket ReplyToTicket CommentOnTicket)], - }, - ), "Granted everybody the right to comment on tickets"); -} - -diag "can another random reply to a ticket after being granted privs? answer should be yes" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist-3\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: [@{[RT->Config->Get('rtname')]} #$ticket_id] This is a test of a comment as an unknown user - -Blah! -Foob! -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text, action => 'comment'); - is ($status >> 8, 0, "The mail gateway exited normally"); - is ($id, $ticket_id, "replied to the ticket"); - - my $u = RT::User->new($RT::SystemUser); - $u->Load('doesnotexist-3@'.RT->Config->Get('rtname')); - ok ($u->Id, " user exists and was created by ticket comment submission"); -} - -diag "add comment to the ticket using '--extension action' feature" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: doesnotexist-3\@@{[RT->Config->Get('rtname')]} -To: rt\@@{[RT->Config->Get('rtname')]} -Subject: [@{[RT->Config->Get('rtname')]} #$ticket_id] This is a test of a comment via '--extension action' - -Blah! -Foob! -EOF - local $ENV{'EXTENSION'} = 'comment'; - my ($status, $id) = RT::Test->send_via_mailgate($text, extension => 'action'); - is ($status >> 8, 0, "The mail gateway exited normally"); - is ($id, $ticket_id, "added comment to the ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ".$tick->Id); - is ($tick->Id, $id, "correct ticket id"); - - my $transactions = $tick->Transactions; - $transactions->OrderByCols({ FIELD => 'id', ORDER => 'DESC' }); - $transactions->Limit( - FIELD => 'Type', - OPERATOR => 'NOT ENDSWITH', - VALUE => 'EmailRecord', - ENTRYAGGREGATOR => 'AND', - ); - my $txn = $transactions->First; - isa_ok ($txn, 'RT::Transaction'); - is ($txn->Type, 'Comment', "correct type"); - - my $attachment = $txn->Attachments->First; - isa_ok ($attachment, 'RT::Attachment'); - is ($attachment->GetHeader('X-RT-Mail-Extension'), 'comment', 'header is in place'); -} - -diag "Testing preservation of binary attachments" if $ENV{'TEST_VERBOSE'}; -{ - # Get a binary blob (Best Practical logo) - my $LOGO_FILE = $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif'; - - # Create a mime entity with an attachment - my $entity = MIME::Entity->build( - From => 'root@localhost', - To => 'rt@localhost', - Subject => 'binary attachment test', - Data => ['This is a test of a binary attachment'], - ); - - $entity->attach( - Path => $LOGO_FILE, - Type => 'image/gif', - Encoding => 'base64', - ); - # Create a ticket with a binary attachment - my ($status, $id) = RT::Test->send_via_mailgate($entity); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "created ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ".$tick->Id); - is ($tick->Id, $id, "correct ticket id"); - is ($tick->Subject , 'binary attachment test', "Created the ticket - ".$tick->Id); - - my $file = `cat $LOGO_FILE`; - ok ($file, "Read in the logo image"); - diag "for the raw file the md5 hex is ". Digest::MD5::md5_hex($file) if $ENV{'TEST_VERBOSE'}; - - # Verify that the binary attachment is valid in the database - my $attachments = RT::Attachments->new($RT::SystemUser); - $attachments->Limit(FIELD => 'ContentType', VALUE => 'image/gif'); - my $txn_alias = $attachments->Join( - ALIAS1 => 'main', - FIELD1 => 'TransactionId', - TABLE2 => 'Transactions', - FIELD2 => 'id', - ); - $attachments->Limit( ALIAS => $txn_alias, FIELD => 'ObjectType', VALUE => 'RT::Ticket' ); - $attachments->Limit( ALIAS => $txn_alias, FIELD => 'ObjectId', VALUE => $id ); - is ($attachments->Count, 1, 'Found only one gif attached to the ticket'); - my $attachment = $attachments->First; - ok ($attachment->Id, 'loaded attachment object'); - my $acontent = $attachment->Content; - - diag "coming from the database, md5 hex is ".Digest::MD5::md5_hex($acontent) if $ENV{'TEST_VERBOSE'}; - is ($acontent, $file, 'The attachment isn\'t screwed up in the database.'); - - # Grab the binary attachment via the web ui - my $ua = new LWP::UserAgent; - my $full_url = "$url/Ticket/Attachment/". $attachment->TransactionId - ."/". $attachment->id. "/bplogo.gif?&user=root&pass=password"; - my $r = $ua->get( $full_url ); - - # Verify that the downloaded attachment is the same as what we uploaded. - is ($file, $r->content, 'The attachment isn\'t screwed up in download'); -} - -diag "Simple I18N testing" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rtemail\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of I18N ticket creation -Content-Type: text/plain; charset="utf-8" - -2 accented lines -\303\242\303\252\303\256\303\264\303\273 -\303\241\303\251\303\255\303\263\303\272 -bye -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "created ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ". $tick->Id); - is ($tick->Id, $id, "correct ticket"); - is ($tick->Subject , 'This is a test of I18N ticket creation', "Created the ticket - ". $tick->Subject); - - my $unistring = "\303\241\303\251\303\255\303\263\303\272"; - Encode::_utf8_on($unistring); - is ( - $tick->Transactions->First->Content, - $tick->Transactions->First->Attachments->First->Content, - "Content is ". $tick->Transactions->First->Attachments->First->Content - ); - ok ( - $tick->Transactions->First->Content =~ /$unistring/i, - $tick->Id." appears to be unicode ". $tick->Transactions->First->Attachments->First->Id - ); -} - -diag "supposedly I18N fails on the second message sent in." if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -To: rtemail\@@{[RT->Config->Get('rtname')]} -Subject: This is a test of I18N ticket creation -Content-Type: text/plain; charset="utf-8" - -2 accented lines -\303\242\303\252\303\256\303\264\303\273 -\303\241\303\251\303\255\303\263\303\272 -bye -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "created ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ". $tick->Id); - is ($tick->Id, $id, "correct ticket"); - is ($tick->Subject , 'This is a test of I18N ticket creation', "Created the ticket"); - - my $unistring = "\303\241\303\251\303\255\303\263\303\272"; - Encode::_utf8_on($unistring); - - ok ( - $tick->Transactions->First->Content =~ $unistring, - "It appears to be unicode - ". $tick->Transactions->First->Content - ); -} - -diag "check that mailgate doesn't suffer from empty Reply-To:" if $ENV{'TEST_VERBOSE'}; -{ - my $text = <<EOF; -From: root\@localhost -Reply-To: -To: rtemail\@@{[RT->Config->Get('rtname')]} -Subject: test -Content-Type: text/plain; charset="utf-8" - -test -EOF - my ($status, $id) = RT::Test->send_via_mailgate($text); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "created ticket"); - - my $tick = RT::Test->last_ticket; - isa_ok ($tick, 'RT::Ticket'); - ok ($tick->Id, "found ticket ". $tick->Id); - is ($tick->Id, $id, "correct ticket"); - - like $tick->RequestorAddresses, qr/root\@localhost/, 'correct requestor'; -} - - -my ($val,$msg) = $everyone_group->PrincipalObj->RevokeRight(Right => 'CreateTicket'); -ok ($val, $msg); - -SKIP: { -skip "Advanced mailgate actions require an unsafe configuration", 47 - unless RT->Config->Get('UnsafeEmailCommands'); - -# create new queue to be shure we don't mess with rights -use RT::Queue; -my $queue = RT::Queue->new($RT::SystemUser); -my ($qid) = $queue->Create( Name => 'ext-mailgate'); -ok( $qid, 'queue created for ext-mailgate tests' ); - -# {{{ Check take and resolve actions - -# create ticket that is owned by nobody -use RT::Ticket; -my $tick = RT::Ticket->new($RT::SystemUser); -my ($id) = $tick->Create( Queue => 'ext-mailgate', Subject => 'test'); -ok( $id, 'new ticket created' ); -is( $tick->Owner, $RT::Nobody->Id, 'owner of the new ticket is nobody' ); - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action take"), "Opened the mailgate - $!"); -print MAIL <<EOF; -From: root\@localhost -Subject: [@{[RT->Config->Get('rtname')]} \#$id] test - -EOF -close (MAIL); -is ($? >> 8, 0, "The mail gateway exited normally"); - -$tick = RT::Ticket->new($RT::SystemUser); -$tick->Load( $id ); -is( $tick->Id, $id, 'load correct ticket'); -is( $tick->OwnerObj->EmailAddress, 'root@localhost', 'successfuly take ticket via email'); - -# check that there is no text transactions writen -is( $tick->Transactions->Count, 2, 'no superfluous transactions'); - -my $status; -($status, $msg) = $tick->SetOwner( $RT::Nobody->Id, 'Force' ); -ok( $status, 'successfuly changed owner: '. ($msg||'') ); -is( $tick->Owner, $RT::Nobody->Id, 'set owner back to nobody'); - - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action take-correspond"), "Opened the mailgate - $@"); -print MAIL <<EOF; -From: root\@localhost -Subject: [@{[RT->Config->Get('rtname')]} \#$id] correspondence - -test -EOF -close (MAIL); -is ($? >> 8, 0, "The mail gateway exited normally"); - -DBIx::SearchBuilder::Record::Cachable->FlushCache; - -$tick = RT::Ticket->new($RT::SystemUser); -$tick->Load( $id ); -is( $tick->Id, $id, "load correct ticket #$id"); -is( $tick->OwnerObj->EmailAddress, 'root@localhost', 'successfuly take ticket via email'); -my $txns = $tick->Transactions; -$txns->Limit( FIELD => 'Type', VALUE => 'Correspond'); -$txns->OrderBy( FIELD => 'id', ORDER => 'DESC' ); -# +1 because of auto open -is( $tick->Transactions->Count, 6, 'no superfluous transactions'); -is( $txns->First->Subject, "[$RT::rtname \#$id] correspondence", 'successfuly add correspond within take via email' ); - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action resolve"), "Opened the mailgate - $!"); -print MAIL <<EOF; -From: root\@localhost -Subject: [@{[RT->Config->Get('rtname')]} \#$id] test - -EOF -close (MAIL); -is ($? >> 8, 0, "The mail gateway exited normally"); - -DBIx::SearchBuilder::Record::Cachable->FlushCache; - -$tick = RT::Ticket->new($RT::SystemUser); -$tick->Load( $id ); -is( $tick->Id, $id, 'load correct ticket'); -is( $tick->Status, 'resolved', 'successfuly resolved ticket via email'); -is( $tick->Transactions->Count, 7, 'no superfluous transactions'); - -use RT::User; -my $user = RT::User->new( $RT::SystemUser ); -my ($uid) = $user->Create( Name => 'ext-mailgate', - EmailAddress => 'ext-mailgate@localhost', - Privileged => 1, - Password => 'qwe123', - ); -ok( $uid, 'user created for ext-mailgate tests' ); -ok( !$user->HasRight( Right => 'OwnTicket', Object => $queue ), "User can't own ticket" ); - -$tick = RT::Ticket->new($RT::SystemUser); -($id) = $tick->Create( Queue => $qid, Subject => 'test' ); -ok( $id, 'create new ticket' ); - -my $rtname = RT->Config->Get('rtname'); - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action take"), "Opened the mailgate - $!"); -print MAIL <<EOF; -From: ext-mailgate\@localhost -Subject: [$rtname \#$id] test - -EOF -close (MAIL); -is ( $? >> 8, 0, "mailgate exited normally" ); -DBIx::SearchBuilder::Record::Cachable->FlushCache; - -cmp_ok( $tick->Owner, '!=', $user->id, "we didn't change owner" ); - -($status, $msg) = $user->PrincipalObj->GrantRight( Object => $queue, Right => 'ReplyToTicket' ); -ok( $status, "successfuly granted right: $msg" ); -my $ace_id = $status; -ok( $user->HasRight( Right => 'ReplyToTicket', Object => $tick ), "User can reply to ticket" ); - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action correspond-take"), "Opened the mailgate - $!"); -print MAIL <<EOF; -From: ext-mailgate\@localhost -Subject: [$rtname \#$id] test - -correspond-take -EOF -close (MAIL); -is ( $? >> 8, 0, "mailgate exited normally" ); -DBIx::SearchBuilder::Record::Cachable->FlushCache; - -cmp_ok( $tick->Owner, '!=', $user->id, "we didn't change owner" ); -is( $tick->Transactions->Count, 3, "one transactions added" ); - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action take-correspond"), "Opened the mailgate - $!"); -print MAIL <<EOF; -From: ext-mailgate\@localhost -Subject: [$rtname \#$id] test - -correspond-take -EOF -close (MAIL); -is ( $? >> 8, 0, "mailgate exited normally" ); -DBIx::SearchBuilder::Record::Cachable->FlushCache; - -cmp_ok( $tick->Owner, '!=', $user->id, "we didn't change owner" ); -is( $tick->Transactions->Count, 3, "no transactions added, user can't take ticket first" ); - -# revoke ReplyToTicket right -use RT::ACE; -my $ace = RT::ACE->new($RT::SystemUser); -$ace->Load( $ace_id ); -$ace->Delete; -my $acl = RT::ACL->new($RT::SystemUser); -$acl->Limit( FIELD => 'RightName', VALUE => 'ReplyToTicket' ); -$acl->LimitToObject( $RT::System ); -while( my $ace = $acl->Next ) { - $ace->Delete; -} - -ok( !$user->HasRight( Right => 'ReplyToTicket', Object => $tick ), "User can't reply to ticket any more" ); - - -my $group = RT::Group->new( $RT::SystemUser ); -ok( $group->LoadQueueRoleGroup( Queue => $qid, Type=> 'Owner' ), "load queue owners role group" ); -$ace = RT::ACE->new( $RT::SystemUser ); -($ace_id, $msg) = $group->PrincipalObj->GrantRight( Right => 'ReplyToTicket', Object => $queue ); -ok( $ace_id, "Granted queue owners role group with ReplyToTicket right" ); - -($status, $msg) = $user->PrincipalObj->GrantRight( Object => $queue, Right => 'OwnTicket' ); -ok( $status, "successfuly granted right: $msg" ); -($status, $msg) = $user->PrincipalObj->GrantRight( Object => $queue, Right => 'TakeTicket' ); -ok( $status, "successfuly granted right: $msg" ); - -$! = 0; -ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action take-correspond"), "Opened the mailgate - $!"); -print MAIL <<EOF; -From: ext-mailgate\@localhost -Subject: [$rtname \#$id] test - -take-correspond with reply right granted to owner role -EOF -close (MAIL); -is ( $? >> 8, 0, "mailgate exited normally" ); -DBIx::SearchBuilder::Record::Cachable->FlushCache; - -$tick->Load( $id ); -is( $tick->Owner, $user->id, "we changed owner" ); -ok( $user->HasRight( Right => 'ReplyToTicket', Object => $tick ), "owner can reply to ticket" ); -is( $tick->Transactions->Count, 5, "transactions added" ); - - -# }}} -}; - - -1; - diff --git a/rt/t/mail/gnupg-bad.t b/rt/t/mail/gnupg-bad.t deleted file mode 100644 index 2d8e035..0000000 --- a/rt/t/mail/gnupg-bad.t +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use RT::Test tests => 6; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use Cwd 'getcwd'; - -my $homedir = RT::Test::get_abs_relocatable_dir(File::Spec->updir(), - qw(data gnupg keyrings)); - -RT->Config->Set( 'GnuPG', - Enable => 1, - OutgoingMessagesFormat => 'RFC' ); - -RT->Config->Set( 'GnuPGOptions', - homedir => $homedir, - passphrase => 'test', - 'no-permission-warning' => undef); - -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -my ($baseurl, $m) = RT::Test->started_ok; - -$m->get( $baseurl."?user=root;pass=password" ); -$m->content_like(qr/Logout/, 'we did log in'); -$m->get( $baseurl.'/Admin/Queues/'); -$m->follow_link_ok( {text => 'General'} ); -$m->submit_form( form_number => 3, - fields => { CorrespondAddress => 'rt@example.com' } ); -$m->content_like(qr/rt\@example.com.* - never/, 'has key info.'); - -ok(my $user = RT::User->new($RT::SystemUser)); -ok($user->Load('root'), "Loaded user 'root'"); -$user->SetEmailAddress('rt@example.com'); - -if (0) { - # XXX: need to generate these mails - diag "no signature" if $ENV{TEST_VERBOSE}; - diag "no encryption on encrypted queue" if $ENV{TEST_VERBOSE}; - diag "mismatched signature" if $ENV{TEST_VERBOSE}; - diag "unknown public key" if $ENV{TEST_VERBOSE}; - diag "unknown private key" if $ENV{TEST_VERBOSE}; - diag "signer != sender" if $ENV{TEST_VERBOSE}; - diag "encryption to user whose pubkey is not signed" if $ENV{TEST_VERBOSE}; - diag "no encryption of attachment on encrypted queue" if $ENV{TEST_VERBOSE}; - diag "no signature of attachment" if $ENV{TEST_VERBOSE}; - diag "revoked key" if $ENV{TEST_VERBOSE}; - diag "expired key" if $ENV{TEST_VERBOSE}; - diag "unknown algorithm" if $ENV{TEST_VERBOSE}; -} - diff --git a/rt/t/mail/gnupg-incoming.t b/rt/t/mail/gnupg-incoming.t deleted file mode 100644 index ec31333..0000000 --- a/rt/t/mail/gnupg-incoming.t +++ /dev/null @@ -1,320 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use RT::Test tests => 39; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use File::Temp; -use Cwd 'getcwd'; -use String::ShellQuote 'shell_quote'; -use IPC::Run3 'run3'; - -my $homedir = RT::Test::get_abs_relocatable_dir(File::Spec->updir(), - qw(data gnupg keyrings)); - -# catch any outgoing emails -RT::Test->set_mail_catcher; - -RT->Config->Set( 'GnuPG', - Enable => 1, - OutgoingMessagesFormat => 'RFC' ); - -RT->Config->Set( 'GnuPGOptions', - homedir => $homedir, - 'no-permission-warning' => undef); - -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -my ($baseurl, $m) = RT::Test->started_ok; - -# configure key for General queue -$m->get( $baseurl."?user=root;pass=password" ); -$m->content_like(qr/Logout/, 'we did log in'); -$m->get( $baseurl.'/Admin/Queues/'); -$m->follow_link_ok( {text => 'General'} ); -$m->submit_form( form_number => 3, - fields => { CorrespondAddress => 'general@example.com' } ); -$m->content_like(qr/general\@example.com.* - never/, 'has key info.'); - -ok(my $user = RT::User->new($RT::SystemUser)); -ok($user->Load('root'), "Loaded user 'root'"); -$user->SetEmailAddress('recipient@example.com'); - -# test simple mail. supposedly this should fail when -# 1. the queue requires signature -# 2. the from is not what the key is associated with -my $mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<EOF; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: This is a test of new ticket creation as root - -Blah! -Foob! -EOF -RT::Test->close_mailgate_ok($mail); - -{ - my $tick = RT::Test->last_ticket; - is( $tick->Subject, - 'This is a test of new ticket creation as root', - "Created the ticket" - ); - my $txn = $tick->Transactions->First; - like( - $txn->Attachments->First->Headers, - qr/^X-RT-Incoming-Encryption: Not encrypted/m, - 'recorded incoming mail that is not encrypted' - ); - like( $txn->Attachments->First->Content, qr'Blah'); -} - -# test for signed mail -my $buf = ''; - -run3( - shell_quote( - qw(gpg --armor --sign), - '--default-key' => 'recipient@example.com', - '--homedir' => $homedir, - '--passphrase' => 'recipient', - ), - \"fnord\r\n", - \$buf, - \*STDOUT -); - -$mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<"EOF"; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: signed message for queue - -$buf -EOF -RT::Test->close_mailgate_ok($mail); - -{ - my $tick = RT::Test->last_ticket; - is( $tick->Subject, 'signed message for queue', - "Created the ticket" - ); - - my $txn = $tick->Transactions->First; - my ($msg, $attach) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Not encrypted', - 'recorded incoming mail that is encrypted' - ); - # test for some kind of PGP-Signed-By: Header - like( $attach->Content, qr'fnord'); -} - -# test for clear-signed mail -$buf = ''; - -run3( - shell_quote( - qw(gpg --armor --sign --clearsign), - '--default-key' => 'recipient@example.com', - '--homedir' => $homedir, - '--passphrase' => 'recipient', - ), - \"clearfnord\r\n", - \$buf, - \*STDOUT -); - -$mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<"EOF"; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: signed message for queue - -$buf -EOF -RT::Test->close_mailgate_ok($mail); - -{ - my $tick = RT::Test->last_ticket; - is( $tick->Subject, 'signed message for queue', - "Created the ticket" - ); - - my $txn = $tick->Transactions->First; - my ($msg, $attach) = @{$txn->Attachments->ItemsArrayRef}; - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Not encrypted', - 'recorded incoming mail that is encrypted' - ); - # test for some kind of PGP-Signed-By: Header - like( $attach->Content, qr'clearfnord'); -} - -# test for signed and encrypted mail -$buf = ''; - -run3( - shell_quote( - qw(gpg --encrypt --armor --sign), - '--recipient' => 'general@example.com', - '--default-key' => 'recipient@example.com', - '--homedir' => $homedir, - '--passphrase' => 'recipient', - ), - \"orzzzzzz\r\n", - \$buf, - \*STDOUT -); - -$mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<"EOF"; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: Encrypted message for queue - -$buf -EOF -RT::Test->close_mailgate_ok($mail); - -{ - my $tick = RT::Test->last_ticket; - is( $tick->Subject, 'Encrypted message for queue', - "Created the ticket" - ); - - my $txn = $tick->Transactions->First; - my ($msg, $attach, $orig) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Success', - 'recorded incoming mail that is encrypted' - ); - is( $msg->GetHeader('X-RT-Privacy'), - 'PGP', - 'recorded incoming mail that is encrypted' - ); - like( $attach->Content, qr'orz'); - - is( $orig->GetHeader('Content-Type'), 'application/x-rt-original-message'); - ok(index($orig->Content, $buf) != -1, 'found original msg'); -} - -# test for signed mail by other key -$buf = ''; - -run3( - shell_quote( - qw(gpg --armor --sign), - '--default-key' => 'rt@example.com', - '--homedir' => $homedir, - '--passphrase' => 'test', - ), - \"alright\r\n", - \$buf, - \*STDOUT -); - -$mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<"EOF"; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: signed message for queue - -$buf -EOF -RT::Test->close_mailgate_ok($mail); - -{ - my $tick = RT::Test->last_ticket; - my $txn = $tick->Transactions->First; - my ($msg, $attach) = @{$txn->Attachments->ItemsArrayRef}; - # XXX: in this case, which credential should we be using? - is( $msg->GetHeader('X-RT-Incoming-Signature'), - 'Test User <rt@example.com>', - 'recorded incoming mail signed by others' - ); -} - -# test for encrypted mail with key not associated to the queue -$buf = ''; - -run3( - shell_quote( - qw(gpg --armor --encrypt), - '--recipient' => 'random@localhost', - '--homedir' => $homedir, - ), - \"should not be there either\r\n", - \$buf, - \*STDOUT -); - -$mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<"EOF"; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: encrypted message for queue - -$buf -EOF -RT::Test->close_mailgate_ok($mail); - -{ - my $tick = RT::Test->last_ticket; - my $txn = $tick->Transactions->First; - my ($msg, $attach) = @{$txn->Attachments->ItemsArrayRef}; - - TODO: - { - local $TODO = "this test requires keys associated with queues"; - unlike( $attach->Content, qr'should not be there either'); - } -} - -# test for badly encrypted mail -{ -$buf = ''; - -run3( - shell_quote( - qw(gpg --armor --encrypt), - '--recipient' => 'rt@example.com', - '--homedir' => $homedir, - ), - \"really should not be there either\r\n", - \$buf, - \*STDOUT -); - -$buf =~ s/PGP MESSAGE/SCREWED UP/g; - -RT::Test->fetch_caught_mails; - -$mail = RT::Test->open_mailgate_ok($baseurl); -print $mail <<"EOF"; -From: recipient\@example.com -To: general\@$RT::rtname -Subject: encrypted message for queue - -$buf -EOF -RT::Test->close_mailgate_ok($mail); -my @mail = RT::Test->fetch_caught_mails; -is(@mail, 1, 'caught outgoing mail.'); -} - -{ - my $tick = RT::Test->last_ticket; - my $txn = $tick->Transactions->First; - my ($msg, $attach) = @{$txn->Attachments->ItemsArrayRef}; - unlike( ($attach ? $attach->Content : ''), qr'really should not be there either'); -} - diff --git a/rt/t/mail/gnupg-realmail.t b/rt/t/mail/gnupg-realmail.t deleted file mode 100644 index de1d958..0000000 --- a/rt/t/mail/gnupg-realmail.t +++ /dev/null @@ -1,184 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use RT::Test tests => 197; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use Digest::MD5 qw(md5_hex); - -use File::Temp qw(tempdir); -my $homedir = tempdir( CLEANUP => 1 ); - -RT->Config->Set( 'GnuPG', - Enable => 1, - OutgoingMessagesFormat => 'RFC' ); - -RT->Config->Set( 'GnuPGOptions', - homedir => $homedir, - passphrase => 'rt-test', - 'no-permission-warning' => undef); - -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -RT::Test->import_gnupg_key('rt-recipient@example.com'); -RT::Test->import_gnupg_key('rt-test@example.com', 'public'); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'we did log in'; -$m->get_ok( '/Admin/Queues/'); -$m->follow_link_ok( {text => 'General'} ); -$m->submit_form( form_number => 3, - fields => { CorrespondAddress => 'rt-recipient@example.com' } ); -$m->content_like(qr/rt-recipient\@example.com.* - never/, 'has key info.'); - -diag "load Everyone group" if $ENV{'TEST_VERBOSE'}; -my $everyone; -{ - $everyone = RT::Group->new( $RT::SystemUser ); - $everyone->LoadSystemInternalGroup('Everyone'); - ok $everyone->id, "loaded 'everyone' group"; -} - -RT::Test->set_rights( - Principal => $everyone, - Right => ['CreateTicket'], -); - - -my $eid = 0; -for my $usage (qw/signed encrypted signed&encrypted/) { - for my $format (qw/MIME inline/) { - for my $attachment (qw/plain text-attachment binary-attachment/) { - ++$eid; - diag "Email $eid: $usage, $attachment email with $format format" if $ENV{TEST_VERBOSE}; - eval { email_ok($eid, $usage, $format, $attachment) }; - } - } -} - -$eid = 18; -{ - my ($usage, $format, $attachment) = ('signed', 'inline', 'plain'); - ++$eid; - diag "Email $eid: $usage, $attachment email with $format format" if $ENV{TEST_VERBOSE}; - eval { email_ok($eid, $usage, $format, $attachment) }; -} - -sub email_ok { - my ($eid, $usage, $format, $attachment) = @_; - diag "email_ok $eid: $usage, $format, $attachment" if $ENV{'TEST_VERBOSE'}; - - my $emaildatadir = RT::Test::get_relocatable_dir(File::Spec->updir(), - qw(data gnupg emails)); - my ($file) = glob("$emaildatadir/$eid-*"); - my $mail = RT::Test->file_content($file); - - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "$eid: The mail gateway exited normally"); - ok ($id, "$eid: got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "$eid: loaded ticket #$id"); - - is ($tick->Subject, - "Test Email ID:$eid", - "$eid: Created the ticket" - ); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Privacy'), - 'PGP', - "$eid: recorded incoming mail that is encrypted" - ); - - if ($usage =~ /encrypted/) { - if ( $format eq 'MIME' || $attachment eq 'plain' ) { - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Success', - "$eid: recorded incoming mail that is encrypted" - ); - } else { - is( $attachments[0]->GetHeader('X-RT-Incoming-Encryption'), - 'Success', - "$eid: recorded incoming mail that is encrypted" - ); - is( $attachments[1]->GetHeader('X-RT-Incoming-Encryption'), - 'Success', - "$eid: recorded incoming mail that is encrypted" - ); - } - like( $attachments[0]->Content, qr/ID:$eid/, - "$eid: incoming mail did NOT have original body" - ); - } - else { - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Not encrypted', - "$eid: recorded incoming mail that is not encrypted" - ); - like( $msg->Content || $attachments[0]->Content, qr/ID:$eid/, - "$eid: got original content" - ); - } - - if ($usage =~ /signed/) { -# XXX: FIXME: TODO: 6-signed-inline-with-attachment should be re-generated as it's actually RFC format - if ( $format eq 'MIME' || $attachment eq 'plain' || ($format eq 'inline' && $attachment =~ /binary/ && $usage !~ /encrypted/) ) { - is( $msg->GetHeader('X-RT-Incoming-Signature'), - 'RT Test <rt-test@example.com>', - "$eid: recorded incoming mail that is signed" - ); - } - else { - is( $attachments[0]->GetHeader('X-RT-Incoming-Signature'), - 'RT Test <rt-test@example.com>', - "$eid: recorded incoming mail that is signed" - ); - is( $attachments[1]->GetHeader('X-RT-Incoming-Signature'), - 'RT Test <rt-test@example.com>', - "$eid: recorded incoming mail that is signed" - ); - } - } - else { - is( $msg->GetHeader('X-RT-Incoming-Signature'), - undef, - "$eid: recorded incoming mail that is not signed" - ); - } - - if ($attachment =~ /attachment/) { - # signed messages should sign each attachment too - if ($usage =~ /signed/) { - my $sig = pop @attachments; - ok ($sig->Id, "$eid: loaded attachment.sig object"); - my $acontent = $sig->Content; - } - - my ($a) = grep $_->Filename, @attachments; - ok ($a && $a->Id, "$eid: found attachment with filename"); - - my $acontent = $a->Content; - if ($attachment =~ /binary/) - { - is(md5_hex($acontent), '1e35f1aa90c98ca2bab85c26ae3e1ba7', "$eid: The binary attachment's md5sum matches"); - } - else - { - like($acontent, qr/zanzibar/, "$eid: The attachment isn't screwed up in the database."); - } - - } - - return 0; -} - diff --git a/rt/t/mail/gnupg-reverification.t b/rt/t/mail/gnupg-reverification.t deleted file mode 100644 index f116d93..0000000 --- a/rt/t/mail/gnupg-reverification.t +++ /dev/null @@ -1,92 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use RT::Test tests => 120; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use File::Temp qw(tempdir); -my $homedir = tempdir( CLEANUP => 1 ); - -RT->Config->Set( 'GnuPG', - Enable => 1, - OutgoingMessagesFormat => 'RFC' ); - -RT->Config->Set( 'GnuPGOptions', - homedir => $homedir, - passphrase => 'rt-test', - 'no-permission-warning' => undef); - -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - - -diag "load Everyone group" if $ENV{'TEST_VERBOSE'}; -my $everyone; -{ - $everyone = RT::Group->new( $RT::SystemUser ); - $everyone->LoadSystemInternalGroup('Everyone'); - ok $everyone->id, "loaded 'everyone' group"; -} - -RT::Test->set_rights( - Principal => $everyone, - Right => ['CreateTicket'], -); - - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'we get log in'; - -RT::Test->import_gnupg_key('rt-recipient@example.com'); - -my @ticket_ids; - -my $emaildatadir = RT::Test::get_relocatable_dir(File::Spec->updir(), - qw(data gnupg emails)); -my @files = glob("$emaildatadir/*-signed-*"); -foreach my $file ( @files ) { - diag "testing $file" if $ENV{'TEST_VERBOSE'}; - - my ($eid) = ($file =~ m{(\d+)[^/\\]+$}); - ok $eid, 'figured id of a file'; - - my $email_content = RT::Test->file_content( $file ); - ok $email_content, "$eid: got content of email"; - - my ($status, $id) = RT::Test->send_via_mailgate( $email_content ); - is $status >> 8, 0, "$eid: the mail gateway exited normally"; - ok $id, "$eid: got id of a newly created ticket - $id"; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, "$eid: loaded ticket #$id"; - is $ticket->Subject, "Test Email ID:$eid", "$eid: correct subject"; - - $m->goto_ticket( $id ); - $m->content_like( - qr/Not possible to check the signature, the reason is missing public key/is, - "$eid: signature is not verified", - ); - $m->content_like(qr/This is .*ID:$eid/ims, "$eid: content is there and message is decrypted"); - - push @ticket_ids, $id; -} - -diag "import key into keyring" if $ENV{'TEST_VERBOSE'}; -RT::Test->import_gnupg_key('rt-test@example.com', 'public'); - -foreach my $id ( @ticket_ids ) { - diag "testing ticket #$id" if $ENV{'TEST_VERBOSE'}; - - $m->goto_ticket( $id ); - $m->content_like( - qr/The signature is good/is, - "signature is re-verified and now good", - ); -} - diff --git a/rt/t/mail/mime_decoding.t b/rt/t/mail/mime_decoding.t deleted file mode 100644 index 8257aee..0000000 --- a/rt/t/mail/mime_decoding.t +++ /dev/null @@ -1,59 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -use RT::Test nodata => 1, tests => 6; - -use_ok('RT::I18N'); - -diag q{'=' char in a leading part before an encoded part} if $ENV{TEST_VERBOSE}; -{ - my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="'; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - 'key="plain"; key="мой_файл.bin"', - "right decoding" - ); -} - -diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name} - if $ENV{TEST_VERBOSE}; -{ - my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="'; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - 'attachment; filename="мой_файл.bin"', - "right decoding" - ); -} - -diag q{'=' char in a trailing part after an encoded part} if $ENV{TEST_VERBOSE}; -{ - my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"'; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - 'attachment; filename="мой_файл.bin"; some_prop="value"', - "right decoding" - ); -} - -diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE}; -{ - my $str = qq{Subject: =?ISO-8859-1?Q?Re=3A_=5BXXXXXX=23269=5D_=5BComment=5D_Frag?=} - . qq{\n =?ISO-8859-1?Q?e_zu_XXXXXX--xxxxxx_/_Xxxxx=FCxxxxxxxxxx?=}; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - qq{Subject: Re: [XXXXXX#269] [Comment] Frage zu XXXXXX--xxxxxx / Xxxxxüxxxxxxxxxx}, - "right decoding" - ); -} - -diag q{newline and encoded file name} if $ENV{TEST_VERBOSE}; -{ - my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="}; - is( - RT::I18N::DecodeMIMEWordsToUTF8($str), - qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"}, - "right decoding" - ); -} - diff --git a/rt/t/mail/sendmail.t b/rt/t/mail/sendmail.t deleted file mode 100644 index 1f97bbb..0000000 --- a/rt/t/mail/sendmail.t +++ /dev/null @@ -1,538 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use File::Spec (); - -use RT::Test tests => 137; - -use RT::EmailParser; -use RT::Tickets; -use RT::Action::SendEmail; - -my @_outgoing_messages; -my @scrips_fired; - -#We're not testing acls here. -my $everyone = RT::Group->new($RT::SystemUser); -$everyone->LoadSystemInternalGroup('Everyone'); -$everyone->PrincipalObj->GrantRight( Right =>'SuperUser' ); - - -is (__PACKAGE__, 'main', "We're operating in the main package"); - -{ - no warnings qw/redefine/; - sub RT::Action::SendEmail::SendMessage { - my $self = shift; - my $MIME = shift; - - main::_fired_scrip($self->ScripObj); - main::is(ref($MIME) , 'MIME::Entity', "hey, look. it's a mime entity"); - } -} - -# some utils -sub first_txn { return $_[0]->Transactions->First } -sub first_attach { return first_txn($_[0])->Attachments->First } - -sub count_txns { return $_[0]->Transactions->Count } -sub count_attachs { return first_txn($_[0])->Attachments->Count } - -# instrument SendEmail to pass us what it's about to send. -# create a regular ticket - -my $parser = RT::EmailParser->new(); - -# Let's test to make sure a multipart/report is processed correctly -my $multipart_report_email = RT::Test::get_relocatable_file('multipart-report', - (File::Spec->updir(), 'data', 'emails')); -my $content = RT::Test->file_content($multipart_report_email); -# be as much like the mail gateway as possible. -use RT::Interface::Email; -my %args = (message => $content, queue => 1, action => 'correspond'); -my ($status, $msg) = RT::Interface::Email::Gateway(\%args); -ok($status, "successfuly used Email::Gateway interface") or diag("error: $msg"); -my $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); -my $tick= $tickets->First(); -isa_ok($tick, "RT::Ticket", "got a ticket object"); -ok ($tick->Id, "found ticket ".$tick->Id); -like (first_txn($tick)->Content , qr/The original message was received/, "It's the bounce"); - - -# make sure it fires scrips. -is ($#scrips_fired, 1, "Fired 2 scrips on ticket creation"); - -undef @scrips_fired; - - - - -$parser->ParseMIMEEntityFromScalar('From: root@localhost -To: rt@example.com -Subject: This is a test of new ticket creation as an unknown user - -Blah! -Foob!'); - - -use Data::Dumper; - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($id, undef, $create_msg ) = $ticket->Create(Requestor => ['root@localhost'], Queue => 'general', Subject => 'I18NTest', MIMEObj => $parser->Entity); -ok ($id,$create_msg); -$tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick = $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); -is ($tick->Subject , 'I18NTest', "failed to create the new ticket from an unprivileged account"); - -# make sure it fires scrips. -is ($#scrips_fired, 1, "Fired 2 scrips on ticket creation"); -# make sure it sends an autoreply -# make sure it sends a notification to adminccs - - -# we need to swap out SendMessage to test the new things we care about; -&utf8_redef_sendmessage; - -# create an iso 8859-1 ticket -@scrips_fired = (); - -my $iso_8859_1_ticket_email = RT::Test::get_relocatable_file( - 'new-ticket-from-iso-8859-1', (File::Spec->updir(), 'data', 'emails')); -$content = RT::Test->file_content($iso_8859_1_ticket_email); - - - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -use RT::Interface::Email; - - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick = $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -like (first_txn($tick)->Content , qr/H\x{e5}vard/, "It's signed by havard. yay"); - - -# make sure it fires scrips. -is ($#scrips_fired, 1, "Fired 2 scrips on ticket creation"); -# make sure it sends an autoreply - - -# make sure it sends a notification to adminccs - -# If we correspond, does it do the right thing to the outbound messages? - -$parser->ParseMIMEEntityFromScalar($content); - ($id, $msg) = $tick->Comment(MIMEObj => $parser->Entity); -ok ($id, $msg); - -$parser->ParseMIMEEntityFromScalar($content); -($id, $msg) = $tick->Correspond(MIMEObj => $parser->Entity); -ok ($id, $msg); - - - - - -# we need to swap out SendMessage to test the new things we care about; -&iso8859_redef_sendmessage; -RT->Config->Set( EmailOutputEncoding => 'iso-8859-1' ); -# create an iso 8859-1 ticket -@scrips_fired = (); - - $content = RT::Test->file_content($iso_8859_1_ticket_email); -# be as much like the mail gateway as possible. -use RT::Interface::Email; - - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); -$tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick = $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -like (first_txn($tick)->Content , qr/H\x{e5}vard/, "It's signed by havard. yay"); - - -# make sure it fires scrips. -is ($#scrips_fired, 1, "Fired 2 scrips on ticket creation"); -# make sure it sends an autoreply - - -# make sure it sends a notification to adminccs - - -# If we correspond, does it do the right thing to the outbound messages? - -$parser->ParseMIMEEntityFromScalar($content); - ($id, $msg) = $tick->Comment(MIMEObj => $parser->Entity); -ok ($id, $msg); - -$parser->ParseMIMEEntityFromScalar($content); -($id, $msg) = $tick->Correspond(MIMEObj => $parser->Entity); -ok ($id, $msg); - - -sub _fired_scrip { - my $scrip = shift; - push @scrips_fired, $scrip; -} - -sub utf8_redef_sendmessage { - no warnings qw/redefine/; - eval ' - sub RT::Action::SendEmail::SendMessage { - my $self = shift; - my $MIME = shift; - - my $scrip = $self->ScripObj->id; - ok(1, $self->ScripObj->ConditionObj->Name . " ".$self->ScripObj->ActionObj->Name); - main::_fired_scrip($self->ScripObj); - $MIME->make_singlepart; - main::is( ref($MIME) , \'MIME::Entity\', - "hey, look. it\'s a mime entity" ); - main::is( ref( $MIME->head ) , \'MIME::Head\', - "its mime header is a mime header. yay" ); - main::like( $MIME->head->get(\'Content-Type\') , qr/utf-8/, - "Its content type is utf-8" ); - my $message_as_string = $MIME->bodyhandle->as_string(); - use Encode; - $message_as_string = Encode::decode_utf8($message_as_string); - main::like( - $message_as_string , qr/H\x{e5}vard/, -"The message\'s content contains havard\'s name. this will fail if it\'s not utf8 out"); - - }'; -} - -sub iso8859_redef_sendmessage { - no warnings qw/redefine/; - eval ' - sub RT::Action::SendEmail::SendMessage { - my $self = shift; - my $MIME = shift; - - my $scrip = $self->ScripObj->id; - ok(1, $self->ScripObj->ConditionObj->Name . " ".$self->ScripObj->ActionObj->Name); - main::_fired_scrip($self->ScripObj); - $MIME->make_singlepart; - main::is( ref($MIME) , \'MIME::Entity\', - "hey, look. it\'s a mime entity" ); - main::is( ref( $MIME->head ) , \'MIME::Head\', - "its mime header is a mime header. yay" ); - main::like( $MIME->head->get(\'Content-Type\') , qr/iso-8859-1/, - "Its content type is iso-8859-1 - " . $MIME->head->get("Content-Type") ); - my $message_as_string = $MIME->bodyhandle->as_string(); - use Encode; - $message_as_string = Encode::decode("iso-8859-1",$message_as_string); - main::like( - $message_as_string , qr/H\x{e5}vard/, "The message\'s content contains havard\'s name. this will fail if it\'s not utf8 out"); - - }'; -} - -# {{{ test a multipart alternative containing a text-html part with an umlaut - - my $alt_umlaut_email = RT::Test::get_relocatable_file( - 'multipart-alternative-with-umlaut', (File::Spec->updir(), 'data', 'emails')); - $content = RT::Test->file_content($alt_umlaut_email); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -{ - no warnings qw/redefine/; - local *RT::Action::SendEmail::SendMessage = sub { return 1}; - - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - # TODO: following 5 lines should replaced by get_latest_ticket_ok() - $tickets = RT::Tickets->new($RT::SystemUser); - $tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); - $tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick = $tickets->First(); - - ok ($tick->Id, "found ticket ".$tick->Id); - - like (first_txn($tick)->Content , qr/causes Error/, "We recorded the content right as text-plain"); - is (count_attachs($tick) , 3 , "Has three attachments, presumably a text-plain, a text-html and a multipart alternative"); - -} - -# }}} - -# {{{ test a text-html message with an umlaut - my $text_html_email = RT::Test::get_relocatable_file('text-html-with-umlaut', - (File::Spec->updir(), 'data', 'emails')); - $content = RT::Test->file_content($text_html_email); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -&text_html_redef_sendmessage; - - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick = $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -like (first_attach($tick)->Content , qr/causes Error/, "We recorded the content as containing 'causes error'") or diag( first_attach($tick)->Content ); -like (first_attach($tick)->ContentType , qr/text\/html/, "We recorded the content as text/html"); -is (count_attachs($tick), 1 , "Has one attachment, presumably a text-html and a multipart alternative"); - -sub text_html_redef_sendmessage { - no warnings qw/redefine/; - eval 'sub RT::Action::SendEmail::SendMessage { - my $self = shift; - my $MIME = shift; - return (1) unless ($self->ScripObj->ScripActionObj->Name eq "Notify AdminCcs" ); - is ($MIME->parts, 0, "generated correspondence mime entity - does not have parts"); - is ($MIME->head->mime_type , "text/plain", "The mime type is a plain"); - }'; -} - -# }}} - -# {{{ test a text-html message with russian characters - my $russian_email = RT::Test::get_relocatable_file('text-html-in-russian', - (File::Spec->updir(), 'data', 'emails')); - $content = RT::Test->file_content($russian_email); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -&text_html_redef_sendmessage; - - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick = $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -like (first_attach($tick)->ContentType , qr/text\/html/, "We recorded the content right as text-html"); - -is (count_attachs($tick) ,1 , "Has one attachment, presumably a text-html and a multipart alternative"); - -# }}} - -# {{{ test a message containing a russian subject and NO content type - -RT->Config->Set( EmailInputEncodings => 'koi8-r', RT->Config->Get('EmailInputEncodings') ); -RT->Config->Set( EmailOutputEncoding => 'koi8-r' ); -my $russian_subject_email = RT::Test::get_relocatable_file( - 'russian-subject-no-content-type', (File::Spec->updir(), 'data', 'emails')); -$content = RT::Test->file_content($russian_subject_email); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -&text_plain_russian_redef_sendmessage; - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); -$tick= $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -like (first_attach($tick)->ContentType , qr/text\/plain/, "We recorded the content type right"); -is (count_attachs($tick) ,1 , "Has one attachment, presumably a text-plain"); -is ($tick->Subject, "\x{442}\x{435}\x{441}\x{442} \x{442}\x{435}\x{441}\x{442}", "Recorded the subject right"); -sub text_plain_russian_redef_sendmessage { - no warnings qw/redefine/; - eval 'sub RT::Action::SendEmail::SendMessage { - my $self = shift; - my $MIME = shift; - return (1) unless ($self->ScripObj->ScripActionObj->Name eq "Notify AdminCcs" ); - is ($MIME->head->mime_type , "text/plain", "The only part is text/plain "); - my $subject = $MIME->head->get("subject"); - chomp($subject); - #is( $subject , /^=\?KOI8-R\?B\?W2V4YW1wbGUuY39tICM3XSDUxdPUINTF09Q=\?=/ , "The $subject is encoded correctly"); - }; - '; -} - -my @input_encodings = RT->Config->Get( 'EmailInputEncodings' ); -shift @input_encodings; -RT->Config->Set(EmailInputEncodings => @input_encodings ); -RT->Config->Set(EmailOutputEncoding => 'utf-8'); -# }}} - - -# {{{ test a message containing a nested RFC 822 message - -my $nested_rfc822_email = RT::Test::get_relocatable_file('nested-rfc-822', - (File::Spec->updir(), 'data', 'emails')); -$content = RT::Test->file_content($nested_rfc822_email); -ok ($content, "Loaded nested-rfc-822 to test"); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -&text_plain_nested_redef_sendmessage; - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); -$tick= $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); -is ($tick->Subject, "[Jonas Liljegren] Re: [Para] Niv\x{e5}er?"); -like (first_attach($tick)->ContentType , qr/multipart\/mixed/, "We recorded the content type right"); -is (count_attachs($tick) , 5 , "Has one attachment, presumably a text-plain and a message RFC 822 and another plain"); -sub text_plain_nested_redef_sendmessage { - no warnings qw/redefine/; - eval 'sub RT::Action::SendEmail::SendMessage { - my $self = shift; - my $MIME = shift; - return (1) unless ($self->ScripObj->ScripActionObj->Name eq "Notify AdminCcs" ); - is ($MIME->head->mime_type , "multipart/mixed", "It is a mixed multipart"); - my $subject = $MIME->head->get("subject"); - $subject = MIME::Base64::decode_base64( $subject); - chomp($subject); - # TODO, why does this test fail - #ok($subject =~ qr{Niv\x{e5}er}, "The subject matches the word - $subject"); - 1; - }'; -} - -# }}} - - -# {{{ test a multipart alternative containing a uuencoded mesage generated by lotus notes - - my $uuencoded_email = RT::Test::get_relocatable_file('notes-uuencoded', - (File::Spec->updir(), 'data', 'emails')); - $content = RT::Test->file_content($uuencoded_email); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. -{ - no warnings qw/redefine/; - local *RT::Action::SendEmail::SendMessage = sub { return 1}; - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); - $tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); - $tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); - $tick= $tickets->First(); - ok ($tick->Id, "found ticket ".$tick->Id); - - like (first_txn($tick)->Content , qr/from Lotus Notes/, "We recorded the content right"); - is (count_attachs($tick) , 3 , "Has three attachments"); -} - -# }}} - -# {{{ test a multipart that crashes the file-based mime-parser works - - my $crashes_file_based_parser_email = RT::Test::get_relocatable_file( - 'crashes-file-based-parser', (File::Spec->updir(), 'data', 'emails')); - $content = RT::Test->file_content($crashes_file_based_parser_email); - -$parser->ParseMIMEEntityFromScalar($content); - - -# be as much like the mail gateway as possible. - -no warnings qw/redefine/; -local *RT::Action::SendEmail::SendMessage = sub { return 1}; - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); -$tick= $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -like (first_txn($tick)->Content , qr/FYI/, "We recorded the content right"); -is (count_attachs($tick) , 5 , "Has three attachments"); - - - - -# }}} - -# {{{ test a multi-line RT-Send-CC header - - my $rt_send_cc_email = RT::Test::get_relocatable_file('rt-send-cc', - (File::Spec->updir(), 'data', 'emails')); - $content = RT::Test->file_content($rt_send_cc_email); - -$parser->ParseMIMEEntityFromScalar($content); - - - - %args = (message => $content, queue => 1, action => 'correspond'); - RT::Interface::Email::Gateway(\%args); - $tickets = RT::Tickets->new($RT::SystemUser); -$tickets->OrderBy(FIELD => 'id', ORDER => 'DESC'); -$tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0'); -$tick= $tickets->First(); -ok ($tick->Id, "found ticket ".$tick->Id); - -my $cc = first_attach($tick)->GetHeader('RT-Send-Cc'); -like ($cc , qr/test1/, "Found test 1"); -like ($cc , qr/test2/, "Found test 2"); -like ($cc , qr/test3/, "Found test 3"); -like ($cc , qr/test4/, "Found test 4"); -like ($cc , qr/test5/, "Found test 5"); - -# }}} - -diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE}; -{ - my $subject_folding_email = RT::Test::get_relocatable_file( - 'subject-with-folding-ws', (File::Spec->updir(), 'data', 'emails')); - my $content = RT::Test->file_content($subject_folding_email); - my ($status, $msg, $ticket) = RT::Interface::Email::Gateway( - { message => $content, queue => 1, action => 'correspond' } - ); - ok ($status, 'created ticket') or diag "error: $msg"; - ok ($ticket->id, "found ticket ". $ticket->id); - is ($ticket->Subject, 'test', 'correct subject'); -} - -diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE}; -{ - my $long_subject_email = RT::Test::get_relocatable_file('very-long-subject', - (File::Spec->updir(), 'data', 'emails')); - my $content = RT::Test->file_content($long_subject_email); - my ($status, $msg, $ticket) = RT::Interface::Email::Gateway( - { message => $content, queue => 1, action => 'correspond' } - ); - ok ($status, 'created ticket') or diag "error: $msg"; - ok ($ticket->id, "found ticket ". $ticket->id); - is ($ticket->Subject, '0123456789'x20, 'correct subject'); -} - - - -# Don't taint the environment -$everyone->PrincipalObj->RevokeRight(Right =>'SuperUser'); -1; diff --git a/rt/t/mail/verp.t b/rt/t/mail/verp.t deleted file mode 100644 index 79ede90..0000000 --- a/rt/t/mail/verp.t +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use RT::Test tests => 1; -TODO: { - todo_skip "No tests written for VERP yet", 1; - ok(1,"a test to skip"); -} diff --git a/rt/t/maildigest/attributes.t b/rt/t/maildigest/attributes.t deleted file mode 100644 index ba2a585..0000000 --- a/rt/t/maildigest/attributes.t +++ /dev/null @@ -1,168 +0,0 @@ -#!/usr/bin/perl -w - -use warnings; -use strict; -use RT; -use RT::Test tests => 31; -my @users = qw/ emailnormal@example.com emaildaily@example.com emailweekly@example.com emailsusp@example.com /; - -my( $ret, $msg ); -my $user_n = RT::User->new( $RT::SystemUser ); -( $ret, $msg ) = $user_n->LoadOrCreateByEmail( $users[0] ); -ok( $ret, "user with default email prefs created: $msg" ); -$user_n->SetPrivileged( 1 ); - -my $user_d = RT::User->new( $RT::SystemUser ); -( $ret, $msg ) = $user_d->LoadOrCreateByEmail( $users[1] ); -ok( $ret, "user with daily digest email prefs created: $msg" ); -# Set a username & password for testing the interface. -$user_d->SetPrivileged( 1 ); -$user_d->SetPreferences($RT::System => { %{ $user_d->Preferences( $RT::System ) || {}}, EmailFrequency => 'Daily digest'}); - - - -my $user_w = RT::User->new( $RT::SystemUser ); -( $ret, $msg ) = $user_w->LoadOrCreateByEmail( $users[2] ); -ok( $ret, "user with weekly digest email prefs created: $msg" ); -$user_w->SetPrivileged( 1 ); -$user_w->SetPreferences($RT::System => { %{ $user_w->Preferences( $RT::System ) || {}}, EmailFrequency => 'Weekly digest'}); - -my $user_s = RT::User->new( $RT::SystemUser ); -( $ret, $msg ) = $user_s->LoadOrCreateByEmail( $users[3] ); -ok( $ret, "user with suspended email prefs created: $msg" ); -$user_s->SetPreferences($RT::System => { %{ $user_s->Preferences( $RT::System ) || {}}, EmailFrequency => 'Suspended'}); -$user_s->SetPrivileged( 1 ); - - -is(RT::Config->Get('EmailFrequency' => $user_s), 'Suspended'); - -# Make a testing queue for ourselves. -my $testq = RT::Queue->new( $RT::SystemUser ); -if( $testq->ValidateName( 'EmailDigest-testqueue' ) ) { - ( $ret, $msg ) = $testq->Create( Name => 'EmailDigest-testqueue' ); - ok( $ret, "Our test queue is created: $msg" ); -} else { - $testq->Load( 'EmailDigest-testqueue' ); - ok( $testq->id, "Our test queue is loaded" ); -} - -# Allow anyone to open a ticket on the test queue. -my $everyone = RT::Group->new( $RT::SystemUser ); -( $ret, $msg ) = $everyone->LoadSystemInternalGroup( 'Everyone' ); -ok( $ret, "Loaded 'everyone' group: $msg" ); - -( $ret, $msg ) = $everyone->PrincipalObj->GrantRight( Right => 'CreateTicket', - Object => $testq ); -ok( $ret || $msg =~ /already has/, "Granted everyone CreateTicket on testq: $msg" ); - -# Make user_d an admincc for the queue. -( $ret, $msg ) = $user_d->PrincipalObj->GrantRight( Right => 'AdminQueue', - Object => $testq ); -ok( $ret || $msg =~ /already has/, "Granted dduser AdminQueue on testq: $msg" ); -( $ret, $msg ) = $testq->AddWatcher( Type => 'AdminCc', - PrincipalId => $user_d->PrincipalObj->id ); -ok( $ret || $msg =~ /already/, "dduser added as a queue watcher: $msg" ); - -# Give the others queue rights. -( $ret, $msg ) = $user_n->PrincipalObj->GrantRight( Right => 'AdminQueue', - Object => $testq ); -ok( $ret || $msg =~ /already has/, "Granted emailnormal right on testq: $msg" ); -( $ret, $msg ) = $user_w->PrincipalObj->GrantRight( Right => 'AdminQueue', - Object => $testq ); -ok( $ret || $msg =~ /already has/, "Granted emailweekly right on testq: $msg" ); -( $ret, $msg ) = $user_s->PrincipalObj->GrantRight( Right => 'AdminQueue', - Object => $testq ); -ok( $ret || $msg =~ /already has/, "Granted emailsusp right on testq: $msg" ); - -# Create a ticket with To: Cc: Bcc: fields using our four users. -my $id; -my $ticket = RT::Ticket->new( $RT::SystemUser ); -( $id, $ret, $msg ) = $ticket->Create( Queue => $testq->Name, - Requestor => [ $user_w->Name ], - Subject => 'Test ticket for RT::Extension::EmailDigest', - ); -ok( $ret, "Ticket $id created: $msg" ); - -# Make the other users ticket watchers. -( $ret, $msg ) = $ticket->AddWatcher( Type => 'Cc', - PrincipalId => $user_n->PrincipalObj->id ); -ok( $ret, "Added user_n as a ticket watcher: $msg" ); -( $ret, $msg ) = $ticket->AddWatcher( Type => 'Cc', - PrincipalId => $user_s->PrincipalObj->id ); -ok( $ret, "Added user_s as a ticket watcher: $msg" ); - -my $obj; -($id, $msg, $obj ) = $ticket->Correspond( - Content => "This is a ticket response for CC action" ); -ok( $ret, "Transaction created: $msg" ); - -# Get the deferred notifications that should result. Should be two for -# email daily, and one apiece for emailweekly and emailsusp. -my @notifications; - -my $txns = RT::Transactions->new( $RT::SystemUser ); -$txns->LimitToTicket( $ticket->id ); -my( $c_daily, $c_weekly, $c_susp ) = ( 0, 0, 0 ); -while( my $txn = $txns->Next ) { - my @daily_rcpt = $txn->DeferredRecipients( 'daily' ); - my @weekly_rcpt = $txn->DeferredRecipients('weekly' ); - my @susp_rcpt = $txn->DeferredRecipients( 'susp' ); - - $c_daily++ if @daily_rcpt; - $c_weekly++ if @weekly_rcpt; - $c_susp++ if @susp_rcpt; - - # If the transaction has content... - if( $txn->ContentObj ) { - # ...none of the deferred folk should be in the header. - my $headerstr = $txn->ContentObj->Headers; - foreach my $rcpt( @daily_rcpt, @weekly_rcpt, @susp_rcpt ) { - ok( $headerstr !~ /$rcpt/, "Deferred recipient $rcpt not found in header" ); - } - } -} - -# Finally, check to see that we got the correct number of each sort of -# deferred recipient. -is( $c_daily, 2, "correct number of daily-sent messages" ); -is( $c_weekly, 2, "correct number of weekly-sent messages" ); -is( $c_susp, 1, "correct number of suspended messages" ); - - - - - -# Now let's actually run the daily and weekly digest tool to make sure we generate those - -# the first time get the content -email_digest_like( '--mode daily --print', qr/in the last day/ ); -# The second time run it for real so we make sure that we get RT to mark the txn as sent -email_digest_like( '--mode daily', qr/maildaily\@/ ); -# now we should have nothing to do, so no content. -email_digest_like( '--mode daily --print', '' ); - -# the first time get the content -email_digest_like( '--mode weekly --print', qr/in the last seven days/ ); -# The second time run it for real so we make sure that we get RT to mark the txn as sent -email_digest_like( '--mode weekly', qr/mailweekly\@/ ); -# now we should have nothing to do, so no content. -email_digest_like( '--mode weekly --print', '' ); - -sub email_digest_like { - my $arg = shift; - my $pattern = shift; - - local $Test::Builder::Level = $Test::Builder::Level + 1; - - my $perl = $^X . ' ' . join ' ', map { "-I$_" } @INC; - open my $digester, "-|", "$perl $RT::SbinPath/rt-email-digest $arg"; - my @results = <$digester>; - my $content = join '', @results; - if ( ref $pattern && ref $pattern eq 'Regexp' ) { - like($content, $pattern); - } - else { - is( $content, $pattern ); - } - close $digester; -} diff --git a/rt/t/pod.t b/rt/t/pod.t deleted file mode 100644 index d11a497..0000000 --- a/rt/t/pod.t +++ /dev/null @@ -1,7 +0,0 @@ -use strict; -use warnings; - -use Test::More; -eval "use Test::Pod 1.14"; -plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; -all_pod_files_ok(); diff --git a/rt/t/rtname.t b/rt/t/rtname.t deleted file mode 100644 index ef6092b..0000000 --- a/rt/t/rtname.t +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use RT::Test nodata => 1, tests => 9; - -use RT::Interface::Email; - -# normal use case, regexp set to rtname -RT->Config->Set( rtname => "site" ); -RT->Config->Set( EmailSubjectTagRegex => qr/site/ ); -RT->Config->Set( rtname => undef ); -is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123); -is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef); - -# oops usecase, where the regexp is scragged -RT->Config->Set( rtname => "site" ); -RT->Config->Set( EmailSubjectTagRegex => undef ); -is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123); -is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef); - -# set to a simple regexp. NOTE: we no longer match "site" -RT->Config->Set( rtname => "site"); -RT->Config->Set( EmailSubjectTagRegex => qr/newsite/); -is(RT::Interface::Email::ParseTicketId("[site #123] test"), undef); -is(RT::Interface::Email::ParseTicketId("[newsite #123] test"), 123); - -# set to a more complex regexp -RT->Config->Set( rtname => "site" ); -RT->Config->Set( EmailSubjectTagRegex => qr/newsite|site/ ); -is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123); -is(RT::Interface::Email::ParseTicketId("[newsite #123] test"), 123); -is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef); - diff --git a/rt/t/savedsearch.t b/rt/t/savedsearch.t deleted file mode 100644 index 5798f79..0000000 --- a/rt/t/savedsearch.t +++ /dev/null @@ -1,185 +0,0 @@ -use strict; -use warnings; -BEGIN { $ENV{'LANG'} = 'C' } -use RT; -use RT::User; -use RT::Group; -use RT::Ticket; -use RT::Queue; - -use RT::Test tests => 27; -use_ok('RT::SavedSearch'); -use_ok('RT::SavedSearches'); - -use Test::Warn; - -# Set up some infrastructure. These calls are tested elsewhere. - -my $searchuser = RT::User->new($RT::SystemUser); -my ($ret, $msg) = $searchuser->Create(Name => 'searchuser'.$$, - Privileged => 1, - EmailAddress => "searchuser\@p$$.example.com", - RealName => 'Search user'); -ok($ret, "created searchuser: $msg"); -$searchuser->PrincipalObj->GrantRight(Right => 'LoadSavedSearch'); -$searchuser->PrincipalObj->GrantRight(Right => 'CreateSavedSearch'); -$searchuser->PrincipalObj->GrantRight(Right => 'ModifySelf'); - -# This is the group whose searches searchuser should be able to see. -my $ingroup = RT::Group->new($RT::SystemUser); -$ingroup->CreateUserDefinedGroup(Name => 'searchgroup1'.$$); -$ingroup->AddMember($searchuser->Id); -$searchuser->PrincipalObj->GrantRight(Right => 'EditSavedSearches', - Object => $ingroup); -$searchuser->PrincipalObj->GrantRight(Right => 'ShowSavedSearches', - Object => $ingroup); - -# This is the group whose searches searchuser should not be able to see. -my $outgroup = RT::Group->new($RT::SystemUser); -$outgroup->CreateUserDefinedGroup(Name => 'searchgroup2'.$$); -$outgroup->AddMember($RT::SystemUser->Id); - -my $queue = RT::Queue->new($RT::SystemUser); -$queue->Create(Name => 'SearchQueue'.$$); -$searchuser->PrincipalObj->GrantRight(Right => 'SeeQueue', Object => $queue); -$searchuser->PrincipalObj->GrantRight(Right => 'ShowTicket', Object => $queue); -$searchuser->PrincipalObj->GrantRight(Right => 'OwnTicket', Object => $queue); - - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Create(Queue => $queue->Id, - Requestor => [ $searchuser->Name ], - Owner => $searchuser, - Subject => 'saved search test'); - - -# Now start the search madness. -my $curruser = RT::CurrentUser->new($searchuser); -my $format = '\' <b><a href="/Ticket/Display.html?id=__id__">__id__</a></b>/TITLE:#\', -\'<b><a href="/Ticket/Display.html?id=__id__">__Subject__</a></b>/TITLE:Subject\', -\'__Status__\', -\'__QueueName__\', -\'__OwnerName__\', -\'__Priority__\', -\'__NEWLINE__\', -\'\', -\'<small>__Requestors__</small>\', -\'<small>__CreatedRelative__</small>\', -\'<small>__ToldRelative__</small>\', -\'<small>__LastUpdatedRelative__</small>\', -\'<small>__TimeLeft__</small>\''; - -my $mysearch = RT::SavedSearch->new($curruser); -($ret, $msg) = $mysearch->Save(Privacy => 'RT::User-' . $searchuser->Id, - Type => 'Ticket', - Name => 'owned by me', - SearchParams => {'Format' => $format, - 'Query' => "Owner = '" - . $searchuser->Name - . "'"}); -ok($ret, "mysearch was created"); - - -my $groupsearch = RT::SavedSearch->new($curruser); -($ret, $msg) = $groupsearch->Save(Privacy => 'RT::Group-' . $ingroup->Id, - Type => 'Ticket', - Name => 'search queue', - SearchParams => {'Format' => $format, - 'Query' => "Queue = '" - . $queue->Name . "'"}); -ok($ret, "groupsearch was created"); - -my $othersearch = RT::SavedSearch->new($curruser); -($ret, $msg) = $othersearch->Save(Privacy => 'RT::Group-' . $outgroup->Id, - Type => 'Ticket', - Name => 'searchuser requested', - SearchParams => {'Format' => $format, - 'Query' => - "Requestor.Name LIKE 'search'"}); -ok(!$ret, "othersearch NOT created"); -like($msg, qr/Failed to load object for/, "...for the right reason"); - -$othersearch = RT::SavedSearch->new($RT::SystemUser); -($ret, $msg) = $othersearch->Save(Privacy => 'RT::Group-' . $outgroup->Id, - Type => 'Ticket', - Name => 'searchuser requested', - SearchParams => {'Format' => $format, - 'Query' => - "Requestor.Name LIKE 'search'"}); -ok($ret, "othersearch created by systemuser"); - -# Now try to load some searches. - -# This should work. -my $loadedsearch1 = RT::SavedSearch->new($curruser); -$loadedsearch1->Load('RT::User-'.$curruser->Id, $mysearch->Id); -is($loadedsearch1->Id, $mysearch->Id, "Loaded mysearch"); -like($loadedsearch1->GetParameter('Query'), qr/Owner/, - "Retrieved query of mysearch"); -# Check through the other accessor methods. -is($loadedsearch1->Privacy, 'RT::User-' . $curruser->Id, - "Privacy of mysearch correct"); -is($loadedsearch1->Name, 'owned by me', "Name of mysearch correct"); -is($loadedsearch1->Type, 'Ticket', "Type of mysearch correct"); - -# See if it can be used to search for tickets. -my $tickets = RT::Tickets->new($curruser); -$tickets->FromSQL($loadedsearch1->GetParameter('Query')); -is($tickets->Count, 1, "Found a ticket"); - -# This should fail -- wrong object. -# my $loadedsearch2 = RT::SavedSearch->new($curruser); -# $loadedsearch2->Load('RT::User-'.$curruser->Id, $groupsearch->Id); -# isnt($loadedsearch2->Id, $othersearch->Id, "Didn't load groupsearch as mine"); -# ...but this should succeed. -my $loadedsearch3 = RT::SavedSearch->new($curruser); -$loadedsearch3->Load('RT::Group-'.$ingroup->Id, $groupsearch->Id); -is($loadedsearch3->Id, $groupsearch->Id, "Loaded groupsearch"); -like($loadedsearch3->GetParameter('Query'), qr/Queue/, - "Retrieved query of groupsearch"); -# Can it get tickets? -$tickets = RT::Tickets->new($curruser); -$tickets->FromSQL($loadedsearch3->GetParameter('Query')); -is($tickets->Count, 1, "Found a ticket"); - -# This should fail -- no permission. -my $loadedsearch4 = RT::SavedSearch->new($curruser); - -warning_like { - $loadedsearch4->Load($othersearch->Privacy, $othersearch->Id); -} qr/Could not load object RT::Group-\d+ when loading search/; - -isnt($loadedsearch4->Id, $othersearch->Id, "Did not load othersearch"); - -# Try to update an existing search. -$loadedsearch1->Update( SearchParams => {'Format' => $format, - 'Query' => "Queue = '" . $queue->Name . "'" } ); -like($loadedsearch1->GetParameter('Query'), qr/Queue/, - "Updated mysearch parameter"); -is($loadedsearch1->Type, 'Ticket', "mysearch is still for tickets"); -is($loadedsearch1->Privacy, 'RT::User-'.$curruser->Id, - "mysearch still belongs to searchuser"); -like($mysearch->GetParameter('Query'), qr/Queue/, "other mysearch object updated"); - - -## Right ho. Test the pseudo-collection object. - -my $genericsearch = RT::SavedSearch->new($curruser); -$genericsearch->Save(Name => 'generic search', - Type => 'all', - SearchParams => {'Query' => "Queue = 'General'"}); - -my $ticketsearches = RT::SavedSearches->new($curruser); -$ticketsearches->LimitToPrivacy('RT::User-'.$curruser->Id, 'Ticket'); -is($ticketsearches->Count, 1, "Found searchuser's ticket searches"); - -my $allsearches = RT::SavedSearches->new($curruser); -$allsearches->LimitToPrivacy('RT::User-'.$curruser->Id); -is($allsearches->Count, 2, "Found all searchuser's searches"); - -# Delete a search. -($ret, $msg) = $genericsearch->Delete; -ok($ret, "Deleted genericsearch"); -$allsearches->LimitToPrivacy('RT::User-'.$curruser->Id); -is($allsearches->Count, 1, "Found all searchuser's searches after deletion"); - diff --git a/rt/t/shredder/00load.t b/rt/t/shredder/00load.t deleted file mode 100644 index 1e06261..0000000 --- a/rt/t/shredder/00load.t +++ /dev/null @@ -1,29 +0,0 @@ -use strict; -use warnings; -use File::Spec; -use Test::More tests => 11; -use RT::Test (); - -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} - -use_ok("RT::Shredder"); - -use_ok("RT::Shredder::Plugin"); -use_ok("RT::Shredder::Plugin::Base"); - -# search plugins -use_ok("RT::Shredder::Plugin::Base::Search"); -use_ok("RT::Shredder::Plugin::Objects"); -use_ok("RT::Shredder::Plugin::Attachments"); -use_ok("RT::Shredder::Plugin::Tickets"); -use_ok("RT::Shredder::Plugin::Users"); - -# dump plugins -use_ok("RT::Shredder::Plugin::Base::Dump"); -use_ok("RT::Shredder::Plugin::SQLDump"); -use_ok("RT::Shredder::Plugin::Summary"); - diff --git a/rt/t/shredder/00skeleton.t b/rt/t/shredder/00skeleton.t deleted file mode 100644 index eab9433..0000000 --- a/rt/t/shredder/00skeleton.t +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 1; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} -init_db(); - - -create_savepoint('clean'); # backup of the clean RT DB -my $shredder = shredder_new(); # new shredder object - -# .... -# create and wipe RT objects -# - -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); diff --git a/rt/t/shredder/01basics.t b/rt/t/shredder/01basics.t deleted file mode 100644 index 450f2df..0000000 --- a/rt/t/shredder/01basics.t +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 3; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} -init_db(); - - -create_savepoint(); - -use RT::Tickets; -my $ticket = RT::Ticket->new( $RT::SystemUser ); -my ($id) = $ticket->Create( Subject => 'test', Queue => 1 ); -ok( $id, "created new ticket" ); - -$ticket = RT::Ticket->new( $RT::SystemUser ); -my ($status, $msg) = $ticket->Load( $id ); -ok( $id, "load ticket" ) or diag( "error: $msg" ); - -my $shredder = shredder_new(); -$shredder->Wipeout( Object => $ticket ); - -cmp_deeply( dump_current_and_savepoint(), "current DB equal to savepoint"); diff --git a/rt/t/shredder/01ticket.t b/rt/t/shredder/01ticket.t deleted file mode 100644 index 5625b98..0000000 --- a/rt/t/shredder/01ticket.t +++ /dev/null @@ -1,86 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 15; -use RT::Test (); - - -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} - -init_db(); -create_savepoint('clean'); - -use RT::Ticket; -use RT::Tickets; - -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - my ($id) = $ticket->Create( Subject => 'test', Queue => 1 ); - ok( $id, "created new ticket" ); - $ticket->Delete; - is( $ticket->Status, 'deleted', "successfuly changed status" ); - - my $tickets = RT::Tickets->new( $RT::SystemUser ); - $tickets->{'allow_deleted_search'} = 1; - $tickets->LimitStatus( VALUE => 'deleted' ); - is( $tickets->Count, 1, "found one deleted ticket" ); - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $tickets ); - $shredder->WipeoutAll; -} -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); - -{ - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($pid) = $parent->Create( Subject => 'test', Queue => 1 ); - ok( $pid, "created new ticket" ); - create_savepoint('parent_ticket'); - - my $child = RT::Ticket->new( $RT::SystemUser ); - my ($cid) = $child->Create( Subject => 'test', Queue => 1 ); - ok( $cid, "created new ticket" ); - - my ($status, $msg) = $parent->AddLink( Type => 'MemberOf', Target => $cid ); - ok( $status, "Added link between tickets") or diag("error: $msg"); - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $child ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint"); - - $shredder->PutObjects( Objects => $parent ); - $shredder->WipeoutAll; -} -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); - -{ - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($pid) = $parent->Create( Subject => 'test', Queue => 1 ); - ok( $pid, "created new ticket" ); - my ($status, $msg) = $parent->Delete; - ok( $status, 'deleted parent ticket'); - create_savepoint('parent_ticket'); - - my $child = RT::Ticket->new( $RT::SystemUser ); - my ($cid) = $child->Create( Subject => 'test', Queue => 1 ); - ok( $cid, "created new ticket" ); - - ($status, $msg) = $parent->AddLink( Type => 'DependsOn', Target => $cid ); - ok( $status, "Added link between tickets") or diag("error: $msg"); - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $child ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint"); - - $shredder->PutObjects( Objects => $parent ); - $shredder->WipeoutAll; -} -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); diff --git a/rt/t/shredder/02group_member.t b/rt/t/shredder/02group_member.t deleted file mode 100644 index b68557a..0000000 --- a/rt/t/shredder/02group_member.t +++ /dev/null @@ -1,103 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 22; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} -init_db(); - - -### nested membership check -{ - create_savepoint('clean'); - my $pgroup = RT::Group->new( $RT::SystemUser ); - my ($pgid) = $pgroup->CreateUserDefinedGroup( Name => 'Parent group' ); - ok( $pgid, "created parent group" ); - is( $pgroup->id, $pgid, "id is correct" ); - - my $cgroup = RT::Group->new( $RT::SystemUser ); - my ($cgid) = $cgroup->CreateUserDefinedGroup( Name => 'Child group' ); - ok( $cgid, "created child group" ); - is( $cgroup->id, $cgid, "id is correct" ); - - my ($status, $msg) = $pgroup->AddMember( $cgroup->id ); - ok( $status, "added child group to parent") or diag "error: $msg"; - - create_savepoint('bucreate'); # before user create - my $user = RT::User->new( $RT::SystemUser ); - my $uid; - ($uid, $msg) = $user->Create( Name => 'new user', Privileged => 1, Disabled => 0 ); - ok( $uid, "created new user" ) or diag "error: $msg"; - is( $user->id, $uid, "id is correct" ); - - create_savepoint('buadd'); # before group add - ($status, $msg) = $cgroup->AddMember( $user->id ); - ok( $status, "added user to child group") or diag "error: $msg"; - - my $members = RT::GroupMembers->new( $RT::SystemUser ); - $members->Limit( FIELD => 'MemberId', VALUE => $uid ); - $members->Limit( FIELD => 'GroupId', VALUE => $cgid ); - is( $members->Count, 1, "find membership record" ); - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $members ); - $shredder->WipeoutAll(); - cmp_deeply( dump_current_and_savepoint('buadd'), "current DB equal to savepoint"); - - $shredder->PutObjects( Objects => $user ); - $shredder->WipeoutAll(); - cmp_deeply( dump_current_and_savepoint('bucreate'), "current DB equal to savepoint"); - - $shredder->PutObjects( Objects => [$pgroup, $cgroup] ); - $shredder->WipeoutAll(); - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -### deleting member of the ticket Owner role group -{ - restore_savepoint('clean'); - - my $user = RT::User->new( $RT::SystemUser ); - my ($uid, $msg) = $user->Create( Name => 'new user', Privileged => 1, Disabled => 0 ); - ok( $uid, "created new user" ) or diag "error: $msg"; - is( $user->id, $uid, "id is correct" ); - - use RT::Queue; - my $queue = new RT::Queue( $RT::SystemUser ); - $queue->Load('general'); - ok( $queue->id, "queue loaded succesfully" ); - - $user->PrincipalObj->GrantRight( Right => 'OwnTicket', Object => $queue ); - - use RT::Tickets; - my $ticket = RT::Ticket->new( $RT::SystemUser ); - my ($id) = $ticket->Create( Subject => 'test', Queue => $queue->id ); - ok( $id, "created new ticket" ); - $ticket = RT::Ticket->new( $RT::SystemUser ); - my $status; - ($status, $msg) = $ticket->Load( $id ); - ok( $id, "load ticket" ) or diag( "error: $msg" ); - - ($status, $msg) = $ticket->SetOwner( $user->id ); - ok( $status, "owner successfuly set") or diag( "error: $msg" ); - is( $ticket->Owner, $user->id, "owner successfuly set") or diag( "error: $msg" ); - - my $member = $ticket->OwnerGroup->MembersObj->First; - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $member ); - $shredder->WipeoutAll(); - - $ticket = RT::Ticket->new( $RT::SystemUser ); - ($status, $msg) = $ticket->Load( $id ); - ok( $id, "load ticket" ) or diag( "error: $msg" ); - is( $ticket->Owner, $RT::Nobody->id, "owner switched back to nobody" ); - is( $ticket->OwnerGroup->MembersObj->First->MemberId, $RT::Nobody->id, "and owner role group member is nobody"); -} diff --git a/rt/t/shredder/02queue.t b/rt/t/shredder/02queue.t deleted file mode 100644 index 197cf63..0000000 --- a/rt/t/shredder/02queue.t +++ /dev/null @@ -1,125 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 16; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} -init_db(); - - -diag 'simple queue' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $queue = RT::Queue->new( $RT::SystemUser ); - my ($id, $msg) = $queue->Create( Name => 'my queue' ); - ok($id, 'created queue') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $queue ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -diag 'queue with scrip' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $queue = RT::Queue->new( $RT::SystemUser ); - my ($id, $msg) = $queue->Create( Name => 'my queue' ); - ok($id, 'created queue') or diag "error: $msg"; - - my $scrip = RT::Scrip->new( $RT::SystemUser ); - ($id, $msg) = $scrip->Create( - Description => 'my scrip', - Queue => $queue->id, - ScripCondition => 'On Create', - ScripAction => 'Open Tickets', - Template => 'Blank', - ); - ok($id, 'created scrip') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $queue ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -diag 'queue with template' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $queue = RT::Queue->new( $RT::SystemUser ); - my ($id, $msg) = $queue->Create( Name => 'my queue' ); - ok($id, 'created queue') or diag "error: $msg"; - - my $template = RT::Template->new( $RT::SystemUser ); - ($id, $msg) = $template->Create( - Name => 'my template', - Queue => $queue->id, - Content => "\nsome content", - ); - ok($id, 'created template') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $queue ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -diag 'queue with a right granted' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $queue = RT::Queue->new( $RT::SystemUser ); - my ($id, $msg) = $queue->Create( Name => 'my queue' ); - ok($id, 'created queue') or diag "error: $msg"; - - my $group = RT::Group->new( $RT::SystemUser ); - $group->LoadSystemInternalGroup('Everyone'); - ok($group->id, 'loaded group'); - - ($id, $msg) = $group->PrincipalObj->GrantRight( - Right => 'CreateTicket', - Object => $queue, - ); - ok($id, 'granted right') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $queue ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -diag 'queue with a watcher' if $ENV{'TEST_VERBOSE'}; -{ -# XXX, FIXME: if uncomment these lines then we'll get 'Bizarre...' -# create_savepoint('clean'); - my $group = RT::Group->new( $RT::SystemUser ); - my ($id, $msg) = $group->CreateUserDefinedGroup(Name => 'my group'); - ok($id, 'created group') or diag "error: $msg"; - - create_savepoint('bqcreate'); - my $queue = RT::Queue->new( $RT::SystemUser ); - ($id, $msg) = $queue->Create( Name => 'my queue' ); - ok($id, 'created queue') or diag "error: $msg"; - - ($id, $msg) = $queue->AddWatcher( - Type => 'Cc', - PrincipalId => $group->id, - ); - ok($id, 'added watcher') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $queue ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('bqcreate'), "current DB equal to savepoint"); - -# $shredder->PutObjects( Objects => $group ); -# $shredder->WipeoutAll; -# cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} diff --git a/rt/t/shredder/02template.t b/rt/t/shredder/02template.t deleted file mode 100644 index d4c323e..0000000 --- a/rt/t/shredder/02template.t +++ /dev/null @@ -1,76 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 7; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} -init_db(); - - -diag 'global template' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $template = RT::Template->new( $RT::SystemUser ); - my ($id, $msg) = $template->Create( - Name => 'my template', - Content => "\nsome content", - ); - ok($id, 'created template') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $template ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -diag 'local template' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $template = RT::Template->new( $RT::SystemUser ); - my ($id, $msg) = $template->Create( - Name => 'my template', - Queue => 'General', - Content => "\nsome content", - ); - ok($id, 'created template') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $template ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} - -diag 'template used in scrip' if $ENV{'TEST_VERBOSE'}; -{ - create_savepoint('clean'); - my $template = RT::Template->new( $RT::SystemUser ); - my ($id, $msg) = $template->Create( - Name => 'my template', - Queue => 'General', - Content => "\nsome content", - ); - ok($id, 'created template') or diag "error: $msg"; - - my $scrip = RT::Scrip->new( $RT::SystemUser ); - ($id, $msg) = $scrip->Create( - Description => 'my scrip', - Queue => 'General', - ScripCondition => 'On Create', - ScripAction => 'Open Tickets', - Template => $template->id, - ); - ok($id, 'created scrip') or diag "error: $msg"; - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => $template ); - $shredder->WipeoutAll; - cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); -} diff --git a/rt/t/shredder/02user.t b/rt/t/shredder/02user.t deleted file mode 100644 index 03abd6c..0000000 --- a/rt/t/shredder/02user.t +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 8; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} -init_db(); - - -create_savepoint('clean'); - -my $queue = RT::Queue->new( $RT::SystemUser ); -my ($qid) = $queue->Load( 'General' ); -ok( $qid, "loaded queue" ); - -my $ticket = RT::Ticket->new( $RT::SystemUser ); -my ($tid) = $ticket->Create( Queue => $qid, Subject => 'test' ); -ok( $tid, "ticket created" ); - -create_savepoint('bucreate'); # berfore user create -my $user = RT::User->new( $RT::SystemUser ); -my ($uid, $msg) = $user->Create( Name => 'new user', Privileged => 1, Disabled => 0 ); -ok( $uid, "created new user" ) or diag "error: $msg"; -is( $user->id, $uid, "id is correct" ); -# HACK: set ticket props to enable VARIABLE dependencies -$ticket->__Set( Field => 'LastUpdatedBy', Value => $uid ); -create_savepoint('aucreate'); # after user create - -{ - my $resolver = sub { - my %args = (@_); - my $t = $args{'TargetObject'}; - my $resolver_uid = $RT::SystemUser->id; - foreach my $method ( qw(Creator LastUpdatedBy) ) { - next unless $t->_Accessible( $method => 'read' ); - $t->__Set( Field => $method, Value => $resolver_uid ); - } - }; - my $shredder = shredder_new(); - $shredder->PutResolver( BaseClass => 'RT::User', Code => $resolver ); - $shredder->Wipeout( Object => $user ); - cmp_deeply( dump_current_and_savepoint('bucreate'), "current DB equal to savepoint"); -} - -{ - restore_savepoint('aucreate'); - my $user = RT::User->new( $RT::SystemUser ); - $user->Load($uid); - ok($user->id, "loaded user after restore"); - my $shredder = shredder_new(); - eval { $shredder->Wipeout( Object => $user ) }; - ok($@, "wipeout throw exception if no resolvers"); - cmp_deeply( dump_current_and_savepoint('aucreate'), "current DB equal to savepoint"); -} diff --git a/rt/t/shredder/03plugin.t b/rt/t/shredder/03plugin.t deleted file mode 100644 index 190f40a..0000000 --- a/rt/t/shredder/03plugin.t +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 28; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} - -my @PLUGINS = sort qw(Attachments Base Objects SQLDump Summary Tickets Users); - -use_ok('RT::Shredder::Plugin'); -{ - my $plugin = new RT::Shredder::Plugin; - isa_ok($plugin, 'RT::Shredder::Plugin'); - my %plugins = $plugin->List; - cmp_deeply( [sort keys %plugins], [@PLUGINS], "correct plugins" ); -} -{ # test ->List as class method - my %plugins = RT::Shredder::Plugin->List; - cmp_deeply( [sort keys %plugins], [@PLUGINS], "correct plugins" ); -} -{ # reblessing on LoadByName - foreach (@PLUGINS) { - my $plugin = new RT::Shredder::Plugin; - isa_ok($plugin, 'RT::Shredder::Plugin'); - my ($status, $msg) = $plugin->LoadByName( $_ ); - ok($status, "loaded plugin by name") or diag("error: $msg"); - isa_ok($plugin, "RT::Shredder::Plugin::$_" ); - } -} -{ # error checking in LoadByName - my $plugin = new RT::Shredder::Plugin; - isa_ok($plugin, 'RT::Shredder::Plugin'); - my ($status, $msg) = $plugin->LoadByName; - ok(!$status, "not loaded plugin - empty name"); - ($status, $msg) = $plugin->LoadByName('Foo'); - ok(!$status, "not loaded plugin - not exist"); -} - diff --git a/rt/t/shredder/03plugin_summary.t b/rt/t/shredder/03plugin_summary.t deleted file mode 100644 index 30606af..0000000 --- a/rt/t/shredder/03plugin_summary.t +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 4; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} - - -use_ok('RT::Shredder::Plugin'); -my $plugin_obj = new RT::Shredder::Plugin; -isa_ok($plugin_obj, 'RT::Shredder::Plugin'); -my ($status, $msg) = $plugin_obj->LoadByName('Summary'); -ok($status, 'loaded summary plugin') or diag "error: $msg"; -isa_ok($plugin_obj, 'RT::Shredder::Plugin::Summary'); - diff --git a/rt/t/shredder/03plugin_tickets.t b/rt/t/shredder/03plugin_tickets.t deleted file mode 100644 index 3d742ff..0000000 --- a/rt/t/shredder/03plugin_tickets.t +++ /dev/null @@ -1,150 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 44; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} - - -use_ok('RT::Shredder::Plugin::Tickets'); -{ - my $plugin = new RT::Shredder::Plugin::Tickets; - isa_ok($plugin, 'RT::Shredder::Plugin::Tickets'); - - is(lc $plugin->Type, 'search', 'correct type'); -} - -init_db(); -create_savepoint('clean'); -use_ok('RT::Ticket'); -use_ok('RT::Tickets'); - -{ # create parent and child and check functionality of 'with_linked' arg - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($pid) = $parent->Create( Subject => 'parent', Queue => 1 ); - ok( $pid, "created new ticket" ); - - my $child = RT::Ticket->new( $RT::SystemUser ); - my ($cid) = $child->Create( Subject => 'child', Queue => 1, MemberOf => $pid ); - ok( $cid, "created new ticket" ); - - my $plugin = new RT::Shredder::Plugin::Tickets; - isa_ok($plugin, 'RT::Shredder::Plugin::Tickets'); - - my ($status, $msg, @objs); - ($status, $msg) = $plugin->TestArgs( query => 'Subject = "parent"' ); - ok($status, "plugin arguments are ok") or diag "error: $msg"; - - ($status, @objs) = $plugin->Run; - ok($status, "executed plugin successfully") or diag "error: @objs"; - @objs = RT::Shredder->CastObjectsToRecords( Objects => \@objs ); - is(scalar @objs, 1, "only one object in result set"); - is($objs[0]->id, $pid, "parent is in result set"); - - ($status, $msg) = $plugin->TestArgs( query => 'Subject = "parent"', with_linked => 1 ); - ok($status, "plugin arguments are ok") or diag "error: $msg"; - - ($status, @objs) = $plugin->Run; - ok($status, "executed plugin successfully") or diag "error: @objs"; - @objs = RT::Shredder->CastObjectsToRecords( Objects => \@objs ); - my %has = map { $_->id => 1 } @objs; - is(scalar @objs, 2, "two objects in the result set"); - ok($has{$pid}, "parent is in the result set"); - ok($has{$cid}, "child is in the result set"); - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => \@objs ); - $shredder->WipeoutAll; -} -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); - -{ # create parent and child and link them reqursively to check that we don't hang - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($pid) = $parent->Create( Subject => 'parent', Queue => 1 ); - ok( $pid, "created new ticket" ); - - my $child = RT::Ticket->new( $RT::SystemUser ); - my ($cid) = $child->Create( Subject => 'child', Queue => 1, MemberOf => $pid ); - ok( $cid, "created new ticket" ); - - my ($status, $msg) = $child->AddLink( Target => $pid, Type => 'DependsOn' ); - ok($status, "added reqursive link") or diag "error: $msg"; - - my $plugin = new RT::Shredder::Plugin::Tickets; - isa_ok($plugin, 'RT::Shredder::Plugin::Tickets'); - - my (@objs); - ($status, $msg) = $plugin->TestArgs( query => 'Subject = "parent"' ); - ok($status, "plugin arguments are ok") or diag "error: $msg"; - - ($status, @objs) = $plugin->Run; - ok($status, "executed plugin successfully") or diag "error: @objs"; - @objs = RT::Shredder->CastObjectsToRecords( Objects => \@objs ); - is(scalar @objs, 1, "only one object in result set"); - is($objs[0]->id, $pid, "parent is in result set"); - - ($status, $msg) = $plugin->TestArgs( query => 'Subject = "parent"', with_linked => 1 ); - ok($status, "plugin arguments are ok") or diag "error: $msg"; - - ($status, @objs) = $plugin->Run; - ok($status, "executed plugin successfully") or diag "error: @objs"; - @objs = RT::Shredder->CastObjectsToRecords( Objects => \@objs ); - is(scalar @objs, 2, "two objects in the result set"); - my %has = map { $_->id => 1 } @objs; - ok($has{$pid}, "parent is in the result set"); - ok($has{$cid}, "child is in the result set"); - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => \@objs ); - $shredder->WipeoutAll; -} -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); - -{ # create parent and child and check functionality of 'apply_query_to_linked' arg - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($pid) = $parent->Create( Subject => 'parent', Queue => 1, Status => 'resolved' ); - ok( $pid, "created new ticket" ); - - my $child1 = RT::Ticket->new( $RT::SystemUser ); - my ($cid1) = $child1->Create( Subject => 'child', Queue => 1, MemberOf => $pid ); - ok( $cid1, "created new ticket" ); - my $child2 = RT::Ticket->new( $RT::SystemUser ); - my ($cid2) = $child2->Create( Subject => 'child', Queue => 1, MemberOf => $pid, Status => 'resolved' ); - ok( $cid2, "created new ticket" ); - - my $plugin = new RT::Shredder::Plugin::Tickets; - isa_ok($plugin, 'RT::Shredder::Plugin::Tickets'); - - my ($status, $msg) = $plugin->TestArgs( query => 'Status = "resolved"', apply_query_to_linked => 1 ); - ok($status, "plugin arguments are ok") or diag "error: $msg"; - - my @objs; - ($status, @objs) = $plugin->Run; - ok($status, "executed plugin successfully") or diag "error: @objs"; - @objs = RT::Shredder->CastObjectsToRecords( Objects => \@objs ); - is(scalar @objs, 2, "two objects in the result set"); - my %has = map { $_->id => 1 } @objs; - ok($has{$pid}, "parent is in the result set"); - ok(!$has{$cid1}, "first child is in the result set"); - ok($has{$cid2}, "second child is in the result set"); - - my $shredder = shredder_new(); - $shredder->PutObjects( Objects => \@objs ); - $shredder->WipeoutAll; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $cid1 ); - is($ticket->id, $cid1, 'loaded ticket'); - - $shredder->PutObjects( Objects => $ticket ); - $shredder->WipeoutAll; -} -cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"); diff --git a/rt/t/shredder/03plugin_users.t b/rt/t/shredder/03plugin_users.t deleted file mode 100644 index 45fc8a2..0000000 --- a/rt/t/shredder/03plugin_users.t +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use Test::Deep; -use File::Spec; -use Test::More tests => 9; -use RT::Test (); -BEGIN { - my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', - File::Spec->curdir()); - require $shredder_utils; -} - - -my @ARGS = sort qw(limit status name member_of email replace_relations no_tickets); - -use_ok('RT::Shredder::Plugin::Users'); -{ - my $plugin = new RT::Shredder::Plugin::Users; - isa_ok($plugin, 'RT::Shredder::Plugin::Users'); - - is(lc $plugin->Type, 'search', 'correct type'); - - my @args = sort $plugin->SupportArgs; - cmp_deeply(\@args, \@ARGS, "support all args"); - - - my ($status, $msg) = $plugin->TestArgs( name => 'r??t*' ); - ok($status, "arg name = 'r??t*'") or diag("error: $msg"); - - for (qw(any disabled enabled)) { - my ($status, $msg) = $plugin->TestArgs( status => $_ ); - ok($status, "arg status = '$_'") or diag("error: $msg"); - } - ($status, $msg) = $plugin->TestArgs( status => '!@#' ); - ok(!$status, "bad 'status' arg value"); -} - diff --git a/rt/t/shredder/utils.pl b/rt/t/shredder/utils.pl deleted file mode 100644 index 5424331..0000000 --- a/rt/t/shredder/utils.pl +++ /dev/null @@ -1,435 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use File::Spec; -use File::Temp 0.19 (); -require File::Path; -require File::Copy; -require Cwd; - -BEGIN { -### after: push @INC, qw(@RT_LIB_PATH@); - push @INC, qw(/opt/rt3/local/lib /opt/rt3/lib); -} -use RT::Shredder; - -# where to keep temporary generated test data -my $tmpdir = ''; - -=head1 DESCRIPTION - -RT::Shredder test suite utilities - -=head1 TESTING - -Since RT:Shredder 0.01_03 we have a test suite. You -can run tests and see if everything works as expected -before you try shredder on your actual data. -Tests also help in the development process. - -The test suite uses SQLite databases to store data in individual files, -so you could sun tests on your production servers without risking -damage to your production data. - -You'll want to run the test suite almost every time you install or update -the shredder distribution, especialy if you have local customizations of -the DB schema and/or RT code. - -Tests are one thing you can write even if you don't know much perl, -but want to learn more about RT's internals. New tests are very welcome. - -=head2 WRITING TESTS - -The shredder distribution has several files to help write new tests. - - t/shredder/utils.pl - this file, utilities - t/00skeleton.t - skeleteton .t file for new tests - -All tests follow this algorithm: - - require "t/shredder/utils.pl"; # plug in utilities - init_db(); # create new tmp RT DB and init RT API - # create RT data you want to be always in the RT DB - # ... - create_savepoint('mysp'); # create DB savepoint - # create data you want delete with shredder - # ... - # run shredder on the objects you've created - # ... - # check that shredder deletes things you want - # this command will compare savepoint DB with current - cmp_deeply( dump_current_and_savepoint('mysp'), "current DB equal to savepoint"); - # then you can create another object and delete it, then check again - -Savepoints are named and you can create two or more savepoints. - -=head1 FUNCTIONS - -=head2 RT CONFIG - -=head3 rewrite_rtconfig - -Call this sub after C<RT::LoadConfig>. It changes the RT config -options necessary to switch to a local SQLite database. - -=cut - -sub rewrite_rtconfig -{ - # database - config_set( '$DatabaseType' , 'SQLite' ); - config_set( '$DatabaseHost' , 'localhost' ); - config_set( '$DatabaseRTHost' , 'localhost' ); - config_set( '$DatabasePort' , '' ); - config_set( '$DatabaseUser' , 'rt_user' ); - config_set( '$DatabasePassword' , 'rt_pass' ); - config_set( '$DatabaseRequireSSL' , undef ); - # database file name - config_set( '$DatabaseName' , db_name() ); - - # generic logging - config_set( '$LogToSyslog' , undef ); - config_set( '$LogToScreen' , 'error' ); - config_set( '$LogStackTraces' , 'crit' ); - # logging to standalone file - config_set( '$LogToFile' , 'debug' ); - my $fname = File::Spec->catfile(create_tmpdir(), test_name() .".log"); - config_set( '$LogToFileNamed' , $fname ); -} - -=head3 config_set - -This sub is a helper used by C<rewrite_rtconfig>. You shouldn't -need to use it elsewhere unless you need to change other RT -configuration variables. - -=cut - -sub config_set { - my $opt = shift; - $opt =~ s/^[\$\%\@]//; - RT->Config->Set($opt, @_) -} - -=head2 DATABASES - -=head3 init_db - -Creates a new RT DB with initial data in a new test tmp dir. -Also runs RT::Init() and RT::InitLogging(). - -This is all you need to call to setup a testing environment -in most situations. - -=cut - -sub init_db -{ - create_tmpdir(); - RT::LoadConfig(); - rewrite_rtconfig(); - RT::InitLogging(); - - _init_db(); - - RT::Init(); - $SIG{__WARN__} = sub { $RT::Logger->warning( @_ ); warn @_ }; - $SIG{__DIE__} = sub { $RT::Logger->crit( @_ ) unless $^S; die @_ }; -} - -use IPC::Open2; -sub _init_db -{ - - - foreach ( qw(Type Host Port Name User Password) ) { - $ENV{ "RT_DB_". uc $_ } = RT->Config->Get("Database$_"); - } - my $rt_setup_database = RT::Test::get_relocatable_file( - 'rt-setup-database', (File::Spec->updir(), File::Spec->updir(), 'sbin')); - my $cmd = "$^X $rt_setup_database --action init 2>&1"; - - my ($child_out, $child_in); - my $pid = open2($child_out, $child_in, $cmd); - close $child_in; - my $result = do { local $/; <$child_out> }; - return $result; -} - -=head3 db_name - -Returns the absolute file path to the current DB. -It is <$tmpdir . test_name() .'.db'>. - -See also the C<test_name> function. - -=cut - -sub db_name { return File::Spec->catfile(create_tmpdir(), test_name() .".db") } - -=head3 connect_sqlite - -Returns connected DBI DB handle. - -Takes path to sqlite db. - -=cut - -sub connect_sqlite -{ - return DBI->connect("dbi:SQLite:dbname=". shift, "", ""); -} - -=head2 SHREDDER - -=head3 shredder_new - -Creates and returns a new RT::Shredder object. - -=cut - -sub shredder_new -{ - my $obj = new RT::Shredder; - - my $file = File::Spec->catfile( create_tmpdir(), test_name() .'.XXXX.sql' ); - $obj->AddDumpPlugin( Arguments => { - file_name => $file, - from_storage => 0, - } ); - - return $obj; -} - - -=head2 TEST FILES - -=head3 test_name - -Returns name of the test file running now with file extension and -directory names stripped. - -For example, it returns '00load' for the test file 't/00load.t'. - -=cut - -sub test_name -{ - my $name = $0; - $name =~ s/^.*[\\\/]//; - $name =~ s/\..*$//; - return $name; -} - -=head2 TEMPORARY DIRECTORY - -=head3 tmpdir - -Returns the absolute path to a tmp dir used in tests. - -=cut - -sub tmpdir { - if (-d $tmpdir) { - return $tmpdir; - } else { - $tmpdir = File::Temp->newdir(TEMPLATE => 'shredderXXXXX', CLEANUP => 0); - return $tmpdir; - } -} - -=head2 create_tmpdir - -Creates a tmp dir if one doesn't exist already. Returns tmpdir path. - -=cut - -sub create_tmpdir { my $n = tmpdir(); File::Path::mkpath( [$n] ); return $n } - -=head3 cleanup_tmp - -Deletes all the tmp dir used in the tests. -See also the C<test_name> function. - -=cut - -sub cleanup_tmp -{ - my $dir = File::Spec->catdir(tmpdir(), test_name()); - return File::Path::rmtree( File::Spec->catdir( tmpdir(), test_name() )); -} - -=head2 SAVEPOINTS - -=head3 savepoint_name - -Returns the absolute path to the named savepoint DB file. -Takes one argument - savepoint name, by default C<sp>. - -=cut - -sub savepoint_name -{ - my $name = shift || 'sp'; - return File::Spec->catfile( create_tmpdir(), test_name() .".$name.db" ); -} - -=head3 create_savepoint - -Creates savepoint DB from the current DB. -Takes name of the savepoint as argument. - -=head3 restore_savepoint - -Restores current DB to savepoint state. -Takes name of the savepoint as argument. - -=cut - -sub create_savepoint { return __cp_db( db_name() => savepoint_name( shift ) ) } -sub restore_savepoint { return __cp_db( savepoint_name( shift ) => db_name() ) } -sub __cp_db -{ - my( $orig, $dest ) = @_; - $RT::Handle->dbh->disconnect; - # DIRTY HACK: undef Handles to force reconnect - $RT::Handle = undef; - %DBIx::SearchBuilder::DBIHandle = (); - $DBIx::SearchBuilder::PrevHandle = undef; - - File::Copy::copy( $orig, $dest ) or die "Couldn't copy '$orig' => '$dest': $!"; - RT::ConnectToDatabase(); - return; -} - - -=head2 DUMPS - -=head3 dump_sqlite - -Returns DB dump as a complex hash structure: - { - TableName => { - #id => { - lc_field => 'value', - } - } - } - -Takes named argument C<CleanDates>. If true, clean all date fields from -dump. True by default. - -=cut - -sub dump_sqlite -{ - my $dbh = shift; - my %args = ( CleanDates => 1, @_ ); - - my $old_fhkn = $dbh->{'FetchHashKeyName'}; - $dbh->{'FetchHashKeyName'} = 'NAME_lc'; - - my $sth = $dbh->table_info( '', '', '%', 'TABLE' ) || die $DBI::err; - my @tables = keys %{$sth->fetchall_hashref( 'table_name' )}; - - my $res = {}; - foreach my $t( @tables ) { - next if lc($t) eq 'sessions'; - $res->{$t} = $dbh->selectall_hashref("SELECT * FROM $t", 'id'); - clean_dates( $res->{$t} ) if $args{'CleanDates'}; - die $DBI::err if $DBI::err; - } - - $dbh->{'FetchHashKeyName'} = $old_fhkn; - return $res; -} - -=head3 dump_current_and_savepoint - -Returns dump of the current DB and of the named savepoint. -Takes one argument - savepoint name. - -=cut - -sub dump_current_and_savepoint -{ - my $orig = savepoint_name( shift ); - die "Couldn't find savepoint file" unless -f $orig && -r _; - my $odbh = connect_sqlite( $orig ); - return ( dump_sqlite( $RT::Handle->dbh, @_ ), dump_sqlite( $odbh, @_ ) ); -} - -=head3 dump_savepoint_and_current - -Returns the same data as C<dump_current_and_savepoint> function, -but in reversed order. - -=cut - -sub dump_savepoint_and_current { return reverse dump_current_and_savepoint(@_) } - -sub clean_dates -{ - my $h = shift; - my $date_re = qr/^\d\d\d\d\-\d\d\-\d\d\s*\d\d\:\d\d(\:\d\d)?$/i; - foreach my $id ( keys %{ $h } ) { - next unless $h->{ $id }; - foreach ( keys %{ $h->{ $id } } ) { - delete $h->{$id}{$_} if $h->{$id}{$_} && - $h->{$id}{$_} =~ /$date_re/; - } - } -} - -=head2 NOTES - -Function that returns debug notes. - -=head3 note_on_fail - -Returns a note about debug info that you can display if tests fail. - -=cut - -sub note_on_fail -{ - my $name = test_name(); - my $tmpdir = tmpdir(); - return <<END; -Some tests in '$0' file failed. -You can find debug info in '$tmpdir' dir. -There should be: - $name.log - RT debug log file - $name.db - latest RT DB used while testing - $name.*.db - savepoint databases -See also perldoc t/shredder/utils.pl for how to use this info. -END -} - -=head2 OTHER - -=head3 all_were_successful - -Returns true if all tests that have already run were successful. - -=cut - -sub all_were_successful -{ - use Test::Builder; - my $Test = Test::Builder->new; - return grep( !$_, $Test->summary )? 0: 1; -} - -END { - return unless -e tmpdir(); - if ( all_were_successful() ) { - cleanup_tmp(); - } else { - diag( note_on_fail() ); - } -} - -1; diff --git a/rt/t/ticket/action_linear_escalate.t b/rt/t/ticket/action_linear_escalate.t deleted file mode 100644 index 38cd47d..0000000 --- a/rt/t/ticket/action_linear_escalate.t +++ /dev/null @@ -1,100 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT; -use RT::Test tests => 17; - -my ($id, $msg); -my $RecordTransaction; -my $UpdateLastUpdated; - - -use_ok('RT::Action::LinearEscalate'); - -my $q = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $q && $q->id, 'loaded or created queue'; - -# rt-cron-tool uses Gecos name to get rt user, so we'd better create one -my $gecos = RT::Test->load_or_create_user( - Name => 'gecos', - Password => 'password', - Gecos => ($^O eq 'MSWin32') ? Win32::LoginName() : (getpwuid($<))[0], -); -ok $gecos && $gecos->id, 'loaded or created gecos user'; - -# get rid of all right permissions -$gecos->PrincipalObj->GrantRight( Right => 'SuperUser' ); - - -my $user = RT::Test->load_or_create_user( - Name => 'user', Password => 'password', -); -ok $user && $user->id, 'loaded or created user'; - -$user->PrincipalObj->GrantRight( Right => 'SuperUser' ); -my $current_user = RT::CurrentUser->new($RT::SystemUser); -($id, $msg) = $current_user->Load($user->id); -ok( $id, "Got current user? $msg" ); - -#defaults -$RecordTransaction = 0; -$UpdateLastUpdated = 1; -my $ticket2 = create_ticket_as_ok($current_user); -escalate_ticket_ok($ticket2); -ok( $ticket2->LastUpdatedBy != $user->id, "Set LastUpdated" ); -ok( $ticket2->Transactions->Last->Type =~ /Create/i, "Did not record a transaction" ); - -$RecordTransaction = 1; -$UpdateLastUpdated = 1; -my $ticket1 = create_ticket_as_ok($current_user); -escalate_ticket_ok($ticket1); -ok( $ticket1->LastUpdatedBy != $user->id, "Set LastUpdated" ); -ok( $ticket1->Transactions->Last->Type !~ /Create/i, "Recorded a transaction" ); - -$RecordTransaction = 0; -$UpdateLastUpdated = 0; -my $ticket3 = create_ticket_as_ok($current_user); -escalate_ticket_ok($ticket3); -ok( $ticket3->LastUpdatedBy == $user->id, "Did not set LastUpdated" ); -ok( $ticket3->Transactions->Last->Type =~ /Create/i, "Did not record a transaction" ); - -1; - - -sub create_ticket_as_ok { - my $user = shift; - - my $created = RT::Date->new($RT::SystemUser); - $created->Unix(time() - ( 7 * 24 * 60**2 )); - my $due = RT::Date->new($RT::SystemUser); - $due->Unix(time() + ( 7 * 24 * 60**2 )); - - my $ticket = RT::Ticket->new($user); - ($id, $msg) = $ticket->Create( Queue => $q->id, - Subject => "Escalation test", - Priority => 0, - InitialPriority => 0, - FinalPriority => 50, - ); - ok($id, "Created ticket? ".$id); - $ticket->__Set( Field => 'Created', - Value => $created->ISO, - ); - $ticket->__Set( Field => 'Due', - Value => $due->ISO, - ); - - return $ticket; -} - -sub escalate_ticket_ok { - my $ticket = shift; - my $id = $ticket->id; - print "$RT::BinPath/rt-crontool --search RT::Search::FromSQL --search-arg \"id = @{[$id]}\" --action RT::Action::LinearEscalate --action-arg \"RecordTransaction:$RecordTransaction; UpdateLastUpdated:$UpdateLastUpdated\"\n"; - print STDERR `$RT::BinPath/rt-crontool --search RT::Search::FromSQL --search-arg "id = @{[$id]}" --action RT::Action::LinearEscalate --action-arg "RecordTransaction:$RecordTransaction; UpdateLastUpdated:$UpdateLastUpdated"`; - - $ticket->Load($id); # reload, because otherwise we get the cached value - ok( $ticket->Priority != 0, "Escalated ticket" ); -} diff --git a/rt/t/ticket/add-watchers.t b/rt/t/ticket/add-watchers.t deleted file mode 100644 index ae993a9..0000000 --- a/rt/t/ticket/add-watchers.t +++ /dev/null @@ -1,167 +0,0 @@ -#!/usr/bin/perl -w -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# <jesse.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} - -use RT::Test tests => 32; - -use strict; -use warnings; -no warnings 'once'; - -use RT::Queue; -use RT::User; -use RT::Group; -use RT::Ticket; -use RT::CurrentUser; - - -# clear all global right -my $acl = RT::ACL->new($RT::SystemUser); -$acl->Limit( FIELD => 'RightName', OPERATOR => '!=', VALUE => 'SuperUser' ); -$acl->LimitToObject( $RT::System ); -while( my $ace = $acl->Next ) { - $ace->Delete; -} - -# create new queue to be sure we do not mess with rights -my $queue = RT::Queue->new($RT::SystemUser); -my ($queue_id) = $queue->Create( Name => 'watcher tests '.$$); -ok( $queue_id, 'queue created for watcher tests' ); - -# new privileged user to check rights -my $user = RT::User->new( $RT::SystemUser ); -my ($user_id) = $user->Create( Name => 'watcher'.$$, - EmailAddress => "watcher$$".'@localhost', - Privileged => 1, - Password => 'qwe123', - ); -my $cu= RT::CurrentUser->new($user); - -# make sure user can see tickets in the queue -my $principal = $user->PrincipalObj; -ok( $principal, "principal loaded" ); -$principal->GrantRight( Right => 'ShowTicket', Object => $queue ); -$principal->GrantRight( Right => 'SeeQueue' , Object => $queue ); - -ok( $user->HasRight( Right => 'SeeQueue', Object => $queue ), "user can see queue" ); -ok( $user->HasRight( Right => 'ShowTicket', Object => $queue ), "user can show queue tickets" ); -ok( !$user->HasRight( Right => 'ModifyTicket', Object => $queue ), "user can't modify queue tickets" ); -ok( !$user->HasRight( Right => 'Watch', Object => $queue ), "user can't watch queue tickets" ); - -my $ticket = RT::Ticket->new( $RT::SystemUser ); -my ($rv, $msg) = $ticket->Create( Subject => 'watcher tests', Queue => $queue->Name ); -ok( $ticket->id, "ticket created" ); - -my $ticket2 = RT::Ticket->new( $cu ); -$ticket2->Load( $ticket->id ); -ok( $ticket2->Subject, "ticket load by user" ); - -# user can add self to ticket only after getting Watch right -($rv, $msg) = $ticket2->AddWatcher( Type => 'Cc', PrincipalId => $user->PrincipalId ); -ok( !$rv, "user can't add self as Cc" ); -($rv, $msg) = $ticket2->AddWatcher( Type => 'Requestor', PrincipalId => $user->PrincipalId ); -ok( !$rv, "user can't add self as Requestor" ); -$principal->GrantRight( Right => 'Watch' , Object => $queue ); -ok( $user->HasRight( Right => 'Watch', Object => $queue ), "user can watch queue tickets" ); -($rv, $msg) = $ticket2->AddWatcher( Type => 'Cc', PrincipalId => $user->PrincipalId ); -ok( $rv, "user can add self as Cc by PrincipalId" ); -($rv, $msg) = $ticket2->AddWatcher( Type => 'Requestor', PrincipalId => $user->PrincipalId ); -ok( $rv, "user can add self as Requestor by PrincipalId" ); - -# remove user and try adding with Email address -($rv, $msg) = $ticket->DeleteWatcher( Type => 'Cc', PrincipalId => $user->PrincipalId ); -ok( $rv, "watcher removed by PrincipalId" ); -($rv, $msg) = $ticket->DeleteWatcher( Type => 'Requestor', Email => $user->EmailAddress ); -ok( $rv, "watcher removed by Email" ); - -($rv, $msg) = $ticket2->AddWatcher( Type => 'Cc', Email => $user->EmailAddress ); -ok( $rv, "user can add self as Cc by Email" ); -($rv, $msg) = $ticket2->AddWatcher( Type => 'Requestor', Email => $user->EmailAddress ); -ok( $rv, "user can add self as Requestor by Email" ); - -# remove user and try adding by username -# This worked in 3.6 and is a regression in 3.8 -($rv, $msg) = $ticket->DeleteWatcher( Type => 'Cc', Email => $user->EmailAddress ); -ok( $rv, "watcher removed by Email" ); -($rv, $msg) = $ticket->DeleteWatcher( Type => 'Requestor', Email => $user->EmailAddress ); -ok( $rv, "watcher removed by Email" ); - -($rv, $msg) = $ticket2->AddWatcher( Type => 'Cc', Email => $user->Name ); -ok( $rv, "user can add self as Cc by username" ); -($rv, $msg) = $ticket2->AddWatcher( Type => 'Requestor', Email => $user->Name ); -ok( $rv, "user can add self as Requestor by username" ); - -# Queue watcher tests -$principal->RevokeRight( Right => 'Watch' , Object => $queue ); -ok( !$user->HasRight( Right => 'Watch', Object => $queue ), "user queue watch right revoked" ); - -my $queue2 = RT::Queue->new( $cu ); -($rv, $msg) = $queue2->Load( $queue->id ); -ok( $rv, "user loaded queue" ); - -# user can add self to queue only after getting Watch right -($rv, $msg) = $queue2->AddWatcher( Type => 'Cc', PrincipalId => $user->PrincipalId ); -ok( !$rv, "user can't add self as Cc" ); -($rv, $msg) = $queue2->AddWatcher( Type => 'Requestor', PrincipalId => $user->PrincipalId ); -ok( !$rv, "user can't add self as Requestor" ); -$principal->GrantRight( Right => 'Watch' , Object => $queue ); -ok( $user->HasRight( Right => 'Watch', Object => $queue ), "user can watch queue queues" ); -($rv, $msg) = $queue2->AddWatcher( Type => 'Cc', PrincipalId => $user->PrincipalId ); -ok( $rv, "user can add self as Cc by PrincipalId" ); -($rv, $msg) = $queue2->AddWatcher( Type => 'Requestor', PrincipalId => $user->PrincipalId ); -ok( $rv, "user can add self as Requestor by PrincipalId" ); - -# remove user and try adding with Email address -($rv, $msg) = $queue->DeleteWatcher( Type => 'Cc', PrincipalId => $user->PrincipalId ); -ok( $rv, "watcher removed by PrincipalId" ); -($rv, $msg) = $queue->DeleteWatcher( Type => 'Requestor', Email => $user->EmailAddress ); -ok( $rv, "watcher removed by Email" ); - -($rv, $msg) = $queue2->AddWatcher( Type => 'Cc', Email => $user->EmailAddress ); -ok( $rv, "user can add self as Cc by Email" ); -($rv, $msg) = $queue2->AddWatcher( Type => 'Requestor', Email => $user->EmailAddress ); -ok( $rv, "user can add self as Requestor by Email" ); - diff --git a/rt/t/ticket/badlinks.t b/rt/t/ticket/badlinks.t deleted file mode 100644 index 408e6b6..0000000 --- a/rt/t/ticket/badlinks.t +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use RT::Test tests => 12; - -my ($baseurl, $m) = RT::Test->started_ok; -ok($m->login, "Logged in"); - -my $queue = RT::Test->load_or_create_queue(Name => 'General'); -ok($queue->Id, "loaded the General queue"); - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($tid, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test links', - ); -ok $tid, 'created a ticket #'. $tid or diag "error: $msg"; - -$m->goto_ticket($tid); - -$m->follow_link_ok( { text => 'Links' }, "Followed link to Links" ); - -ok $m->form_with_fields("$tid-DependsOn"), "found the form"; -my $not_a_ticket_url = "http://example.com/path/to/nowhere"; -$m->field("$tid-DependsOn", $not_a_ticket_url); -$m->field("DependsOn-$tid", $not_a_ticket_url); -$m->field("$tid-MemberOf", $not_a_ticket_url); -$m->field("MemberOf-$tid", $not_a_ticket_url); -$m->field("$tid-RefersTo", $not_a_ticket_url); -$m->field("RefersTo-$tid", $not_a_ticket_url); -$m->submit; - -foreach my $type ("depends on", "member of", "refers to") { - $m->content_like(qr/$type.+$not_a_ticket_url/,"base for $type"); - $m->content_like(qr/$not_a_ticket_url.+$type/,"target for $type"); -} - -$m->goto_ticket($tid); diff --git a/rt/t/ticket/batch-upload-csv.t b/rt/t/ticket/batch-upload-csv.t deleted file mode 100644 index 41dc786..0000000 --- a/rt/t/ticket/batch-upload-csv.t +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/bin/perl -w -use strict; use warnings; - -use RT::Test tests => 12; -use_ok('RT'); - -use_ok('RT::Action::CreateTickets'); - -my $QUEUE = 'uploadtest-'.$$; - -my $queue_obj = RT::Queue->new($RT::SystemUser); -$queue_obj->Create(Name => $QUEUE); - -my $cf = RT::CustomField->new($RT::SystemUser); -my ($val,$msg) = $cf->Create(Name => 'Work Package-'.$$, Type => 'Freeform', LookupType => RT::Ticket->CustomFieldLookupType, MaxValues => 1); -ok($cf->id); -ok($val,$msg); -($val, $msg) = $cf->AddToObject($queue_obj); -ok($val,$msg); -ok($queue_obj->TicketCustomFields()->Count, "We have a custom field, at least"); - - -my $data = <<EOF; -id,Queue,Subject,Status,Requestor,@{[$cf->Name]} -create-1,$QUEUE,hi,new,root,2.0 -create-2,$QUEUE,hello,new,root,3.0 -EOF - -my $action = RT::Action::CreateTickets->new(CurrentUser => RT::CurrentUser->new('root')); -ok ($action->CurrentUser->id , "WE have a current user"); - -$action->Parse(Content => $data); -my @results = $action->CreateByTemplate(); - -my $tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL ("Queue = '". $QUEUE."'"); -$tix->OrderBy( FIELD => 'id', ORDER => 'ASC' ); -is($tix->Count, 2, '2 tickets'); - -my $first = $tix->First(); - -is($first->Subject(), 'hi'); -is($first->FirstCustomFieldValue($cf->id), '2.0'); - -my $second = $tix->Next; -is($second->Subject(), 'hello'); -is($second->FirstCustomFieldValue($cf->id), '3.0'); -1; diff --git a/rt/t/ticket/cfsort-freeform-multiple.t b/rt/t/ticket/cfsort-freeform-multiple.t deleted file mode 100644 index f8f5950..0000000 --- a/rt/t/ticket/cfsort-freeform-multiple.t +++ /dev/null @@ -1,137 +0,0 @@ -#!/usr/bin/perl - -use RT::Test tests => 24; - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -# Test Sorting by custom fields. - -diag "Create a queue to test with." if $ENV{TEST_VERBOSE}; -my $queue_name = "CFSortQueue-$$"; -my $queue; -{ - $queue = RT::Queue->new( $RT::SystemUser ); - my ($ret, $msg) = $queue->Create( - Name => $queue_name, - Description => 'queue for custom field sort testing' - ); - ok($ret, "$queue_name - test queue creation. $msg"); -} - -diag "create a CF\n" if $ENV{TEST_VERBOSE}; -my $cf_name = "Order$$"; -my $cf; -{ - $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => $cf_name, - Queue => $queue->id, - Type => 'FreeformMultiple', - ); - ok($ret, "Custom Field Order created"); -} - -my ($total, @data, @tickets, @test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - @data = sort { rand(100) <=> rand(100) } @data; - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my %args = %{ shift(@data) }; - my @values = (); - if ( exists $args{'CF'} && ref $args{'CF'} ) { - @values = @{ delete $args{'CF'} }; - } elsif ( exists $args{'CF'} ) { - @values = (delete $args{'CF'}); - } - $args{ 'CustomField-'. $cf->id } = \@values - if @values; - my $subject = join(",", sort @values) || '-'; - my ( $id, undef $msg ) = $t->Create( - %args, - Queue => $queue->id, - Subject => $subject, - ); - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $test ( @test ) { - my $query = join " AND ", map "( $_ )", grep defined && length, - $query_prefix, $test->{'Query'}; - - foreach my $order (qw(ASC DESC)) { - my $error = 0; - my $tix = RT::Tickets->new( $RT::SystemUser ); - $tix->FromSQL( $query ); - $tix->OrderBy( FIELD => $test->{'Order'}, ORDER => $order ); - - ok($tix->Count, "found ticket(s)") - or $error = 1; - - my ($order_ok, $last) = (1, $order eq 'ASC'? '-': 'zzzzzz'); - my $last_id = $tix->Last->id; - while ( my $t = $tix->Next ) { - my $tmp; - next if $t->id == $last_id and $t->Subject eq "-"; # Nulls are allowed to come last, in Pg - - if ( $order eq 'ASC' ) { - $tmp = ((split( /,/, $last))[0] cmp (split( /,/, $t->Subject))[0]); - } else { - $tmp = -((split( /,/, $last))[-1] cmp (split( /,/, $t->Subject))[-1]); - } - if ( $tmp > 0 ) { - $order_ok = 0; last; - } - $last = $t->Subject; - } - - ok( $order_ok, "$order order of tickets is good" ) - or $error = 1; - - if ( $error ) { - diag "Wrong SQL query:". $tix->BuildSelectQuery; - $tix->GotoFirstItem; - while ( my $t = $tix->Next ) { - diag sprintf "%02d - %s", $t->id, $t->Subject; - } - } - } - } -} - -@data = ( - { }, - { CF => ['b', 'd'] }, - { CF => ['a', 'c'] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "CF.{$cf_name}" }, - { Order => "CF.$queue_name.{$cf_name}" }, -); -run_tests(); - -@data = ( - { CF => ['m', 'a'] }, - { CF => ['m'] }, - { CF => ['m', 'o'] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "CF.{$cf_name}", Query => "CF.{$cf_name} = 'm'" }, - { Order => "CF.$queue_name.{$cf_name}", Query => "CF.{$cf_name} = 'm'" }, -); -run_tests(); - diff --git a/rt/t/ticket/cfsort-freeform-single.t b/rt/t/ticket/cfsort-freeform-single.t deleted file mode 100644 index f1f506b..0000000 --- a/rt/t/ticket/cfsort-freeform-single.t +++ /dev/null @@ -1,191 +0,0 @@ -#!/usr/bin/perl - -use RT::Test tests => 57; - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -# Test Sorting by FreeformSingle custom field. - -diag "Create a queue to test with." if $ENV{TEST_VERBOSE}; -my $queue_name = "CFSortQueue-$$"; -my $queue; -{ - $queue = RT::Queue->new( $RT::SystemUser ); - my ($ret, $msg) = $queue->Create( - Name => $queue_name, - Description => 'queue for custom field sort testing' - ); - ok($ret, "$queue test queue creation. $msg"); -} - -# CFs for testing, later we create another one -my %CF; -my $cf_name; - -diag "create a CF\n" if $ENV{TEST_VERBOSE}; -{ - $cf_name = $CF{'CF'}{'name'} = "Order$$"; - $CF{'CF'}{'obj'} = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $CF{'CF'}{'obj'}->Create( - Name => $CF{'CF'}{'name'}, - Queue => $queue->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field $CF{'CF'}{'name'} created"); -} - -my ($total, @data, @tickets, @test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - @data = sort { rand(100) <=> rand(100) } @data; - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my %args = %{ shift(@data) }; - - my $subject = '-'; - foreach my $e ( grep exists $CF{$_} && defined $CF{$_}, keys %args ) { - my @values = (); - if ( ref $args{ $e } ) { - @values = @{ delete $args{ $e } }; - } else { - @values = (delete $args{ $e }); - } - $args{ 'CustomField-'. $CF{ $e }{'obj'}->id } = \@values - if @values; - $subject = join(",", sort @values) || '-' - if $e eq 'CF'; - } - - my ( $id, undef $msg ) = $t->Create( - %args, - Queue => $queue->id, - Subject => $subject, - ); - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $test ( @test ) { - my $query = join " AND ", map "( $_ )", grep defined && length, - $query_prefix, $test->{'Query'}; - - foreach my $order (qw(ASC DESC)) { - my $error = 0; - my $tix = RT::Tickets->new( $RT::SystemUser ); - $tix->FromSQL( $query ); - $tix->OrderBy( FIELD => $test->{'Order'}, ORDER => $order ); - - ok($tix->Count, "found ticket(s)") - or $error = 1; - - my ($order_ok, $last) = (1, $order eq 'ASC'? '-': 'zzzzzz'); - my $last_id = $tix->Last->id; - while ( my $t = $tix->Next ) { - my $tmp; - next if $t->id == $last_id and $t->Subject eq "-"; # Nulls are allowed to come last, in Pg - - if ( $order eq 'ASC' ) { - $tmp = ((split( /,/, $last))[0] cmp (split( /,/, $t->Subject))[0]); - } else { - $tmp = -((split( /,/, $last))[-1] cmp (split( /,/, $t->Subject))[-1]); - } - if ( $tmp > 0 ) { - $order_ok = 0; last; - } - $last = $t->Subject; - } - - ok( $order_ok, "$order order of tickets is good" ) - or $error = 1; - - if ( $error ) { - diag "Wrong SQL query:". $tix->BuildSelectQuery; - $tix->GotoFirstItem; - while ( my $t = $tix->Next ) { - diag sprintf "%02d - %s", $t->id, $t->Subject; - } - } - } - } -} - -@data = ( - { }, - { CF => 'a' }, - { CF => 'b' }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "CF.{$cf_name}" }, - { Order => "CF.$queue_name.{$cf_name}" }, -); -run_tests(); - -@data = ( - { }, - { CF => 'aa' }, - { CF => 'ab' }, -); -@tickets = add_tix_from_data(); -@test = ( - { Query => "CF.{$cf_name} LIKE 'a'", Order => "CF.{$cf_name}" }, - { Query => "CF.{$cf_name} LIKE 'a'", Order => "CF.$queue_name.{$cf_name}" }, -); -run_tests(); - -@data = ( - { Subject => '-', }, - { Subject => 'a', CF => 'a' }, - { Subject => 'b', CF => 'b' }, - { Subject => 'c', CF => 'c' }, -); -@tickets = add_tix_from_data(); -@test = ( - { Query => "CF.{$cf_name} != 'c'", Order => "CF.{$cf_name}" }, - { Query => "CF.{$cf_name} != 'c'", Order => "CF.$queue_name.{$cf_name}" }, -); -run_tests(); - - - -diag "create another CF\n" if $ENV{TEST_VERBOSE}; -{ - $CF{'AnotherCF'}{'name'} = "OrderAnother$$"; - $CF{'AnotherCF'}{'obj'} = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $CF{'AnotherCF'}{'obj'}->Create( - Name => $CF{'AnotherCF'}{'name'}, - Queue => $queue->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field $CF{'AnotherCF'}{'name'} created"); -} - -# test that order is not affect by other fields (had such problem) -@data = ( - { Subject => '-', }, - { Subject => 'a', CF => 'a', AnotherCF => 'za' }, - { Subject => 'b', CF => 'b', AnotherCF => 'ya' }, - { Subject => 'c', CF => 'c', AnotherCF => 'xa' }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "CF.{$cf_name}" }, - { Order => "CF.$queue_name.{$cf_name}" }, - { Query => "CF.{$cf_name} != 'c'", Order => "CF.{$cf_name}" }, - { Query => "CF.{$cf_name} != 'c'", Order => "CF.$queue_name.{$cf_name}" }, -); -run_tests(); - - - diff --git a/rt/t/ticket/deferred_owner.t b/rt/t/ticket/deferred_owner.t deleted file mode 100644 index 40172ca..0000000 --- a/rt/t/ticket/deferred_owner.t +++ /dev/null @@ -1,120 +0,0 @@ - -use strict; -use warnings; - -use RT::Test tests => 18; -use_ok('RT'); -use_ok('RT::Ticket'); -use Test::Warn; - - -my $tester = RT::Test->load_or_create_user( - EmailAddress => 'tester@localhost', -); -ok $tester && $tester->id, 'loaded or created user'; - -my $queue = RT::Test->load_or_create_queue( Name => 'General' ); -ok $queue && $queue->id, 'loaded or created queue'; - -my $owner_role_group = RT::Group->new( $RT::SystemUser ); -$owner_role_group->LoadQueueRoleGroup( Type => 'Owner', Queue => $queue->id ); -ok $owner_role_group->id, 'loaded owners role group of the queue'; - -diag "check that deffering owner doesn't regress" if $ENV{'TEST_VERBOSE'}; -{ - RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)], - }, - { Principal => $owner_role_group->PrincipalObj, - Object => $queue, - Right => [qw(ModifyTicket)], - }, - ); - my $ticket = RT::Ticket->new( $tester ); - # tester is owner, owner has right to modify owned tickets, - # this right is required to set somebody as AdminCc - my ($tid, $txn_id, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $tester->id, - AdminCc => 'root@localhost', - ); - diag $msg if $msg && $ENV{'TEST_VERBOSE'}; - ok $tid, "created a ticket"; - is $ticket->Owner, $tester->id, 'correct owner'; - like $ticket->AdminCcAddresses, qr/root\@localhost/, 'root is there'; -} - -diag "check that previous trick doesn't work without sufficient rights" - if $ENV{'TEST_VERBOSE'}; -{ - RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)], - }, - ); - my $ticket = RT::Ticket->new( $tester ); - # tester is owner, owner has right to modify owned tickets, - # this right is required to set somebody as AdminCc - my ($tid, $txn_id, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $tester->id, - AdminCc => 'root@localhost', - ); - diag $msg if $msg && $ENV{'TEST_VERBOSE'}; - ok $tid, "created a ticket"; - is $ticket->Owner, $tester->id, 'correct owner'; - unlike $ticket->AdminCcAddresses, qr/root\@localhost/, 'root is there'; -} - -diag "check that deffering owner really works" if $ENV{'TEST_VERBOSE'}; -{ - RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket)], - }, - { Principal => $queue->Cc->PrincipalObj, - Object => $queue, - Right => [qw(OwnTicket TakeTicket)], - }, - ); - my $ticket = RT::Ticket->new( $tester ); - # set tester as Cc, Cc role group has right to own and take tickets - my ($tid, $txn_id, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $tester->id, - Cc => 'tester@localhost', - ); - diag $msg if $msg && $ENV{'TEST_VERBOSE'}; - ok $tid, "created a ticket"; - like $ticket->CcAddresses, qr/tester\@localhost/, 'tester is in the cc list'; - is $ticket->Owner, $tester->id, 'tester is also owner'; -} - -diag "check that deffering doesn't work without correct rights" if $ENV{'TEST_VERBOSE'}; -{ - RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket)], - }, - ); - - my $ticket = RT::Ticket->new( $tester ); - # set tester as Cc, Cc role group has right to own and take tickets - my ($tid, $txn_id, $msg); - warning_like { - ($tid, $txn_id, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $tester->id, - Cc => 'tester@localhost', - ); - } qr/User .* was proposed as a ticket owner but has no rights to own tickets in General/; - - diag $msg if $msg && $ENV{'TEST_VERBOSE'}; - ok $tid, "created a ticket"; - like $ticket->CcAddresses, qr/tester\@localhost/, 'tester is in the cc list'; - isnt $ticket->Owner, $tester->id, 'tester is also owner'; -} - - - diff --git a/rt/t/ticket/link_search.t b/rt/t/ticket/link_search.t deleted file mode 100644 index 1bf7dc6..0000000 --- a/rt/t/ticket/link_search.t +++ /dev/null @@ -1,246 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use RT; - -# Load the config file -use RT::Test tests => 63; - -#Connect to the database and get RT::SystemUser and RT::Nobody loaded - - -#Get the current user all loaded -my $CurrentUser = $RT::SystemUser; - -my $queue = new RT::Queue($CurrentUser); -$queue->Load('General') || Abort(loc("Queue could not be loaded.")); - -my $child_ticket = new RT::Ticket( $CurrentUser ); -my ($childid) = $child_ticket->Create( - Subject => 'test child', - Queue => $queue->Id, -); -ok($childid, "We created a child ticket"); - -my $parent_ticket = new RT::Ticket( $CurrentUser ); -my ($parentid) = $parent_ticket->Create( - Subject => 'test parent', - Children => [ $childid ], - Queue => $queue->Id, -); -ok($parentid, "We created a parent ticket"); - - -my $Collection = RT::Tickets->new($CurrentUser); -$Collection->LimitMemberOf( $parentid ); -is($Collection->Count,1, "We found only one result"); -ok($Collection->First); -is($Collection->First->id, $childid, "We found the collection of all children of $parentid with Limit"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL("MemberOf = $parentid"); -is($Collection->Count, 1, "We found only one result"); -ok($Collection->First); -is($Collection->First->id, $childid, "We found the collection of all children of $parentid with TicketSQL"); - - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->LimitHasMember ($childid); -is($Collection->Count,1, "We found only one result"); -ok($Collection->First); -is($Collection->First->id, $parentid, "We found the collection of all parents of $childid with Limit"); - - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL("HasMember = $childid"); -is($Collection->Count,1, "We found only one result"); -ok($Collection->First); -is($Collection->First->id, $parentid, "We found the collection of all parents of $childid with TicketSQL"); - - -# Now we find a collection of all the tickets which have no members. they should have no children. -$Collection = RT::Tickets->new($CurrentUser); -$Collection->LimitHasMember(''); -# must contain child; must not contain parent -my %has; -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$childid}, "The collection has our child - $childid"); -ok( !$has{$parentid}, "The collection doesn't have our parent - $parentid"); - - -# Now we find a collection of all the tickets which are not members of anything. they should have no parents. -$Collection = RT::Tickets->new($CurrentUser); -$Collection->LimitMemberOf(''); -# must contain parent; must not contain child -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok ($has{$parentid} , "The collection has our parent - $parentid"); -ok( !$has{$childid}, "The collection doesn't have our child - $childid"); - - -# Do it all over with TicketSQL -# - - - -# Now we find a collection of all the tickets which have no members. they should have no children. -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL ("HasMember IS NULL"); -# must contain parent; must not contain child -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( !$has{$parentid}, "The collection doesn't have our parent - $parentid"); -ok( $has{$childid}, "The collection has our child - $childid"); - - -# Now we find a collection of all the tickets which have no members. they should have no children. -# Alternate syntax -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL("HasMember = ''"); -# must contain parent; must not contain child -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( !$has{$parentid}, "The collection doesn't have our parent - $parentid"); -ok( $has{$childid}, "The collection has our child - $childid"); - - -# Now we find a collection of all the tickets which are not members of anything. they should have no parents. -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL("MemberOf IS NULL"); -# must not contain parent; must contain parent -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$parentid}, "The collection has our parent - $parentid"); -ok( !$has{$childid}, "The collection doesn't have our child - $childid"); - - -# Now we find a collection of all the tickets which are not members of anything. they should have no parents. -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL("MemberOf = ''"); -# must not contain parent; must contain parent -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$parentid}, "The collection has our parent - $parentid"); -ok( !$has{$childid}, "The collection doesn't have our child - $childid"); - - -# Now we find a collection of all the tickets which are not members of the parent ticket -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL("MemberOf != $parentid"); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$parentid}, "The collection has our parent - $parentid"); -ok( !$has{$childid}, "The collection doesn't have our child - $childid"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->LimitMemberOf($parentid, OPERATOR => '!='); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$parentid}, "The collection has our parent - $parentid"); -ok( !$has{$childid}, "The collection doesn't have our child - $childid"); - -my $grand_child_ticket = new RT::Ticket( $CurrentUser ); -my ($grand_childid) = $child_ticket->Create( - Subject => 'test child', - Queue => $queue->Id, - MemberOf => $childid, -); -ok($childid, "We created a grand child ticket"); - -my $unlinked_ticket = new RT::Ticket( $CurrentUser ); -my ($unlinked_id) = $child_ticket->Create( - Subject => 'test unlinked', - Queue => $queue->Id, -); -ok($unlinked_id, "We created a grand child ticket"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "LinkedTo = $childid" ); -is($Collection->Count,1, "We found only one result"); -ok($Collection->First); -is($Collection->First->id, $grand_childid, "We found all tickets linked to ticket #$childid"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "LinkedFrom = $childid" ); -is($Collection->Count,1, "We found only one result"); -ok($Collection->First); -is($Collection->First->id, $parentid, "We found all tickets linked from ticket #$childid"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "LinkedTo IS NULL" ); -ok($Collection->Count, "Result is set is not empty"); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$parentid}, "parent is in collection"); -ok( $has{$unlinked_id}, "unlinked is in collection"); -ok( !$has{$childid}, "child is NOT in collection"); -ok( !$has{$grand_childid}, "grand child too is not in collection"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "LinkedTo IS NOT NULL" ); -ok($Collection->Count, "Result set is not empty"); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( !$has{$parentid}, "The collection has no our parent - $parentid"); -ok( !$has{$unlinked_id}, "unlinked is not in collection"); -ok( $has{$childid}, "The collection have our child - $childid"); -ok( $has{$grand_childid}, "The collection have our grand child - $grand_childid"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "LinkedFrom IS NULL" ); -ok($Collection->Count, "Result is set is not empty"); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( !$has{$parentid}, "parent is NOT in collection"); -ok( !$has{$childid}, "child is NOT in collection"); -ok( $has{$grand_childid}, "grand child is in collection"); -ok( $has{$unlinked_id}, "unlinked is in collection"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "LinkedFrom IS NOT NULL" ); -ok($Collection->Count, "Result set is not empty"); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( $has{$parentid}, "The collection has our parent - $parentid"); -ok( $has{$childid}, "The collection have our child - $childid"); -ok( !$has{$grand_childid}, "The collection have no our grand child - $grand_childid"); -ok( !$has{$unlinked_id}, "unlinked is not in collection"); - -$Collection = RT::Tickets->new($CurrentUser); -$Collection->FromSQL( "Linked = $childid" ); -is($Collection->Count, 2, "We found two tickets: parent and child"); -%has = (); -while (my $t = $Collection->Next) { - ++$has{$t->id}; -} -ok( !$has{$childid}, "Ticket is not linked to itself"); -ok( $has{$parentid}, "The collection has our parent"); -ok( $has{$grand_childid}, "The collection have our child"); -ok( !$has{$unlinked_id}, "unlinked is not in collection"); - - -1; diff --git a/rt/t/ticket/linking.t b/rt/t/ticket/linking.t deleted file mode 100644 index 2ea3d58..0000000 --- a/rt/t/ticket/linking.t +++ /dev/null @@ -1,385 +0,0 @@ - -use strict; -use warnings; - -use RT::Test tests => '101'; -use_ok('RT'); -use_ok('RT::Ticket'); -use_ok('RT::ScripConditions'); -use_ok('RT::ScripActions'); -use_ok('RT::Template'); -use_ok('RT::Scrips'); -use_ok('RT::Scrip'); - - -use File::Temp qw/tempfile/; -my ($fh, $filename) = tempfile( UNLINK => 1, SUFFIX => '.rt'); -my $link_scrips_orig = RT->Config->Get( 'LinkTransactionsRun1Scrip' ); -RT->Config->Set( 'LinkTransactionsRun1Scrip', 1 ); - -my $link_acl_checks_orig = RT->Config->Get( 'StrictLinkACL' ); -RT->Config->Set( 'StrictLinkACL', 1); - -my $condition = RT::ScripCondition->new( $RT::SystemUser ); -$condition->Load('User Defined'); -ok($condition->id); -my $action = RT::ScripAction->new( $RT::SystemUser ); -$action->Load('User Defined'); -ok($action->id); -my $template = RT::Template->new( $RT::SystemUser ); -$template->Load('Blank'); -ok($template->id); - -my $q1 = RT::Queue->new($RT::SystemUser); -my ($id,$msg) = $q1->Create(Name => "LinkTest1.$$"); -ok ($id,$msg); -my $q2 = RT::Queue->new($RT::SystemUser); -($id,$msg) = $q2->Create(Name => "LinkTest2.$$"); -ok ($id,$msg); - -my $commit_code = <<END; -open my \$file, "<$filename" or die "couldn't open $filename"; -my \$data = <\$file>; -chomp \$data; -\$data += 0; -close \$file; -\$RT::Logger->debug("Data is \$data"); - -open \$file, ">$filename" or die "couldn't open $filename"; -if (\$self->TransactionObj->Type eq 'AddLink') { - \$RT::Logger->debug("AddLink"); - print \$file \$data+1, "\n"; -} -elsif (\$self->TransactionObj->Type eq 'DeleteLink') { - \$RT::Logger->debug("DeleteLink"); - print \$file \$data-1, "\n"; -} -else { - \$RT::Logger->error("THIS SHOULDN'T HAPPEN"); - print \$file "666\n"; -} -close \$file; -1; -END - -my $Scrips = RT::Scrips->new( $RT::SystemUser ); -$Scrips->UnLimit; -while ( my $Scrip = $Scrips->Next ) { - $Scrip->Delete if $Scrip->Description and $Scrip->Description =~ /Add or Delete Link \d+/; -} - - -my $scrip = RT::Scrip->new($RT::SystemUser); -($id,$msg) = $scrip->Create( Description => "Add or Delete Link $$", - ScripCondition => $condition->id, - ScripAction => $action->id, - Template => $template->id, - Stage => 'TransactionCreate', - Queue => 0, - CustomIsApplicableCode => '$self->TransactionObj->Type =~ /(Add|Delete)Link/;', - CustomPrepareCode => '1;', - CustomCommitCode => $commit_code, - ); -ok($id, "Scrip created"); - -my $u1 = RT::User->new($RT::SystemUser); -($id,$msg) = $u1->Create(Name => "LinkTestUser.$$"); -ok ($id,$msg); - -# grant ShowTicket right to allow count transactions -($id,$msg) = $u1->PrincipalObj->GrantRight ( Object => $q1, Right => 'ShowTicket'); -ok ($id,$msg); -($id,$msg) = $u1->PrincipalObj->GrantRight ( Object => $q2, Right => 'ShowTicket'); -ok ($id,$msg); -($id,$msg) = $u1->PrincipalObj->GrantRight ( Object => $q1, Right => 'CreateTicket'); -ok ($id,$msg); - -my $creator = RT::CurrentUser->new($u1->id); - -diag('Create tickets without rights to link') if $ENV{'TEST_VERBOSE'}; -{ - # on q2 we have no rights, yet - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($id,$tid,$msg) = $parent->Create( Subject => 'Link test 1', Queue => $q2->id ); - ok($id,$msg); - my $child = RT::Ticket->new( $creator ); - ($id,$tid,$msg) = $child->Create( Subject => 'Link test 1', Queue => $q1->id, MemberOf => $parent->id ); - ok($id,$msg); - $child->CurrentUser( $RT::SystemUser ); - is($child->_Links('Base')->Count, 0, 'link was not created, no permissions'); - is($child->_Links('Target')->Count, 0, 'link was not create, no permissions'); -} - -diag('Create tickets with rights checks on one end of a link') if $ENV{'TEST_VERBOSE'}; -{ - # on q2 we have no rights, but use checking one only on thing - RT->Config->Set( StrictLinkACL => 0 ); - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($id,$tid,$msg) = $parent->Create( Subject => 'Link test 1', Queue => $q2->id ); - ok($id,$msg); - my $child = RT::Ticket->new( $creator ); - ($id,$tid,$msg) = $child->Create( Subject => 'Link test 1', Queue => $q1->id, MemberOf => $parent->id ); - ok($id,$msg); - $child->CurrentUser( $RT::SystemUser ); - is($child->_Links('Base')->Count, 1, 'link was created'); - is($child->_Links('Target')->Count, 0, 'link was created only one'); - # no scrip run on second ticket accroding to config option - is(link_count($filename), undef, "scrips ok"); - RT->Config->Set( StrictLinkACL => 1 ); -} - -($id,$msg) = $u1->PrincipalObj->GrantRight ( Object => $q1, Right => 'ModifyTicket'); -ok ($id,$msg); - -diag('try to add link without rights') if $ENV{'TEST_VERBOSE'}; -{ - # on q2 we have no rights, yet - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($id,$tid,$msg) = $parent->Create( Subject => 'Link test 1', Queue => $q2->id ); - ok($id,$msg); - my $child = RT::Ticket->new( $creator ); - ($id,$tid,$msg) = $child->Create( Subject => 'Link test 1', Queue => $q1->id ); - ok($id,$msg); - ($id, $msg) = $child->AddLink(Type => 'MemberOf', Target => $parent->id); - ok(!$id, $msg); - is(link_count($filename), undef, "scrips ok"); - $child->CurrentUser( $RT::SystemUser ); - is($child->_Links('Base')->Count, 0, 'link was not created, no permissions'); - is($child->_Links('Target')->Count, 0, 'link was not create, no permissions'); -} - -diag('add link with rights only on base') if $ENV{'TEST_VERBOSE'}; -{ - # on q2 we have no rights, but use checking one only on thing - RT->Config->Set( StrictLinkACL => 0 ); - my $parent = RT::Ticket->new( $RT::SystemUser ); - my ($id,$tid,$msg) = $parent->Create( Subject => 'Link test 1', Queue => $q2->id ); - ok($id,$msg); - my $child = RT::Ticket->new( $creator ); - ($id,$tid,$msg) = $child->Create( Subject => 'Link test 1', Queue => $q1->id ); - ok($id,$msg); - ($id, $msg) = $child->AddLink(Type => 'MemberOf', Target => $parent->id); - ok($id, $msg); - is(link_count($filename), 1, "scrips ok"); - $child->CurrentUser( $RT::SystemUser ); - is($child->_Links('Base')->Count, 1, 'link was created'); - is($child->_Links('Target')->Count, 0, 'link was created only one'); - $child->CurrentUser( $creator ); - - # turn off feature and try to delete link, we should fail - RT->Config->Set( StrictLinkACL => 1 ); - ($id, $msg) = $child->AddLink(Type => 'MemberOf', Target => $parent->id); - ok(!$id, $msg); - is(link_count($filename), 1, "scrips ok"); - $child->CurrentUser( $RT::SystemUser ); - $child->_Links('Base')->_DoCount; - is($child->_Links('Base')->Count, 1, 'link was not deleted'); - $child->CurrentUser( $creator ); - - # try to delete link, we should success as feature is active - RT->Config->Set( StrictLinkACL => 0 ); - ($id, $msg) = $child->DeleteLink(Type => 'MemberOf', Target => $parent->id); - ok($id, $msg); - is(link_count($filename), 0, "scrips ok"); - $child->CurrentUser( $RT::SystemUser ); - $child->_Links('Base')->_DoCount; - is($child->_Links('Base')->Count, 0, 'link was deleted'); - RT->Config->Set( StrictLinkACL => 1 ); -} - -my $tid; -my $ticket = RT::Ticket->new( $creator); -ok($ticket->isa('RT::Ticket')); -($id,$tid, $msg) = $ticket->Create(Subject => 'Link test 1', Queue => $q1->id); -ok ($id,$msg); - -diag('try link to itself') if $ENV{'TEST_VERBOSE'}; -{ - my ($id, $msg) = $ticket->AddLink(Type => 'RefersTo', Target => $ticket->id); - ok(!$id, $msg); - is(link_count($filename), 0, "scrips ok"); -} - -my $ticket2 = RT::Ticket->new($RT::SystemUser); -($id, $tid, $msg) = $ticket2->Create(Subject => 'Link test 2', Queue => $q2->id); -ok ($id, $msg); -($id,$msg) =$ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id); -ok(!$id,$msg); -is(link_count($filename), 0, "scrips ok"); - -($id,$msg) = $u1->PrincipalObj->GrantRight ( Object => $q2, Right => 'CreateTicket'); -ok ($id,$msg); -($id,$msg) = $u1->PrincipalObj->GrantRight ( Object => $q2, Right => 'ModifyTicket'); -ok ($id,$msg); -($id,$msg) = $ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id); -ok($id,$msg); -is(link_count($filename), 1, "scrips ok"); -($id,$msg) = $ticket->AddLink(Type => 'RefersTo', Target => -1); -ok(!$id,$msg); -($id,$msg) = $ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id); -ok($id,$msg); -is(link_count($filename), 1, "scrips ok"); - -my $transactions = $ticket2->Transactions; -$transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); -is( $transactions->Count, 1, "Transaction found in other ticket" ); -is( $transactions->First->Field , 'ReferredToBy'); -is( $transactions->First->NewValue , $ticket->URI ); - -($id,$msg) = $ticket->DeleteLink(Type => 'RefersTo', Target => $ticket2->id); -ok($id,$msg); -is(link_count($filename), 0, "scrips ok"); -$transactions = $ticket2->Transactions; -$transactions->Limit( FIELD => 'Type', VALUE => 'DeleteLink' ); -is( $transactions->Count, 1, "Transaction found in other ticket" ); -is( $transactions->First->Field , 'ReferredToBy'); -is( $transactions->First->OldValue , $ticket->URI ); - -RT->Config->Set( LinkTransactionsRun1Scrip => 0 ); - -($id,$msg) =$ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id); -ok($id,$msg); -is(link_count($filename), 2, "scrips ok"); -($id,$msg) =$ticket->DeleteLink(Type => 'RefersTo', Target => $ticket2->id); -ok($id,$msg); -is(link_count($filename), 0, "scrips ok"); - -# tests for silent behaviour -($id,$msg) = $ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id, Silent => 1); -ok($id,$msg); -is(link_count($filename), 0, "scrips ok"); -{ - my $transactions = $ticket->Transactions; - $transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); - is( $transactions->Count, 2, "Still two txns on the base" ); - - $transactions = $ticket2->Transactions; - $transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); - is( $transactions->Count, 2, "Still two txns on the target" ); - -} -($id,$msg) =$ticket->DeleteLink(Type => 'RefersTo', Target => $ticket2->id, Silent => 1); -ok($id,$msg); -is(link_count($filename), 0, "scrips ok"); - -($id,$msg) = $ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id, SilentBase => 1); -ok($id,$msg); -is(link_count($filename), 1, "scrips ok"); -{ - my $transactions = $ticket->Transactions; - $transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); - is( $transactions->Count, 2, "still five txn on the base" ); - - $transactions = $ticket2->Transactions; - $transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); - is( $transactions->Count, 3, "+1 txn on the target" ); - -} -($id,$msg) =$ticket->DeleteLink(Type => 'RefersTo', Target => $ticket2->id, SilentBase => 1); -ok($id,$msg); -is(link_count($filename), 0, "scrips ok"); - -($id,$msg) = $ticket->AddLink(Type => 'RefersTo', Target => $ticket2->id, SilentTarget => 1); -ok($id,$msg); -is(link_count($filename), 1, "scrips ok"); -{ - my $transactions = $ticket->Transactions; - $transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); - is( $transactions->Count, 3, "+1 txn on the base" ); - - $transactions = $ticket2->Transactions; - $transactions->Limit( FIELD => 'Type', VALUE => 'AddLink' ); - is( $transactions->Count, 3, "three txns on the target" ); -} -($id,$msg) =$ticket->DeleteLink(Type => 'RefersTo', Target => $ticket2->id, SilentTarget => 1); -ok($id,$msg); -is(link_count($filename), 0, "scrips ok"); - - -# restore -RT->Config->Set( LinkTransactionsRun1Scrip => $link_scrips_orig ); -RT->Config->Set( StrictLinkACL => $link_acl_checks_orig ); - -{ - my $Scrips = RT::Scrips->new( $RT::SystemUser ); - $Scrips->Limit( FIELD => 'Description', OPERATOR => 'STARTSWITH', VALUE => 'Add or Delete Link '); - while ( my $s = $Scrips->Next ) { $s->Delete }; -} - - -my $link = RT::Link->new( $RT::SystemUser ); -($id,$msg) = $link->Create( Base => $ticket->URI, Target => $ticket2->URI, Type => 'MyLinkType' ); -ok($id, $msg); -ok($link->LocalBase == $ticket->id, "LocalBase set correctly"); -ok($link->LocalTarget == $ticket2->id, "LocalTarget set correctly"); - -{ - no warnings 'once'; - *RT::NotTicket::Id = sub { return $$ }; - *RT::NotTicket::id = \&RT::NotTicket::Id; -} - -{ - package RT::URI::not_ticket; - use RT::URI::base; - use vars qw(@ISA); - @ISA = qw/RT::URI::base/; - sub IsLocal { 1; } - sub Object { return bless {}, 'RT::NotTicket'; } -} - -my $orig_getresolver = \&RT::URI::_GetResolver; -{ - no warnings 'redefine'; - *RT::URI::_GetResolver = sub { - my $self = shift; - my $scheme = shift; - - $scheme =~ s/(\.|-)/_/g; - my $resolver; - my $module = "RT::URI::$scheme"; - $resolver = $module->new($self->CurrentUser); - - if ($resolver) { - $self->{'resolver'} = $resolver; - } else { - $self->{'resolver'} = RT::URI::base->new($self->CurrentUser); - } - }; -} - -($id,$msg) = $link->Create( Base => "not_ticket::$RT::Organization/notticket/$$", Target => $ticket2->URI, Type => 'MyLinkType' ); -ok($id, $msg); -ok($link->LocalBase == 0, "LocalBase set correctly"); -ok($link->LocalTarget == $ticket2->id, "LocalTarget set correctly"); - -($id,$msg) = $link->Create( Target => "not_ticket::$RT::Organization/notticket/$$", Base => $ticket->URI, Type => 'MyLinkType' ); -ok($id, $msg); -ok($link->LocalTarget == 0, "LocalTarget set correctly"); -ok($link->LocalBase == $ticket->id, "LocalBase set correctly"); - -($id,$msg) = $link->Create( - Target => "not_ticket::$RT::Organization/notticket/1$$", - Base => "not_ticket::$RT::Organization/notticket/$$", - Type => 'MyLinkType' ); - -ok($id, $msg); -ok($link->LocalTarget == 0, "LocalTarget set correctly"); -ok($link->LocalBase == 0, "LocalBase set correctly"); - -# restore _GetResolver -{ - no warnings 'redefine'; - *RT::URI::_GetResolver = $orig_getresolver; -} - -sub link_count { - my $file = shift; - open my $fh, "<$file" or die "couldn't open $file"; - my $data = <$fh>; - close $fh; - - return undef unless $data; - chomp $data; - return $data + 0; -} diff --git a/rt/t/ticket/merge.t b/rt/t/ticket/merge.t deleted file mode 100644 index 7c72fe0..0000000 --- a/rt/t/ticket/merge.t +++ /dev/null @@ -1,137 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - - -use RT; -use RT::Test tests => '29'; - - -# validate that when merging two tickets, the comments from both tickets -# are integrated into the new ticket -{ - my $queue = RT::Queue->new($RT::SystemUser); - my ($id,$msg) = $queue->Create(Name => 'MergeTest-'.rand(25)); - ok ($id,$msg); - - my $t1 = RT::Ticket->new($RT::SystemUser); - my ($tid,$transid, $t1msg) =$t1->Create( - Queue => $queue->Name, - Subject => 'Merge test. orig', - ); - ok ($tid, $t1msg); - ($id, $msg) = $t1->Comment(Content => 'This is a Comment on the original'); - ok($id,$msg); - - my $txns = $t1->Transactions; - my $Comments = 0; - while (my $txn = $txns->Next) { - $Comments++ if ($txn->Type eq 'Comment'); - } - is($Comments,1, "our first ticket has only one Comment"); - - my $t2 = RT::Ticket->new($RT::SystemUser); - my ($t2id,$t2transid, $t2msg) =$t2->Create ( Queue => $queue->Name, Subject => 'Merge test. duplicate'); - ok ($t2id, $t2msg); - - - - ($id, $msg) = $t2->Comment(Content => 'This is a commet on the duplicate'); - ok($id,$msg); - - - $txns = $t2->Transactions; - $Comments = 0; - while (my $txn = $txns->Next) { - $Comments++ if ($txn->Type eq 'Comment'); - } - is($Comments,1, "our second ticket has only one Comment"); - - ($id, $msg) = $t1->Comment(Content => 'This is a second Comment on the original'); - ok($id,$msg); - - $txns = $t1->Transactions; - $Comments = 0; - while (my $txn = $txns->Next) { - $Comments++ if ($txn->Type eq 'Comment'); - } - is($Comments,2, "our first ticket now has two Comments"); - - ($id,$msg) = $t2->MergeInto($t1->id); - - ok($id,$msg); - $txns = $t1->Transactions; - $Comments = 0; - while (my $txn = $txns->Next) { - $Comments++ if ($txn->Type eq 'Comment'); - } - is($Comments,3, "our first ticket now has three Comments - we merged safely"); -} - -# when you try to merge duplicate links on postgres, eveyrything goes to hell due to referential integrity constraints. -{ - my $t = RT::Ticket->new($RT::SystemUser); - $t->Create(Subject => 'Main', Queue => 'general'); - - ok ($t->id); - my $t2 = RT::Ticket->new($RT::SystemUser); - $t2->Create(Subject => 'Second', Queue => 'general'); - ok ($t2->id); - - my $t3 = RT::Ticket->new($RT::SystemUser); - $t3->Create(Subject => 'Third', Queue => 'general'); - - ok ($t3->id); - - my ($id,$val); - ($id,$val) = $t->AddLink(Type => 'DependsOn', Target => $t3->id); - ok($id,$val); - ($id,$val) = $t2->AddLink(Type => 'DependsOn', Target => $t3->id); - ok($id,$val); - - ($id,$val) = $t->MergeInto($t2->id); - ok($id,$val); -} - -my $user = RT::Test->load_or_create_user( - Name => 'a user', Password => 'password', -); -ok $user && $user->id, 'loaded or created user'; - -# check rights -{ - RT::Test->set_rights( - { Principal => 'Everyone', Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket)] }, - { Principal => 'Owner', Right => [qw(ModifyTicket)] }, - ); - - my $t = RT::Ticket->new(RT::CurrentUser->new($user)); - $t->Create(Subject => 'Main', Queue => 'general'); - ok ($t->id, "Created ticket"); - - my $t2 = RT::Ticket->new(RT::CurrentUser->new($user)); - $t2->Create(Subject => 'Second', Queue => 'general'); - ok ($t2->id, "Created ticket"); - - foreach my $ticket ( $t, $t2 ) { - ok( !$ticket->CurrentUserHasRight('ModifyTicket'), "can not modify" ); - } - - my ($status,$msg) = $t->MergeInto($t2->id); - ok(!$status, "Can not merge: $msg"); - - ($status, $msg) = $t->SetOwner( $user->id ); - ok( $status, "User took ticket"); - ok( $t->CurrentUserHasRight('ModifyTicket'), "can modify after take" ); - - ($status,$msg) = $t->MergeInto($t2->id); - ok(!$status, "Can not merge: $msg"); - - ($status, $msg) = $t2->SetOwner( $user->id ); - ok( $status, "User took ticket"); - ok( $t2->CurrentUserHasRight('ModifyTicket'), "can modify after take" ); - - ($status,$msg) = $t->MergeInto($t2->id); - ok($status, "Merged tickets: $msg"); -} diff --git a/rt/t/ticket/quicksearch.t b/rt/t/ticket/quicksearch.t deleted file mode 100644 index 9ab9f21..0000000 --- a/rt/t/ticket/quicksearch.t +++ /dev/null @@ -1,41 +0,0 @@ - -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 10; -use_ok('RT'); - - -my $q = RT::Queue->new($RT::SystemUser); -my $queue = 'SearchTests-'.$$; -$q->Create(Name => $queue); -ok ($q->id, "Created the queue"); - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ( $id, undef, $msg ) = $t1->Create( - Queue => $q->id, - Subject => 'SearchTest1', - Requestor => ['search2@example.com'], -); -ok( $id, $msg ); - -use_ok("RT::Search::Googleish"); - -my $active_statuses = join( " OR ", map "Status = '$_'", RT::Queue->ActiveStatusArray()); - -my $tickets = RT::Tickets->new($RT::SystemUser); -my $quick = RT::Search::Googleish->new(Argument => "", - TicketsObj => $tickets); -my @tests = ( - "General new open root" => "( Owner = 'root' ) AND ( Queue = 'General' ) AND ( Status = 'new' OR Status = 'open' )", - "fulltext:jesse" => "( Content LIKE 'jesse' ) AND ( $active_statuses )", - $queue => "( Queue = '$queue' ) AND ( $active_statuses )", - "root $queue" => "( Owner = 'root' ) AND ( Queue = '$queue' ) AND ( $active_statuses )", - "notauser $queue" => "( Queue = '$queue' ) AND ( $active_statuses ) AND ( Subject LIKE 'notauser' )", - "notauser $queue root" => "( Owner = 'root' ) AND ( Queue = '$queue' ) AND ( $active_statuses ) AND ( Subject LIKE 'notauser' )"); - -while (my ($from, $to) = splice @tests, 0, 2) { - is($quick->QueryToSQL($from), $to, "<$from> -> <$to>"); -} diff --git a/rt/t/ticket/requestor-order.t b/rt/t/ticket/requestor-order.t deleted file mode 100644 index 4539fbd..0000000 --- a/rt/t/ticket/requestor-order.t +++ /dev/null @@ -1,142 +0,0 @@ -#!/usr/bin/perl -w -use strict; use warnings; - -use RT::Test tests => 58; -use_ok('RT'); - -use RT::Ticket; - -my $q = RT::Queue->new($RT::SystemUser); -my $queue = 'SearchTests-'.rand(200); -$q->Create(Name => $queue); - -my @requestors = ( ('bravo@example.com') x 6, ('alpha@example.com') x 6, - ('delta@example.com') x 6, ('charlie@example.com') x 6, - (undef) x 6); -my @subjects = ("first test", "second test", "third test", "fourth test", "fifth test") x 6; -while (@requestors) { - my $t = RT::Ticket->new($RT::SystemUser); - my ( $id, undef $msg ) = $t->Create( - Queue => $q->id, - Subject => shift @subjects, - Requestor => [ shift @requestors ] - ); - ok( $id, $msg ); -} - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - is($tix->Count, 30, "found thirty tickets"); -} - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND requestor = 'alpha\@example.com'"); - $tix->OrderByCols({ FIELD => "Subject" }); - my @subjects; - while (my $t = $tix->Next) { push @subjects, $t->Subject; } - is(@subjects, 6, "found six tickets"); - is_deeply( \@subjects, [ sort @subjects ], "Subjects are sorted"); -} - -sub check_emails_order -{ - my ($tix,$count,$order) = (@_); - my @mails; - while (my $t = $tix->Next) { push @mails, $t->RequestorAddresses; } - is(@mails, $count, "found $count tickets for ". $tix->Query); - my @required_order; - if( $order =~ /asc/i ) { - @required_order = sort { $a? ($b? ($a cmp $b) : -1) : 1} @mails; - } else { - @required_order = sort { $a? ($b? ($b cmp $a) : -1) : 1} @mails; - } - foreach( reverse splice @mails ) { - if( $_ ) { unshift @mails, $_ } - else { push @mails, $_ } - } - is_deeply( \@mails, \@required_order, "Addresses are sorted"); -} - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND subject = 'first test' AND Requestor.EmailAddress LIKE 'example.com'"); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress" }); - check_emails_order($tix, 5, 'ASC'); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress", ORDER => 'DESC' }); - check_emails_order($tix, 5, 'DESC'); -} - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Subject = 'first test'"); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress" }); - check_emails_order($tix, 6, 'ASC'); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress", ORDER => 'DESC' }); - check_emails_order($tix, 6, 'DESC'); -} - - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Subject = 'first test'"); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress" }); - check_emails_order($tix, 6, 'ASC'); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress", ORDER => 'DESC' }); - check_emails_order($tix, 6, 'DESC'); -} - -{ - # create ticket with group as member of the requestors group - my $t = RT::Ticket->new($RT::SystemUser); - my ( $id, $msg ) = $t->Create( - Queue => $q->id, - Subject => "first test", - Requestor => 'badaboom@example.com', - ); - ok( $id, "ticket created" ) or diag( "error: $msg" ); - - my $g = RT::Group->new($RT::SystemUser); - - my ($gid); - ($gid, $msg) = $g->CreateUserDefinedGroup(Name => '20-sort-by-requestor.t-'.rand(200)); - ok($gid, "created group") or diag("error: $msg"); - - ($id, $msg) = $t->Requestors->AddMember( $gid ); - ok($id, "added group to requestors group") or diag("error: $msg"); -} - - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Subject = 'first test'"); - - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress" }); - check_emails_order($tix, 7, 'ASC'); - - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress", ORDER => 'DESC' }); - check_emails_order($tix, 7, 'DESC'); - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress" }); - $tix->RowsPerPage(30); - my @mails; - while (my $t = $tix->Next) { push @mails, $t->RequestorAddresses; } - is(@mails, 30, "found thirty tickets"); - is_deeply( [grep {$_} @mails], [ sort grep {$_} @mails ], "Paging works (exclude nulls, which are db-dependant)"); -} - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - $tix->OrderByCols({ FIELD => "Requestor.EmailAddress" }); - $tix->RowsPerPage(30); - my @mails; - while (my $t = $tix->Next) { push @mails, $t->RequestorAddresses; } - is(@mails, 30, "found thirty tickets"); - is_deeply( [grep {$_} @mails], [ sort grep {$_} @mails ], "Paging works (exclude nulls, which are db-dependant)"); -} -RT::Test->mailsent_ok(25); - -# vim:ft=perl: diff --git a/rt/t/ticket/scrips_batch.t b/rt/t/ticket/scrips_batch.t deleted file mode 100644 index f558d3b..0000000 --- a/rt/t/ticket/scrips_batch.t +++ /dev/null @@ -1,100 +0,0 @@ - -use strict; -use warnings; - -use RT::Test tests => '19'; -use_ok('RT'); -use_ok('RT::Ticket'); - -my $queue = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $queue && $queue->id, 'loaded or created queue'; - -RT->Config->Set( UseTransactionBatch => 1 ); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in as root'; - -my $sid; -{ - $m->follow_link_ok( { text => 'Configuration' } ); - $m->follow_link_ok( { text => 'Queues' } ); - $m->follow_link_ok( { text => $queue->Name } ); - $m->follow_link_ok( { text => 'Scrips' } ); - $m->follow_link_ok( { text => 'New scrip' } ); - $m->form_number(3); - $m->field('Scrip-new-Description' => 'test'); - $m->select('Scrip-new-ScripCondition' => 'On Transaction'); - $m->select('Scrip-new-ScripAction' => 'User Defined'); - $m->select('Scrip-new-Template' => 'Global template: Blank'); - $m->select('Scrip-new-Stage' => 'TransactionBatch'); - $m->field('Scrip-new-CustomPrepareCode' => 'return 1;'); - $m->field('Scrip-new-CustomCommitCode' => 'return 1;'); - $m->submit; - $m->content_like( qr/Scrip Created/ ); - - ($sid) = ($m->content =~ /Scrip\s*#(\d+)/); - - my $form = $m->form_number(3); - is $m->value("Scrip-$sid-Description"), 'test', 'correct description'; - is value_name($form, "Scrip-$sid-ScripCondition"), 'On Transaction', 'correct condition'; - is value_name($form, "Scrip-$sid-ScripAction"), 'User Defined', 'correct action'; - is value_name($form, "Scrip-$sid-Template"), 'Global template: Blank', 'correct template'; - is value_name($form, "Scrip-$sid-Stage"), 'TransactionBatch', 'correct stage'; - - use File::Temp qw(tempfile); - my ($tmp_fh, $tmp_fn) = tempfile(); - - my $code = <<END; -open my \$fh, '>', '$tmp_fn' or die "Couldn't open '$tmp_fn':\$!"; - -my \$batch = \$self->TicketObj->TransactionBatch; -unless ( \$batch && \@\$batch ) { - print \$fh "no batch\n"; - return 1; -} -foreach my \$txn ( \@\$batch ) { - print \$fh \$txn->Type ."\n"; -} -return 1; -END - - $m->field( "Scrip-$sid-CustomCommitCode" => $code ); - $m->submit; - - $m->goto_create_ticket( $queue ); - $m->form_number(3); - $m->submit; - - is_deeply parse_handle($tmp_fh), ['Create'], 'Create'; - - $m->follow_link_ok( { text => 'Resolve' } ); - $m->form_number(3); - $m->field( "UpdateContent" => 'resolve it' ); - $m->click('SubmitTicket'); - - is_deeply parse_handle($tmp_fh), ['Comment', 'Status'], 'Comment + Resolve'; -} - -sub value_name { - my $form = shift; - my $field = shift; - - my $input = $form->find_input( $field ); - - my @names = $input->value_names; - my @values = $input->possible_values; - for ( my $i = 0; $i < @values; $i++ ) { - return $names[ $i ] if $values[ $i ] eq $input->value; - } - return undef; -} - -sub parse_handle { - my $fh = shift; - seek $fh, 0, 0; - my @lines = <$fh>; - foreach ( @lines ) { s/^\s+//gms; s/\s+$//gms } - truncate $fh, 0; - return \@lines; -} - diff --git a/rt/t/ticket/search.t b/rt/t/ticket/search.t deleted file mode 100644 index 9cec4f7..0000000 --- a/rt/t/ticket/search.t +++ /dev/null @@ -1,278 +0,0 @@ -#!/opt/perl/bin/perl -w - -# tests relating to searching. Especially around custom fields, and -# corner cases. - -use strict; -use warnings; - -use RT::Test tests => 43; - -# setup the queue - -my $q = RT::Queue->new($RT::SystemUser); -my $queue = 'SearchTests-'.$$; -$q->Create(Name => $queue); -ok ($q->id, "Created the queue"); - - -# and setup the CFs -# we believe the Type shouldn't matter. - -my $cf = RT::CustomField->new($RT::SystemUser); -$cf->Create(Name => 'SearchTest', Type => 'Freeform', MaxValues => 0, Queue => $q->id); -ok($cf->id, "Created the SearchTest CF"); -my $cflabel = "CustomField-".$cf->id; - -my $cf2 = RT::CustomField->new($RT::SystemUser); -$cf2->Create(Name => 'SearchTest2', Type => 'Freeform', MaxValues => 0, Queue => $q->id); -ok($cf2->id, "Created the SearchTest2 CF"); -my $cflabel2 = "CustomField-".$cf2->id; - -my $cf3 = RT::CustomField->new($RT::SystemUser); -$cf3->Create(Name => 'SearchTest3', Type => 'Freeform', MaxValues => 0, Queue => $q->id); -ok($cf3->id, "Created the SearchTest3 CF"); -my $cflabel3 = "CustomField-".$cf3->id; - - -# There was a bug involving a missing join to ObjectCustomFields that -# caused spurious results on negative searches if another custom field -# with the same name existed on a different queue. Hence, we make -# duplicate CFs on a different queue here -my $dup = RT::Queue->new($RT::SystemUser); -$dup->Create(Name => $queue . "-Copy"); -ok ($dup->id, "Created the duplicate queue"); -my $dupcf = RT::CustomField->new($RT::SystemUser); -$dupcf->Create(Name => 'SearchTest', Type => 'Freeform', MaxValues => 0, Queue => $dup->id); -ok($dupcf->id, "Created the duplicate SearchTest CF"); -$dupcf = RT::CustomField->new($RT::SystemUser); -$dupcf->Create(Name => 'SearchTest2', Type => 'Freeform', MaxValues => 0, Queue => $dup->id); -ok($dupcf->id, "Created the SearchTest2 CF"); -$dupcf = RT::CustomField->new($RT::SystemUser); -$dupcf->Create(Name => 'SearchTest3', Type => 'Freeform', MaxValues => 0, Queue => $dup->id); -ok($dupcf->id, "Created the SearchTest3 CF"); - - -# setup some tickets -# we'll need a small pile of them, to test various combinations and nulls. -# there's probably a way to think harder and do this with fewer - - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ( $id, undef $msg ) = $t1->Create( - Queue => $q->id, - Subject => 'SearchTest1', - Requestor => ['search1@example.com'], - $cflabel => 'foo1', - $cflabel2 => 'bar1', - $cflabel3 => 'qux1', -); -ok( $id, $msg ); - - -my $t2 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t2->Create( - Queue => $q->id, - Subject => 'SearchTest2', - Requestor => ['search2@example.com'], -# $cflabel => 'foo2', - $cflabel2 => 'bar2', - $cflabel3 => 'qux2', -); -ok( $id, $msg ); - -my $t3 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t3->Create( - Queue => $q->id, - Subject => 'SearchTest3', - Requestor => ['search3@example.com'], - $cflabel => 'foo3', -# $cflabel2 => 'bar3', - $cflabel3 => 'qux3', -); -ok( $id, $msg ); - -my $t4 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t4->Create( - Queue => $q->id, - Subject => 'SearchTest4', - Requestor => ['search4@example.com'], - $cflabel => 'foo4', - $cflabel2 => 'bar4', -# $cflabel3 => 'qux4', -); -ok( $id, $msg ); - -my $t5 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t5->Create( - Queue => $q->id, -# Subject => 'SearchTest5', - Requestor => ['search5@example.com'], - $cflabel => 'foo5', - $cflabel2 => 'bar5', - $cflabel3 => 'qux5', -); -ok( $id, $msg ); - -my $t6 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t6->Create( - Queue => $q->id, - Subject => 'SearchTest6', -# Requestor => ['search6@example.com'], - $cflabel => 'foo6', - $cflabel2 => 'bar6', - $cflabel3 => 'qux6', -); -ok( $id, $msg ); - -my $t7 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t7->Create( - Queue => $q->id, - Subject => 'SearchTest7', - Requestor => ['search7@example.com'], -# $cflabel => 'foo7', -# $cflabel2 => 'bar7', - $cflabel3 => 'qux7', -); -ok( $id, $msg ); - -# we have tickets. start searching -my $tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue'"); -is($tix->Count, 7, "found all the tickets") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - - -# very simple searches. both CF and normal - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest = 'foo1'"); -is($tix->Count, 1, "matched identical subject") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'foo1'"); -is($tix->Count, 1, "matched LIKE subject") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest = 'foo'"); -is($tix->Count, 0, "IS a regexp match") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'foo'"); -is($tix->Count, 5, "matched LIKE subject") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest IS NULL"); -is($tix->Count, 2, "IS null CF") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Requestors LIKE 'search1'"); -is($tix->Count, 1, "LIKE requestor") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Requestors = 'search1\@example.com'"); -is($tix->Count, 1, "IS requestor") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Requestors LIKE 'search'"); -is($tix->Count, 6, "LIKE requestor") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Requestors IS NULL"); -is($tix->Count, 1, "Search for no requestor") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Subject = 'SearchTest1'"); -is($tix->Count, 1, "IS subject") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Subject LIKE 'SearchTest1'"); -is($tix->Count, 1, "LIKE subject") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Subject = ''"); -is($tix->Count, 1, "found one ticket") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Subject LIKE 'SearchTest'"); -is($tix->Count, 6, "found two ticket") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND Subject LIKE 'qwerty'"); -is($tix->Count, 0, "found zero ticket") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - - - - -# various combinations - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest LIKE 'foo' AND CF.SearchTest2 LIKE 'bar1'"); -is($tix->Count, 1, "LIKE cf and LIKE cf"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest = 'foo1' AND CF.SearchTest2 = 'bar1'"); -is($tix->Count, 1, "is cf and is cf"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest = 'foo' AND CF.SearchTest2 LIKE 'bar1'"); -is($tix->Count, 0, "is cf and like cf"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest LIKE 'foo' AND CF.SearchTest2 LIKE 'bar' AND CF.SearchTest3 LIKE 'qux'"); -is($tix->Count, 3, "like cf and like cf and like cf"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest LIKE 'foo' AND CF.SearchTest2 LIKE 'bar' AND CF.SearchTest3 LIKE 'qux6'"); -is($tix->Count, 1, "like cf and like cf and is cf"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest LIKE 'foo' AND Subject LIKE 'SearchTest'"); -is($tix->Count, 4, "like cf and like subject"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest IS NULL AND CF.SearchTest2 = 'bar2'"); -is($tix->Count, 1, "null cf and is cf"); - - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest IS NULL AND CF.SearchTest2 IS NULL"); -is($tix->Count, 1, "null cf and null cf"); - -# tests with the same CF listed twice - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.{SearchTest} = 'foo1'"); -is($tix->Count, 1, "is cf.{name} format"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest = 'foo1' OR CF.SearchTest = 'foo3'"); -is($tix->Count, 2, "is cf1 or is cf1"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest = 'foo1' OR CF.SearchTest IS NULL"); -is($tix->Count, 3, "is cf1 or null cf1"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("(CF.SearchTest = 'foo1' OR CF.SearchTest = 'foo3') AND (CF.SearchTest2 = 'bar1' OR CF.SearchTest2 = 'bar2')"); -is($tix->Count, 1, "(is cf1 or is cf1) and (is cf2 or is cf2)"); - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("CF.SearchTest = 'foo1' OR CF.SearchTest = 'foo3' OR CF.SearchTest2 = 'bar1' OR CF.SearchTest2 = 'bar2'"); -is($tix->Count, 3, "is cf1 or is cf1 or is cf2 or is cf2"); - diff --git a/rt/t/ticket/search_by_cf_freeform_multiple.t b/rt/t/ticket/search_by_cf_freeform_multiple.t deleted file mode 100644 index be51306..0000000 --- a/rt/t/ticket/search_by_cf_freeform_multiple.t +++ /dev/null @@ -1,153 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 105; -use RT::Ticket; - -my $q = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $q && $q->id, 'loaded or created queue'; -my $queue = $q->Name; - -diag "create a CF\n" if $ENV{TEST_VERBOSE}; -my ($cf_name, $cf_id, $cf) = ("Test", 0, undef); -{ - $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => $cf_name, - Queue => $q->id, - Type => 'FreeformMultiple', - ); - ok($ret, "Custom Field Order created"); - $cf_id = $cf->id; -} - -my ($total, @data, @tickets, %test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - while (@data) { - my %args = %{ shift(@data) }; - my @cf_value = $args{'Subject'} ne '-'? (split /(?=.)/, $args{'Subject'}) : (); - diag "vals: ". join ', ', @cf_value; - my $t = RT::Ticket->new($RT::SystemUser); - my ( $id, undef $msg ) = $t->Create( - Queue => $q->id, - %args, - "CustomField-$cf_id" => \@cf_value, - ); - ok( $id, "ticket created" ) or diag("error: $msg"); - - my $got = join ',', sort do { - my $vals = $t->CustomFieldValues( $cf_name ); - my @tmp; - while (my $v = $vals->Next ) { push @tmp, $v->Content } - @tmp; - }; - - is( $got, join( ',', sort @cf_value), 'correct CF values' ); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $key ( sort keys %test ) { - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL( "( $query_prefix ) AND ( $key )" ); - - my $error = 0; - - my $count = 0; - $count++ foreach grep $_, values %{ $test{$key} }; - is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1; - - my $good_tickets = ($tix->Count == $count); - while ( my $ticket = $tix->Next ) { - next if $test{$key}->{ $ticket->Subject }; - diag $ticket->Subject ." ticket has been found when it's not expected"; - $good_tickets = 0; - } - ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1; - - diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error; - } -} - -@data = ( - { Subject => '-' }, - { Subject => 'x' }, - { Subject => 'y' }, - { Subject => 'z' }, - { Subject => 'xy' }, - { Subject => 'xz' }, - { Subject => 'yz' }, -); -%test = ( - "CF.{$cf_id} IS NULL" => { '-' => 1, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - "'CF.{$cf_name}' IS NULL" => { '-' => 1, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_id}' IS NULL" => { '-' => 1, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_name}' IS NULL" => { '-' => 1, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - - "CF.{$cf_id} IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - "'CF.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - "'CF.$queue.{$cf_id}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - "'CF.$queue.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - - "CF.{$cf_id} = 'x'" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.{$cf_name}' = 'x'" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.$queue.{$cf_id}' = 'x'" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.$queue.{$cf_name}' = 'x'" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - - "CF.{$cf_id} != 'x'" => { '-' => 1, x => 0, y => 1, z => 1, xy => 0, xz => 0, yz => 1 }, - "'CF.{$cf_name}' != 'x'" => { '-' => 1, x => 0, y => 1, z => 1, xy => 0, xz => 0, yz => 1 }, - "'CF.$queue.{$cf_id}' != 'x'" => { '-' => 1, x => 0, y => 1, z => 1, xy => 0, xz => 0, yz => 1 }, - "'CF.$queue.{$cf_name}' != 'x'" => { '-' => 1, x => 0, y => 1, z => 1, xy => 0, xz => 0, yz => 1 }, - - "CF.{$cf_id} = 'x' OR CF.{$cf_id} = 'y'" => { '-' => 0, x => 1, y => 1, z => 0, xy => 1, xz => 1, yz => 1 }, - "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' = 'y'" => { '-' => 0, x => 1, y => 1, z => 0, xy => 1, xz => 1, yz => 1 }, - "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' = 'y'" => { '-' => 0, x => 1, y => 1, z => 0, xy => 1, xz => 1, yz => 1 }, - "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' = 'y'" => { '-' => 0, x => 1, y => 1, z => 0, xy => 1, xz => 1, yz => 1 }, - - "CF.{$cf_id} = 'x' AND CF.{$cf_id} = 'y'" => { '-' => 0, x => 0, y => 0, z => 0, xy => 1, xz => 0, yz => 0 }, - "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' = 'y'" => { '-' => 0, x => 0, y => 0, z => 0, xy => 1, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' = 'y'" => { '-' => 0, x => 0, y => 0, z => 0, xy => 1, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' = 'y'" => { '-' => 0, x => 0, y => 0, z => 0, xy => 1, xz => 0, yz => 0 }, - - "CF.{$cf_id} != 'x' AND CF.{$cf_id} != 'y'" => { '-' => 1, x => 0, y => 0, z => 1, xy => 0, xz => 0, yz => 0 }, - "'CF.{$cf_name}' != 'x' AND 'CF.{$cf_name}' != 'y'" => { '-' => 1, x => 0, y => 0, z => 1, xy => 0, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_id}' != 'x' AND 'CF.$queue.{$cf_id}' != 'y'" => { '-' => 1, x => 0, y => 0, z => 1, xy => 0, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_name}' != 'x' AND 'CF.$queue.{$cf_name}' != 'y'" => { '-' => 1, x => 0, y => 0, z => 1, xy => 0, xz => 0, yz => 0 }, - - "CF.{$cf_id} = 'x' AND CF.{$cf_id} IS NULL" => { '-' => 0, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' IS NULL" => { '-' => 0, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' IS NULL" => { '-' => 0, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' IS NULL" => { '-' => 0, x => 0, y => 0, z => 0, xy => 0, xz => 0, yz => 0 }, - - "CF.{$cf_id} = 'x' OR CF.{$cf_id} IS NULL" => { '-' => 1, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' IS NULL" => { '-' => 1, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' IS NULL" => { '-' => 1, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' IS NULL" => { '-' => 1, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - - "CF.{$cf_id} = 'x' AND CF.{$cf_id} IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0, xy => 1, xz => 1, yz => 0 }, - - "CF.{$cf_id} = 'x' OR CF.{$cf_id} IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, - "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1, xy => 1, xz => 1, yz => 1 }, -); -@tickets = add_tix_from_data(); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - is($tix->Count, $total, "found $total tickets"); -} -run_tests(); - -exit 0; diff --git a/rt/t/ticket/search_by_cf_freeform_single.t b/rt/t/ticket/search_by_cf_freeform_single.t deleted file mode 100644 index d5ff7ec..0000000 --- a/rt/t/ticket/search_by_cf_freeform_single.t +++ /dev/null @@ -1,142 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 99; -use RT::Ticket; - -my $q = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $q && $q->id, 'loaded or created queue'; -my $queue = $q->Name; - -diag "create a CF\n" if $ENV{TEST_VERBOSE}; -my ($cf_name, $cf_id, $cf) = ("Test", 0, undef); -{ - $cf = RT::CustomField->new( $RT::SystemUser ); - my ($ret, $msg) = $cf->Create( - Name => $cf_name, - Queue => $q->id, - Type => 'FreeformSingle', - ); - ok($ret, "Custom Field Order created"); - $cf_id = $cf->id; -} - -my ($total, @data, @tickets, %test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - while (@data) { - my %args = %{ shift(@data) }; - my $cf_value = $args{'Subject'} ne '-'? $args{'Subject'} : undef; - my $t = RT::Ticket->new($RT::SystemUser); - my ( $id, undef $msg ) = $t->Create( - Queue => $q->id, - %args, - "CustomField-$cf_id" => $cf_value, - ); - ok( $id, "ticket created" ) or diag("error: $msg"); - is( $t->FirstCustomFieldValue( $cf_name ), $cf_value, 'correct value' ); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $key ( sort keys %test ) { - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL( "( $query_prefix ) AND ( $key )" ); - - my $error = 0; - - my $count = 0; - $count++ foreach grep $_, values %{ $test{$key} }; - is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1; - - my $good_tickets = ($tix->Count == $count); - while ( my $ticket = $tix->Next ) { - next if $test{$key}->{ $ticket->Subject }; - diag $ticket->Subject ." ticket has been found when it's not expected"; - $good_tickets = 0; - } - ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1; - - diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error; - } -} - -@data = ( - { Subject => '-' }, - { Subject => 'x' }, - { Subject => 'y' }, - { Subject => 'z' }, -); -%test = ( - "CF.{$cf_id} IS NULL" => { '-' => 1, x => 0, y => 0, z => 0 }, - "'CF.{$cf_name}' IS NULL" => { '-' => 1, x => 0, y => 0, z => 0 }, - "'CF.$queue.{$cf_id}' IS NULL" => { '-' => 1, x => 0, y => 0, z => 0 }, - "'CF.$queue.{$cf_name}' IS NULL" => { '-' => 1, x => 0, y => 0, z => 0 }, - - "CF.{$cf_id} IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - "'CF.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - "'CF.$queue.{$cf_id}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - "'CF.$queue.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - - "CF.{$cf_id} = 'x'" => { '-' => 0, x => 1, y => 0, z => 0 }, - "'CF.{$cf_name}' = 'x'" => { '-' => 0, x => 1, y => 0, z => 0 }, - "'CF.$queue.{$cf_id}' = 'x'" => { '-' => 0, x => 1, y => 0, z => 0 }, - "'CF.$queue.{$cf_name}' = 'x'" => { '-' => 0, x => 1, y => 0, z => 0 }, - - "CF.{$cf_id} != 'x'" => { '-' => 1, x => 0, y => 1, z => 1 }, - "'CF.{$cf_name}' != 'x'" => { '-' => 1, x => 0, y => 1, z => 1 }, - "'CF.$queue.{$cf_id}' != 'x'" => { '-' => 1, x => 0, y => 1, z => 1 }, - "'CF.$queue.{$cf_name}' != 'x'" => { '-' => 1, x => 0, y => 1, z => 1 }, - - "CF.{$cf_id} = 'x' OR CF.{$cf_id} = 'y'" => { '-' => 0, x => 1, y => 1, z => 0 }, - "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' = 'y'" => { '-' => 0, x => 1, y => 1, z => 0 }, - "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' = 'y'" => { '-' => 0, x => 1, y => 1, z => 0 }, - "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' = 'y'" => { '-' => 0, x => 1, y => 1, z => 0 }, - - "CF.{$cf_id} = 'x' AND CF.{$cf_id} = 'y'" => { '-' => 0, x => 0, y => 0, z => 0 }, - "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' = 'y'" => { '-' => 0, x => 0, y => 0, z => 0 }, - "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' = 'y'" => { '-' => 0, x => 0, y => 0, z => 0 }, - "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' = 'y'" => { '-' => 0, x => 0, y => 0, z => 0 }, - - "CF.{$cf_id} != 'x' AND CF.{$cf_id} != 'y'" => { '-' => 1, x => 0, y => 0, z => 1 }, - "'CF.{$cf_name}' != 'x' AND 'CF.{$cf_name}' != 'y'" => { '-' => 1, x => 0, y => 0, z => 1 }, - "'CF.$queue.{$cf_id}' != 'x' AND 'CF.$queue.{$cf_id}' != 'y'" => { '-' => 1, x => 0, y => 0, z => 1 }, - "'CF.$queue.{$cf_name}' != 'x' AND 'CF.$queue.{$cf_name}' != 'y'" => { '-' => 1, x => 0, y => 0, z => 1 }, - - "CF.{$cf_id} = 'x' AND CF.{$cf_id} IS NULL" => { '-' => 0, x => 0, y => 0, z => 0 }, - "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' IS NULL" => { '-' => 0, x => 0, y => 0, z => 0 }, - "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' IS NULL" => { '-' => 0, x => 0, y => 0, z => 0 }, - "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' IS NULL" => { '-' => 0, x => 0, y => 0, z => 0 }, - - "CF.{$cf_id} = 'x' OR CF.{$cf_id} IS NULL" => { '-' => 1, x => 1, y => 0, z => 0 }, - "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' IS NULL" => { '-' => 1, x => 1, y => 0, z => 0 }, - "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' IS NULL" => { '-' => 1, x => 1, y => 0, z => 0 }, - "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' IS NULL" => { '-' => 1, x => 1, y => 0, z => 0 }, - - "CF.{$cf_id} = 'x' AND CF.{$cf_id} IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0 }, - "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0 }, - "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0 }, - "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 0, z => 0 }, - - "CF.{$cf_id} = 'x' OR CF.{$cf_id} IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' IS NOT NULL" => { '-' => 0, x => 1, y => 1, z => 1 }, - -); -@tickets = add_tix_from_data(); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - is($tix->Count, $total, "found $total tickets"); -} -run_tests(); - -exit 0; diff --git a/rt/t/ticket/search_by_links.t b/rt/t/ticket/search_by_links.t deleted file mode 100644 index a8e955c..0000000 --- a/rt/t/ticket/search_by_links.t +++ /dev/null @@ -1,132 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 80; -use RT::Ticket; - -my $q = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $q && $q->id, 'loaded or created queue'; - -my ($total, @data, @tickets, %test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my %args = %{ shift(@data) }; - $args{$_} = $res[ $args{$_} ]->id foreach grep $args{$_}, keys %RT::Ticket::LINKTYPEMAP; - my ( $id, undef $msg ) = $t->Create( - Queue => $q->id, - %args, - ); - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $key ( sort keys %test ) { - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL( "( $query_prefix ) AND ( $key )" ); - - my $error = 0; - - my $count = 0; - $count++ foreach grep $_, values %{ $test{$key} }; - is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1; - - my $good_tickets = 1; - while ( my $ticket = $tix->Next ) { - next if $test{$key}->{ $ticket->Subject }; - diag $ticket->Subject ." ticket has been found when it's not expected"; - $good_tickets = 0; - } - ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1; - - diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error; - } -} - -# simple set with "no links", "parent and child" -@data = ( - { Subject => '-', }, - { Subject => 'p', }, - { Subject => 'c', MemberOf => -1 }, -); -@tickets = add_tix_from_data(); -%test = ( - 'Linked IS NOT NULL' => { '-' => 0, c => 1, p => 1 }, - 'Linked IS NULL' => { '-' => 1, c => 0, p => 0 }, - 'LinkedTo IS NOT NULL' => { '-' => 0, c => 1, p => 0 }, - 'LinkedTo IS NULL' => { '-' => 1, c => 0, p => 1 }, - 'LinkedFrom IS NOT NULL' => { '-' => 0, c => 0, p => 1 }, - 'LinkedFrom IS NULL' => { '-' => 1, c => 1, p => 0 }, - - 'HasMember IS NOT NULL' => { '-' => 0, c => 0, p => 1 }, - 'HasMember IS NULL' => { '-' => 1, c => 1, p => 0 }, - 'MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0 }, - 'MemberOf IS NULL' => { '-' => 1, c => 0, p => 1 }, - - 'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0 }, - 'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1 }, - - 'Linked = '. $tickets[0]->id => { '-' => 0, c => 0, p => 0 }, - 'Linked != '. $tickets[0]->id => { '-' => 1, c => 1, p => 1 }, - - 'MemberOf = '. $tickets[1]->id => { '-' => 0, c => 1, p => 0 }, - 'MemberOf != '. $tickets[1]->id => { '-' => 1, c => 0, p => 1 }, -); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '". $q->id ."'"); - is($tix->Count, $total, "found $total tickets"); -} -run_tests(); - -# another set with tests of combinations searches -@data = ( - { Subject => '-', }, - { Subject => 'p', }, - { Subject => 'rp', RefersTo => -1 }, - { Subject => 'c', MemberOf => -2 }, - { Subject => 'rc1', RefersTo => -1 }, - { Subject => 'rc2', RefersTo => -2 }, -); -@tickets = add_tix_from_data(); -my $pid = $tickets[1]->id; -%test = ( - 'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 }, - 'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 }, - - 'RefersTo IS NOT NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 }, - 'RefersTo IS NOT NULL AND MemberOf IS NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 }, - 'RefersTo IS NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 }, - 'RefersTo IS NULL AND MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 0, rc2 => 0 }, - - 'RefersTo IS NOT NULL OR MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 1, rc2 => 1 }, - 'RefersTo IS NOT NULL OR MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 }, - 'RefersTo IS NULL OR MemberOf IS NOT NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 }, - 'RefersTo IS NULL OR MemberOf IS NULL' => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 }, - - "RefersTo = $pid AND MemberOf = $pid" => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 }, - "RefersTo = $pid AND MemberOf != $pid" => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 0, rc2 => 0 }, - "RefersTo != $pid AND MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 }, - "RefersTo != $pid AND MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 1, rc2 => 1 }, - - "RefersTo = $pid OR MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 0, rc2 => 0 }, - "RefersTo = $pid OR MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 }, - "RefersTo != $pid OR MemberOf = $pid" => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 1, rc2 => 1 }, - "RefersTo != $pid OR MemberOf != $pid" => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 }, -); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '". $q->id ."'"); - is($tix->Count, $total, "found $total tickets"); -} -run_tests(); - diff --git a/rt/t/ticket/search_by_txn.t b/rt/t/ticket/search_by_txn.t deleted file mode 100644 index 1be6916..0000000 --- a/rt/t/ticket/search_by_txn.t +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - - -BEGIN{ $ENV{'TZ'} = 'GMT'}; - -use RT::Test tests => 10; - -my $SUBJECT = "Search test - ".$$; - -use_ok('RT::Tickets'); -my $tix = RT::Tickets->new($RT::SystemUser); -can_ok($tix, 'FromSQL'); -$tix->FromSQL('Updated = "2005-08-05" AND Subject = "$SUBJECT"'); - -ok(! $tix->Count, "Searching for tickets updated on a random date finds nothing" . $tix->Count); - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Create(Queue => 'General', Subject => $SUBJECT); -ok ($ticket->id, "We created a ticket"); -my ($id, $txnid, $txnobj) = $ticket->Comment( Content => 'A comment that happend on 2004-01-01'); - -isa_ok($txnobj, 'RT::Transaction'); - -ok($txnobj->CreatedObj->ISO); -my ( $sid,$smsg) = $txnobj->__Set(Field => 'Created', Value => '2005-08-05 20:00:56'); -ok($sid,$smsg); -is($txnobj->Created,'2005-08-05 20:00:56'); -is($txnobj->CreatedObj->ISO,'2005-08-05 20:00:56'); - -$tix->FromSQL(qq{Updated = "2005-08-05" AND Subject = "$SUBJECT"}); -is( $tix->Count, 1); - diff --git a/rt/t/ticket/search_by_watcher.t b/rt/t/ticket/search_by_watcher.t deleted file mode 100644 index 9d94432..0000000 --- a/rt/t/ticket/search_by_watcher.t +++ /dev/null @@ -1,280 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 119; -use RT::Ticket; - -my $q = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $q && $q->id, 'loaded or created queue'; -my $queue = $q->Name; - -my ($total, @data, @tickets, %test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my ( $id, undef $msg ) = $t->Create( - Queue => $q->id, - %{ shift(@data) }, - ); - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $key ( sort keys %test ) { - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL( "( $query_prefix ) AND ( $key )" ); - - my $error = 0; - - my $count = 0; - $count++ foreach grep $_, values %{ $test{$key} }; - is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1; - - my $good_tickets = ($tix->Count == $count); - while ( my $ticket = $tix->Next ) { - next if $test{$key}->{ $ticket->Subject }; - diag $ticket->Subject ." ticket has been found when it's not expected"; - $good_tickets = 0; - } - ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1; - - diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error; - } -} - -@data = ( - { Subject => 'xy', Requestor => ['x@example.com', 'y@example.com'] }, - { Subject => 'x', Requestor => 'x@example.com' }, - { Subject => 'y', Requestor => 'y@example.com' }, - { Subject => '-', }, - { Subject => 'z', Requestor => 'z@example.com' }, -); -%test = ( - 'Requestor = "x@example.com"' => { xy => 1, x => 1, y => 0, '-' => 0, z => 0 }, - 'Requestor != "x@example.com"' => { xy => 0, x => 0, y => 1, '-' => 1, z => 1 }, - - 'Requestor = "y@example.com"' => { xy => 1, x => 0, y => 1, '-' => 0, z => 0 }, - 'Requestor != "y@example.com"' => { xy => 0, x => 1, y => 0, '-' => 1, z => 1 }, - - 'Requestor LIKE "@example.com"' => { xy => 1, x => 1, y => 1, '-' => 0, z => 1 }, - 'Requestor NOT LIKE "@example.com"' => { xy => 0, x => 0, y => 0, '-' => 1, z => 0 }, - - 'Requestor IS NULL' => { xy => 0, x => 0, y => 0, '-' => 1, z => 0 }, - 'Requestor IS NOT NULL' => { xy => 1, x => 1, y => 1, '-' => 0, z => 1 }, - -# this test is a todo, we run it later -# 'Requestor = "x@example.com" AND Requestor = "y@example.com"' => { xy => 1, x => 0, y => 0, '-' => 0, z => 0 }, - 'Requestor = "x@example.com" OR Requestor = "y@example.com"' => { xy => 1, x => 1, y => 1, '-' => 0, z => 0 }, - - 'Requestor != "x@example.com" AND Requestor != "y@example.com"' => { xy => 0, x => 0, y => 0, '-' => 1, z => 1 }, - 'Requestor != "x@example.com" OR Requestor != "y@example.com"' => { xy => 0, x => 1, y => 1, '-' => 1, z => 1 }, - - 'Requestor = "x@example.com" AND Requestor != "y@example.com"' => { xy => 0, x => 1, y => 0, '-' => 0, z => 0 }, - 'Requestor = "x@example.com" OR Requestor != "y@example.com"' => { xy => 1, x => 1, y => 0, '-' => 1, z => 1 }, - - 'Requestor != "x@example.com" AND Requestor = "y@example.com"' => { xy => 0, x => 0, y => 1, '-' => 0, z => 0 }, - 'Requestor != "x@example.com" OR Requestor = "y@example.com"' => { xy => 1, x => 0, y => 1, '-' => 1, z => 1 }, -); -@tickets = add_tix_from_data(); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - is($tix->Count, $total, "found $total tickets"); -} -run_tests(); - -# mixing searches by watchers with other conditions -# http://rt3.fsck.com/Ticket/Display.html?id=9322 -%test = ( - 'Subject LIKE "x" AND Requestor = "y@example.com"' => - { xy => 1, x => 0, y => 0, '-' => 0, z => 0 }, - 'Subject NOT LIKE "x" AND Requestor = "y@example.com"' => - { xy => 0, x => 0, y => 1, '-' => 0, z => 0 }, - 'Subject LIKE "x" AND Requestor != "y@example.com"' => - { xy => 0, x => 1, y => 0, '-' => 0, z => 0 }, - 'Subject NOT LIKE "x" AND Requestor != "y@example.com"' => - { xy => 0, x => 0, y => 0, '-' => 1, z => 1 }, - - 'Subject LIKE "x" OR Requestor = "y@example.com"' => - { xy => 1, x => 1, y => 1, '-' => 0, z => 0 }, - 'Subject NOT LIKE "x" OR Requestor = "y@example.com"' => - { xy => 1, x => 0, y => 1, '-' => 1, z => 1 }, - 'Subject LIKE "x" OR Requestor != "y@example.com"' => - { xy => 1, x => 1, y => 0, '-' => 1, z => 1 }, - 'Subject NOT LIKE "x" OR Requestor != "y@example.com"' => - { xy => 0, x => 1, y => 1, '-' => 1, z => 1 }, - -# group of cases when user doesn't exist in DB at all - 'Subject LIKE "x" AND Requestor = "not-exist@example.com"' => - { xy => 0, x => 0, y => 0, '-' => 0, z => 0 }, - 'Subject NOT LIKE "x" AND Requestor = "not-exist@example.com"' => - { xy => 0, x => 0, y => 0, '-' => 0, z => 0 }, - 'Subject LIKE "x" AND Requestor != "not-exist@example.com"' => - { xy => 1, x => 1, y => 0, '-' => 0, z => 0 }, - 'Subject NOT LIKE "x" AND Requestor != "not-exist@example.com"' => - { xy => 0, x => 0, y => 1, '-' => 1, z => 1 }, -# 'Subject LIKE "x" OR Requestor = "not-exist@example.com"' => -# { xy => 1, x => 1, y => 0, '-' => 0, z => 0 }, -# 'Subject NOT LIKE "x" OR Requestor = "not-exist@example.com"' => -# { xy => 0, x => 0, y => 1, '-' => 1, z => 1 }, - 'Subject LIKE "x" OR Requestor != "not-exist@example.com"' => - { xy => 1, x => 1, y => 1, '-' => 1, z => 1 }, - 'Subject NOT LIKE "x" OR Requestor != "not-exist@example.com"' => - { xy => 1, x => 1, y => 1, '-' => 1, z => 1 }, - - 'Subject LIKE "z" AND (Requestor = "x@example.com" OR Requestor = "y@example.com")' => - { xy => 0, x => 0, y => 0, '-' => 0, z => 0 }, - 'Subject NOT LIKE "z" AND (Requestor = "x@example.com" OR Requestor = "y@example.com")' => - { xy => 1, x => 1, y => 1, '-' => 0, z => 0 }, - 'Subject LIKE "z" OR (Requestor = "x@example.com" OR Requestor = "y@example.com")' => - { xy => 1, x => 1, y => 1, '-' => 0, z => 1 }, - 'Subject NOT LIKE "z" OR (Requestor = "x@example.com" OR Requestor = "y@example.com")' => - { xy => 1, x => 1, y => 1, '-' => 1, z => 0 }, -); -run_tests(); - -TODO: { - local $TODO = "we can't generate this query yet"; - %test = ( - 'Requestor = "x@example.com" AND Requestor = "y@example.com"' - => { xy => 1, x => 0, y => 0, '-' => 0, z => 0 }, - 'Subject LIKE "x" OR Requestor = "not-exist@example.com"' => - { xy => 1, x => 1, y => 0, '-' => 0, z => 0 }, - 'Subject NOT LIKE "x" OR Requestor = "not-exist@example.com"' => - { xy => 0, x => 0, y => 1, '-' => 1, z => 1 }, - ); - run_tests(); -} - -@data = ( - { Subject => 'xy', Cc => ['x@example.com'], Requestor => [ 'y@example.com' ] }, - { Subject => 'x-', Cc => ['x@example.com'], Requestor => [] }, - { Subject => '-y', Cc => [], Requestor => [ 'y@example.com' ] }, - { Subject => '-', }, - { Subject => 'zz', Cc => ['z@example.com'], Requestor => [ 'z@example.com' ] }, - { Subject => 'z-', Cc => ['z@example.com'], Requestor => [] }, - { Subject => '-z', Cc => [], Requestor => [ 'z@example.com' ] }, -); -%test = ( - 'Cc = "x@example.com" AND Requestor = "y@example.com"' => - { xy => 1, 'x-' => 0, '-y' => 0, '-' => 0, zz => 0, 'z-' => 0, '-z' => 0 }, - 'Cc = "x@example.com" OR Requestor = "y@example.com"' => - { xy => 1, 'x-' => 1, '-y' => 1, '-' => 0, zz => 0, 'z-' => 0, '-z' => 0 }, - - 'Cc != "x@example.com" AND Requestor = "y@example.com"' => - { xy => 0, 'x-' => 0, '-y' => 1, '-' => 0, zz => 0, 'z-' => 0, '-z' => 0 }, - 'Cc != "x@example.com" OR Requestor = "y@example.com"' => - { xy => 1, 'x-' => 0, '-y' => 1, '-' => 1, zz => 1, 'z-' => 1, '-z' => 1 }, - - 'Cc IS NULL AND Requestor = "y@example.com"' => - { xy => 0, 'x-' => 0, '-y' => 1, '-' => 0, zz => 0, 'z-' => 0, '-z' => 0 }, - 'Cc IS NULL OR Requestor = "y@example.com"' => - { xy => 1, 'x-' => 0, '-y' => 1, '-' => 1, zz => 0, 'z-' => 0, '-z' => 1 }, - - 'Cc IS NOT NULL AND Requestor = "y@example.com"' => - { xy => 1, 'x-' => 0, '-y' => 0, '-' => 0, zz => 0, 'z-' => 0, '-z' => 0 }, - 'Cc IS NOT NULL OR Requestor = "y@example.com"' => - { xy => 1, 'x-' => 1, '-y' => 1, '-' => 0, zz => 1, 'z-' => 1, '-z' => 0 }, -); -@tickets = add_tix_from_data(); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue'"); - is($tix->Count, $total, "found $total tickets"); -} -run_tests(); - - -# owner is special watcher because reference is duplicated in two places, -# owner was an ENUM field now it's WATCHERFIELD, but should support old -# style ENUM searches for backward compatibility -my $nobody = RT::Nobody(); -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Owner = '". $nobody->id ."'"); - ok($tix->Count, "found ticket(s)"); -} -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Owner = '". $nobody->Name ."'"); - ok($tix->Count, "found ticket(s)"); -} -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Owner != '". $nobody->id ."'"); - is($tix->Count, 0, "found ticket(s)"); -} -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Owner != '". $nobody->Name ."'"); - is($tix->Count, 0, "found ticket(s)"); -} - -{ - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Owner.Name LIKE 'nob'"); - ok($tix->Count, "found ticket(s)"); -} - -{ - # create ticket and force type to not a 'ticket' value - # bug #6898@rt3.fsck.com - # and http://marc.theaimsgroup.com/?l=rt-devel&m=112662934627236&w=2 - @data = ( { Subject => 'not a ticket' } ); - my($t) = add_tix_from_data(); - $t->_Set( Field => 'Type', - Value => 'not a ticket', - CheckACL => 0, - RecordTransaction => 0, - ); - $total--; - - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND Owner = 'Nobody'"); - is($tix->Count, $total, "found ticket(s)"); -} - -{ - my $everyone = RT::Group->new( $RT::SystemUser ); - $everyone->LoadSystemInternalGroup('Everyone'); - ok($everyone->id, "loaded 'everyone' group"); - my($id, $msg) = $everyone->PrincipalObj->GrantRight( Right => 'OwnTicket', - Object => $q - ); - ok($id, "granted OwnTicket right to Everyone on '$queue'") or diag("error: $msg"); - - my $u = RT::User->new( $RT::SystemUser ); - $u->LoadOrCreateByEmail('alpha@example.com'); - ok($u->id, "loaded user"); - @data = ( { Subject => '4', Owner => $u->id } ); - my($t) = add_tix_from_data(); - is( $t->Owner, $u->id, "created ticket with custom owner" ); - my $u_alpha_id = $u->id; - - $u = RT::User->new( $RT::SystemUser ); - $u->LoadOrCreateByEmail('bravo@example.com'); - ok($u->id, "loaded user"); - @data = ( { Subject => '5', Owner => $u->id } ); - ($t) = add_tix_from_data(); - is( $t->Owner, $u->id, "created ticket with custom owner" ); - my $u_bravo_id = $u->id; - - my $tix = RT::Tickets->new($RT::SystemUser); - $tix->FromSQL("Queue = '$queue' AND - ( Owner = '$u_alpha_id' OR - Owner = '$u_bravo_id' )" - ); - is($tix->Count, 2, "found ticket(s)"); -} - - -exit(0) diff --git a/rt/t/ticket/search_long_cf_values.t b/rt/t/ticket/search_long_cf_values.t deleted file mode 100644 index f9cc7b5..0000000 --- a/rt/t/ticket/search_long_cf_values.t +++ /dev/null @@ -1,79 +0,0 @@ -#!/opt/perl/bin/perl -w - -# tests relating to searching. Especially around custom fields with long values -# (> 255 chars) - -use strict; -use warnings; - -use RT::Test tests => 10; - -# setup the queue - -my $q = RT::Queue->new($RT::SystemUser); -my $queue = 'SearchTests-'.$$; -$q->Create(Name => $queue); -ok ($q->id, "Created the queue"); - - -# setup the CF -my $cf = RT::CustomField->new($RT::SystemUser); -$cf->Create(Name => 'SearchTest', Type => 'Freeform', MaxValues => 0, Queue => $q->id); -ok($cf->id, "Created the SearchTest CF"); -my $cflabel = "CustomField-".$cf->id; - -# setup some tickets -my $t1 = RT::Ticket->new($RT::SystemUser); -my ( $id, undef $msg ) = $t1->Create( - Queue => $q->id, - Subject => 'SearchTest1', - Requestor => ['search@example.com'], - $cflabel => 'foo', -); -ok( $id, $msg ); - - -my $t2 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t2->Create( - Queue => $q->id, - Subject => 'SearchTest2', - Requestor => ['searchlong@example.com'], - $cflabel => 'bar' x 150, -); -ok( $id, $msg ); - -my $t3 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t3->Create( - Queue => $q->id, - Subject => 'SearchTest3', - Requestor => ['searchlong@example.com'], - $cflabel => 'bar', -); -ok( $id, $msg ); - -# we have tickets. start searching -my $tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'foo'"); -is($tix->Count, 1, "matched short string foo") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'bar'"); -is($tix->Count, 2, "matched long+short string bar") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND ( CF.SearchTest LIKE 'foo' OR CF.SearchTest LIKE 'bar' )"); -is($tix->Count, 3, "matched short string foo or long+short string bar") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest NOT LIKE 'foo' AND CF.SearchTest LIKE 'bar'"); -is($tix->Count, 2, "not matched short string foo and matched long+short string bar") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - -$tix = RT::Tickets->new($RT::SystemUser); -$tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'foo' AND CF.SearchTest NOT LIKE 'bar'"); -is($tix->Count, 1, "matched short string foo and not matched long+short string bar") - or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery; - diff --git a/rt/t/ticket/sort-by-custom-ownership.t b/rt/t/ticket/sort-by-custom-ownership.t deleted file mode 100644 index 9739c5a..0000000 --- a/rt/t/ticket/sort-by-custom-ownership.t +++ /dev/null @@ -1,103 +0,0 @@ -#!/usr/bin/perl - -use RT; -use RT::Test tests => 7; - - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -my($ret,$msg); - -# Test Paw Sort - - - -# ---- Create a queue to test with. -my $queue = "PAWSortQueue-$$"; -my $queue_obj = RT::Queue->new($RT::SystemUser); -($ret, $msg) = $queue_obj->Create(Name => $queue, - Description => 'queue for custom field sort testing'); -ok($ret, "$queue test queue creation. $msg"); - - -# ---- Create some users - -my $me = RT::User->new($RT::SystemUser); -($ret, $msg) = $me->Create(Name => "Me$$", EmailAddress => $$.'create-me-1@example.com'); -($ret, $msg) = $me->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'OwnTicket'); -($ret, $msg) = $me->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'SeeQueue'); -($ret, $msg) = $me->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'ShowTicket'); -my $you = RT::User->new($RT::SystemUser); -($ret, $msg) = $you->Create(Name => "You$$", EmailAddress => $$.'create-you-1@example.com'); -($ret, $msg) = $you->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'OwnTicket'); -($ret, $msg) = $you->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'SeeQueue'); -($ret, $msg) = $you->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'ShowTicket'); - -my $nobody = RT::User->new($RT::SystemUser); -$nobody->Load('nobody'); - - -# ----- Create some tickets to test with. Assign them some values to -# make it easy to sort with. - -my @tickets = ( - [qw[1 10], $me], - [qw[2 20], $me], - [qw[3 20], $you], - [qw[4 30], $you], - [qw[5 5], $nobody], - [qw[6 55], $nobody], - ); -for (@tickets) { - my $t = RT::Ticket->new($RT::SystemUser); - $t->Create( Queue => $queue_obj->Id, - Subject => $_->[0], - Owner => $_->[2]->Id, - Priority => $_->[1], - ); -} - -sub check_order { - my ($tx, @order) = @_; - my @results; - while (my $t = $tx->Next) { - push @results, $t->Subject; - } - my $results = join (" ",@results); - my $order = join(" ",@order); - is( $results, $order ); -} - - -# The real tests start here - -my $cme = new RT::CurrentUser( $me ); -my $metx = new RT::Tickets( $cme ); -# Make sure we can sort in both directions on a queue specific field. -$metx->FromSQL(qq[queue="$queue"] ); -$metx->OrderBy( FIELD => "Custom.Ownership", ORDER => 'ASC' ); -is($metx->Count,6); -check_order( $metx, qw[2 1 6 5 4 3]); - -$metx->OrderBy( FIELD => "Custom.Ownership", ORDER => 'DESC' ); -is($metx->Count,6); -check_order( $metx, reverse qw[2 1 6 5 4 3]); - - - -my $cyou = new RT::CurrentUser( $you ); -my $youtx = new RT::Tickets( $cyou ); -# Make sure we can sort in both directions on a queue specific field. -$youtx->FromSQL(qq[queue="$queue"] ); -$youtx->OrderBy( FIELD => "Custom.Ownership", ORDER => 'ASC' ); -is($youtx->Count,6); -check_order( $youtx, qw[4 3 6 5 2 1]); - -__END__ - - diff --git a/rt/t/ticket/sort-by-queue.t b/rt/t/ticket/sort-by-queue.t deleted file mode 100644 index df6e1ad..0000000 --- a/rt/t/ticket/sort-by-queue.t +++ /dev/null @@ -1,100 +0,0 @@ -#!/usr/bin/perl - -use RT::Test tests => 8; - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -######################################################### -# Test sorting by Queue, we sort by its name -######################################################### - - -diag "Create queues to test with." if $ENV{TEST_VERBOSE}; -my @qids; -my @queues; -# create them in reverse order to avoid false positives -foreach my $name ( qw(sort-by-queue-Z sort-by-queue-A) ) { - my $queue = RT::Queue->new( $RT::SystemUser ); - my ($ret, $msg) = $queue->Create( - Name => $name ."-$$", - Description => 'queue to test sorting by queue' - ); - ok($ret, "test queue creation. $msg"); - push @queues, $queue; - push @qids, $queue->id; -} - -my ($total, @data, @tickets, @test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - @data = sort { rand(100) <=> rand(100) } @data; - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my %args = %{ shift(@data) }; - my ( $id, undef, $msg ) = $t->Create( %args ); - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $test ( @test ) { - my $query = join " AND ", map "( $_ )", grep defined && length, - $query_prefix, $test->{'Query'}; - - foreach my $order (qw(ASC DESC)) { - my $error = 0; - my $tix = RT::Tickets->new( $RT::SystemUser ); - $tix->FromSQL( $query ); - $tix->OrderBy( FIELD => $test->{'Order'}, ORDER => $order ); - - ok($tix->Count, "found ticket(s)") - or $error = 1; - - my ($order_ok, $last) = (1, $order eq 'ASC'? '-': 'zzzzzz'); - while ( my $t = $tix->Next ) { - my $tmp; - if ( $order eq 'ASC' ) { - $tmp = ((split( /,/, $last))[0] cmp (split( /,/, $t->Subject))[0]); - } else { - $tmp = -((split( /,/, $last))[-1] cmp (split( /,/, $t->Subject))[-1]); - } - if ( $tmp > 0 ) { - $order_ok = 0; last; - } - $last = $t->Subject; - } - - ok( $order_ok, "$order order of tickets is good" ) - or $error = 1; - - if ( $error ) { - diag "Wrong SQL query:". $tix->BuildSelectQuery; - $tix->GotoFirstItem; - while ( my $t = $tix->Next ) { - diag sprintf "%02d - %s", $t->id, $t->Subject; - } - } - } - } -} - -@data = ( - { Queue => $qids[0], Subject => 'z' }, - { Queue => $qids[1], Subject => 'a' }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "Queue" }, -); -run_tests(); - diff --git a/rt/t/ticket/sort-by-user.t b/rt/t/ticket/sort-by-user.t deleted file mode 100644 index f9b1602..0000000 --- a/rt/t/ticket/sort-by-user.t +++ /dev/null @@ -1,152 +0,0 @@ -#!/usr/bin/perl - -use RT::Test tests => 32; - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -######################################################### -# Test sorting by Owner, Creator and LastUpdatedBy -# we sort by user name -######################################################### - -diag "Create a queue to test with." if $ENV{TEST_VERBOSE}; -my $queue_name = "OwnerSortQueue$$"; -my $queue; -{ - $queue = RT::Queue->new( $RT::SystemUser ); - my ($ret, $msg) = $queue->Create( - Name => $queue_name, - Description => 'queue for custom field sort testing' - ); - ok($ret, "$queue test queue creation. $msg"); -} - -my @uids; -my @users; -# create them in reverse order to avoid false positives -foreach my $u (qw(Z A)) { - my $name = $u ."-user-to-test-ordering-$$"; - my $user = RT::User->new( $RT::SystemUser ); - my ($uid) = $user->Create( - Name => $name, - Privileged => 1, - ); - ok $uid, "created user #$uid"; - - my ($status, $msg) = $user->PrincipalObj->GrantRight( Right => 'OwnTicket', Object => $queue ); - ok $status, "granted right"; - ($status, $msg) = $user->PrincipalObj->GrantRight( Right => 'CreateTicket', Object => $queue ); - ok $status, "granted right"; - - push @users, $user; - push @uids, $user->id; -} - -my ($total, @data, @tickets, @test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - @data = sort { rand(100) <=> rand(100) } @data; - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my %args = %{ shift(@data) }; - - my ( $id, undef, $msg ) = $t->Create( %args, Queue => $queue->id ); - if ( $args{'Owner'} ) { - is $t->Owner, $args{'Owner'}, "owner is correct"; - } - if ( $args{'Creator'} ) { - is $t->Creator, $args{'Creator'}, "creator is correct"; - } - # hackish, but simpler - if ( $args{'LastUpdatedBy'} ) { - $t->__Set( Field => 'LastUpdatedBy', Value => $args{'LastUpdatedBy'} ); - } - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $test ( @test ) { - my $query = join " AND ", map "( $_ )", grep defined && length, - $query_prefix, $test->{'Query'}; - - foreach my $order (qw(ASC DESC)) { - my $error = 0; - my $tix = RT::Tickets->new( $RT::SystemUser ); - $tix->FromSQL( $query ); - $tix->OrderBy( FIELD => $test->{'Order'}, ORDER => $order ); - - ok($tix->Count, "found ticket(s)") - or $error = 1; - - my ($order_ok, $last) = (1, $order eq 'ASC'? '-': 'zzzzzz'); - while ( my $t = $tix->Next ) { - my $tmp; - if ( $order eq 'ASC' ) { - $tmp = ((split( /,/, $last))[0] cmp (split( /,/, $t->Subject))[0]); - } else { - $tmp = -((split( /,/, $last))[-1] cmp (split( /,/, $t->Subject))[-1]); - } - if ( $tmp > 0 ) { - $order_ok = 0; last; - } - $last = $t->Subject; - } - - ok( $order_ok, "$order order of tickets is good" ) - or $error = 1; - - if ( $error ) { - diag "Wrong SQL query:". $tix->BuildSelectQuery; - $tix->GotoFirstItem; - while ( my $t = $tix->Next ) { - diag sprintf "%02d - %s", $t->id, $t->Subject; - } - } - } - } -} - -@data = ( - { Subject => 'Nobody' }, - { Subject => 'Z', Owner => $uids[0] }, - { Subject => 'A', Owner => $uids[1] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "Owner" }, -); -run_tests(); - -@data = ( - { Subject => 'RT' }, - { Subject => 'Z', Creator => $uids[0] }, - { Subject => 'A', Creator => $uids[1] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "Creator" }, -); -run_tests(); - -@data = ( - { Subject => 'RT' }, - { Subject => 'Z', LastUpdatedBy => $uids[0] }, - { Subject => 'A', LastUpdatedBy => $uids[1] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "LastUpdatedBy" }, -); -run_tests(); - diff --git a/rt/t/ticket/sort_by_cf.t b/rt/t/ticket/sort_by_cf.t deleted file mode 100644 index 69274ad..0000000 --- a/rt/t/ticket/sort_by_cf.t +++ /dev/null @@ -1,172 +0,0 @@ -#!/usr/bin/perl - -use RT::Test tests => 21; -RT::Init(); - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -my($ret,$msg); - - -# Test Sorting by custom fields. -# TODO: it's hard to read this file, conver to new style, -# for example look at 23cfsort-freeform-single.t - -# ---- Create a queue to test with. -my $queue = "CFSortQueue-$$"; -my $queue_obj = RT::Queue->new( $RT::SystemUser ); -($ret, $msg) = $queue_obj->Create( - Name => $queue, - Description => 'queue for custom field sort testing' -); -ok($ret, "$queue test queue creation. $msg"); - -# ---- Create some custom fields. We're not currently using all of -# them to test with, but the more the merrier. -my $cfO = RT::CustomField->new($RT::SystemUser); -my $cfA = RT::CustomField->new($RT::SystemUser); -my $cfB = RT::CustomField->new($RT::SystemUser); -my $cfC = RT::CustomField->new($RT::SystemUser); - -($ret, $msg) = $cfO->Create( Name => 'Order', - Queue => 0, - SortOrder => 1, - Description => q{Something to compare results for, since we can't guarantee ticket ID}, - Type=> 'FreeformSingle'); -ok($ret, "Custom Field Order created"); - -($ret, $msg) = $cfA->Create( Name => 'Alpha', - Queue => $queue_obj->id, - SortOrder => 1, - Description => 'A Testing custom field', - Type=> 'FreeformSingle'); -ok($ret, "Custom Field Alpha created"); - -($ret, $msg) = $cfB->Create( Name => 'Beta', - Queue => $queue_obj->id, - Description => 'A Testing custom field', - Type=> 'FreeformSingle'); -ok($ret, "Custom Field Beta created"); - -($ret, $msg) = $cfC->Create( Name => 'Charlie', - Queue => $queue_obj->id, - Description => 'A Testing custom field', - Type=> 'FreeformSingle'); -ok($ret, "Custom Field Charlie created"); - -# ----- Create some tickets to test with. Assign them some values to -# make it easy to sort with. -my $t1 = RT::Ticket->new($RT::SystemUser); -$t1->Create( Queue => $queue_obj->Id, - Subject => 'One', - ); -$t1->AddCustomFieldValue(Field => $cfO->Id, Value => '1'); -$t1->AddCustomFieldValue(Field => $cfA->Id, Value => '2'); -$t1->AddCustomFieldValue(Field => $cfB->Id, Value => '1'); -$t1->AddCustomFieldValue(Field => $cfC->Id, Value => 'BBB'); - -my $t2 = RT::Ticket->new($RT::SystemUser); -$t2->Create( Queue => $queue_obj->Id, - Subject => 'Two', - ); -$t2->AddCustomFieldValue(Field => $cfO->Id, Value => '2'); -$t2->AddCustomFieldValue(Field => $cfA->Id, Value => '1'); -$t2->AddCustomFieldValue(Field => $cfB->Id, Value => '2'); -$t2->AddCustomFieldValue(Field => $cfC->Id, Value => 'AAA'); - -# helper -sub check_order { - my ($tx, @order) = @_; - my @results; - while (my $t = $tx->Next) { - push @results, $t->CustomFieldValues($cfO->Id)->First->Content; - } - my $results = join (" ",@results); - my $order = join(" ",@order); - @_ = ($results, $order , "Ordered correctly: $order"); - goto \&is; -} - -# The real tests start here -my $tx = new RT::Tickets( $RT::SystemUser ); - - -# Make sure we can sort in both directions on a queue specific field. -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderBy( FIELD => "CF.${queue}.{Charlie}", ORDER => 'DES' ); -is($tx->Count,2 ,"We found 2 tickets when looking for cf charlie"); -check_order( $tx, 1, 2); - -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderBy( FIELD => "CF.${queue}.{Charlie}", ORDER => 'ASC' ); -is($tx->Count,2, "We found two tickets when sorting by cf charlie without limiting to it" ); -check_order( $tx, 2, 1); - -# When ordering by _global_ CustomFields, if more than one queue has a -# CF named Charlie, things will go bad. So, these results are uniqued -# in Tickets_Overlay. -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderBy( FIELD => "CF.{Charlie}", ORDER => 'DESC' ); -is($tx->Count,2); -check_order( $tx, 1, 2); - -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderBy( FIELD => "CF.{Charlie}", ORDER => 'ASC' ); -is($tx->Count,2); -check_order( $tx, 2, 1); - -# Add a new ticket, to test sorting on multiple columns. -my $t3 = RT::Ticket->new($RT::SystemUser); -$t3->Create( Queue => $queue_obj->Id, - Subject => 'Three', - ); -$t3->AddCustomFieldValue(Field => $cfO->Id, Value => '3'); -$t3->AddCustomFieldValue(Field => $cfA->Id, Value => '3'); -$t3->AddCustomFieldValue(Field => $cfB->Id, Value => '2'); -$t3->AddCustomFieldValue(Field => $cfC->Id, Value => 'AAA'); - -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderByCols( - { FIELD => "CF.${queue}.{Charlie}", ORDER => 'ASC' }, - { FIELD => "CF.${queue}.{Alpha}", ORDER => 'DES' }, -); -is($tx->Count,3); -check_order( $tx, 3, 2, 1); - -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderByCols( - { FIELD => "CF.${queue}.{Charlie}", ORDER => 'DES' }, - { FIELD => "CF.${queue}.{Alpha}", ORDER => 'ASC' }, -); -is($tx->Count,3); -check_order( $tx, 1, 2, 3); - -# Reverse the order of the secondary column, which changes the order -# of the first two tickets. -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderByCols( - { FIELD => "CF.${queue}.{Charlie}", ORDER => 'ASC' }, - { FIELD => "CF.${queue}.{Alpha}", ORDER => 'ASC' }, -); -is($tx->Count,3); -check_order( $tx, 2, 3, 1); - -$tx = new RT::Tickets( $RT::SystemUser ); -$tx->FromSQL(qq[queue="$queue"] ); -$tx->OrderByCols( - { FIELD => "CF.${queue}.{Charlie}", ORDER => 'DES' }, - { FIELD => "CF.${queue}.{Alpha}", ORDER => 'DES' }, -); -is($tx->Count,3); -check_order( $tx, 1, 3, 2); diff --git a/rt/t/validator/group_members.t b/rt/t/validator/group_members.t deleted file mode 100644 index f27a1f1..0000000 --- a/rt/t/validator/group_members.t +++ /dev/null @@ -1,178 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; - -use RT::Test tests => 60; - -sub load_or_create_group { - my $name = shift; - my %args = (@_); - - my $group = RT::Group->new( $RT::SystemUser ); - $group->LoadUserDefinedGroup( $name ); - unless ( $group->id ) { - my ($id, $msg) = $group->CreateUserDefinedGroup( - Name => $name, - ); - die "$msg" unless $id; - } - - if ( $args{Members} ) { - my $cur = $group->MembersObj; - while ( my $entry = $cur->Next ) { - my ($status, $msg) = $entry->Delete; - die "$msg" unless $status; - } - - foreach my $new ( @{ $args{Members} } ) { - my ($status, $msg) = $group->AddMember( - ref($new)? $new->id : $new, - ); - die "$msg" unless $status; - } - } - - return $group; -} - -my $validator_path = "$RT::SbinPath/rt-validator"; -sub run_validator { - my %args = (check => 1, resolve => 0, force => 1, @_ ); - - my $cmd = $validator_path; - die "Couldn't find $cmd command" unless -f $cmd; - - while( my ($k,$v) = each %args ) { - next unless $v; - $cmd .= " --$k '$v'"; - } - $cmd .= ' 2>&1'; - - require IPC::Open2; - my ($child_out, $child_in); - my $pid = IPC::Open2::open2($child_out, $child_in, $cmd); - close $child_in; - - my $result = do { local $/; <$child_out> }; - close $child_out; - waitpid $pid, 0; - - DBIx::SearchBuilder::Record::Cachable->FlushCache - if $args{'resolve'}; - - return ($?, $result); -} - -{ - my ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; -} - -{ - my $group = load_or_create_group('test', Members => [] ); - ok $group, "loaded or created a group"; - - my ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; -} - -# G1 -> G2 -{ - my $group1 = load_or_create_group( 'test1', Members => [] ); - ok $group1, "loaded or created a group"; - - my $group2 = load_or_create_group( 'test2', Members => [ $group1 ]); - ok $group2, "loaded or created a group"; - - ok $group2->HasMember( $group1->id ), "has member"; - ok $group2->HasMemberRecursively( $group1->id ), "has member"; - - my ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; - - $RT::Handle->dbh->do("DELETE FROM CachedGroupMembers"); - DBIx::SearchBuilder::Record::Cachable->FlushCache; - ok !$group2->HasMemberRecursively( $group1->id ), "has no member, broken DB"; - - ($ecode, $res) = run_validator(resolve => 1); - - ok $group2->HasMember( $group1->id ), "has member"; - ok $group2->HasMemberRecursively( $group1->id ), "has member"; - - ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; -} - -# G1 <- G2 <- G3 <- G4 <- G5 -{ - my @groups; - for (1..5) { - my $child = @groups? $groups[-1]: undef; - - my $group = load_or_create_group( 'test'. $_, Members => [ $child? ($child): () ] ); - ok $group, "loaded or created a group"; - - ok $group->HasMember( $child->id ), "has member" - if $child; - ok $group->HasMemberRecursively( $_->id ), "has member" - foreach @groups; - - push @groups, $group; - } - - my ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; - - $RT::Handle->dbh->do("DELETE FROM CachedGroupMembers"); - DBIx::SearchBuilder::Record::Cachable->FlushCache; - - ok !$groups[1]->HasMemberRecursively( $groups[0]->id ), "has no member, broken DB"; - - ($ecode, $res) = run_validator(resolve => 1); - - for ( my $i = 1; $i < @groups; $i++ ) { - ok $groups[$i]->HasMember( $groups[$i-1]->id ), "has member"; - ok $groups[$i]->HasMemberRecursively( $groups[$_]->id ), "has member" - foreach 0..$i-1; - } - - ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; -} - -# G1 <- (G2, G3, G4, G5) -{ - my @groups; - for (2..5) { - my $group = load_or_create_group( 'test'. $_, Members => [] ); - ok $group, "loaded or created a group"; - push @groups, $group; - } - - my $parent = load_or_create_group( 'test1', Members => \@groups ); - ok $parent, "loaded or created a group"; - - my ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; -} - -# G1 <- (G2, G3, G4) <- G5 -{ - my $gchild = load_or_create_group( 'test5', Members => [] ); - ok $gchild, "loaded or created a group"; - - my @groups; - for (2..4) { - my $group = load_or_create_group( 'test'. $_, Members => [ $gchild ] ); - ok $group, "loaded or created a group"; - push @groups, $group; - } - - my $parent = load_or_create_group( 'test1', Members => \@groups ); - ok $parent, "loaded or created a group"; - - my ($ecode, $res) = run_validator(); - is $res, '', 'empty result'; -} - diff --git a/rt/t/web/attachments.t b/rt/t/web/attachments.t deleted file mode 100644 index e827b2f..0000000 --- a/rt/t/web/attachments.t +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 14; - -use constant LogoFile => $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif'; -use constant FaviconFile => $RT::MasonComponentRoot .'/NoAuth/images/favicon.png'; - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in'; - -my $queue = RT::Queue->new($RT::Nobody); -my $qid = $queue->Load('General'); -ok( $qid, "Loaded General queue" ); - -$m->form_name('CreateTicketInQueue'); -$m->field('Queue', $qid); -$m->submit; -is($m->status, 200, "request successful"); -$m->content_like(qr/Create a new ticket/, 'ticket create page'); - -$m->form_name('TicketCreate'); -$m->field('Subject', 'Attachments test'); -$m->field('Attach', LogoFile); -$m->field('Content', 'Some content'); -$m->submit; -is($m->status, 200, "request successful"); - -$m->content_like(qr/Attachments test/, 'we have subject on the page'); -$m->content_like(qr/Some content/, 'and content'); -$m->content_like(qr/Download bplogo\.gif/, 'page has file name'); - -$m->follow_link_ok({text => 'Reply'}, "reply to the ticket"); -$m->form_name('TicketUpdate'); -$m->field('Attach', LogoFile); -$m->click('AddMoreAttach'); -is($m->status, 200, "request successful"); - -$m->form_name('TicketUpdate'); -$m->field('Attach', FaviconFile); -$m->field('UpdateContent', 'Message'); -$m->click('SubmitTicket'); -is($m->status, 200, "request successful"); - -$m->content_like(qr/Download bplogo\.gif/, 'page has file name'); -$m->content_like(qr/Download favicon\.png/, 'page has file name'); - diff --git a/rt/t/web/basic.t b/rt/t/web/basic.t deleted file mode 100644 index bc4d655..0000000 --- a/rt/t/web/basic.t +++ /dev/null @@ -1,146 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Encode; - -use RT::Test tests => 24; -$RT::Test::SKIP_REQUEST_WORK_AROUND = 1; - -my ($baseurl, $agent) = RT::Test->started_ok; - -my $url = $agent->rt_base_url; -diag $url if $ENV{TEST_VERBOSE}; - -# get the top page -{ - $agent->get($url); - is ($agent->{'status'}, 200, "Loaded a page"); -} - -# test a login -{ - ok($agent->{form}->find_input('user')); - ok($agent->{form}->find_input('pass')); - - ok($agent->{'content'} =~ /username:/i); - $agent->field( 'user' => 'root' ); - $agent->field( 'pass' => 'password' ); - - # the field isn't named, so we have to click link 0 - $agent->click(0); - is( $agent->{'status'}, 200, "Fetched the page ok"); - ok( $agent->{'content'} =~ /Logout/i, "Found a logout link"); -} - -{ - $agent->get($url."Ticket/Create.html?Queue=1"); - is ($agent->{'status'}, 200, "Loaded Create.html"); - $agent->form_number(3); - my $string = Encode::decode_utf8("I18N Web Testing æøå"); - $agent->field('Subject' => "Ticket with utf8 body"); - $agent->field('Content' => $string); - ok($agent->submit, "Created new ticket with $string as Content"); - $agent->content_like( qr{$string} , "Found the content"); - ok($agent->{redirected_uri}, "Did redirection"); - - { - my $ticket = RT::Test->last_ticket; - my $content = $ticket->Transactions->First->Content; - like( - $content, qr{$string}, - 'content is there, API check' - ); - } -} - -{ - $agent->get($url."Ticket/Create.html?Queue=1"); - is ($agent->{'status'}, 200, "Loaded Create.html"); - $agent->form_number(3); - - my $string = Encode::decode_utf8("I18N Web Testing æøå"); - $agent->field('Subject' => $string); - $agent->field('Content' => "Ticket with utf8 subject"); - ok($agent->submit, "Created new ticket with $string as Content"); - $agent->content_like( qr{$string} , "Found the content"); - ok($agent->{redirected_uri}, "Did redirection"); - - { - my $ticket = RT::Test->last_ticket; - is( - $ticket->Subject, $string, - 'subject is correct, API check' - ); - } -} - -# Update time worked in hours -{ - $agent->follow_link( text_regex => qr/Basics/ ); - $agent->submit_form( form_number => 3, - fields => { TimeWorked => 5, 'TimeWorked-TimeUnits' => "hours" } - ); - - like ($agent->{'content'}, qr/to '300'/, "5 hours is 300 minutes"); -} - -# {{{ test an image - -TODO: { - todo_skip("Need to handle mason trying to compile images",1); -$agent->get( $url."NoAuth/images/test.png" ); -my $file = RT::Test::get_relocatable_file( - File::Spec->catfile( - qw(.. .. share html NoAuth images test.png) - ) -); -is( - length($agent->content), - -s $file, - "got a file of the correct size ($file)", -); -} -# }}} - -# {{{ Query Builder tests -# -# XXX: hey-ho, we have these tests in t/web/query-builder -# TODO: move everything about QB there - -my $response = $agent->get($url."Search/Build.html"); -ok( $response->is_success, "Fetched " . $url."Search/Build.html" ); - -# Parsing TicketSQL -# -# Adding items - -# set the first value -ok($agent->form_name('BuildQuery')); -$agent->field("AttachmentField", "Subject"); -$agent->field("AttachmentOp", "LIKE"); -$agent->field("ValueOfAttachment", "aaa"); -$agent->submit("AddClause"); - -# set the next value -ok($agent->form_name('BuildQuery')); -$agent->field("AttachmentField", "Subject"); -$agent->field("AttachmentOp", "LIKE"); -$agent->field("ValueOfAttachment", "bbb"); -$agent->submit("AddClause"); - -ok($agent->form_name('BuildQuery')); - -# get the query -my $query = $agent->current_form->find_input("Query")->value; -# strip whitespace from ends -$query =~ s/^\s*//g; -$query =~ s/\s*$//g; - -# collapse other whitespace -$query =~ s/\s+/ /g; - -is ($query, "Subject LIKE 'aaa' AND Subject LIKE 'bbb'"); - - -1; diff --git a/rt/t/web/cf_access.t b/rt/t/web/cf_access.t deleted file mode 100644 index 183597b..0000000 --- a/rt/t/web/cf_access.t +++ /dev/null @@ -1,189 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 26; -$RT::Test::SKIP_REQUEST_WORK_AROUND = 1; - -my ($baseurl, $m) = RT::Test->started_ok; - -use constant ImageFile => $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif'; -use constant ImageFileContent => RT::Test->file_content(ImageFile); - -ok $m->login, 'logged in'; - -diag "Create a CF" if $ENV{'TEST_VERBOSE'}; -{ - $m->follow_link( text => 'Configuration' ); - $m->title_is(q/RT Administration/, 'admin screen'); - $m->follow_link( text => 'Custom Fields' ); - $m->title_is(q/Select a Custom Field/, 'admin-cf screen'); - $m->follow_link( text => 'Create' ); - $m->submit_form( - form_name => "ModifyCustomField", - fields => { - TypeComposite => 'Image-0', - LookupType => 'RT::Queue-RT::Ticket', - Name => 'img', - Description => 'img', - }, - ); -} - -diag "apply the CF to General queue" if $ENV{'TEST_VERBOSE'}; -my ( $cf, $cfid, $tid ); -{ - $m->title_is(q/Created CustomField img/, 'admin-cf created'); - $m->follow_link( text => 'Queues' ); - $m->title_is(q/Admin queues/, 'admin-queues screen'); - $m->follow_link( text => 'General' ); - $m->title_is(q/Editing Configuration for queue General/, 'admin-queue: general'); - $m->follow_link( text => 'Ticket Custom Fields' ); - - $m->title_is(q/Edit Custom Fields for General/, 'admin-queue: general cfid'); - $m->form_name('EditCustomFields'); - - # Sort by numeric IDs in names - my @names = sort grep defined, - $m->current_form->find_input('AddCustomField')->possible_values; - $cf = pop(@names); - $cf =~ /(\d+)$/ or die "Hey this is impossible dude"; - $cfid = $1; - $m->tick( AddCustomField => $cf => 1 ); # Associate the new CF with this queue - $m->tick( AddCustomField => $_ => 0 ) for @names; # ...and not any other. ;-) - $m->click('UpdateCFs'); - - $m->content_like( qr/Object created/, 'TCF added to the queue' ); -} - -my $tester = RT::Test->load_or_create_user( Name => 'tester', Password => '123456' ); -RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket)], - }, -); -ok $m->login( $tester->Name, 123456), 'logged in'; - -diag "check that we have no the CF on the create" - ." ticket page when user has no SeeCustomField right" - if $ENV{'TEST_VERBOSE'}; -{ - $m->submit_form( - form_name => "CreateTicketInQueue", - fields => { Queue => 'General' }, - ); - $m->content_unlike(qr/Upload multiple images/, 'has no upload image field'); - - my $form = $m->form_name("TicketCreate"); - my $upload_field = "Object-RT::Ticket--CustomField-$cfid-Upload"; - ok !$form->find_input( $upload_field ), 'no form field on the page'; - - $m->submit_form( - form_name => "TicketCreate", - fields => { Subject => 'test' }, - ); - $m->content_like(qr/Ticket \d+ created/, "a ticket is created succesfully"); - - $m->content_unlike(qr/img:/, 'has no img field on the page'); - $m->follow_link( text => 'Custom Fields'); - $m->content_unlike(qr/Upload multiple images/, 'has no upload image field'); -} - -RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket SeeCustomField)], - }, -); - -diag "check that we have no the CF on the create" - ." ticket page when user has no ModifyCustomField right" - if $ENV{'TEST_VERBOSE'}; -{ - $m->submit_form( - form_name => "CreateTicketInQueue", - fields => { Queue => 'General' }, - ); - $m->content_unlike(qr/Upload multiple images/, 'has no upload image field'); - - my $form = $m->form_name("TicketCreate"); - my $upload_field = "Object-RT::Ticket--CustomField-$cfid-Upload"; - ok !$form->find_input( $upload_field ), 'no form field on the page'; - - $m->submit_form( - form_name => "TicketCreate", - fields => { Subject => 'test' }, - ); - $tid = $1 if $m->content =~ /Ticket (\d+) created/i; - ok $tid, "a ticket is created succesfully"; - - $m->follow_link( text => 'Custom Fields' ); - $m->content_unlike(qr/Upload multiple images/, 'has no upload image field'); - $form = $m->form_number(3); - $upload_field = "Object-RT::Ticket-$tid-CustomField-$cfid-Upload"; - ok !$form->find_input( $upload_field ), 'no form field on the page'; -} - -RT::Test->set_rights( - { Principal => $tester->PrincipalObj, - Right => [qw(SeeQueue ShowTicket CreateTicket SeeCustomField ModifyCustomField)], - }, -); - -diag "create a ticket with an image" if $ENV{'TEST_VERBOSE'}; -{ - $m->submit_form( - form_name => "CreateTicketInQueue", - fields => { Queue => 'General' }, - ); - $m->content_like(qr/Upload multiple images/, 'has a upload image field'); - - $cf =~ /(\d+)$/ or die "Hey this is impossible dude"; - my $upload_field = "Object-RT::Ticket--CustomField-$1-Upload"; - - $m->submit_form( - form_name => "TicketCreate", - fields => { - $upload_field => ImageFile, - Subject => 'testing img cf creation', - }, - ); - - $m->content_like(qr/Ticket \d+ created/, "a ticket is created succesfully"); - - $tid = $1 if $m->content =~ /Ticket (\d+) created/; - - $m->title_like(qr/testing img cf creation/, "its title is the Subject"); - - $m->follow_link( text => 'bplogo.gif' ); - $m->content_is(ImageFileContent, "it links to the uploaded image"); -} - -$m->get( $m->rt_base_url ); -$m->follow_link( text => 'Tickets' ); -$m->follow_link( text => 'New Query' ); - -$m->title_is(q/Query Builder/, 'Query building'); -$m->submit_form( - form_name => "BuildQuery", - fields => { - idOp => '=', - ValueOfid => $tid, - ValueOfQueue => 'General', - }, - button => 'AddClause', -); - -$m->form_name('BuildQuery'); - -my $col = ($m->current_form->find_input('SelectDisplayColumns'))[-1]; -$col->value( ($col->possible_values)[-1] ); - -$m->click('AddCol'); - -$m->form_name('BuildQuery'); -$m->click('DoSearch'); - -$m->follow_link( text_regex => qr/bplogo\.gif/ ); -$m->content_is(ImageFileContent, "it links to the uploaded image"); - -__END__ -[FC] Bulk Update does not have custom fields. diff --git a/rt/t/web/cf_onqueue.t b/rt/t/web/cf_onqueue.t deleted file mode 100644 index bed4dd1..0000000 --- a/rt/t/web/cf_onqueue.t +++ /dev/null @@ -1,65 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 14; -my ($baseurl, $m) = RT::Test->started_ok; - -ok $m->login, 'logged in'; - -diag "Create a queue CF" if $ENV{'TEST_VERBOSE'}; -{ - $m->follow_link( text => 'Configuration' ); - $m->title_is(q/RT Administration/, 'admin screen'); - $m->follow_link( text => 'Custom Fields' ); - $m->title_is(q/Select a Custom Field/, 'admin-cf screen'); - $m->follow_link( text => 'Create' ); - $m->submit_form( - form_name => "ModifyCustomField", - fields => { - TypeComposite => 'Freeform-1', - LookupType => 'RT::Queue', - Name => 'QueueCFTest', - Description => 'QueueCFTest', - }, - ); - $m->content_like( qr/Object created/, 'CF QueueCFTest created' ); -} - -diag "Apply the new CF globally" if $ENV{'TEST_VERBOSE'}; -{ - $m->follow_link( text => 'Global' ); - $m->title_is(q!Admin/Global configuration!, 'global configuration screen'); - $m->follow_link( url_regex => qr!Admin/Global/CustomFields/index! ); - $m->title_is(q/Global custom field configuration/, 'global custom field configuration screen'); - $m->follow_link( url => 'Queues.html' ); - $m->title_is(q/Edit Custom Fields for all queues/, 'global custom field for all queues configuration screen'); - $m->content_like( qr/QueueCFTest/, 'CF QueueCFTest displayed on page' ); - - $m->form_name('EditCustomFields'); - $m->tick( AddCustomField => 1 ); - $m->click('UpdateCFs'); - - $m->content_like( qr/Object created/, 'CF QueueCFTest enabled globally' ); -} - -diag "Edit the CF value for default queue" if $ENV{'TEST_VERBOSE'}; -{ - $m->follow_link( url => '/Admin/Queues/' ); - $m->title_is(q/Admin queues/, 'queues configuration screen'); - $m->follow_link( text => "1" ); - $m->title_is(q/Editing Configuration for queue General/, 'default queue configuration screen'); - $m->content_like( qr/QueueCFTest/, 'CF QueueCFTest displayed on default queue' ); - $m->submit_form( - form_number => 3, - # The following doesn't want to works :( - #with_fields => { 'Object-RT::Queue-1-CustomField-1-Value' }, - fields => { - 'Object-RT::Queue-1-CustomField-1-Value' => 'QueueCFTest content', - }, - ); - $m->content_like( qr/QueueCFTest QueueCFTest content added/, 'Content filed in CF QueueCFTest for default queue' ); - -} - - -__END__ diff --git a/rt/t/web/cf_select_one.t b/rt/t/web/cf_select_one.t deleted file mode 100644 index 39a8080..0000000 --- a/rt/t/web/cf_select_one.t +++ /dev/null @@ -1,159 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use RT::Test tests => 41; - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in as root'; - -my $cf_name = 'test select one value'; - -my $cfid; -diag "Create a CF" if $ENV{'TEST_VERBOSE'}; -{ - $m->follow_link( text => 'Configuration' ); - $m->title_is(q/RT Administration/, 'admin screen'); - $m->follow_link( text => 'Custom Fields' ); - $m->title_is(q/Select a Custom Field/, 'admin-cf screen'); - $m->follow_link( text => 'Create' ); - $m->submit_form( - form_name => "ModifyCustomField", - fields => { - Name => $cf_name, - TypeComposite => 'Select-1', - LookupType => 'RT::Queue-RT::Ticket', - }, - ); - $m->content_like( qr/Object created/, 'created CF sucessfully' ); - $cfid = $m->form_name('ModifyCustomField')->value('id'); - ok $cfid, "found id of the CF in the form, it's #$cfid"; -} - -diag "add 'qwe', 'ASD' and '0' as values to the CF" if $ENV{'TEST_VERBOSE'}; -{ - foreach my $value(qw(qwe ASD 0)) { - $m->submit_form( - form_name => "ModifyCustomField", - fields => { - "CustomField-". $cfid ."-Value-new-Name" => $value, - }, - button => 'Update', - ); - $m->content_like( qr/Object created/, 'added a value to the CF' ); # or diag $m->content; - } -} - -my $queue = RT::Test->load_or_create_queue( Name => 'General' ); -ok $queue && $queue->id, 'loaded or created queue'; - -diag "apply the CF to General queue" if $ENV{'TEST_VERBOSE'}; -{ - $m->follow_link( text => 'Queues' ); - $m->title_is(q/Admin queues/, 'admin-queues screen'); - $m->follow_link( text => 'General' ); - $m->title_is(q/Editing Configuration for queue General/, 'admin-queue: general'); - $m->follow_link( text => 'Ticket Custom Fields' ); - $m->title_is(q/Edit Custom Fields for General/, 'admin-queue: general cfid'); - - $m->form_name('EditCustomFields'); - $m->tick( "AddCustomField" => $cfid ); - $m->click('UpdateCFs'); - - $m->content_like( qr/Object created/, 'TCF added to the queue' ); -} - -my $tid; -diag "create a ticket using API with 'asd'(not 'ASD') as value of the CF" - if $ENV{'TEST_VERBOSE'}; -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - my ($txnid, $msg); - ($tid, $txnid, $msg) = $ticket->Create( - Subject => 'test', - Queue => $queue->id, - "CustomField-$cfid" => 'asd', - ); - ok $tid, "created ticket"; - diag $msg if $msg && $ENV{'TEST_VERBOSE'}; - - # we use lc as we really don't care about case - # so if later we'll add canonicalization of value - # test should work - is lc $ticket->FirstCustomFieldValue( $cf_name ), - 'asd', 'assigned value of the CF'; -} - -diag "check that values of the CF are case insensetive(asd vs. ASD)" - if $ENV{'TEST_VERBOSE'}; -{ - ok $m->goto_ticket( $tid ), "opened ticket's page"; - $m->follow_link( text => 'Custom Fields' ); - $m->title_like(qr/Modify ticket/i, 'modify ticket'); - $m->content_like(qr/\Q$cf_name/, 'CF on the page'); - - my $value = $m->form_number(3)->value("Object-RT::Ticket-$tid-CustomField-$cfid-Values"); - is lc $value, 'asd', 'correct value is selected'; - $m->submit; - $m->content_unlike(qr/\Q$cf_name\E.*?changed/mi, 'field is not changed'); - - $value = $m->form_number(3)->value("Object-RT::Ticket-$tid-CustomField-$cfid-Values"); - is lc $value, 'asd', 'the same value is still selected'; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $tid ); - ok $ticket->id, 'loaded the ticket'; - is lc $ticket->FirstCustomFieldValue( $cf_name ), - 'asd', 'value is still the same'; -} - -diag "check that 0 is ok value of the CF" - if $ENV{'TEST_VERBOSE'}; -{ - ok $m->goto_ticket( $tid ), "opened ticket's page"; - $m->follow_link( text => 'Custom Fields' ); - $m->title_like(qr/Modify ticket/i, 'modify ticket'); - $m->content_like(qr/\Q$cf_name/, 'CF on the page'); - - my $value = $m->form_number(3)->value("Object-RT::Ticket-$tid-CustomField-$cfid-Values"); - is lc $value, 'asd', 'correct value is selected'; - $m->select("Object-RT::Ticket-$tid-CustomField-$cfid-Values" => 0 ); - $m->submit; - $m->content_like(qr/\Q$cf_name\E.*?changed/mi, 'field is changed'); - $m->content_unlike(qr/0 is no longer a value for custom field/mi, 'no bad message in results'); - - $value = $m->form_number(3)->value("Object-RT::Ticket-$tid-CustomField-$cfid-Values"); - is lc $value, '0', 'new value is selected'; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $tid ); - ok $ticket->id, 'loaded the ticket'; - is lc $ticket->FirstCustomFieldValue( $cf_name ), - '0', 'API returns correct value'; -} - -diag "check that we can set empty value when the current is 0" - if $ENV{'TEST_VERBOSE'}; -{ - ok $m->goto_ticket( $tid ), "opened ticket's page"; - $m->follow_link( text => 'Custom Fields' ); - $m->title_like(qr/Modify ticket/i, 'modify ticket'); - $m->content_like(qr/\Q$cf_name/, 'CF on the page'); - - my $value = $m->form_number(3)->value("Object-RT::Ticket-$tid-CustomField-$cfid-Values"); - is lc $value, '0', 'correct value is selected'; - $m->select("Object-RT::Ticket-$tid-CustomField-$cfid-Values" => '' ); - $m->submit; - $m->content_like(qr/0 is no longer a value for custom field/mi, '0 is no longer a value'); - - $value = $m->form_number(3)->value("Object-RT::Ticket-$tid-CustomField-$cfid-Values"); - is $value, '', '(no value) is selected'; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $tid ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->FirstCustomFieldValue( $cf_name ), - undef, 'API returns correct value'; -} - diff --git a/rt/t/web/command_line.t b/rt/t/web/command_line.t deleted file mode 100644 index 3fc279b..0000000 --- a/rt/t/web/command_line.t +++ /dev/null @@ -1,544 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use File::Spec (); -use Test::Expect; -use RT::Test tests => 295; -my ($baseurl, $m) = RT::Test->started_ok; - -use RT::User; -use RT::Queue; - -my $rt_tool_path = "$RT::BinPath/rt"; - -# {{{ test configuration options - -# config directives: -# (in $CWD/.rtrc) -# - server <URL> URL to RT server. -# - user <username> RT username. -# - passwd <passwd> RT user's password. -# - query <RT Query> Default RT Query for list action -# - orderby <order> Default RT order for list action -# -# Blank and #-commented lines are ignored. - -# environment variables -# The following environment variables override any corresponding -# values defined in configuration files: -# -# - RTUSER -$ENV{'RTUSER'} = 'root'; -# - RTPASSWD -$ENV{'RTPASSWD'} = 'password'; -# - RTSERVER -$RT::Logger->debug("Connecting to server at ".RT->Config->Get('WebBaseURL')); -$ENV{'RTSERVER'} =RT->Config->Get('WebBaseURL') ; -# - RTDEBUG Numeric debug level. (Set to 3 for full logs.) -$ENV{'RTDEBUG'} = '1'; -# - RTCONFIG Specifies a name other than ".rtrc" for the -# configuration file. -# -# - RTQUERY Default RT Query for rt list -# - RTORDERBY Default order for rt list - - -# }}} - -# {{{ test ticket manipulation - -# create a ticket -expect_run( - command => "$rt_tool_path shell", - prompt => 'rt> ', - quit => 'quit', -); -expect_send(q{create -t ticket set subject='new ticket' add cc=foo@example.com}, "Creating a ticket..."); -expect_like(qr/Ticket \d+ created/, "Created the ticket"); -expect_handle->before() =~ /Ticket (\d+) created/; -my $ticket_id = $1; -ok($ticket_id, "Got ticket id=$ticket_id"); -expect_send(q{create -t ticket set subject='new ticket'}, "Creating a ticket as just a subject..."); -expect_like(qr/Ticket \d+ created/, "Created the ticket"); - -# make sure we can request things as 'rt foo' -expect_send(q{rt create -t ticket set subject='rt ticket'}, "Creating a ticket with 'rt create'..."); -expect_like(qr/Ticket \d+ created/, "Created the ticket"); - -# {{{ test queue manipulation - -# creating queues -expect_send("create -t queue set Name='NewQueue$$'", 'Creating a queue...'); -expect_like(qr/Queue \d+ created/, 'Created the queue'); -expect_handle->before() =~ /Queue (\d+) created/; -my $queue_id = $1; -ok($queue_id, "Got queue id=$queue_id"); -# updating users -expect_send("edit queue/$queue_id set Name='EditedQueue$$'", 'Editing the queue'); -expect_like(qr/Queue $queue_id updated/, 'Edited the queue'); -expect_send("show queue/$queue_id", 'Showing the queue...'); -expect_like(qr/id: queue\/$queue_id/, 'Saw the queue'); -expect_like(qr/Name: EditedQueue$$/, 'Saw the modification'); -TODO: { - todo_skip "Listing non-ticket items doesn't work", 2; - expect_send("list -t queue 'id > 0'", 'Listing the queues...'); - expect_like(qr/$queue_id: EditedQueue$$/, 'Found the queue'); -} - -# }}} - - -# Set up a custom field for editing tests -my $cf = RT::CustomField->new($RT::SystemUser); -my ($val,$msg) = $cf->Create(Name => 'MyCF'.$$, Type => 'FreeformSingle', Queue => $queue_id); -ok($val,$msg); - -my $othercf = RT::CustomField->new($RT::SystemUser); -($val,$msg) = $othercf->Create(Name => 'My CF'.$$, Type => 'FreeformSingle', Queue => $queue_id); -ok($val,$msg); - -my $multiple_cf = RT::CustomField->new($RT::SystemUser); -($val,$msg) = $multiple_cf->Create(Name => 'MultipleCF'.$$, Type => - 'FreeformMultiple', Queue => $queue_id); -ok($val,$msg); - - -# add a comment to ticket - expect_send("comment -m 'comment-$$' $ticket_id", "Adding a comment..."); - expect_like(qr/Message recorded/, "Added the comment"); - ### should test to make sure it actually got added - # add correspondance to ticket (?) - expect_send("correspond -m 'correspond-$$' $ticket_id", "Adding correspondence..."); - expect_like(qr/Message recorded/, "Added the correspondence"); - ### should test to make sure it actually got added - - my $test_email = RT::Test::get_relocatable_file('lorem-ipsum', - (File::Spec->updir(), 'data', 'emails')); - # add attachments to a ticket - # text attachment - check_attachment($test_email); - # binary attachment - check_attachment($RT::MasonComponentRoot.'/NoAuth/images/bplogo.gif'); - -# change a ticket's Owner -expect_send("edit ticket/$ticket_id set owner=root", 'Changing owner...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed owner'); -expect_send("show ticket/$ticket_id -f owner", 'Verifying change...'); -expect_like(qr/Owner: root/, 'Verified change'); -# change a ticket's Requestor -expect_send("edit ticket/$ticket_id set requestors=foo\@example.com", 'Changing Requestor...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed Requestor'); -expect_send("show ticket/$ticket_id -f requestors", 'Verifying change...'); -expect_like(qr/Requestors: foo\@example.com/, 'Verified change'); -# change a ticket's Cc -expect_send("edit ticket/$ticket_id set cc=bar\@example.com", 'Changing Cc...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed Cc'); -expect_send("show ticket/$ticket_id -f cc", 'Verifying change...'); -expect_like(qr/Cc: bar\@example.com/, 'Verified change'); -# change a ticket's priority -expect_send("edit ticket/$ticket_id set priority=10", 'Changing priority...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed priority'); -expect_send("show ticket/$ticket_id -f priority", 'Verifying change...'); -expect_like(qr/Priority: 10/, 'Verified change'); -# move a ticket to a different queue -expect_send("edit ticket/$ticket_id set queue=EditedQueue$$", 'Changing queue...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed queue'); -expect_send("show ticket/$ticket_id -f queue", 'Verifying change...'); -expect_like(qr/Queue: EditedQueue$$/, 'Verified change'); -# cannot move ticket to a nonexistent queue -expect_send("edit ticket/$ticket_id set queue=nonexistent-$$", 'Changing to nonexistent queue...'); -expect_like(qr/queue does not exist/i, 'Errored out'); -expect_send("show ticket/$ticket_id -f queue", 'Verifying lack of change...'); -expect_like(qr/Queue: EditedQueue$$/, 'Verified lack of change'); - -# Test reading and setting custom fields without spaces -expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking initial value'); -expect_like(qr/CF\.{myCF$$}:/i, 'Verified initial empty value (CF-x syntax)'); -expect_send("show ticket/$ticket_id -f CF.{myCF$$}", 'Checking initial value'); -expect_like(qr/CF\.{myCF$$}:/i, 'Verified initial empty value (CF.{x} syntax)'); - -expect_send("edit ticket/$ticket_id set 'CF-myCF$$=VALUE' ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value'); -expect_like(qr/CF\.{myCF$$}: VALUE/i, 'Verified change'); -# Test setting 0 as value of the custom field -expect_send("edit ticket/$ticket_id set 'CF-myCF$$=0' ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value'); -expect_like(qr/CF\.{myCF$$}: 0/i, 'Verified change'); - -expect_send("edit ticket/$ticket_id set 'CF.{myCF$$}=VALUE' ",'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f CF.{myCF$$}", 'Checking new value'); -expect_like(qr/CF\.{myCF$$}: VALUE/i, 'Verified change'); -# Test setting 0 as value of the custom field -expect_send("edit ticket/$ticket_id set 'CF.{myCF$$}=0' ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f CF.{myCF$$}", 'Checking new value'); -expect_like(qr/CF\.{myCF$$}: 0/i, 'Verified change'); - -# Test reading and setting custom fields with spaces -expect_send("show ticket/$ticket_id -f 'CF-my CF$$'", 'Checking initial value'); -expect_like(qr/CF\.{my CF$$}:/i, 'Verified change'); -expect_send("edit ticket/$ticket_id set 'CF-my CF$$=VALUE' ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f 'CF-my CF$$'", 'Checking new value'); -expect_like(qr/CF\.{my CF$$}: VALUE/i, 'Verified change'); -expect_send("ls -l 'id = $ticket_id' -f 'CF-my CF$$'", 'Checking new value'); -expect_like(qr/CF\.{my CF$$}: VALUE/i, 'Verified change'); - -expect_send("show ticket/$ticket_id -f 'CF.{my CF$$}'", 'Checking initial value'); -expect_like(qr/CF\.{my CF$$}: VALUE/i, 'Verified change'); -expect_send("edit ticket/$ticket_id set 'CF.{my CF$$}=NEW' ", 'Changing CF...'); -expect_send("show ticket/$ticket_id -f 'CF.{my CF$$}'", 'Checking new value'); -expect_like(qr/CF\.{my CF$$}: NEW/i, 'Verified change'); -expect_send("ls -l 'id = $ticket_id' -f 'CF.{my CF$$}'", 'Checking new value'); -expect_like(qr/CF\.{my CF$$}: NEW/i, 'Verified change'); - -# Test reading and setting single value custom field with commas or quotes -expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking initial value'); -expect_like(qr/CF\.{myCF$$}:/i, 'Verified change'); -expect_send("edit ticket/$ticket_id set CF-myCF$$=1,2,3", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value'); -expect_like(qr/CF\.{myCF$$}: 1,2,3/i, 'Verified change'); -expect_send("edit ticket/$ticket_id set CF-myCF$$=\"1's,2,3\"", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed cf'); -expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value'); -expect_like(qr/CF\.{myCF$$}: 1's,2,3/i, 'Verified change'); - -# Test reading and setting custom fields with multiple values -expect_send("show ticket/$ticket_id -f CF-MultipleCF$$", 'Checking initial value'); -expect_like(qr/CF\.{MultipleCF$$}:/i, 'Verified multiple cf change'); -expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=1,2,3 ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: 1,\s*2,\s*3/i, 'Verified multiple cf change'); -expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=a,b,c ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: a,\s*b,\s*c/i, 'Verified change'); -expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=a", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'del multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: b,\s*c/i, 'Verified multiple cf change'); -expect_send("edit ticket/$ticket_id add CF.{MultipleCF$$}=o", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: b,\s*c,\s*o/i, 'Verified multiple cf change'); - -expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=\"'a,b,c'\" ", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: 'a,b,c'/i, 'Verified change'); -expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=a", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: 'a,b,c'/i, 'Verified change'); - -expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=q{a,b,c}", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: 'a,b,c'/i, 'Verified change'); -expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=a", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: 'a,b,c'/i, 'Verified change'); -expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=\"'a,b,c'\"", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: \s*$/i, 'Verified change'); - -expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=\"q{1,2's,3}\"", 'Changing CF...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf'); -expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value'); -expect_like(qr/CF\.{MultipleCF$$}: '1,2\\'s,3'/i, 'Verified change'); - -# ... -# change a ticket's ...[other properties]... -# ... -# stall a ticket -expect_send("edit ticket/$ticket_id set status=stalled", 'Changing status to "stalled"...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed status'); -expect_send("show ticket/$ticket_id -f status", 'Verifying change...'); -expect_like(qr/Status: stalled/, 'Verified change'); -# resolve a ticket -expect_send("edit ticket/$ticket_id set status=resolved", 'Changing status to "resolved"...'); -expect_like(qr/Ticket $ticket_id updated/, 'Changed status'); -expect_send("show ticket/$ticket_id -f status", 'Verifying change...'); -expect_like(qr/Status: resolved/, 'Verified change'); -# try to set status to an illegal value -expect_send("edit ticket/$ticket_id set status=quux", 'Changing status to an illegal value...'); -expect_like(qr/illegal value/i, 'Errored out'); -expect_send("show ticket/$ticket_id -f status", 'Verifying lack of change...'); -expect_like(qr/Status: resolved/, 'Verified change'); - -# }}} - -# {{{ display - -# show ticket list -expect_send("ls -s -t ticket -o +id \"Status='resolved'\"", 'Listing resolved tickets...'); -expect_like(qr/$ticket_id: new ticket/, 'Found our ticket'); -# show ticket list verbosely -expect_send("ls -l -t ticket -o +id \"Status='resolved'\"", 'Listing resolved tickets verbosely...'); -expect_like(qr/id: ticket\/$ticket_id/, 'Found our ticket'); -# show ticket -expect_send("show -s -t ticket $ticket_id", 'Showing our ticket...'); -expect_like(qr/id: ticket\/$ticket_id/, 'Got our ticket'); -# show ticket history -expect_send("show ticket/$ticket_id/history", 'Showing our ticket\'s history...'); -expect_like(qr/Ticket created by root/, 'Got our history'); - -expect_send("show -v ticket/$ticket_id/history", 'Showing our ticket\'s history verbosely...'); -TODO: { - local $TODO = "Cannot show verbose ticket history right now"; - # show ticket history verbosely - expect_like(qr/Ticket created by root/, 'Got our history'); -} -# get attachments from a ticket -expect_send("show -s ticket/$ticket_id/attachments", 'Showing ticket attachments...'); -expect_like(qr/id: ticket\/$ticket_id\/attachments/, 'Got our ticket\'s attachments'); -expect_like(qr/Attachments: \d+: \(Unnamed\) \(\S+ \/ \d+\w+\)/, 'Our ticket has an attachment'); -expect_handle->before() =~ /Attachments: (\d+): \(Unnamed\) \((\S+)/; -my $attachment_id = $1; -my $attachment_type = $2; -ok($attachment_id, "Got attachment id=$attachment_id $attachment_type"); -expect_send("show -s ticket/$ticket_id/attachments/$attachment_id", "Showing attachment $attachment_id..."); -expect_like(qr/ContentType: $attachment_type/, 'Got the attachment'); - -# }}} - -# {{{ test user manipulation - -# creating users -expect_send("create -t user set Name='NewUser$$' EmailAddress='fbar$$\@example.com'", 'Creating a user...'); -expect_like(qr/User \d+ created/, 'Created the user'); -expect_handle->before() =~ /User (\d+) created/; -my $user_id = $1; -ok($user_id, "Got user id=$user_id"); -# updating users -expect_send("edit user/$user_id set Name='EditedUser$$'", 'Editing the user'); -expect_like(qr/User $user_id updated/, 'Edited the user'); -expect_send("show user/$user_id", 'Showing the user...'); -expect_like(qr/id: user\/$user_id/, 'Saw the user'); -expect_like(qr/Name: EditedUser$$/, 'Saw the modification'); -TODO: { - todo_skip "Listing non-ticket items doesn't work", 2; - expect_send("list -t user 'id > 0'", 'Listing the users...'); - expect_like(qr/$user_id: EditedUser$$/, 'Found the user'); -} - -# }}} - -# {{{ test group manipulation - -TODO: { -todo_skip "Group manipulation doesn't work right now", 8; -# creating groups -expect_send("create -t group set Name='NewGroup$$'", 'Creating a group...'); -expect_like(qr/Group \d+ created/, 'Created the group'); -expect_handle->before() =~ /Group (\d+) created/; -my $group_id = $1; -ok($group_id, "Got group id=$group_id"); -# updating groups -expect_send("edit group/$group_id set Name='EditedGroup$$'", 'Editing the group'); -expect_like(qr/Group $group_id updated/, 'Edited the group'); -expect_send("show group/$group_id", 'Showing the group...'); -expect_like(qr/id: group\/$group_id/, 'Saw the group'); -expect_like(qr/Name: EditedGroup$$/, 'Saw the modification'); -TODO: { - local $TODO = "Listing non-ticket items doesn't work"; - expect_send("list -t group 'id > 0'", 'Listing the groups...'); - expect_like(qr/$group_id: EditedGroup$$/, 'Found the group'); -} -} - -# }}} - -TODO: { -todo_skip "Custom field manipulation not yet implemented", 8; -# {{{ test custom field manipulation - -# creating custom fields -expect_send("create -t custom_field set Name='NewCF$$'", 'Creating a custom field...'); -expect_like(qr/Custom Field \d+ created/, 'Created the custom field'); -expect_handle->before() =~ /Custom Field (\d+) created/; -my $cf_id = $1; -ok($cf_id, "Got custom field id=$cf_id"); -# updating custom fields -expect_send("edit cf/$cf_id set Name='EditedCF$$'", 'Editing the custom field'); -expect_like(qr/Custom field $cf_id updated/, 'Edited the custom field'); -expect_send("show cf/$cf_id", 'Showing the queue...'); -expect_like(qr/id: custom_field\/$cf_id/, 'Saw the custom field'); -expect_like(qr/Name: EditedCF$$/, 'Saw the modification'); -TODO: { - todo_skip "Listing non-ticket items doesn't work", 2; - expect_send("list -t custom_field 'id > 0'", 'Listing the CFs...'); - expect_like(qr/$cf_id: EditedCF$$/, 'Found the custom field'); -} -} - -# }}} - -# {{{ test merging tickets -expect_send("create -t ticket set subject='CLIMergeTest1-$$'", 'Creating first ticket to merge...'); -expect_like(qr/Ticket \d+ created/, 'Created first ticket'); -expect_handle->before() =~ /Ticket (\d+) created/; -my $merge_ticket_A = $1; -ok($merge_ticket_A, "Got first ticket to merge id=$merge_ticket_A"); -expect_send("create -t ticket set subject='CLIMergeTest2-$$'", 'Creating second ticket to merge...'); -expect_like(qr/Ticket \d+ created/, 'Created second ticket'); -expect_handle->before() =~ /Ticket (\d+) created/; -my $merge_ticket_B = $1; -ok($merge_ticket_B, "Got second ticket to merge id=$merge_ticket_B"); -expect_send("merge $merge_ticket_B $merge_ticket_A", 'Merging the tickets...'); -expect_like(qr/Merge completed/, 'Merged the tickets'); - -TODO: { - local $TODO = "we generate a spurious warning here"; - $m->no_warnings_ok; -} - -expect_send("show ticket/$merge_ticket_A/history", 'Checking merge on first ticket'); -expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in first ticket'); -expect_send("show ticket/$merge_ticket_B/history", 'Checking merge on second ticket'); -expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in second ticket'); -# }}} - -# {{{ test taking/stealing tickets -{ - # create a user; give them privileges to take and steal - ### TODO: implement 'grant' in the CLI tool; use that here instead. - ### this breaks the abstraction barrier, like, a lot. - my $steal_user = RT::User->new($RT::SystemUser); - my ($steal_user_id, $msg) = $steal_user->Create( Name => "fooser$$", - EmailAddress => "fooser$$\@localhost", - Privileged => 1, - Password => 'foobar', - ); - ok($steal_user_id, "Created the user? $msg"); - my $steal_queue = RT::Queue->new($RT::SystemUser); - my $steal_queue_id; - ($steal_queue_id, $msg) = $steal_queue->Create( Name => "Steal$$" ); - ok($steal_queue_id, "Got the queue? $msg"); - ok($steal_queue->id, "queue obj has id"); - my $status; - ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'ShowTicket', Object => $steal_queue ); - ok($status, "Gave 'ShowTicket' to our user? $msg"); - ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'OwnTicket', Object => $steal_queue ); - ok($status, "Gave 'OwnTicket' to our user? $msg"); - ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'StealTicket', Object => $steal_queue ); - ok($status, "Gave 'StealTicket' to our user? $msg"); - ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'TakeTicket', Object => $steal_queue ); - ok($status, "Gave 'TakeTicket' to our user? $msg"); - - # create a ticket to take/steal - expect_send("create -t ticket set queue=$steal_queue_id subject='CLIStealTest-$$'", 'Creating ticket to steal...'); - expect_like(qr/Ticket \d+ created/, 'Created ticket'); - expect_handle->before() =~ /Ticket (\d+) created/; - my $steal_ticket_id = $1; - ok($steal_ticket_id, "Got ticket to steal id=$steal_ticket_id"); - - # root takes the ticket - expect_send("take $steal_ticket_id", 'root takes the ticket...'); - expect_like(qr/Owner changed from Nobody to root/, 'root took the ticket'); - expect_quit(); - - # log in as the non-root user - $ENV{'RTUSER'} = "fooser$$"; - $ENV{'RTPASSWD'} = 'foobar'; - expect_run( command => "$rt_tool_path shell", prompt => 'rt> ', quit => 'quit',); - - # user tries to take the ticket, fails - # shouldn't be able to 'take' a ticket which someone else has taken out from - # under you; that should produce an error. should have to explicitly - # 'steal' it back from them. 'steal' can automatically 'take' a ticket, - # though. - expect_send("take $steal_ticket_id", 'user tries to take the ticket...'); - expect_like(qr/You can only take tickets that are unowned/, '...and fails.'); - expect_send("show ticket/$steal_ticket_id -f owner", 'Double-checking...'); - expect_like(qr/Owner: root/, '...no change.'); - - # user steals the ticket - expect_send("steal $steal_ticket_id", 'user tries to *steal* the ticket...'); - expect_like(qr/Owner changed from root to fooser$$/, '...and succeeds!'); - expect_send("show ticket/$steal_ticket_id -f owner", 'Double-checking...'); - expect_like(qr/Owner: fooser$$/, '...yup, it worked.'); - expect_quit(); - - # log back in as root - $ENV{'RTUSER'} = 'root'; - $ENV{'RTPASSWD'} = 'password'; - expect_run( command => "$rt_tool_path shell", prompt => 'rt> ', quit => 'quit',); - - # root steals the ticket back - expect_send("steal $steal_ticket_id", 'root steals the ticket back...'); - expect_like(qr/Owner changed from fooser$$ to root/, '...and succeeds.'); -} -# }}} - -# {{{ test ticket linking - my @link_relns = ( 'DependsOn', 'DependedOnBy', 'RefersTo', 'ReferredToBy', - 'MemberOf', 'HasMember', ); - my %display_relns = map { $_ => $_ } @link_relns; - $display_relns{HasMember} = 'Members'; - - my $link1_id = ok_create_ticket( "LinkTicket1-$$" ); - my $link2_id = ok_create_ticket( "LinkTicket2-$$" ); - - foreach my $reln (@link_relns) { - # create link - expect_send("link $link1_id $reln $link2_id", "Link by $reln..."); - expect_like(qr/Created link $link1_id $reln $link2_id/, 'Linked'); - expect_send("show -s ticket/$link1_id/links", "Checking creation of $reln..."); - expect_like(qr/$display_relns{$reln}: [\w\d\.\-]+:\/\/[\w\d\.]+\/ticket\/$link2_id/, "Created link $reln"); - - # delete link - expect_send("link -d $link1_id $reln $link2_id", "Delete $reln..."); - expect_like(qr/Deleted link $link1_id $reln $link2_id/, 'Deleted'); - expect_send("show ticket/$link1_id/links", "Checking removal of $reln..."); - ok( expect_handle->before() !~ /\Q$display_relns{$reln}: \E[\w\d\.\-]+:\/\/[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln" ); - #expect_unlike(qr/\Q$reln: \E[\w\d\.]+\Q://\E[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln"); - - } -# }}} - -expect_quit(); # We need to do this ourselves, so that we quit - # *before* we tear down the webserver. - -# helper function -sub ok_create_ticket { - my $subject = shift; - - expect_send("create -t ticket set subject='$subject'", 'Creating ticket...'); - expect_like(qr/Ticket \d+ created/, "Created ticket '$subject'"); - expect_handle->before() =~ /Ticket (\d+) created/; - my $id = $1; - ok($id, "Got ticket id=$id"); - - return $id; -} - -# wrap up all the file handling stuff for attachment testing -sub check_attachment { - my $attachment_path = shift; - (my $filename = $attachment_path) =~ s/.*\/(.*)$/$1/; - expect_send("comment -m 'attach file' -a $attachment_path $ticket_id", "Adding an attachment ($filename)"); - expect_like(qr/Message recorded/, "Added the attachment"); - expect_send("show ticket/$ticket_id/attachments","Finding Attachment"); - my $attachment_regex = qr/(\d+):\s+$filename/; - expect_like($attachment_regex,"Attachment Uploaded"); - expect_handle->before() =~ $attachment_regex; - my $attachment_id = $1; - expect_send("show ticket/$ticket_id/attachments/$attachment_id/content","Fetching Attachment"); - open (my $fh, $attachment_path) or die "Can't open $attachment_path: $!"; - my $attachment_content = do { local($/); <$fh> }; - close $fh; - chomp $attachment_content; - expect_is($attachment_content,"Attachment contains original text"); -} - - - -1; diff --git a/rt/t/web/command_line_with_unknown_field.t b/rt/t/web/command_line_with_unknown_field.t deleted file mode 100644 index 9a7ec7a..0000000 --- a/rt/t/web/command_line_with_unknown_field.t +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use File::Spec (); -use Test::Expect; -use RT::Test tests => 10; -my ($baseurl, $m) = RT::Test->started_ok; -my $rt_tool_path = "$RT::BinPath/rt"; - -$ENV{'RTUSER'} = 'root'; -$ENV{'RTPASSWD'} = 'password'; -$RT::Logger->debug("Connecting to server at ".RT->Config->Get('WebBaseURL')); -$ENV{'RTSERVER'} =RT->Config->Get('WebBaseURL') ; -$ENV{'RTDEBUG'} = '1'; - -expect_run( - command => "$rt_tool_path shell", - prompt => 'rt> ', - quit => 'quit', -); -expect_send(q{create -t ticket set subject='new ticket' add cc=foo@example.com}, "Creating a ticket..."); -expect_like(qr/Ticket \d+ created/, "Created the ticket"); -expect_handle->before() =~ /Ticket (\d+) created/; -my $ticket_id = $1; - -expect_send("edit ticket/$ticket_id set marge=simpson", 'set unknown field'); -expect_like(qr/marge: Unknown field/, 'marge is unknown field'); -expect_like(qr/marge: simpson/, 'the value we set for marge is shown too'); - -expect_send("edit ticket/$ticket_id set homer=simpson", 'set unknown field'); -expect_like(qr/homer: Unknown field/, 'homer is unknown field'); -expect_like(qr/homer: simpson/, 'the value we set for homer is shown too'); - -expect_quit(); diff --git a/rt/t/web/compilation_errors.t b/rt/t/web/compilation_errors.t deleted file mode 100644 index 46a8628..0000000 --- a/rt/t/web/compilation_errors.t +++ /dev/null @@ -1,68 +0,0 @@ -#!/usr/bin/perl - -use strict; -use Test::More; -use File::Find; -BEGIN { - sub wanted { - -f && /\.html$/ && $_ !~ /Logout.html$/; - } - my $tests = 7; - find( sub { wanted() and $tests += 4 }, 'share/html/' ); - plan tests => $tests; -} - - -use HTTP::Request::Common; -use HTTP::Cookies; -use LWP; -use Encode; - -my $cookie_jar = HTTP::Cookies->new; - -use RT::Test; -my ($baseurl, $agent) = RT::Test->started_ok; - -# give the agent a place to stash the cookies -$agent->cookie_jar($cookie_jar); - -# get the top page -my $url = $agent->rt_base_url; -diag "Base URL is '$url'" if $ENV{TEST_VERBOSE}; -$agent->get($url); - -is ($agent->{'status'}, 200, "Loaded a page"); - -# {{{ test a login - -# follow the link marked "Login" - -ok($agent->{form}->find_input('user')); - -ok($agent->{form}->find_input('pass')); -like ($agent->{'content'} , qr/username:/i); -$agent->field( 'user' => 'root' ); -$agent->field( 'pass' => 'password' ); -# the field isn't named, so we have to click link 0 -$agent->click(0); -is($agent->{'status'}, 200, "Fetched the page ok"); -like( $agent->{'content'} , qr/Logout/i, "Found a logout link"); - - -find ( sub { wanted() and test_get($File::Find::name) } , 'share/html/'); - -sub test_get { - my $file = shift; - - $file =~ s#^share/html/##; - diag( "testing $url/$file" ) if $ENV{TEST_VERBOSE}; - ok ($agent->get("$url/$file", "GET $url/$file"), "Can Get $url/$file"); - is ($agent->{'status'}, 200, "Loaded $file"); -# ok( $agent->{'content'} =~ /Logout/i, "Found a logout link on $file "); - ok( $agent->{'content'} !~ /Not logged in/i, "Still logged in for $file"); - ok( $agent->{'content'} !~ /raw error/i, "Didn't get a Mason compilation error on $file"); -} - -# }}} - -1; diff --git a/rt/t/web/config_tab_right.t b/rt/t/web/config_tab_right.t deleted file mode 100644 index 4dc9ec0..0000000 --- a/rt/t/web/config_tab_right.t +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -use RT::Test tests => 8; - -my ($uname, $upass, $user) = ('tester', 'tester'); -{ - $user = RT::User->new($RT::SystemUser); - my ($status, $msg) = $user->Create( - Name => $uname, - Password => $upass, - Disabled => 0, - Privileged => 1, - ); - ok($status, 'created a user'); -} - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login($uname, $upass), "logged in"; - -{ - $m->content_unlike(qr/Configuration/, 'no configuration'); - $m->get('/Admin/'); - is $m->status, 403, 'no access to /Admin/'; -} - -RT::Test->set_rights( - { Principal => $user->PrincipalObj, - Right => [qw(ShowConfigTab)], - }, -); - -{ - $m->get('/'); - $m->content_like(qr/Configuration/, 'configuration is there'); - - $m->follow_link_ok({text => 'Configuration'}); - is $m->status, 200, 'user has access to /Admin/'; -} - diff --git a/rt/t/web/crypt-gnupg.t b/rt/t/web/crypt-gnupg.t deleted file mode 100644 index fb28c88..0000000 --- a/rt/t/web/crypt-gnupg.t +++ /dev/null @@ -1,446 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 94; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use RT::Action::SendEmail; - -eval 'use GnuPG::Interface; 1' or plan skip_all => 'GnuPG required.'; - -RT::Test->set_mail_catcher; - -RT->Config->Set( CommentAddress => 'general@example.com'); -RT->Config->Set( CorrespondAddress => 'general@example.com'); -RT->Config->Set( DefaultSearchResultFormat => qq{ - '<B><A HREF="__WebPath__/Ticket/Display.html?id=__id__">__id__</a></B>/TITLE:#', - '<B><A HREF="__WebPath__/Ticket/Display.html?id=__id__">__Subject__</a></B>/TITLE:Subject', - 'OO-__OwnerName__-O', - 'OR-__Requestors__-O', - 'KO-__KeyOwnerName__-K', - 'KR-__KeyRequestors__-K', - Status}); - -use File::Spec (); -use Cwd; -use File::Temp qw(tempdir); -my $homedir = tempdir( CLEANUP => 1 ); - -use_ok('RT::Crypt::GnuPG'); - -RT->Config->Set( 'GnuPG', - Enable => 1, - OutgoingMessagesFormat => 'RFC' ); - -RT->Config->Set( 'GnuPGOptions', - homedir => $homedir, - passphrase => 'recipient', - 'no-permission-warning' => undef, - 'trust-model' => 'always'); -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -RT::Test->import_gnupg_key('recipient@example.com', 'public'); -RT::Test->import_gnupg_key('recipient@example.com', 'secret'); -RT::Test->import_gnupg_key('general@example.com', 'public'); -RT::Test->import_gnupg_key('general@example.com', 'secret'); -RT::Test->import_gnupg_key('general@example.com.2', 'public'); -RT::Test->import_gnupg_key('general@example.com.2', 'secret'); - -ok(my $user = RT::User->new($RT::SystemUser)); -ok($user->Load('root'), "Loaded user 'root'"); -$user->SetEmailAddress('recipient@example.com'); - -my $queue = RT::Test->load_or_create_queue( - Name => 'General', - CorrespondAddress => 'general@example.com', -); -ok $queue && $queue->id, 'loaded or created queue'; -my $qid = $queue->id; - -RT::Test->set_rights( - Principal => 'Everyone', - Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ModifyTicket'], -); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in'; - -$m->get_ok("/Admin/Queues/Modify.html?id=$qid"); -$m->form_with_fields('Sign', 'Encrypt'); -$m->field(Encrypt => 1); -$m->submit; - -RT::Test->clean_caught_mails; - -$m->goto_create_ticket( $queue ); -$m->form_name('TicketCreate'); -$m->field('Subject', 'Encryption test'); -$m->field('Content', 'Some content'); -ok($m->value('Encrypt', 2), "encrypt tick box is checked"); -ok(!$m->value('Sign', 2), "sign tick box is unchecked"); -$m->submit; -is($m->status, 200, "request successful"); - -$m->get($baseurl); # ensure that the mail has been processed - -my @mail = RT::Test->fetch_caught_mails; -ok(@mail, "got some mail"); - -$user->SetEmailAddress('general@example.com'); -for my $mail (@mail) { - unlike $mail, qr/Some content/, "outgoing mail was encrypted"; - - my ($content_type) = $mail =~ /^(Content-Type: .*)/m; - my ($mime_version) = $mail =~ /^(MIME-Version: .*)/m; - my $body = strip_headers($mail); - - $mail = << "MAIL"; -Subject: RT mail sent back into RT -From: general\@example.com -To: recipient\@example.com -$mime_version -$content_type - -$body -MAIL - - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - is ($tick->Subject, - "RT mail sent back into RT", - "Correct subject" - ); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Privacy'), - 'PGP', - "RT's outgoing mail has crypto" - ); - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Success', - "RT's outgoing mail looks encrypted" - ); - - like($attachments[0]->Content, qr/Some content/, "RT's mail includes copy of ticket text"); - like($attachments[0]->Content, qr/$RT::rtname/, "RT's mail includes this instance's name"); -} - -$m->get("$baseurl/Admin/Queues/Modify.html?id=$qid"); -$m->form_with_fields('Sign', 'Encrypt'); -$m->field(Encrypt => undef); -$m->field(Sign => 1); -$m->submit; - -RT::Test->clean_caught_mails; - -$m->goto_create_ticket( $queue ); -$m->form_name('TicketCreate'); -$m->field('Subject', 'Signing test'); -$m->field('Content', 'Some other content'); -ok(!$m->value('Encrypt', 2), "encrypt tick box is unchecked"); -ok($m->value('Sign', 2), "sign tick box is checked"); -$m->submit; -is($m->status, 200, "request successful"); - -$m->get($baseurl); # ensure that the mail has been processed - -@mail = RT::Test->fetch_caught_mails; -ok(@mail, "got some mail"); -for my $mail (@mail) { - like $mail, qr/Some other content/, "outgoing mail was not encrypted"; - like $mail, qr/-----BEGIN PGP SIGNATURE-----[\s\S]+-----END PGP SIGNATURE-----/, "data has some kind of signature"; - - my ($content_type) = $mail =~ /^(Content-Type: .*)/m; - my ($mime_version) = $mail =~ /^(MIME-Version: .*)/m; - my $body = strip_headers($mail); - - $mail = << "MAIL"; -Subject: More RT mail sent back into RT -From: general\@example.com -To: recipient\@example.com -$mime_version -$content_type - -$body -MAIL - - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - is ($tick->Subject, - "More RT mail sent back into RT", - "Correct subject" - ); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Privacy'), - 'PGP', - "RT's outgoing mail has crypto" - ); - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Not encrypted', - "RT's outgoing mail looks unencrypted" - ); - is( $msg->GetHeader('X-RT-Incoming-Signature'), - 'general <general@example.com>', - "RT's outgoing mail looks signed" - ); - - like($attachments[0]->Content, qr/Some other content/, "RT's mail includes copy of ticket text"); - like($attachments[0]->Content, qr/$RT::rtname/, "RT's mail includes this instance's name"); -} - -$m->get("$baseurl/Admin/Queues/Modify.html?id=$qid"); -$m->form_with_fields('Sign', 'Encrypt'); -$m->field(Encrypt => 1); -$m->field(Sign => 1); -$m->submit; - -RT::Test->clean_caught_mails; - - -$m->goto_create_ticket( $queue ); -$m->form_name('TicketCreate'); -$m->field('Subject', 'Crypt+Sign test'); -$m->field('Content', 'Some final? content'); -ok($m->value('Encrypt', 2), "encrypt tick box is checked"); -ok($m->value('Sign', 2), "sign tick box is checked"); -$m->submit; -is($m->status, 200, "request successful"); - -$m->get($baseurl); # ensure that the mail has been processed - -@mail = RT::Test->fetch_caught_mails; -ok(@mail, "got some mail"); -for my $mail (@mail) { - unlike $mail, qr/Some other content/, "outgoing mail was encrypted"; - - my ($content_type) = $mail =~ /^(Content-Type: .*)/m; - my ($mime_version) = $mail =~ /^(MIME-Version: .*)/m; - my $body = strip_headers($mail); - - $mail = << "MAIL"; -Subject: Final RT mail sent back into RT -From: general\@example.com -To: recipient\@example.com -$mime_version -$content_type - -$body -MAIL - - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - is ($tick->Subject, - "Final RT mail sent back into RT", - "Correct subject" - ); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Privacy'), - 'PGP', - "RT's outgoing mail has crypto" - ); - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Success', - "RT's outgoing mail looks encrypted" - ); - is( $msg->GetHeader('X-RT-Incoming-Signature'), - 'general <general@example.com>', - "RT's outgoing mail looks signed" - ); - - like($attachments[0]->Content, qr/Some final\? content/, "RT's mail includes copy of ticket text"); - like($attachments[0]->Content, qr/$RT::rtname/, "RT's mail includes this instance's name"); -} - -RT::Test->clean_caught_mails; - -$m->goto_create_ticket( $queue ); -$m->form_name('TicketCreate'); -$m->field('Subject', 'Test crypt-off on encrypted queue'); -$m->field('Content', 'Thought you had me figured out didya'); -$m->field(Encrypt => undef, 2); # turn off encryption -ok(!$m->value('Encrypt', 2), "encrypt tick box is now unchecked"); -ok($m->value('Sign', 2), "sign tick box is still checked"); -$m->submit; -is($m->status, 200, "request successful"); - -$m->get($baseurl); # ensure that the mail has been processed - -@mail = RT::Test->fetch_caught_mails; -ok(@mail, "got some mail"); -for my $mail (@mail) { - like $mail, qr/Thought you had me figured out didya/, "outgoing mail was unencrypted"; - - my ($content_type) = $mail =~ /^(Content-Type: .*)/m; - my ($mime_version) = $mail =~ /^(MIME-Version: .*)/m; - my $body = strip_headers($mail); - - $mail = << "MAIL"; -Subject: Post-final! RT mail sent back into RT -From: general\@example.com -To: recipient\@example.com -$mime_version -$content_type - -$body -MAIL - - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - is ($tick->Subject, - "Post-final! RT mail sent back into RT", - "Correct subject" - ); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is( $msg->GetHeader('X-RT-Privacy'), - 'PGP', - "RT's outgoing mail has crypto" - ); - is( $msg->GetHeader('X-RT-Incoming-Encryption'), - 'Not encrypted', - "RT's outgoing mail looks unencrypted" - ); - is( $msg->GetHeader('X-RT-Incoming-Signature'), - 'general <general@example.com>', - "RT's outgoing mail looks signed" - ); - - like($attachments[0]->Content, qr/Thought you had me figured out didya/, "RT's mail includes copy of ticket text"); - like($attachments[0]->Content, qr/$RT::rtname/, "RT's mail includes this instance's name"); -} - -sub strip_headers -{ - my $mail = shift; - $mail =~ s/.*?\n\n//s; - return $mail; -} - -# now test the OwnerNameKey and RequestorsKey fields - -my $nokey = RT::Test->load_or_create_user(Name => 'nokey', EmailAddress => 'nokey@example.com'); -$nokey->PrincipalObj->GrantRight(Right => 'CreateTicket'); -$nokey->PrincipalObj->GrantRight(Right => 'OwnTicket'); - -my $tick = RT::Ticket->new( $RT::SystemUser ); -$tick->Create(Subject => 'owner lacks pubkey', Queue => 'general', - Owner => $nokey); -ok(my $id = $tick->id, 'created ticket for owner-without-pubkey'); - -$tick = RT::Ticket->new( $RT::SystemUser ); -$tick->Create(Subject => 'owner has pubkey', Queue => 'general', - Owner => 'root'); -ok($id = $tick->id, 'created ticket for owner-with-pubkey'); - -my $mail = << "MAIL"; -Subject: Nokey requestor -From: nokey\@example.com -To: general\@example.com - -hello -MAIL - -((my $status), $id) = RT::Test->send_via_mailgate($mail); -is ($status >> 8, 0, "The mail gateway exited normally"); -ok ($id, "got id of a newly created ticket - $id"); - -$tick = RT::Ticket->new( $RT::SystemUser ); -$tick->Load( $id ); -ok ($tick->id, "loaded ticket #$id"); - -is ($tick->Subject, - "Nokey requestor", - "Correct subject" -); - -# test key selection -my $key1 = "EC1E81E7DC3DB42788FB0E4E9FA662C06DE22FC2"; -my $key2 = "75E156271DCCF02DDD4A7A8CDF651FA0632C4F50"; - -ok($user = RT::User->new($RT::SystemUser)); -ok($user->Load('root'), "Loaded user 'root'"); -is($user->PreferredKey, $key1, "preferred key is set correctly"); -$m->get("$baseurl/Prefs/Other.html"); -like($m->content, qr/Preferred key/, "preferred key option shows up in preference"); - -# XXX: mech doesn't let us see the current value of the select, apparently -like($m->content, qr/$key1/, "first key shows up in preferences"); -like($m->content, qr/$key2/, "second key shows up in preferences"); -like($m->content, qr/$key1.*?$key2/s, "first key shows up before the second"); - -$m->form_number(3); -$m->select("PreferredKey" => $key2); -$m->submit; - -ok($user = RT::User->new($RT::SystemUser)); -ok($user->Load('root'), "Loaded user 'root'"); -is($user->PreferredKey, $key2, "preferred key is set correctly to the new value"); - -$m->get("$baseurl/Prefs/Other.html"); -like($m->content, qr/Preferred key/, "preferred key option shows up in preference"); - -# XXX: mech doesn't let us see the current value of the select, apparently -like($m->content, qr/$key2/, "second key shows up in preferences"); -like($m->content, qr/$key1/, "first key shows up in preferences"); -like($m->content, qr/$key2.*?$key1/s, "second key (now preferred) shows up before the first"); - -# test that the new fields work -$m->get("$baseurl/Search/Simple.html?q=General"); -my $content = $m->content; -$content =~ s/(/(/g; -$content =~ s/)/)/g; - -like($content, qr/OO-Nobody-O/, "original OwnerName untouched"); -like($content, qr/OO-nokey-O/, "original OwnerName untouched"); -like($content, qr/OO-root-O/, "original OwnerName untouched"); - -like($content, qr/OR-recipient\@example.com-O/, "original Requestors untouched"); -like($content, qr/OR-nokey\@example.com-O/, "original Requestors untouched"); - -like($content, qr/KO-root-K/, "KeyOwnerName does not issue no-pubkey warning for recipient"); -like($content, qr/KO-nokey \(no pubkey!\)-K/, "KeyOwnerName issues no-pubkey warning for root"); -like($content, qr/KO-Nobody \(no pubkey!\)-K/, "KeyOwnerName issues no-pubkey warning for nobody"); - -like($content, qr/KR-recipient\@example.com-K/, "KeyRequestors does not issue no-pubkey warning for recipient\@example.com"); -like($content, qr/KR-general\@example.com-K/, "KeyRequestors does not issue no-pubkey warning for general\@example.com"); -like($content, qr/KR-nokey\@example.com \(no pubkey!\)-K/, "KeyRequestors DOES issue no-pubkey warning for nokey\@example.com"); - diff --git a/rt/t/web/custom_frontpage.t b/rt/t/web/custom_frontpage.t deleted file mode 100644 index 79ea566..0000000 --- a/rt/t/web/custom_frontpage.t +++ /dev/null @@ -1,61 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 7; -my ($baseurl, $m) = RT::Test->started_ok; - -my $url = $m->rt_base_url; - -my $user_obj = RT::User->new($RT::SystemUser); -my ($ret, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com'); -ok($ret, 'ACL test user creation'); -$user_obj->SetName('customer'); -$user_obj->SetPrivileged(1); -($ret, $msg) = $user_obj->SetPassword('customer'); -$user_obj->PrincipalObj->GrantRight(Right => 'LoadSavedSearch'); -$user_obj->PrincipalObj->GrantRight(Right => 'EditSavedSearches'); -$user_obj->PrincipalObj->GrantRight(Right => 'CreateSavedSearch'); -$user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf'); - -ok $m->login( customer => 'customer' ), "logged in"; - -$m->get ( $url."Search/Build.html"); - -#create a saved search -$m->form_name ('BuildQuery'); - -$m->field ( "ValueOfAttachment" => 'stupid'); -$m->field ( "SavedSearchDescription" => 'stupid tickets'); -$m->click_button (name => 'SavedSearchSave'); - -$m->get ( $url.'Prefs/MyRT.html' ); -$m->content_like (qr/stupid tickets/, 'saved search listed in rt at a glance items'); - -ok $m->login, 'we did log in as root'; - -$m->get ( $url.'Prefs/MyRT.html' ); -$m->form_name ('SelectionBox-body'); -# can't use submit form for mutli-valued select as it uses set_fields -$m->field ('body-Selected' => ['component-QuickCreate', 'system-Unowned Tickets', 'system-My Tickets']); -$m->click_button (name => 'remove'); -$m->form_name ('SelectionBox-body'); -#$m->click_button (name => 'body-Save'); -$m->get ( $url ); -$m->content_lacks ('highest priority tickets', 'remove everything from body pane'); - -$m->get ( $url.'Prefs/MyRT.html' ); -$m->form_name ('SelectionBox-body'); -$m->field ('body-Available' => ['component-QuickCreate', 'system-Unowned Tickets', 'system-My Tickets']); -$m->click_button (name => 'add'); - -$m->form_name ('SelectionBox-body'); -$m->field ('body-Selected' => ['component-QuickCreate']); -$m->click_button (name => 'movedown'); - -$m->form_name ('SelectionBox-body'); -$m->click_button (name => 'movedown'); - -$m->form_name ('SelectionBox-body'); -#$m->click_button (name => 'body-Save'); -$m->get ( $url ); -$m->content_like (qr'highest priority tickets', 'adds them back'); diff --git a/rt/t/web/custom_search.t b/rt/t/web/custom_search.t deleted file mode 100644 index 05cfdab..0000000 --- a/rt/t/web/custom_search.t +++ /dev/null @@ -1,84 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 11; -my ($baseurl, $m) = RT::Test->started_ok; -my $url = $m->rt_base_url; - -# reset preferences for easier test? - - - -my $t = RT::Ticket->new($RT::SystemUser); -$t->Create(Subject => 'for custom search'.$$, Queue => 'general', - Owner => 'root', Requestor => 'customsearch@localhost'); -ok(my $id = $t->id, 'created ticket for custom search'); - -ok $m->login, 'logged in'; - -my $t_link = $m->find_link( text => "for custom search".$$ ); -like ($t_link->url, qr/$id/, 'link to the ticket we created'); - -$m->content_lacks ('customsearch@localhost', 'requestor not displayed '); -$m->get ( $url.'Prefs/MyRT.html' ); -my $cus_hp = $m->find_link( text => "My Tickets" ); -my $cus_qs = $m->find_link( text => "Quick search" ); -$m->get ($cus_hp); -$m->content_like (qr'highest priority tickets'); - -# add Requestor to the fields -$m->form_name ('BuildQuery'); -# can't use submit form for mutli-valued select as it uses set_fields -$m->field (SelectDisplayColumns => ['Requestors']); -$m->click_button (name => 'AddCol') ; - -$m->form_name ('BuildQuery'); -$m->click_button (name => 'Save'); - -$m->get( $url ); -$m->content_contains ('customsearch@localhost', 'requestor now displayed '); - - -# now remove Requestor from the fields -$m->get ($cus_hp); - -$m->form_name ('BuildQuery'); - -my $cdc = $m->current_form->find_input('CurrentDisplayColumns'); -my ($requestor_value) = grep { /Requestor/ } $cdc->possible_values; -ok($requestor_value, "got the requestor value"); - -$m->field (CurrentDisplayColumns => $requestor_value); -$m->click_button (name => 'RemoveCol') ; - -$m->form_name ('BuildQuery'); -$m->click_button (name => 'Save'); - -$m->get( $url ); -$m->content_lacks ('customsearch@localhost', 'requestor not displayed '); - - -# try to disable General from quick search - -# Note that there's a small problem in the current implementation, -# since ticked quese are wanted, we do the invesrsion. So any -# queue added during the quicksearch setting will be unticked. -my $nlinks = $#{$m->find_all_links( text => "General" )}; -$m->get ($cus_qs); -$m->form_name ('Preferences'); -$m->untick('Want-General', '1'); -$m->click_button (name => 'Save'); - -$m->get( $url ); -is ($#{$m->find_all_links( text => "General" )}, $nlinks - 1, - 'General gone from quicksearch list'); - -# get it back -$m->get ($cus_qs); -$m->form_name ('Preferences'); -$m->tick('Want-General', '1'); -$m->click_button (name => 'Save'); - -$m->get( $url ); -is ($#{$m->find_all_links( text => "General" )}, $nlinks, - 'General back in quicksearch list'); diff --git a/rt/t/web/dashboard_with_deleted_saved_search.t b/rt/t/web/dashboard_with_deleted_saved_search.t deleted file mode 100644 index 328095a..0000000 --- a/rt/t/web/dashboard_with_deleted_saved_search.t +++ /dev/null @@ -1,89 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 18; -my ( $url, $m ) = RT::Test->started_ok; -ok( $m->login, 'logged in' ); - -# create a saved search -$m->get_ok( $url . "/Search/Build.html?Query=" . 'id=1' ); - -$m->submit_form( - form_name => 'BuildQuery', - fields => { SavedSearchDescription => 'foo', }, - button => 'SavedSearchSave', -); - -my ( $search_uri, $user_id, $search_id ) = - $m->content =~ /value="(RT::User-(\d+)-SavedSearch-(\d+))"/; -$m->submit_form( - form_name => 'BuildQuery', - fields => { SavedSearchLoad => $search_uri }, - button => 'SavedSearchSave', -); - -$m->content_like( qr/name="SavedSearchDelete"\s+value="Delete"/, - 'found Delete button' ); -$m->content_like( - qr/name="SavedSearchDescription"\s+value="foo"/, - 'found Description input with the value filled' -); - -# create a dashboard with the created search - -$m->get_ok( $url . "/Dashboards/Modify.html?Create=1" ); -$m->submit_form( - form_name => 'ModifyDashboard', - fields => { Name => 'bar' }, -); - -$m->content_like( qr/Saved dashboard bar/i, 'dashboard saved' ); -my $dashboard_queries_link = $m->find_link( text_regex => qr/Queries/ ); -my ( $dashboard_id ) = $dashboard_queries_link->url =~ /id=(\d+)/; - -$m->get_ok( $url . "/Dashboards/Queries.html?id=$dashboard_id" ); - -$m->content_lacks( 'value="Update"', 'no update button' ); - -$m->submit_form( - form_name => 'Dashboard-Searches-body', - fields => - { 'Searches-body-Available' => "search-$search_id-RT::User-$user_id" }, - button => 'add', -); - -$m->content_like( qr/Dashboard updated/i, 'added search foo to dashboard bar' ); - -# delete the created search - -$m->get_ok( $url . "/Search/Build.html?Query=" . 'id=1' ); -$m->submit_form( - form_name => 'BuildQuery', - fields => { SavedSearchLoad => $search_uri }, -); -$m->submit_form( - form_name => 'BuildQuery', - button => 'SavedSearchDelete', -); - -$m->content_lacks( $search_uri, 'deleted search foo' ); - -# here is what we really want to test - -$m->get_ok( $url . "/Dashboards/Queries.html?id=$dashboard_id" ); -$m->content_like( qr/Deleted queries/i, 'found deleted message' ); - -# Update button shows so we can update the deleted search easily -$m->content_contains( 'value="Update"', 'found update button' ); - -$m->submit_form( - form_name => 'Dashboard-Searches-body', - button => 'update', -); - -$m->content_unlike( qr/Deleted queries/i, 'deleted message is gone' ); -$m->content_lacks( 'value="Update"', 'update button is gone too' ); - -$m->get_warnings; # we'll get a lot of warnings because the deleted search - diff --git a/rt/t/web/dashboards-groups.t b/rt/t/web/dashboards-groups.t deleted file mode 100644 index cbf1d6a..0000000 --- a/rt/t/web/dashboards-groups.t +++ /dev/null @@ -1,102 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 40; -my ($baseurl, $m) = RT::Test->started_ok; - -my $url = $m->rt_base_url; - -# create user and queue {{{ -my $user_obj = RT::User->new($RT::SystemUser); -my ($ok, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com'); -ok($ok, 'ACL test user creation'); -$user_obj->SetName('customer'); -$user_obj->SetPrivileged(1); -($ok, $msg) = $user_obj->SetPassword('customer'); -$user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf'); -my $currentuser = RT::CurrentUser->new($user_obj); - -my $queue = RT::Queue->new($RT::SystemUser); -$queue->Create(Name => 'SearchQueue'.$$); - -$user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue) - for qw/SeeQueue ShowTicket OwnTicket/; - -# grant the user all these rights so we can make sure that the group rights -# are checked and not these as well -$user_obj->PrincipalObj->GrantRight(Right => $_, Object => $RT::System) - for qw/SubscribeDashboard CreateOwnDashboard SeeOwnDashboard ModifyOwnDashboard DeleteOwnDashboard/; -# }}} -# create and test groups (outer < inner < user) {{{ -my $inner_group = RT::Group->new($RT::SystemUser); -($ok, $msg) = $inner_group->CreateUserDefinedGroup(Name => "inner", Description => "inner group"); -ok($ok, "created inner group: $msg"); - -my $outer_group = RT::Group->new($RT::SystemUser); -($ok, $msg) = $outer_group->CreateUserDefinedGroup(Name => "outer", Description => "outer group"); -ok($ok, "created outer group: $msg"); - -($ok, $msg) = $outer_group->AddMember($inner_group->PrincipalId); -ok($ok, "added inner as a member of outer: $msg"); - -($ok, $msg) = $inner_group->AddMember($user_obj->PrincipalId); -ok($ok, "added user as a member of member: $msg"); - -ok($outer_group->HasMember($inner_group->PrincipalId), "outer has inner"); -ok(!$outer_group->HasMember($user_obj->PrincipalId), "outer doesn't have user directly"); -ok($outer_group->HasMemberRecursively($inner_group->PrincipalId), "outer has inner recursively"); -ok($outer_group->HasMemberRecursively($user_obj->PrincipalId), "outer has user recursively"); - -ok(!$inner_group->HasMember($outer_group->PrincipalId), "inner doesn't have outer"); -ok($inner_group->HasMember($user_obj->PrincipalId), "inner has user"); -ok(!$inner_group->HasMemberRecursively($outer_group->PrincipalId), "inner doesn't have outer, even recursively"); -ok($inner_group->HasMemberRecursively($user_obj->PrincipalId), "inner has user recursively"); -# }}} - -ok $m->login(customer => 'customer'), "logged in"; - -$m->get_ok("$url/Dashboards"); - -$m->follow_link_ok({text => "New"}); -$m->form_name('ModifyDashboard'); -is_deeply([$m->current_form->find_input('Privacy')->possible_values], ["RT::User-" . $user_obj->Id], "the only selectable privacy is user"); -$m->content_lacks('Delete', "Delete button hidden because we are creating"); - -$user_obj->PrincipalObj->GrantRight(Right => 'CreateGroupDashboard', Object => $inner_group); - -$m->follow_link_ok({text => "New"}); -$m->form_name('ModifyDashboard'); -is_deeply([$m->current_form->find_input('Privacy')->possible_values], ["RT::User-" . $user_obj->Id, "RT::Group-" . $inner_group->Id], "the only selectable privacies are user and inner group (not outer group)"); -$m->field("Name" => 'inner dashboard'); -$m->field("Privacy" => "RT::Group-" . $inner_group->Id); -$m->content_lacks('Delete', "Delete button hidden because we are creating"); - -$m->click_button(value => 'Create'); -$m->content_lacks("No permission to create dashboards"); -$m->content_contains("Saved dashboard inner dashboard"); -$m->content_lacks('Delete', "Delete button hidden because we lack DeleteDashboard"); - -my $dashboard = RT::Dashboard->new($currentuser); -my ($id) = $m->content =~ /name="id" value="(\d+)"/; -ok($id, "got an ID, $id"); -$dashboard->LoadById($id); -is($dashboard->Name, "inner dashboard"); - -is($dashboard->Privacy, 'RT::Group-' . $inner_group->Id, "correct privacy"); -is($dashboard->PossibleHiddenSearches, 0, "all searches are visible"); - -$m->no_warnings_ok; - -$m->get_ok("/Dashboards/Modify.html?id=$id"); -$m->content_lacks("inner dashboard", "no SeeGroupDashboard right"); -$m->content_contains("Permission denied"); - -$m->warning_like(qr/Permission denied/, "got a permission denied warning"); - -$user_obj->PrincipalObj->GrantRight(Right => 'SeeGroupDashboard', Object => $inner_group); -$m->get_ok("/Dashboards/Modify.html?id=$id"); -$m->content_contains("inner dashboard", "we now have SeeGroupDashboard right"); -$m->content_lacks("Permission denied"); - -$m->content_contains('Subscription', "Subscription link not hidden because we have SubscribeDashboard"); - diff --git a/rt/t/web/dashboards-permissions.t b/rt/t/web/dashboards-permissions.t deleted file mode 100644 index 1724042..0000000 --- a/rt/t/web/dashboards-permissions.t +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use RT::Test tests => 7; -my ($baseurl, $m) = RT::Test->started_ok; - -my $url = $m->rt_base_url; - -# create user and queue {{{ -my $user_obj = RT::User->new($RT::SystemUser); -my ($ok, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com'); -ok($ok, 'ACL test user creation'); -$user_obj->SetName('customer'); -$user_obj->SetPrivileged(1); -($ok, $msg) = $user_obj->SetPassword('customer'); -$user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf'); -my $currentuser = RT::CurrentUser->new($user_obj); - -my $queue = RT::Queue->new($RT::SystemUser); -$queue->Create(Name => 'SearchQueue'.$$); - -$user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue) - for qw/SeeQueue ShowTicket OwnTicket/; - -$user_obj->PrincipalObj->GrantRight(Right => $_, Object => $RT::System) - for qw/SubscribeDashboard CreateOwnDashboard SeeOwnDashboard ModifyOwnDashboard DeleteOwnDashboard/; -# }}} - -ok $m->login(customer => 'customer'), "logged in"; - -$m->get_ok("$url/Dashboards"); - -$m->follow_link_ok({text => "New"}); -$m->form_name('ModifyDashboard'); -is_deeply([$m->current_form->find_input('Privacy')->possible_values], ["RT::User-" . $user_obj->Id], "the only selectable privacy is user"); -$m->content_lacks('Delete', "Delete button hidden because we are creating"); - diff --git a/rt/t/web/dashboards.t b/rt/t/web/dashboards.t deleted file mode 100644 index a816eb3..0000000 --- a/rt/t/web/dashboards.t +++ /dev/null @@ -1,250 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -use RT::Test tests => 109; -my ($baseurl, $m) = RT::Test->started_ok; - -my $url = $m->rt_base_url; - -my $user_obj = RT::User->new($RT::SystemUser); -my ($ret, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com'); -ok($ret, 'ACL test user creation'); -$user_obj->SetName('customer'); -$user_obj->SetPrivileged(1); -($ret, $msg) = $user_obj->SetPassword('customer'); -$user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf'); -my $currentuser = RT::CurrentUser->new($user_obj); - -my $onlooker = RT::User->new($RT::SystemUser); -($ret, $msg) = $onlooker->LoadOrCreateByEmail('onlooker@example.com'); -ok($ret, 'ACL test user creation'); -$onlooker->SetName('onlooker'); -$onlooker->SetPrivileged(1); -($ret, $msg) = $onlooker->SetPassword('onlooker'); - -my $queue = RT::Queue->new($RT::SystemUser); -$queue->Create(Name => 'SearchQueue'.$$); - -for my $user ($user_obj, $onlooker) { - $user->PrincipalObj->GrantRight(Right => 'ModifySelf'); - for my $right (qw/SeeQueue ShowTicket OwnTicket/) { - $user->PrincipalObj->GrantRight(Right => $right, Object => $queue); - } -} - -ok $m->login(customer => 'customer'), "logged in"; - -$m->get_ok($url."Dashboards/index.html"); -$m->content_lacks('<a href="/Dashboards/Modify.html?Create=1">New</a>', - "No 'new dashboard' link because we have no CreateOwnDashboard"); - -$m->no_warnings_ok; - -$m->get_ok($url."Dashboards/Modify.html?Create=1"); -$m->content_contains("Permission denied"); -$m->content_lacks("Save Changes"); - -$m->warning_like(qr/Permission denied/, "got a permission denied warning"); - -$user_obj->PrincipalObj->GrantRight(Right => 'ModifyOwnDashboard', Object => $RT::System); - -# Modify itself is no longer good enough, you need Create -$m->get_ok($url."Dashboards/Modify.html?Create=1"); -$m->content_contains("Permission denied"); -$m->content_lacks("Save Changes"); - -$m->warning_like(qr/Permission denied/, "got a permission denied warning"); - -$user_obj->PrincipalObj->GrantRight(Right => 'CreateOwnDashboard', Object => $RT::System); - -$m->get_ok($url."Dashboards/Modify.html?Create=1"); -$m->content_lacks("Permission denied"); -$m->content_contains("Create"); - -$m->get_ok($url."Dashboards/index.html"); -$m->content_contains("New", "'New' link because we now have ModifyOwnDashboard"); - -$m->follow_link_ok({text => "New"}); -$m->form_name('ModifyDashboard'); -$m->field("Name" => 'different dashboard'); -$m->content_lacks('Delete', "Delete button hidden because we are creating"); -$m->click_button(value => 'Create'); -$m->content_lacks("No permission to create dashboards"); -$m->content_contains("Saved dashboard different dashboard"); -$m->content_lacks('Delete', "Delete button hidden because we lack DeleteOwnDashboard"); - -$m->get_ok($url."Dashboards/index.html"); -$m->content_lacks("different dashboard", "we lack SeeOwnDashboard"); - -$user_obj->PrincipalObj->GrantRight(Right => 'SeeOwnDashboard', Object => $RT::System); - -$m->get_ok($url."Dashboards/index.html"); -$m->content_contains("different dashboard", "we now have SeeOwnDashboard"); -$m->content_lacks("Permission denied"); - -$m->follow_link_ok({text => "different dashboard"}); -$m->content_contains("Basics"); -$m->content_contains("Queries"); -$m->content_lacks("Subscription", "we don't have the SubscribeDashboard right"); - -$m->follow_link_ok({text => "Basics"}); -$m->content_contains("Modify the dashboard different dashboard"); - -$m->follow_link_ok({text => "Queries"}); -$m->content_contains("Modify the queries of dashboard different dashboard"); -$m->form_name('Dashboard-Searches-body'); -$m->field('Searches-body-Available' => ["search-2-RT::System-1"]); -$m->click_button(name => 'add'); -$m->content_contains("Dashboard updated"); - -my $dashboard = RT::Dashboard->new($currentuser); -my ($id) = $m->content =~ /name="id" value="(\d+)"/; -ok($id, "got an ID, $id"); -$dashboard->LoadById($id); -is($dashboard->Name, "different dashboard"); - -is($dashboard->Privacy, 'RT::User-' . $user_obj->Id, "correct privacy"); -is($dashboard->PossibleHiddenSearches, 0, "all searches are visible"); - -my @searches = $dashboard->Searches; -is(@searches, 1, "one saved search in the dashboard"); -like($searches[0]->Name, qr/newest unowned tickets/, "correct search name"); - -$m->form_name('Dashboard-Searches-body'); -$m->field('Searches-body-Available' => ["search-1-RT::System-1"]); -$m->click_button(name => 'add'); -$m->content_contains("Dashboard updated"); - -RT::Record->FlushCache if RT::Record->can('FlushCache'); -$dashboard = RT::Dashboard->new($currentuser); -$dashboard->LoadById($id); - -@searches = $dashboard->Searches; -is(@searches, 2, "two saved searches in the dashboard"); -like($searches[0]->Name, qr/newest unowned tickets/, "correct existing search name"); -like($searches[1]->Name, qr/highest priority tickets I own/, "correct new search name"); - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Create( - Queue => $queue->Id, - Requestor => [ $user_obj->Name ], - Owner => $user_obj, - Subject => 'dashboard test', -); - -$m->follow_link_ok({text => 'different dashboard'}); -$m->content_contains("50 highest priority tickets I own"); -$m->content_contains("50 newest unowned tickets"); -$m->content_lacks("Bookmarked Tickets"); -$m->content_contains("dashboard test", "ticket subject"); - -$m->get_ok("/Dashboards/$id/This fragment left intentionally blank"); -$m->content_contains("50 highest priority tickets I own"); -$m->content_contains("50 newest unowned tickets"); -$m->content_lacks("Bookmarked Tickets"); -$m->content_contains("dashboard test", "ticket subject"); - -$m->get_ok("/Dashboards/Subscription.html?DashboardId=$id"); -$m->form_name('SubscribeDashboard'); -$m->click_button(name => 'Save'); -$m->content_contains("Permission denied"); -$m->warning_like(qr/Unable to subscribe to dashboard.*Permission denied/, "got a permission denied warning when trying to subscribe to a dashboard"); - -RT::Record->FlushCache if RT::Record->can('FlushCache'); -is($user_obj->Attributes->Named('Subscription'), 0, "no subscriptions"); - -$user_obj->PrincipalObj->GrantRight(Right => 'SubscribeDashboard', Object => $RT::System); - -$m->get_ok("/Dashboards/Modify.html?id=$id"); -$m->follow_link_ok({text => "Subscription"}); -$m->content_contains("Subscribe to dashboard different dashboard"); -$m->content_contains("Unowned Tickets"); -$m->content_contains("My Tickets"); -$m->content_lacks("Bookmarked Tickets", "only dashboard queries show up"); - -$m->form_name('SubscribeDashboard'); -$m->click_button(name => 'Save'); -$m->content_lacks("Permission denied"); -$m->content_contains("Subscribed to dashboard different dashboard"); - -RT::Record->FlushCache if RT::Record->can('FlushCache'); -TODO: { - local $TODO = "some kind of caching is still happening (it works if I remove the check above)"; - is($user_obj->Attributes->Named('Subscription'), 1, "we have a subscription"); -}; - -$m->get_ok("/Dashboards/Modify.html?id=$id"); -$m->follow_link_ok({text => "Subscription"}); -$m->content_contains("Modify the subscription to dashboard different dashboard"); - -$m->get_ok("/Dashboards/Modify.html?id=$id&Delete=1"); -$m->content_contains("Permission denied", "unable to delete dashboard because we lack DeleteOwnDashboard"); - -$m->warning_like(qr/Couldn't delete dashboard.*Permission denied/, "got a permission denied warning when trying to delete the dashboard"); - -$user_obj->PrincipalObj->GrantRight(Right => 'DeleteOwnDashboard', Object => $RT::System); - -$m->get_ok("/Dashboards/Modify.html?id=$id"); -$m->content_contains('Delete', "Delete button shows because we have DeleteOwnDashboard"); - -$m->form_name('ModifyDashboard'); -$m->click_button(name => 'Delete'); -$m->content_contains("Deleted dashboard $id"); - -$m->get("/Dashboards/Modify.html?id=$id"); -$m->content_lacks("different dashboard", "dashboard was deleted"); -$m->content_contains("Failed to load dashboard $id"); - -$m->warning_like(qr/Failed to load dashboard.*Couldn't find row/, "the dashboard was deleted"); - -$user_obj->PrincipalObj->GrantRight(Right => "SuperUser", Object => $RT::System); - -# now test that we warn about searches others can't see -# first create a personal saved search... -$m->get_ok($url."Search/Build.html"); -$m->follow_link_ok({text => 'Advanced'}); -$m->form_with_fields('Query'); -$m->field(Query => "id > 0"); -$m->submit; - -$m->form_with_fields('SavedSearchDescription'); -$m->field(SavedSearchDescription => "personal search"); -$m->click_button(name => "SavedSearchSave"); - -# then the system-wide dashboard -$m->get_ok($url."Dashboards/Modify.html?Create=1"); - -$m->form_name('ModifyDashboard'); -$m->field("Name" => 'system dashboard'); -$m->field("Privacy" => 'RT::System-1'); -$m->content_lacks('Delete', "Delete button hidden because we are creating"); -$m->click_button(value => 'Create'); -$m->content_lacks("No permission to create dashboards"); -$m->content_contains("Saved dashboard system dashboard"); - -$m->follow_link_ok({text => 'Queries'}); - -$m->form_name('Dashboard-Searches-body'); -$m->field('Searches-body-Available' => ['search-7-RT::User-22']); # XXX: :( :( -$m->click_button(name => 'add'); -$m->content_contains("Dashboard updated"); - -$m->content_contains("The following queries may not be visible to all users who can see this dashboard."); - -$m->follow_link_ok({text => 'system dashboard'}); -$m->content_contains("personal search", "saved search shows up"); -$m->content_contains("dashboard test", "matched ticket shows up"); - -# make sure the onlooker can't see the search... -$onlooker->PrincipalObj->GrantRight(Right => 'SeeDashboard', Object => $RT::System); - -my $omech = RT::Test::Web->new; -ok $omech->login(onlooker => 'onlooker'), "logged in"; -$omech->get_ok("/Dashboards"); - -$omech->follow_link_ok({text => 'system dashboard'}); -$omech->content_lacks("personal search", "saved search doesn't show up"); -$omech->content_lacks("dashboard test", "matched ticket doesn't show up"); - -$m->warning_like(qr/User .* tried to load container user /, "can't see other users' personal searches"); - diff --git a/rt/t/web/gnupg-outgoing.t b/rt/t/web/gnupg-outgoing.t deleted file mode 100644 index a46833c..0000000 --- a/rt/t/web/gnupg-outgoing.t +++ /dev/null @@ -1,363 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -use RT::Test tests => 492; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use RT::Action::SendEmail; -use File::Temp qw(tempdir); - -RT::Test->set_mail_catcher; - -use_ok('RT::Crypt::GnuPG'); - -RT->Config->Set( GnuPG => - Enable => 1, - OutgoingMessagesFormat => 'RFC', -); - -RT->Config->Set( GnuPGOptions => - homedir => scalar tempdir( CLEANUP => 1 ), - passphrase => 'rt-test', - 'no-permission-warning' => undef, - 'trust-model' => 'always', -); -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -RT::Test->import_gnupg_key('rt-recipient@example.com'); -RT::Test->import_gnupg_key('rt-test@example.com', 'public'); - -my $queue = RT::Test->load_or_create_queue( - Name => 'Regression', - CorrespondAddress => 'rt-recipient@example.com', - CommentAddress => 'rt-recipient@example.com', -); -ok $queue && $queue->id, 'loaded or created queue'; - -RT::Test->set_rights( - Principal => 'Everyone', - Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'], -); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in'; - -my @variants = ( - {}, - { Sign => 1 }, - { Encrypt => 1 }, - { Sign => 1, Encrypt => 1 }, -); - -# collect emails -my %mail = ( - plain => [], - signed => [], - encrypted => [], - signed_encrypted => [], -); - -diag "check in read-only mode that queue's props influence create/update ticket pages" if $ENV{TEST_VERBOSE}; -{ - foreach my $variant ( @variants ) { - set_queue_crypt_options( %$variant ); - $m->goto_create_ticket( $queue ); - $m->form_name('TicketCreate'); - if ( $variant->{'Encrypt'} ) { - ok $m->value('Encrypt', 2), "encrypt tick box is checked"; - } else { - ok !$m->value('Encrypt', 2), "encrypt tick box is unchecked"; - } - if ( $variant->{'Sign'} ) { - ok $m->value('Sign', 2), "sign tick box is checked"; - } else { - ok !$m->value('Sign', 2), "sign tick box is unchecked"; - } - } - - # to avoid encryption/signing during create - set_queue_crypt_options(); - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - my ($id) = $ticket->Create( - Subject => 'test', - Queue => $queue->id, - Requestor => 'rt-test@example.com', - ); - ok $id, 'ticket created'; - - foreach my $variant ( @variants ) { - set_queue_crypt_options( %$variant ); - $m->goto_ticket( $id ); - $m->follow_link_ok({text => 'Reply'}, '-> reply'); - $m->form_number(3); - if ( $variant->{'Encrypt'} ) { - ok $m->value('Encrypt', 2), "encrypt tick box is checked"; - } else { - ok !$m->value('Encrypt', 2), "encrypt tick box is unchecked"; - } - if ( $variant->{'Sign'} ) { - ok $m->value('Sign', 2), "sign tick box is checked"; - } else { - ok !$m->value('Sign', 2), "sign tick box is unchecked"; - } - } -} - -# create a ticket for each combination -foreach my $queue_set ( @variants ) { - set_queue_crypt_options( %$queue_set ); - foreach my $ticket_set ( @variants ) { - create_a_ticket( %$ticket_set ); - } -} - -my $tid; -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - ($tid) = $ticket->Create( - Subject => 'test', - Queue => $queue->id, - Requestor => 'rt-test@example.com', - ); - ok $tid, 'ticket created'; -} - -# again for each combination add a reply message -foreach my $queue_set ( @variants ) { - set_queue_crypt_options( %$queue_set ); - foreach my $ticket_set ( @variants ) { - update_ticket( $tid, %$ticket_set ); - } -} - - -# ------------------------------------------------------------------------------ -# now delete all keys from the keyring and put back secret/pub pair for rt-test@ -# and only public key for rt-recipient@ so we can verify signatures and decrypt -# like we are on another side recieve emails -# ------------------------------------------------------------------------------ - -unlink $_ foreach glob( RT->Config->Get('GnuPGOptions')->{'homedir'} ."/*" ); -RT::Test->import_gnupg_key('rt-recipient@example.com', 'public'); -RT::Test->import_gnupg_key('rt-test@example.com'); - -$queue = RT::Test->load_or_create_queue( - Name => 'Regression', - CorrespondAddress => 'rt-test@example.com', - CommentAddress => 'rt-test@example.com', -); -ok $queue && $queue->id, 'changed props of the queue'; - -foreach my $mail ( map cleanup_headers($_), @{ $mail{'plain'} } ) { - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - ok !$msg->GetHeader('X-RT-Privacy'), "RT's outgoing mail has no crypto"; - is $msg->GetHeader('X-RT-Incoming-Encryption'), 'Not encrypted', - "RT's outgoing mail looks not encrypted"; - ok !$msg->GetHeader('X-RT-Incoming-Signature'), - "RT's outgoing mail looks not signed"; - - like $msg->Content, qr/Some content/, "RT's mail includes copy of ticket text"; -} - -foreach my $mail ( map cleanup_headers($_), @{ $mail{'signed'} } ) { - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is $msg->GetHeader('X-RT-Privacy'), 'PGP', - "RT's outgoing mail has crypto"; - is $msg->GetHeader('X-RT-Incoming-Encryption'), 'Not encrypted', - "RT's outgoing mail looks not encrypted"; - like $msg->GetHeader('X-RT-Incoming-Signature'), - qr/<rt-recipient\@example.com>/, - "RT's outgoing mail looks signed"; - - like $attachments[0]->Content, qr/Some content/, - "RT's mail includes copy of ticket text"; -} - -foreach my $mail ( map cleanup_headers($_), @{ $mail{'encrypted'} } ) { - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is $msg->GetHeader('X-RT-Privacy'), 'PGP', - "RT's outgoing mail has crypto"; - is $msg->GetHeader('X-RT-Incoming-Encryption'), 'Success', - "RT's outgoing mail looks encrypted"; - ok !$msg->GetHeader('X-RT-Incoming-Signature'), - "RT's outgoing mail looks not signed"; - - like $attachments[0]->Content, qr/Some content/, - "RT's mail includes copy of ticket text"; -} - -foreach my $mail ( map cleanup_headers($_), @{ $mail{'signed_encrypted'} } ) { - my ($status, $id) = RT::Test->send_via_mailgate($mail); - is ($status >> 8, 0, "The mail gateway exited normally"); - ok ($id, "got id of a newly created ticket - $id"); - - my $tick = RT::Ticket->new( $RT::SystemUser ); - $tick->Load( $id ); - ok ($tick->id, "loaded ticket #$id"); - - my $txn = $tick->Transactions->First; - my ($msg, @attachments) = @{$txn->Attachments->ItemsArrayRef}; - - is $msg->GetHeader('X-RT-Privacy'), 'PGP', - "RT's outgoing mail has crypto"; - is $msg->GetHeader('X-RT-Incoming-Encryption'), 'Success', - "RT's outgoing mail looks encrypted"; - like $msg->GetHeader('X-RT-Incoming-Signature'), - qr/<rt-recipient\@example.com>/, - "RT's outgoing mail looks signed"; - - like $attachments[0]->Content, qr/Some content/, - "RT's mail includes copy of ticket text"; -} - -sub create_a_ticket { - my %args = (@_); - - RT::Test->clean_caught_mails; - - $m->goto_create_ticket( $queue ); - $m->form_name('TicketCreate'); - $m->field( Subject => 'test' ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - - foreach ( qw(Sign Encrypt) ) { - if ( $args{ $_ } ) { - $m->tick( $_ => 1 ); - } else { - $m->untick( $_ => 1 ); - } - } - - $m->submit; - is $m->status, 200, "request successful"; - - unlike($m->content, qr/unable to sign outgoing email messages/); - - $m->get_ok('/'); # ensure that the mail has been processed - - my @mail = RT::Test->fetch_caught_mails; - check_text_emails( \%args, @mail ); -} - -sub update_ticket { - my $tid = shift; - my %args = (@_); - - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->field( UpdateContent => 'Some content' ); - - foreach ( qw(Sign Encrypt) ) { - if ( $args{ $_ } ) { - $m->tick( $_ => 1 ); - } else { - $m->untick( $_ => 1 ); - } - } - - $m->click('SubmitTicket'); - is $m->status, 200, "request successful"; - $m->content_like(qr/Message recorded/, 'Message recorded') or diag $m->content; - - $m->get_ok('/'); # ensure that the mail has been processed - - my @mail = RT::Test->fetch_caught_mails; - check_text_emails( \%args, @mail ); -} - -sub check_text_emails { - my %args = %{ shift @_ }; - my @mail = @_; - - ok scalar @mail, "got some mail"; - for my $mail (@mail) { - if ( $args{'Encrypt'} ) { - unlike $mail, qr/Some content/, "outgoing email was encrypted"; - } else { - like $mail, qr/Some content/, "outgoing email was not encrypted"; - } - if ( $args{'Sign'} && $args{'Encrypt'} ) { - like $mail, qr/BEGIN PGP MESSAGE/, 'outgoing email was signed'; - } elsif ( $args{'Sign'} ) { - like $mail, qr/SIGNATURE/, 'outgoing email was signed'; - } else { - unlike $mail, qr/SIGNATURE/, 'outgoing email was not signed'; - } - } - if ( $args{'Sign'} && $args{'Encrypt'} ) { - push @{ $mail{'signed_encrypted'} }, @mail; - } elsif ( $args{'Sign'} ) { - push @{ $mail{'signed'} }, @mail; - } elsif ( $args{'Encrypt'} ) { - push @{ $mail{'encrypted'} }, @mail; - } else { - push @{ $mail{'plain'} }, @mail; - } -} - -sub cleanup_headers { - my $mail = shift; - # strip id from subject to create new ticket - $mail =~ s/^(Subject:)\s*\[.*?\s+#\d+\]\s*/$1 /m; - # strip several headers - foreach my $field ( qw(Message-ID X-RT-Original-Encoding RT-Originator RT-Ticket X-RT-Loop-Prevention) ) { - $mail =~ s/^$field:.*?\n(?! |\t)//gmsi; - } - return $mail; -} - -sub set_queue_crypt_options { - my %args = @_; - $m->get_ok("/Admin/Queues/Modify.html?id=". $queue->id); - $m->form_with_fields('Sign', 'Encrypt'); - foreach my $opt ('Sign', 'Encrypt') { - if ( $args{$opt} ) { - $m->tick($opt => 1); - } else { - $m->untick($opt => 1); - } - } - $m->submit; -} - diff --git a/rt/t/web/gnupg-select-keys-on-create.t b/rt/t/web/gnupg-select-keys-on-create.t deleted file mode 100644 index deee6b2..0000000 --- a/rt/t/web/gnupg-select-keys-on-create.t +++ /dev/null @@ -1,325 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -use RT::Test tests => 60; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use RT::Action::SendEmail; -use File::Temp qw(tempdir); - -RT::Test->set_mail_catcher; - -use_ok('RT::Crypt::GnuPG'); - -RT->Config->Set( GnuPG => - Enable => 1, - OutgoingMessagesFormat => 'RFC', -); - -RT->Config->Set( GnuPGOptions => - homedir => scalar tempdir( CLEANUP => 0 ), - passphrase => 'rt-test', - 'no-permission-warning' => undef, -); -diag "GnuPG --homedir ". RT->Config->Get('GnuPGOptions')->{'homedir'} if $ENV{TEST_VERBOSE}; - -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -my $queue = RT::Test->load_or_create_queue( - Name => 'Regression', - CorrespondAddress => 'rt-recipient@example.com', - CommentAddress => 'rt-recipient@example.com', -); -ok $queue && $queue->id, 'loaded or created queue'; - -RT::Test->set_rights( - Principal => 'Everyone', - Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'], -); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in'; - -diag "check that signing doesn't work if there is no key" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Sign => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->submit; - $m->content_like( - qr/unable to sign outgoing email messages/i, - 'problems with passphrase' - ); - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -{ - RT::Test->import_gnupg_key('rt-recipient@example.com'); - RT::Test->trust_gnupg_key('rt-recipient@example.com'); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-recipient@example.com'); - is $res{'info'}[0]{'TrustTerse'}, 'ultimate', 'ultimately trusted key'; -} - -diag "check that things don't work if there is no key" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There is no key suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok !$form->find_input( 'UseKey-rt-test@example.com' ), 'no key selector'; - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -diag "import first key of rt-test\@example.com" if $ENV{TEST_VERBOSE}; -my $fpr1 = ''; -{ - RT::Test->import_gnupg_key('rt-test@example.com', 'public'); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test@example.com'); - is $res{'info'}[0]{'TrustLevel'}, 0, 'is not trusted key'; - $fpr1 = $res{'info'}[0]{'Fingerprint'}; -} - -diag "check that things still doesn't work if key is not trusted" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There is one suitable key, but trust level is not set/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 1, 'one option'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/Selected key either is not trusted/i, - 'problems with keys' - ); - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -diag "import a second key of rt-test\@example.com" if $ENV{TEST_VERBOSE}; -my $fpr2 = ''; -{ - RT::Test->import_gnupg_key('rt-test@example.com.2', 'public'); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test@example.com'); - is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key'; - $fpr2 = $res{'info'}[2]{'Fingerprint'}; -} - -diag "check that things still doesn't work if two keys are not trusted" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/Selected key either is not trusted/i, - 'problems with keys' - ); - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -{ - RT::Test->lsign_gnupg_key( $fpr1 ); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test@example.com'); - ok $res{'info'}[0]{'TrustLevel'} > 0, 'trusted key'; - is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key'; -} - -diag "check that we see key selector even if only one key is trusted but there are more keys"; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -diag "check that key selector works and we can select trusted key"; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->submit; - $m->content_like( qr/Ticket \d+ created in queue/i, 'ticket created' ); - - my @mail = RT::Test->fetch_caught_mails; - ok @mail, 'there are some emails'; - check_text_emails( { Encrypt => 1 }, @mail ); -} - -diag "check encrypting of attachments"; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_create_ticket( $queue ), "UI -> create ticket"; - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( Requestors => 'rt-test@example.com' ); - $m->field( Content => 'Some content' ); - $m->field( Attach => $0 ); - $m->submit; - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->submit; - $m->content_like( qr/Ticket \d+ created in queue/i, 'ticket created' ); - - my @mail = RT::Test->fetch_caught_mails; - ok @mail, 'there are some emails'; - check_text_emails( { Encrypt => 1, Attachment => 1 }, @mail ); -} - -sub check_text_emails { - my %args = %{ shift @_ }; - my @mail = @_; - - ok scalar @mail, "got some mail"; - for my $mail (@mail) { - for my $type ('email', 'attachment') { - next if $type eq 'attachment' && !$args{'Attachment'}; - - my $content = $type eq 'email' - ? "Some content" - : "Attachment content"; - - if ( $args{'Encrypt'} ) { - unlike $mail, qr/$content/, "outgoing $type was encrypted"; - } else { - like $mail, qr/$content/, "outgoing $type was not encrypted"; - } - - next unless $type eq 'email'; - - if ( $args{'Sign'} && $args{'Encrypt'} ) { - like $mail, qr/BEGIN PGP MESSAGE/, 'outgoing email was signed'; - } elsif ( $args{'Sign'} ) { - like $mail, qr/SIGNATURE/, 'outgoing email was signed'; - } else { - unlike $mail, qr/SIGNATURE/, 'outgoing email was not signed'; - } - } - } -} - diff --git a/rt/t/web/gnupg-select-keys-on-update.t b/rt/t/web/gnupg-select-keys-on-update.t deleted file mode 100644 index 76817dd..0000000 --- a/rt/t/web/gnupg-select-keys-on-update.t +++ /dev/null @@ -1,344 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -use RT::Test tests => 68; - -plan skip_all => 'GnuPG required.' - unless eval 'use GnuPG::Interface; 1'; -plan skip_all => 'gpg executable is required.' - unless RT::Test->find_executable('gpg'); - - -use RT::Action::SendEmail; -use File::Temp qw(tempdir); - -RT::Test->set_mail_catcher; - -use_ok('RT::Crypt::GnuPG'); - -RT->Config->Set( GnuPG => - Enable => 1, - OutgoingMessagesFormat => 'RFC', -); - -RT->Config->Set( GnuPGOptions => - homedir => scalar tempdir( CLEANUP => 0 ), - passphrase => 'rt-test', - 'no-permission-warning' => undef, -); -diag "GnuPG --homedir ". RT->Config->Get('GnuPGOptions')->{'homedir'} if $ENV{TEST_VERBOSE}; - -RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' ); - -my $queue = RT::Test->load_or_create_queue( - Name => 'Regression', - CorrespondAddress => 'rt-recipient@example.com', - CommentAddress => 'rt-recipient@example.com', -); -ok $queue && $queue->id, 'loaded or created queue'; - -RT::Test->set_rights( - Principal => 'Everyone', - Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'], -); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in'; - - -my $tid; -{ - my $ticket = RT::Ticket->new( $RT::SystemUser ); - ($tid) = $ticket->Create( - Subject => 'test', - Queue => $queue->id, - ); - ok $tid, 'ticket created'; -} - -diag "check that signing doesn't work if there is no key" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Sign => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->click('SubmitTicket'); - $m->content_like( - qr/unable to sign outgoing email messages/i, - 'problems with passphrase' - ); - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -{ - RT::Test->import_gnupg_key('rt-recipient@example.com'); - RT::Test->trust_gnupg_key('rt-recipient@example.com'); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-recipient@example.com'); - is $res{'info'}[0]{'TrustTerse'}, 'ultimate', 'ultimately trusted key'; -} - -diag "check that things don't work if there is no key" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There is no key suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok !$form->find_input( 'UseKey-rt-test@example.com' ), 'no key selector'; - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - - -diag "import first key of rt-test\@example.com" if $ENV{TEST_VERBOSE}; -my $fpr1 = ''; -{ - RT::Test->import_gnupg_key('rt-test@example.com', 'public'); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test@example.com'); - is $res{'info'}[0]{'TrustLevel'}, 0, 'is not trusted key'; - $fpr1 = $res{'info'}[0]{'Fingerprint'}; -} - -diag "check that things still doesn't work if key is not trusted" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There is one suitable key, but trust level is not set/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 1, 'one option'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/Selected key either is not trusted/i, - 'problems with keys' - ); - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -diag "import a second key of rt-test\@example.com" if $ENV{TEST_VERBOSE}; -my $fpr2 = ''; -{ - RT::Test->import_gnupg_key('rt-test@example.com.2', 'public'); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test@example.com'); - is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key'; - $fpr2 = $res{'info'}[2]{'Fingerprint'}; -} - -diag "check that things still doesn't work if two keys are not trusted" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/Selected key either is not trusted/i, - 'problems with keys' - ); - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -{ - RT::Test->lsign_gnupg_key( $fpr1 ); - my %res = RT::Crypt::GnuPG::GetKeysInfo('rt-test@example.com'); - ok $res{'info'}[0]{'TrustLevel'} > 0, 'trusted key'; - is $res{'info'}[1]{'TrustLevel'}, 0, 'is not trusted key'; -} - -diag "check that we see key selector even if only one key is trusted but there are more keys" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - my @mail = RT::Test->fetch_caught_mails; - ok !@mail, 'there are no outgoing emails'; -} - -diag "check that key selector works and we can select trusted key" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->click('SubmitTicket'); - $m->content_like( qr/Message recorded/i, 'Message recorded' ); - - my @mail = RT::Test->fetch_caught_mails; - ok @mail, 'there are some emails'; - check_text_emails( { Encrypt => 1 }, @mail ); -} - -diag "check encrypting of attachments" if $ENV{TEST_VERBOSE}; -{ - RT::Test->clean_caught_mails; - - ok $m->goto_ticket( $tid ), "UI -> ticket #$tid"; - $m->follow_link_ok( { text => 'Reply' }, 'ticket -> reply' ); - $m->form_number(3); - $m->tick( Encrypt => 1 ); - $m->field( UpdateCc => 'rt-test@example.com' ); - $m->field( UpdateContent => 'Some content' ); - $m->field( Attach => $0 ); - $m->click('SubmitTicket'); - $m->content_like( - qr/You are going to encrypt outgoing email messages/i, - 'problems with keys' - ); - $m->content_like( - qr/There are several keys suitable for encryption/i, - 'problems with keys' - ); - - my $form = $m->form_number(3); - ok my $input = $form->find_input( 'UseKey-rt-test@example.com' ), 'found key selector'; - is scalar $input->possible_values, 2, 'two options'; - - $m->select( 'UseKey-rt-test@example.com' => $fpr1 ); - $m->click('SubmitTicket'); - $m->content_like( qr/Message recorded/i, 'Message recorded' ); - - my @mail = RT::Test->fetch_caught_mails; - ok @mail, 'there are some emails'; - check_text_emails( { Encrypt => 1, Attachment => 1 }, @mail ); -} - -sub check_text_emails { - my %args = %{ shift @_ }; - my @mail = @_; - - ok scalar @mail, "got some mail"; - for my $mail (@mail) { - for my $type ('email', 'attachment') { - next if $type eq 'attachment' && !$args{'Attachment'}; - - my $content = $type eq 'email' - ? "Some content" - : "Attachment content"; - - if ( $args{'Encrypt'} ) { - unlike $mail, qr/$content/, "outgoing $type was encrypted"; - } else { - like $mail, qr/$content/, "outgoing $type was not encrypted"; - } - - next unless $type eq 'email'; - - if ( $args{'Sign'} && $args{'Encrypt'} ) { - like $mail, qr/BEGIN PGP MESSAGE/, 'outgoing email was signed'; - } elsif ( $args{'Sign'} ) { - like $mail, qr/SIGNATURE/, 'outgoing email was signed'; - } else { - unlike $mail, qr/SIGNATURE/, 'outgoing email was not signed'; - } - } - } -} - diff --git a/rt/t/web/offline_messages_utf8.t b/rt/t/web/offline_messages_utf8.t deleted file mode 100644 index c32e0bc..0000000 --- a/rt/t/web/offline_messages_utf8.t +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 6; -use File::Temp qw/tempfile/; -use Encode; -use RT::Ticket; - -my ( $url, $m ) = RT::Test->started_ok; -$m->default_header( 'Accept-Language' => "zh-cn" ); -ok( $m->login, 'logged in' ); - -my $ticket_id; -my $template; - -{ - - # test create message - $template = <<EOF; -===Create-Ticket: ticket1 -Queue: General -Subject: test message -Status: new -Content: -ENDOFCONTENT -Due: -TimeEstimated: 100 -TimeLeft: 100 -FinalPriority: 90 -EOF - - $m->get_ok( $url . '/Tools/Offline.html' ); - - $m->submit_form( - form_name => 'TicketUpdate', - fields => { string => $template, }, - button => 'UpdateTickets', - ); - my $content = encode 'utf8', $m->content; - ok( $content =~ qr/ç”³è¯·å• #(\d+) æˆåŠŸæ–°å¢žäºŽ 'General' 表å•/, 'message is shown right' ); - $ticket_id = $1; -} - -{ - - # test update message - $template = <<EOF; -===Update-Ticket: 1 -Subject: test message update -EOF - - $m->get_ok( $url . '/Tools/Offline.html' ); - $m->submit_form( - form_name => 'TicketUpdate', - fields => { string => $template, }, - button => 'UpdateTickets', - ); - - my $content = encode 'utf8', $m->content; - ok( - $content =~ -qr/主题\s*的值从\s*'test message'\s*改为\s*'test message update'/, - 'subject is updated' - ); -} - diff --git a/rt/t/web/offline_utf8.t b/rt/t/web/offline_utf8.t deleted file mode 100644 index 2a3e64d..0000000 --- a/rt/t/web/offline_utf8.t +++ /dev/null @@ -1,54 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 8; -use File::Temp qw/tempfile/; -use Encode; -use RT::Ticket; -my ( $fh, $file ) = tempfile; -my $template = <<EOF; -===Create-Ticket: ticket1 -Queue: General -Subject: æ ‡é¢˜ -Status: new -Content: -这是æ£æ–‡ -ENDOFCONTENT -EOF - -print $fh $template; -close $fh; - -my ( $url, $m ) = RT::Test->started_ok; -ok( $m->login, 'logged in' ); - -$m->get_ok( $url . '/Tools/Offline.html' ); - -$m->submit_form( - form_name => 'TicketUpdate', - fields => { Template => $file, }, - button => 'Parse', -); - -$m->content_contains( '这是æ£æ–‡', 'content is parsed right' ); - -$m->submit_form( - form_name => 'TicketUpdate', - button => 'UpdateTickets', - - # mimic what browsers do: they seems decoded $template - fields => { string => decode( 'utf8', $template ), }, -); - -$m->content_like( qr/Ticket \d+ created/, 'found ticket created message' ); -my ( $ticket_id ) = $m->content =~ /Ticket (\d+) created/; - -my $ticket = RT::Ticket->new( $RT::SystemUser ); -$ticket->Load( $ticket_id ); -is( $ticket->Subject, 'æ ‡é¢˜', 'subject in $ticket is right' ); - -$m->get_ok( $url . "/Ticket/Display.html?id=$ticket_id" ); -$m->content_contains( '这是æ£æ–‡', - 'content is right in ticket display page' ); - diff --git a/rt/t/web/query_builder.t b/rt/t/web/query_builder.t deleted file mode 100644 index 02ed129..0000000 --- a/rt/t/web/query_builder.t +++ /dev/null @@ -1,249 +0,0 @@ -#!/usr/bin/perl - -use strict; -use HTTP::Request::Common; -use HTTP::Cookies; -use LWP; -use Encode; -use RT::Test tests => 42; - -my $cookie_jar = HTTP::Cookies->new; -my ($baseurl, $agent) = RT::Test->started_ok; - - -# give the agent a place to stash the cookies - -$agent->cookie_jar($cookie_jar); - -# create a regression queue if it doesn't exist -my $queue = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $queue && $queue->id, 'loaded or created queue'; - -my $url = $agent->rt_base_url; -ok $agent->login, "logged in"; - -# {{{ Query Builder tests - -my $response = $agent->get($url."Search/Build.html"); -ok $response->is_success, "Fetched ". $url ."Search/Build.html"; - -sub getQueryFromForm { - $agent->form_name('BuildQuery'); - # This pulls out the "hidden input" query from the page - my $q = $agent->current_form->find_input("Query")->value; - $q =~ s/^\s+//g; - $q =~ s/\s+$//g; - $q =~ s/\s+/ /g; - return $q; -} - -sub selectedClauses { - my @clauses = grep { defined } map { $_->value } $agent->current_form->find_input("clauses"); - return [ @clauses ]; -} - - -diag "add the first condition" if $ENV{'TEST_VERBOSE'}; -{ - ok $agent->form_name('BuildQuery'), "found the form once"; - $agent->field("ActorField", "Owner"); - $agent->field("ActorOp", "="); - $agent->field("ValueOfActor", "Nobody"); - $agent->submit; - is getQueryFromForm, "Owner = 'Nobody'", 'correct query'; -} - -diag "set the next condition" if $ENV{'TEST_VERBOSE'}; -{ - ok($agent->form_name('BuildQuery'), "found the form again"); - $agent->field("QueueOp", "!="); - $agent->field("ValueOfQueue", "Regression"); - $agent->submit; - is getQueryFromForm, "Owner = 'Nobody' AND Queue != 'Regression'", - 'correct query'; -} - -diag "We're going to delete the owner" if $ENV{'TEST_VERBOSE'}; -{ - $agent->select("clauses", ["0"] ); - $agent->click("DeleteClause"); - ok $agent->form_name('BuildQuery'), "found the form"; - is getQueryFromForm, "Queue != 'Regression'", 'correct query'; -} - -diag "add a cond with OR and se number by the way" if $ENV{'TEST_VERBOSE'}; -{ - $agent->field("AndOr", "OR"); - $agent->select("idOp", ">"); - $agent->field("ValueOfid" => "1234"); - $agent->click("AddClause"); - ok $agent->form_name('BuildQuery'), "found the form again"; - is getQueryFromForm, "Queue != 'Regression' OR id > 1234", - "added something as OR, and number not quoted"; - is_deeply selectedClauses, ["1"], 'the id that we just entered is still selected'; - -} - -diag "Move the second one up a level" if $ENV{'TEST_VERBOSE'}; -{ - $agent->click("Up"); - ok $agent->form_name('BuildQuery'), "found the form again"; - is getQueryFromForm, "id > 1234 OR Queue != 'Regression'", "moved up one"; - is_deeply selectedClauses, ["0"], 'the one we moved up is selected'; -} - -diag "Move the second one right" if $ENV{'TEST_VERBOSE'}; -{ - $agent->click("Right"); - ok $agent->form_name('BuildQuery'), "found the form again"; - is getQueryFromForm, "Queue != 'Regression' OR ( id > 1234 )", - "moved over to the right (and down)"; - is_deeply selectedClauses, ["2"], 'the one we moved right is selected'; -} - -diag "Move the block up" if $ENV{'TEST_VERBOSE'}; -{ - $agent->select("clauses", ["1"]); - $agent->click("Up"); - ok $agent->form_name('BuildQuery'), "found the form again"; - is getQueryFromForm, "( id > 1234 ) OR Queue != 'Regression'", "moved up"; - is_deeply selectedClauses, ["0"], 'the one we moved up is selected'; -} - - -diag "Can not move up the top most clause" if $ENV{'TEST_VERBOSE'}; -{ - $agent->select("clauses", ["0"]); - $agent->click("Up"); - ok $agent->form_name('BuildQuery'), "found the form again"; - $agent->content_like(qr/error: can\S+t move up/, "i shouldn't have been able to hit up"); - is_deeply selectedClauses, ["0"], 'the one we tried to move is selected'; -} - -diag "Can not move left the left most clause" if $ENV{'TEST_VERBOSE'}; -{ - $agent->click("Left"); - ok($agent->form_name('BuildQuery'), "found the form again"); - $agent->content_like(qr/error: can\S+t move left/, "i shouldn't have been able to hit left"); - is_deeply selectedClauses, ["0"], 'the one we tried to move is selected'; -} - -diag "Add a condition into a nested block" if $ENV{'TEST_VERBOSE'}; -{ - $agent->select("clauses", ["1"]); - $agent->select("ValueOfStatus" => "stalled"); - $agent->submit; - ok $agent->form_name('BuildQuery'), "found the form again"; - is_deeply selectedClauses, ["2"], 'the one we added is only selected'; - is getQueryFromForm, - "( id > 1234 AND Status = 'stalled' ) OR Queue != 'Regression'", - "added new one"; -} - -diag "click advanced, enter 'C1 OR ( C2 AND C3 )', apply, aggregators should stay the same." - if $ENV{'TEST_VERBOSE'}; -{ - my $response = $agent->get($url."Search/Edit.html"); - ok( $response->is_success, "Fetched /Search/Edit.html" ); - ok($agent->form_number(3), "found the form"); - $agent->field("Query", "Status = 'new' OR ( Status = 'open' AND Subject LIKE 'office' )"); - $agent->submit; - is( getQueryFromForm, - "Status = 'new' OR ( Status = 'open' AND Subject LIKE 'office' )", - "no aggregators change" - ); -} - -# - new items go one level down -# - add items at currently selected level -# - if nothing is selected, add at end, one level down -# -# move left -# - error if nothing selected -# - same item should be selected after move -# - can't move left if you're at the top level -# -# move right -# - error if nothing selected -# - same item should be selected after move -# - can always move right (no max depth...should there be?) -# -# move up -# - error if nothing selected -# - same item should be selected after move -# - can't move up if you're first in the list -# -# move down -# - error if nothing selected -# - same item should be selected after move -# - can't move down if you're last in the list -# -# toggle -# - error if nothing selected -# - change all aggregators in the grouping -# - don't change any others -# -# delete -# - error if nothing selected -# - delete currently selected item -# - delete all children of a grouping -# - if delete leaves a node with no children, delete that, too -# - what should be selected? -# -# Clear -# - clears entire query -# - clears it from the session, too - -# }}} - -# create a custom field with nonascii name and try to add a condition -{ - my $cf = RT::CustomField->new( $RT::SystemUser ); - $cf->LoadByName( Name => "\x{442}", Queue => 0 ); - if ( $cf->id ) { - is($cf->Type, 'Freeform', 'loaded and type is correct'); - } else { - my ($return, $msg) = $cf->Create( - Name => "\x{442}", - Queue => 0, - Type => 'Freeform', - ); - ok($return, 'created CF') or diag "error: $msg"; - } - - my $response = $agent->get($url."Search/Build.html?NewQuery=1"); - ok( $response->is_success, "Fetched " . $url."Search/Build.html" ); - - ok($agent->form_name('BuildQuery'), "found the form once"); - $agent->field("ValueOf'CF.{\x{442}}'", "\x{441}"); - $agent->submit(); - is( getQueryFromForm, - "'CF.{\x{442}}' LIKE '\x{441}'", - "no changes, no duplicate condition with badly encoded text" - ); - -} - -diag "input a condition, select (several conditions), click delete" - if $ENV{'TEST_VERBOSE'}; -{ - my $response = $agent->get( $url."Search/Edit.html" ); - ok $response->is_success, "Fetched /Search/Edit.html"; - ok $agent->form_number(3), "found the form"; - $agent->field("Query", "( Status = 'new' OR Status = 'open' )"); - $agent->submit; - is( getQueryFromForm, - "( Status = 'new' OR Status = 'open' )", - "query is the same" - ); - $agent->select("clauses", [qw(0 1 2)]); - $agent->field( ValueOfid => 10 ); - $agent->click("DeleteClause"); - - is( getQueryFromForm, - "id < 10", - "replaced query successfuly" - ); -} - -1; diff --git a/rt/t/web/quicksearch.t b/rt/t/web/quicksearch.t deleted file mode 100644 index cd9a8e7..0000000 --- a/rt/t/web/quicksearch.t +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 7; -my ($baseurl, $m) = RT::Test->started_ok; -my $url = $m->rt_base_url; - -# merged tickets still show up in search -my $t1 = RT::Ticket->new($RT::SystemUser); -$t1->Create( - Subject => 'base ticket'.$$, - Queue => 'general', - Owner => 'root', - Requestor => 'customsearch@localhost', - MIMEObj => MIME::Entity->build( - From => 'customsearch@localhost', - To => 'rt@localhost', - Subject => 'base ticket'.$$, - Data => "DON'T SEARCH FOR ME", - ), -); -ok(my $id1 = $t1->id, 'created ticket for custom search'); - -my $t2 = RT::Ticket->new($RT::SystemUser); -$t2->Create( - Subject => 'merged away'.$$, - Queue => 'general', - Owner => 'root', - Requestor => 'customsearch@localhost', - MIMEObj => MIME::Entity->build( - From => 'customsearch@localhost', - To => 'rt@localhost', - Subject => 'merged away'.$$, - Data => "MERGEDAWAY", - ), -); -ok(my $id2 = $t2->id, 'created ticket for custom search'); - -my ($ok, $msg) = $t2->MergeInto($id1); -ok($ok, "merge: $msg"); - -ok($m->login, 'logged in'); - -$m->form_with_fields('q'); -$m->field(q => 'fulltext:MERGEDAWAY'); -TODO: { - local $TODO = "We don't yet handle merged ticket content searches right"; -$m->content_contains('Found 1 ticket'); -} -$m->content_contains('base ticket', "base ticket is found, not the merged-away ticket"); diff --git a/rt/t/web/rest-non-ascii-subject.t b/rt/t/web/rest-non-ascii-subject.t deleted file mode 100644 index 70c910a..0000000 --- a/rt/t/web/rest-non-ascii-subject.t +++ /dev/null @@ -1,55 +0,0 @@ -#!/usr/bin/env perl -# Test ticket creation with REST using non ascii subject -use strict; -use warnings; -use RT::Test tests => 7; - -local $RT::Test::SKIP_REQUEST_WORK_AROUND = 1; - -use Encode; -# \x{XX} where XX is less than 255 is not treated as unicode code point -my $subject = Encode::decode('latin1', "Sujet accentu\x{e9}"); -my $text = Encode::decode('latin1', "Contenu accentu\x{e9}"); - -my ($baseurl, $m) = RT::Test->started_ok; - -my $queue = RT::Test->load_or_create_queue(Name => 'General'); -ok($queue->Id, "loaded the General queue"); - -my $content = "id: ticket/new -Queue: General -Requestor: root -Subject: $subject -Cc: -AdminCc: -Owner: -Status: new -Priority: -InitialPriority: -FinalPriority: -TimeEstimated: -Starts: 2009-03-10 16:14:55 -Due: 2009-03-10 16:14:55 -Text: $text"; - -$m->post("$baseurl/REST/1.0/ticket/new", [ - user => 'root', - pass => 'password', -# error message from HTTP::Message: content must be bytes - content => Encode::encode_utf8($content), -], Content_Type => 'form-data' ); - -my ($id) = $m->content =~ /Ticket (\d+) created/; -ok($id, "got ticket #$id"); - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Load($id); -is($ticket->Id, $id, "loaded the REST-created ticket"); -is($ticket->Subject, $subject, "ticket subject successfully set"); - -my $attach = $ticket->Transactions->First->Attachments->First; -is($attach->Subject, $subject, "attachement subject successfully set"); -TODO: { - local $TODO = "Not fixed yet, but not a regression"; - is($attach->GetHeader('Subject'), $subject, "attachement header subject successfully set"); -} diff --git a/rt/t/web/rest.t b/rt/t/web/rest.t deleted file mode 100644 index b3a7c55..0000000 --- a/rt/t/web/rest.t +++ /dev/null @@ -1,71 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use RT::Test tests => 16; - -my ($baseurl, $m) = RT::Test->started_ok; - -for my $name ("severity", "fu()n:k/") { - my $cf = RT::Test->load_or_create_custom_field( - Name => $name, - Type => 'Freeform', - Queue => 'General', - ); - ok($cf->Id, "created a CustomField"); - is($cf->Name, $name, "correct CF name"); -} - -my $queue = RT::Test->load_or_create_queue(Name => 'General'); -ok($queue->Id, "loaded the General queue"); - -$m->post("$baseurl/REST/1.0/ticket/new", [ - user => 'root', - pass => 'password', - format => 'l', -]); - -my $text = $m->content; -my @lines = $text =~ m{.*}g; -shift @lines; # header - -# CFs aren't in the default ticket form -push @lines, "CF-fu()n:k/: maximum"; # old style -push @lines, "CF.{severity}: explosive"; # new style - -$text = join "\n", @lines; - -ok($text =~ s/Subject:\s*$/Subject: REST interface/m, "successfully replaced subject"); - -$m->post("$baseurl/REST/1.0/ticket/edit", [ - user => 'root', - pass => 'password', - - content => $text, -], Content_Type => 'form-data'); - -my ($id) = $m->content =~ /Ticket (\d+) created/; -ok($id, "got ticket #$id"); - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Load($id); -is($ticket->Id, $id, "loaded the REST-created ticket"); -is($ticket->Subject, "REST interface", "subject successfully set"); -is($ticket->FirstCustomFieldValue("fu()n:k/"), "maximum", "CF successfully set"); - -$m->post("$baseurl/REST/1.0/search/ticket", [ - user => 'root', - pass => 'password', - query => "id=$id", - fields => "Subject,CF-fu()n:k/,CF.{severity},Status", -]); - -# the fields are interpreted server-side a hash (why?), so we can't depend -# on order -for ("id: ticket/1", - "Subject: REST interface", - "CF.{fu()n:k/}: maximum", - "CF.{severity}: explosive", - "Status: new") { - $m->content_contains($_); -} - diff --git a/rt/t/web/rights.t b/rt/t/web/rights.t deleted file mode 100644 index b47ba99..0000000 --- a/rt/t/web/rights.t +++ /dev/null @@ -1,85 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use warnings; - -use RT::Test tests => 14; - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, "logged in"; - -$m->follow_link_ok({ text => 'Configuration' }); -$m->follow_link_ok({ text => 'Global' }); -$m->follow_link_ok({ text => 'Group Rights' }); - - -sub get_rights { - my $agent = shift; - my $principal_id = shift; - my $object = shift; - $agent->form_number(3); - my @inputs = $agent->current_form->find_input("RevokeRight-$principal_id-$object"); - my @rights = sort grep $_, map $_->possible_values, grep $_, @inputs; - return @rights; -}; - -diag "load Everyone group" if $ENV{'TEST_VERBOSE'}; -my ($everyone, $everyone_gid); -{ - $everyone = RT::Group->new( $RT::SystemUser ); - $everyone->LoadSystemInternalGroup('Everyone'); - ok($everyone_gid = $everyone->id, "loaded 'everyone' group"); -} - -diag "revoke all global rights from Everyone group" if $ENV{'TEST_VERBOSE'}; -my @has = get_rights( $m, $everyone_gid, 'RT::System-1' ); -if ( @has ) { - $m->form_number(3); - $m->tick("RevokeRight-$everyone_gid-RT::System-1", $_) foreach @has; - $m->submit; - - is_deeply([get_rights( $m, $everyone_gid, 'RT::System-1' )], [], 'deleted all rights' ); -} else { - ok(1, 'the group has no global rights'); -} - -diag "grant SuperUser right to everyone" if $ENV{'TEST_VERBOSE'}; -{ - $m->form_number(3); - $m->select("GrantRight-$everyone_gid-RT::System-1", ['SuperUser']); - $m->submit; - - $m->content_contains('Right Granted', 'got message'); - RT::Principal::InvalidateACLCache(); - ok($everyone->PrincipalObj->HasRight( Right => 'SuperUser', Object => $RT::System ), 'group has right'); - is_deeply( [get_rights( $m, $everyone_gid, 'RT::System-1' )], ['SuperUser'], 'granted SuperUser right' ); -} - -diag "revoke the right" if $ENV{'TEST_VERBOSE'}; -{ - $m->form_number(3); - $m->tick("RevokeRight-$everyone_gid-RT::System-1", 'SuperUser'); - $m->submit; - - $m->content_contains('Right revoked', 'got message'); - RT::Principal::InvalidateACLCache(); - ok(!$everyone->PrincipalObj->HasRight( Right => 'SuperUser', Object => $RT::System ), 'group has no right'); - is_deeply( [get_rights( $m, $everyone_gid, 'RT::System-1' )], [], 'revoked SuperUser right' ); -} - - -diag "return rights the group had in the beginning" if $ENV{'TEST_VERBOSE'}; -if ( @has ) { - $m->form_number(3); - $m->select("GrantRight-$everyone_gid-RT::System-1", \@has); - $m->submit; - - $m->content_contains('Right Granted', 'got message'); - is_deeply( - [ get_rights( $m, $everyone_gid, 'RT::System-1' ) ], - [ @has ], - 'returned back all rights' - ); -} else { - ok(1, 'the group had no global rights, so nothing to return'); -} - diff --git a/rt/t/web/rights1.t b/rt/t/web/rights1.t deleted file mode 100644 index 6da204c..0000000 --- a/rt/t/web/rights1.t +++ /dev/null @@ -1,134 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use HTTP::Cookies; - -use RT::Test tests => 35; -my ($baseurl, $agent) = RT::Test->started_ok; - -# Create a user with basically no rights, to start. -my $user_obj = RT::User->new($RT::SystemUser); -my ($ret, $msg) = $user_obj->LoadOrCreateByEmail('customer-'.$$.'@example.com'); -ok($ret, 'ACL test user creation'); -$user_obj->SetName('customer-'.$$); -$user_obj->SetPrivileged(1); -($ret, $msg) = $user_obj->SetPassword('customer'); -ok($ret, "ACL test password set. $msg"); - -# Now test the web interface, making sure objects come and go as -# required. - - -my $cookie_jar = HTTP::Cookies->new; - -# give the agent a place to stash the cookies - -$agent->cookie_jar($cookie_jar); - -no warnings 'once'; -# get the top page -login($agent, $user_obj); - -# Test for absence of Configure and Preferences tabs. -ok(!$agent->find_link( url => "$RT::WebPath/Admin/", - text => 'Configuration'), "No config tab" ); -ok(!$agent->find_link( url => "$RT::WebPath/User/Prefs.html", - text => 'Preferences'), "No prefs pane" ); - -# Now test for their presence, one at a time. Sleep for a bit after -# ACL changes, thanks to the 10s ACL cache. -my ($grantid,$grantmsg) =$user_obj->PrincipalObj->GrantRight(Right => 'ShowConfigTab', Object => $RT::System); - -ok($grantid,$grantmsg); - -$agent->reload; - -like($agent->{'content'} , qr/Logout/i, "Reloaded page successfully"); -ok($agent->find_link( url => "$RT::WebPath/Admin/", - text => 'Configuration'), "Found config tab" ); -my ($revokeid,$revokemsg) =$user_obj->PrincipalObj->RevokeRight(Right => 'ShowConfigTab'); -ok ($revokeid,$revokemsg); -($grantid,$grantmsg) =$user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf'); -ok ($grantid,$grantmsg); -$agent->reload(); -like($agent->{'content'} , qr/Logout/i, "Reloaded page successfully"); -ok($agent->find_link( - text => 'Preferences'), "Found prefs pane" ); -($revokeid,$revokemsg) = $user_obj->PrincipalObj->RevokeRight(Right => 'ModifySelf'); -ok ($revokeid,$revokemsg); -# Good. Now load the search page and test Load/Save Search. -$agent->follow_link( url => "$RT::WebPath/Search/Build.html", - text => 'Tickets'); -is($agent->{'status'}, 200, "Fetched search builder page"); -ok($agent->{'content'} !~ /Load saved search/i, "No search loading box"); -ok($agent->{'content'} !~ /Saved searches/i, "No saved searches box"); - -($grantid,$grantmsg) = $user_obj->PrincipalObj->GrantRight(Right => 'LoadSavedSearch'); -ok($grantid,$grantmsg); -$agent->reload(); -like($agent->{'content'} , qr/Load saved search/i, "Search loading box exists"); -ok($agent->{'content'} !~ /input\s+type=['"]submit['"][^>]+name=['"]SavedSearchSave['"]/i, - "Still no saved searches box"); - -($grantid,$grantmsg) =$user_obj->PrincipalObj->GrantRight(Right => 'CreateSavedSearch'); -ok ($grantid,$grantmsg); -$agent->reload(); -like($agent->{'content'} , qr/Load saved search/i, - "Search loading box still exists"); -like($agent->{'content'} , qr/input\s+type=['"]submit['"][^>]+name=['"]SavedSearchSave['"]/i, - "Saved searches box exists"); - -# Create a group, and a queue, so we can test limited user visibility -# via SelectOwner. - -my $queue_obj = RT::Queue->new($RT::SystemUser); -($ret, $msg) = $queue_obj->Create(Name => 'CustomerQueue-'.$$, - Description => 'queue for SelectOwner testing'); -ok($ret, "SelectOwner test queue creation. $msg"); -my $group_obj = RT::Group->new($RT::SystemUser); -($ret, $msg) = $group_obj->CreateUserDefinedGroup(Name => 'CustomerGroup-'.$$, - Description => 'group for SelectOwner testing'); -ok($ret, "SelectOwner test group creation. $msg"); - -# Add our customer to the customer group, and give it queue rights. -($ret, $msg) = $group_obj->AddMember($user_obj->PrincipalObj->Id()); -ok($ret, "Added customer to its group. $msg"); -($grantid,$grantmsg) =$group_obj->PrincipalObj->GrantRight(Right => 'OwnTicket', - Object => $queue_obj); - -ok($grantid,$grantmsg); -($grantid,$grantmsg) =$group_obj->PrincipalObj->GrantRight(Right => 'SeeQueue', - Object => $queue_obj); -ok ($grantid,$grantmsg); -# Now. When we look at the search page we should be able to see -# ourself in the list of possible owners. - -$agent->reload(); -ok($agent->form_name('BuildQuery'), "Yep, form is still there"); -my $input = $agent->current_form->find_input('ValueOfActor'); -ok(grep(/customer-$$/, $input->value_names()), "Found self in the actor listing"); - -sub login { - my $agent = shift; - - my $url = "http://localhost:" . RT->Config->Get('WebPort') . RT->Config->Get('WebPath') . "/"; - $agent->get($url); - is( $agent->{'status'}, 200, - "Loaded a page - http://localhost" . RT->Config->Get('WebPath') ); - - # {{{ test a login - - # follow the link marked "Login" - - ok( $agent->{form}->find_input('user') ); - - ok( $agent->{form}->find_input('pass') ); - like( $agent->{'content'} , qr/username:/i ); - $agent->field( 'user' => $user_obj->Name ); - $agent->field( 'pass' => 'customer' ); - - # the field isn't named, so we have to click link 0 - $agent->click(0); - is( $agent->{'status'}, 200, "Fetched the page ok" ); - like( $agent->{'content'} , qr/Logout/i, "Found a logout link" ); -} -1; diff --git a/rt/t/web/saved_search_chart.t b/rt/t/web/saved_search_chart.t deleted file mode 100644 index 1051662..0000000 --- a/rt/t/web/saved_search_chart.t +++ /dev/null @@ -1,86 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 19; -my ( $url, $m ) = RT::Test->started_ok; -use RT::Attribute; -my $search = RT::Attribute->new($RT::SystemUser); -my $ticket = RT::Ticket->new($RT::SystemUser); -my ( $ret, $msg ) = $ticket->Create( - Subject => 'base ticket' . $$, - Queue => 'general', - Owner => 'root', - Requestor => 'root@localhost', - MIMEObj => MIME::Entity->build( - From => 'root@localhost', - To => 'rt@localhost', - Subject => 'base ticket' . $$, - Data => "", - ), -); -ok( $ret, "ticket created: $msg" ); - -ok( $m->login, 'logged in' ); - -$m->get_ok( $url . "/Search/Chart.html?Query=" . 'id=1' ); -my ($owner) = $m->content =~ /value="(RT::User-\d+)"/; - -$m->submit_form( - form_name => 'SaveSearch', - fields => { - SavedSearchDescription => 'first chart', - SavedSearchOwner => $owner, - }, - button => 'SavedSearchSave', -); - -$m->content_like( qr/Chart first chart saved/, 'saved first chart' ); - -my ( $search_uri, $id ) = $m->content =~ /value="(RT::User-\d+-SavedSearch-(\d+))"/; -$m->submit_form( - form_name => 'SaveSearch', - fields => { SavedSearchLoad => $search_uri }, -); - -$m->content_like( qr/name="SavedSearchDelete"\s+value="Delete"/, - 'found Delete button' ); -$m->content_like( - qr/name="SavedSearchDescription"\s+value="first chart"/, - 'found Description input with the value filled' -); -$m->content_like( qr/name="SavedSearchSave"\s+value="Update"/, - 'found Update button' ); -$m->content_unlike( qr/name="SavedSearchSave"\s+value="Save"/, - 'no Save button' ); - -$m->submit_form( - form_name => 'SaveSearch', - fields => { - Query => 'id=2', - PrimaryGroupBy => 'Status', - ChartStyle => 'pie', - }, - button => 'SavedSearchSave', -); - -$m->content_like( qr/Chart first chart updated/, 'found updated message' ); -$m->content_like( qr/id=2/, 'Query is updated' ); -$m->content_like( qr/value="Status"\s+selected="selected"/, - 'PrimaryGroupBy is updated' ); -$m->content_like( qr/value="pie"\s+selected="selected"/, - 'ChartType is updated' ); -ok( $search->Load($id) ); -is( $search->SubValue('Query'), 'id=2', 'Query is indeed updated' ); -is( $search->SubValue('PrimaryGroupBy'), - 'Status', 'PrimaryGroupBy is indeed updated' ); -is( $search->SubValue('ChartStyle'), 'pie', 'ChartStyle is indeed updated' ); - -# finally, let's test delete -$m->submit_form( - form_name => 'SaveSearch', - button => 'SavedSearchDelete', -); -$m->content_like( qr/Chart first chart deleted/, 'found deleted message' ); -$m->content_unlike( qr/value="RT::User-\d+-SavedSearch-\d+"/, - 'no saved search' ); diff --git a/rt/t/web/saved_search_permissions.t b/rt/t/web/saved_search_permissions.t deleted file mode 100644 index f91ca13..0000000 --- a/rt/t/web/saved_search_permissions.t +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 10; -my $user = RT::User->new($RT::SystemUser); -ok( - $user->Create( - Name => 'foo', - Privileged => 1, - Password => 'foobar' - ) -); - -my ( $url, $m ) = RT::Test->started_ok; -ok( $m->login, 'root logged in' ); -$m->get_ok( $url . '/Search/Build.html?Query=id<100' ); -$m->submit_form( - form_name => 'BuildQuery', - fields => { SavedSearchDescription => 'test' }, - button => 'SavedSearchSave', -); -$m->content_contains( q{name="SavedSearchDescription" value="test"}, - 'saved test search' ); -my ($id) = $m->content =~ /value="(RT::User-\d+-SavedSearch-\d+)"/; -ok( $m->login( 'foo', 'foobar' ), 'logged in' ); -$m->get_ok( $url . "/Search/Build.html?SavedSearchLoad=$id" ); - -my $message = qq{Can not load saved search "$id"}; -RT::Interface::Web::EscapeUTF8( \$message ); -$m->content_contains( $message, 'user foo can not load saved search of root' ); - -$m->warning_like( qr/User #\d+ tried to load container user #\d+/, - 'get warning' ); diff --git a/rt/t/web/search_bulk_update_links.t b/rt/t/web/search_bulk_update_links.t deleted file mode 100644 index d6bfdfd..0000000 --- a/rt/t/web/search_bulk_update_links.t +++ /dev/null @@ -1,147 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 28; -my ( $url, $m ) = RT::Test->started_ok; -ok( $m->login, 'logged in' ); - -my $rtname = RT->Config->Get('rtname'); - -# create tickets -use RT::Ticket; - -my ( @link_tickets, @search_tickets ); -for ( 1 .. 3 ) { - my $link_ticket = RT::Ticket->new($RT::SystemUser); - my ( $ret, $msg ) = $link_ticket->Create( - Subject => "link ticket $_", - Queue => 'general', - Owner => 'root', - Requestor => 'root@localhost', - ); - ok( $ret, "link ticket created: $msg" ); - push @link_tickets, $ret; -} - -for ( 1 .. 3 ) { - my $ticket = RT::Ticket->new($RT::SystemUser); - my ( $ret, $msg ) = $ticket->Create( - Subject => "search ticket $_", - Queue => 'general', - Owner => 'root', - Requestor => 'root@localhost', - ); - ok( $ret, "search ticket created: $msg" ); - push @search_tickets, $ret; -} - -# let's add link to 1 search ticket first -$m->get_ok( $url . "/Search/Bulk.html?Query=id=$search_tickets[0]&Rows=10" ); -$m->content_contains( 'Current Links', 'has current links part' ); -$m->content_lacks( 'DeleteLink--', 'no delete link stuff' ); -$m->submit_form( - form_number => 3, - fields => { - 'Ticket-DependsOn' => $link_tickets[0], - 'Ticket-MemberOf' => $link_tickets[1], - 'Ticket-RefersTo' => $link_tickets[2], - }, -); -$m->content_contains( - "Ticket $search_tickets[0] depends on Ticket $link_tickets[0]", - 'depends on msg', -); -$m->content_contains( - "Ticket $search_tickets[0] member of Ticket $link_tickets[1]", - 'member of msg', -); -$m->content_contains( - "Ticket $search_tickets[0] refers to Ticket $link_tickets[2]", - 'refers to msg', -); - -$m->content_contains( - "DeleteLink--DependsOn-fsck.com-rt://$rtname/ticket/$link_tickets[0]", - 'found depends on link' ); -$m->content_contains( - "DeleteLink--MemberOf-fsck.com-rt://$rtname/ticket/$link_tickets[1]", - 'found member of link' ); -$m->content_contains( - "DeleteLink--RefersTo-fsck.com-rt://$rtname/ticket/$link_tickets[2]", - 'found refers to link' ); - -# here we check the *real* bulk update -my $query = join ' OR ', map { "id=$_" } @search_tickets; -$m->get_ok( $url . "/Search/Bulk.html?Query=$query&Rows=10" ); -$m->content_contains( 'Current Links', 'has current links part' ); -$m->content_lacks( 'DeleteLink--', 'no delete link stuff' ); - -# test DependsOn, MemberOf and RefersTo -$m->submit_form( - form_number => 3, - fields => { - 'Ticket-DependsOn' => $link_tickets[0], - 'Ticket-MemberOf' => $link_tickets[1], - 'Ticket-RefersTo' => $link_tickets[2], - }, -); - -$m->content_contains( - "DeleteLink--DependsOn-fsck.com-rt://$rtname/ticket/$link_tickets[0]", - 'found depends on link' ); -$m->content_contains( - "DeleteLink--MemberOf-fsck.com-rt://$rtname/ticket/$link_tickets[1]", - 'found member of link' ); -$m->content_contains( - "DeleteLink--RefersTo-fsck.com-rt://$rtname/ticket/$link_tickets[2]", - 'found refers to link' ); - -$m->submit_form( - form_number => 3, - fields => { - "DeleteLink--DependsOn-fsck.com-rt://$rtname/ticket/$link_tickets[0]" => - 1, - "DeleteLink--MemberOf-fsck.com-rt://$rtname/ticket/$link_tickets[1]" => - 1, - "DeleteLink--RefersTo-fsck.com-rt://$rtname/ticket/$link_tickets[2]" => - 1, - }, -); - -$m->content_lacks( 'DeleteLink--', 'links are all deleted' ); - -# test DependedOnBy, Members and ReferredToBy - -$m->submit_form( - form_number => 3, - fields => { - 'DependsOn-Ticket' => $link_tickets[0], - 'MemberOf-Ticket' => $link_tickets[1], - 'RefersTo-Ticket' => $link_tickets[2], - }, -); - -$m->content_contains( - "DeleteLink-fsck.com-rt://$rtname/ticket/$link_tickets[0]-DependsOn-", - 'found depended on link' ); -$m->content_contains( - "DeleteLink-fsck.com-rt://$rtname/ticket/$link_tickets[1]-MemberOf-", - 'found members link' ); -$m->content_contains( - "DeleteLink-fsck.com-rt://$rtname/ticket/$link_tickets[2]-RefersTo-", - 'found referrd to link' ); - -$m->submit_form( - form_number => 3, - fields => { - "DeleteLink-fsck.com-rt://$rtname/ticket/$link_tickets[0]-DependsOn-" => - 1, - "DeleteLink-fsck.com-rt://$rtname/ticket/$link_tickets[1]-MemberOf-" => - 1, - "DeleteLink-fsck.com-rt://$rtname/ticket/$link_tickets[2]-RefersTo-" => - 1, - }, -); -$m->content_lacks( 'DeleteLink--', 'links are all deleted' ); - diff --git a/rt/t/web/search_rss.t b/rt/t/web/search_rss.t deleted file mode 100644 index 454dc03..0000000 --- a/rt/t/web/search_rss.t +++ /dev/null @@ -1,74 +0,0 @@ -#!/usr/bin/perl - -use strict; - -use RT::Test tests => 36; -RT::Test->started_ok; - -my $ticket = RT::Ticket->new($RT::SystemUser); -for ( 1 .. 5 ) { - $ticket->Create( - Subject => 'Ticket ' . $_, - Queue => 'General', - Owner => 'root', - Requestor => 'rss@localhost', - ); -} - -my $agent = RT::Test::Web->new; -ok $agent->login('root', 'password'), 'logged in as root'; - -$agent->get_ok('/Search/Build.html'); -$agent->form_name('BuildQuery'); -$agent->field('idOp', '>'); -$agent->field('ValueOfid', '0'); -$agent->submit('DoSearch'); -$agent->follow_link_ok({text=>'Show Results'}); - -for ( 1 .. 5 ) { - $agent->content_contains('Ticket ' . $_); -} -my $rdf_path = $agent->uri->path_query; -$rdf_path =~ s!Results\.html!Results.rdf!; - -$agent->follow_link_ok( { text => 'RSS' } ); -my $noauth_uri = $agent->uri; -is( $agent->content_type, 'application/rss+xml', 'content type' ); -for ( 1 .. 5 ) { - $agent->content_contains('Ticket ' . $_); -} -my $rss_content = $agent->content; -$agent->get_ok($rdf_path); -is($agent->content, $rss_content, 'old Results.rdf still works'); - -SKIP: { - eval { require XML::Simple; }; - skip 'no XML::Simple found', 6 if $@; - my $rss = XML::Simple::XMLin( $rss_content ); - is( scalar @{ $rss->{item} }, 5, 'item number' ); - for ( 1 .. 5 ) { - is( $rss->{item}[$_-1]{title}, 'Ticket ' . $_, 'title' . $_ ); - } -} - -# not login at all -my $agent_b = RT::Test::Web->new; -$agent_b->get_ok($noauth_uri); -is( $agent_b->content_type, 'application/rss+xml', 'content type' ); -is( $agent_b->content, $rss_content, 'content' ); -$agent_b->get_ok('/', 'back to homepage'); -$agent_b->content_lacks( 'Logout', 'still not login' ); - -# lets login as another user -my $user_b = RT::Test->load_or_create_user( - Name => 'user_b', Password => 'password', -); -ok $user_b && $user_b->id, 'loaded or created user'; -$agent_b->login('user_b', 'password'), 'logged in as user B'; -$agent_b->get_ok($noauth_uri); -is( $agent_b->content_type, 'application/rss+xml', 'content type' ); -is( $agent_b->content, $rss_content, 'content' ); -$agent_b->get_ok('/', 'back to homepage'); -$agent_b->content_contains( 'Logout', 'still loggedin' ); -$agent_b->content_contains( 'user_b', 'still loggedin as user_b' ); - diff --git a/rt/t/web/ticket-create-utf8.t b/rt/t/web/ticket-create-utf8.t deleted file mode 100644 index f37eeec..0000000 --- a/rt/t/web/ticket-create-utf8.t +++ /dev/null @@ -1,93 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use RT::Test tests => 41; - -$RT::Test::SKIP_REQUEST_WORK_AROUND = 1; - -use Encode; - -my $ru_test = "\x{442}\x{435}\x{441}\x{442}"; -my $ru_support = "\x{43f}\x{43e}\x{434}\x{434}\x{435}\x{440}\x{436}\x{43a}\x{430}"; - -# latin-1 is very special in perl, we should test everything with latin-1 umlauts -# and not-ascii+not-latin1, for example cyrillic -my $l1_test = Encode::decode('latin-1', "t\xE9st"); -my $l1_support = Encode::decode('latin-1', "supp\xF6rt"); - - -my $q = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $q && $q->id, 'loaded or created queue'; - -RT::Test->set_rights( - Principal => 'Everyone', - Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'], -); - -my ($baseurl, $m) = RT::Test->started_ok; -ok $m->login, 'logged in'; - -# create a ticket with a subject only -foreach my $test_str ( $ru_test, $l1_test ) { - ok $m->goto_create_ticket( $q ), "go to create ticket"; - $m->form_number(3); - $m->field( Subject => $test_str ); - $m->submit; - - $m->content_like( - qr{<td\s+class="message-header-value"[^>]*>\s*\Q$test_str\E\s*</td>}i, - 'header on the page' - ); - - my $ticket = RT::Test->last_ticket; - is $ticket->Subject, $test_str, "correct subject"; -} - -# create a ticket with a subject and content -foreach my $test_str ( $ru_test, $l1_test ) { - foreach my $support_str ( $ru_support, $l1_support ) { - ok $m->goto_create_ticket( $q ), "go to create ticket"; - $m->form_number(3); - $m->field( Subject => $test_str ); - $m->field( Content => $support_str ); - $m->submit; - - $m->content_like( - qr{<td\s+class="message-header-value"[^>]*>\s*\Q$test_str\E\s*</td>}i, - 'header on the page' - ); - $m->content_like( - qr{\Q$support_str\E}i, - 'content on the page' - ); - - my $ticket = RT::Test->last_ticket; - is $ticket->Subject, $test_str, "correct subject"; - } -} - -# create a ticket with a subject and content -foreach my $test_str ( $ru_test, $l1_test ) { - foreach my $support_str ( $ru_support, $l1_support ) { - ok $m->goto_create_ticket( $q ), "go to create ticket"; - $m->form_number(3); - $m->field( Subject => $test_str ); - $m->field( Content => $support_str ); - $m->submit; - - $m->content_like( - qr{<td\s+class="message-header-value"[^>]*>\s*\Q$test_str\E\s*</td>}i, - 'header on the page' - ); - $m->content_like( - qr{\Q$support_str\E}i, - 'content on the page' - ); - - my $ticket = RT::Test->last_ticket; - is $ticket->Subject, $test_str, "correct subject"; - } -} - diff --git a/rt/t/web/ticket_owner.t b/rt/t/web/ticket_owner.t deleted file mode 100644 index 0bacaf1..0000000 --- a/rt/t/web/ticket_owner.t +++ /dev/null @@ -1,356 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use RT::Test tests => 91; - -my $queue = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $queue && $queue->id, 'loaded or created queue'; - -my $user_a = RT::Test->load_or_create_user( - Name => 'user_a', Password => 'password', -); -ok $user_a && $user_a->id, 'loaded or created user'; - -my $user_b = RT::Test->load_or_create_user( - Name => 'user_b', Password => 'password', -); -ok $user_b && $user_b->id, 'loaded or created user'; - -RT::Test->started_ok; - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket ReplyToTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket OwnTicket)] }, -), 'set rights'); - -my $agent_a = RT::Test::Web->new; -ok $agent_a->login('user_a', 'password'), 'logged in as user A'; - -diag "current user has no right to own, nobody selected as owner on create" if $ENV{TEST_VERBOSE}; -{ - $agent_a->get_ok('/', 'open home page'); - $agent_a->form_name('CreateTicketInQueue'); - $agent_a->select( 'Queue', $queue->id ); - $agent_a->submit; - - $agent_a->content_like(qr/Create a new ticket/i, 'opened create ticket page'); - my $form = $agent_a->form_name('TicketCreate'); - is $form->value('Owner'), $RT::Nobody->id, 'correct owner selected'; - ok !grep($_ == $user_a->id, $form->find_input('Owner')->possible_values), - 'user A can not own tickets'; - $agent_a->submit; - - $agent_a->content_like(qr/Ticket \d+ created in queue/i, 'created ticket'); - my ($id) = ($agent_a->content =~ /Ticket (\d+) created in queue/); - ok $id, 'found id of the ticket'; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->Owner, $RT::Nobody->id, 'correct owner'; -} - -diag "user can chose owner of a new ticket" if $ENV{TEST_VERBOSE}; -{ - $agent_a->get_ok('/', 'open home page'); - $agent_a->form_name('CreateTicketInQueue'); - $agent_a->select( 'Queue', $queue->id ); - $agent_a->submit; - - $agent_a->content_like(qr/Create a new ticket/i, 'opened create ticket page'); - my $form = $agent_a->form_name('TicketCreate'); - is $form->value('Owner'), $RT::Nobody->id, 'correct owner selected'; - - ok grep($_ == $user_b->id, $form->find_input('Owner')->possible_values), - 'user B is listed as potential owner'; - $agent_a->select('Owner', $user_b->id); - $agent_a->submit; - - $agent_a->content_like(qr/Ticket \d+ created in queue/i, 'created ticket'); - my ($id) = ($agent_a->content =~ /Ticket (\d+) created in queue/); - ok $id, 'found id of the ticket'; - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->Owner, $user_b->id, 'correct owner'; -} - -my $agent_b = RT::Test::Web->new; -ok $agent_b->login('user_b', 'password'), 'logged in as user B'; - -diag "user A can not change owner after create" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - # try the following group of tests twice with different agents(logins) - my $test_cb = sub { - my $agent = shift; - $agent->goto_ticket( $id ); - $agent->follow_link_ok({text => 'Basics'}, 'Ticket -> Basics'); - my $form = $agent->form_number(3); - is $form->value('Owner'), $user_b->id, 'correct owner selected'; - $agent->select('Owner', $RT::Nobody->id); - $agent->submit; - - $agent->content_like( - qr/Permission denied/i, - 'no way to change owner after create if you have no rights' - ); - - my $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->Owner, $user_b->id, 'correct owner'; - }; - - $test_cb->($agent_a); - diag "even owner(user B) can not change owner" if $ENV{TEST_VERBOSE}; - $test_cb->($agent_b); -} - -diag "on reply correct owner is selected" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - $agent_a->follow_link_ok({text => 'Reply'}, 'Ticket -> Basics'); - - my $form = $agent_a->form_number(3); - is $form->value('Owner'), '', 'empty value selected'; - $agent_a->submit; - - $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->Owner, $user_b->id, 'correct owner'; -} - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket OwnTicket)] }, -), 'set rights'); - -diag "Couldn't take without coresponding right" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $RT::Nobody->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link'; - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link as well'; -} - -diag "Couldn't steal without coresponding right" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link'; - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link as well'; -} - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket TakeTicket)] }, -), 'set rights'); - -diag "TakeTicket require OwnTicket to work" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $RT::Nobody->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link'; - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link as well'; -} - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket OwnTicket)] }, -), 'set rights'); - -diag "TakeTicket+OwnTicket work" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $RT::Nobody->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link'; - $agent_a->follow_link_ok({text => 'Take'}, 'Ticket -> Take'); - - $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->Owner, $user_a->id, 'correct owner'; -} - -diag "TakeTicket+OwnTicket don't work when owner is not nobody" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link'; - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link too'; -} - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket StealTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket OwnTicket)] }, -), 'set rights'); - -diag "StealTicket require OwnTicket to work" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link'; - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link too'; -} - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket StealTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket OwnTicket)] }, -), 'set rights'); - -diag "StealTicket+OwnTicket work" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'but no Take link'; - $agent_a->follow_link_ok({text => 'Steal'}, 'Ticket -> Steal'); - - $ticket = RT::Ticket->new( $RT::SystemUser ); - $ticket->Load( $id ); - ok $ticket->id, 'loaded the ticket'; - is $ticket->Owner, $user_a->id, 'correct owner'; -} - -diag "StealTicket+OwnTicket don't work when owner is nobody" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $RT::Nobody->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link'; - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link as well (no right)'; -} - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket StealTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket OwnTicket)] }, -), 'set rights'); - -diag "no Steal link when owner nobody" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $RT::Nobody->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Steal' ))[0], - 'no Steal link'; - ok( ($agent_a->find_all_links( text => 'Take' ))[0], - 'but have Take link'); -} - -diag "no Take link when owner is not nobody" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($id, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_b->id, - Subject => 'test', - ); - ok $id, 'created a ticket #'. $id or diag "error: $msg"; - is $ticket->Owner, $user_b->id, 'correct owner'; - - $agent_a->goto_ticket( $id ); - ok !($agent_a->find_all_links( text => 'Take' ))[0], - 'no Take link'; - ok( ($agent_a->find_all_links( text => 'Steal' ))[0], - 'but have Steal link'); -} - diff --git a/rt/t/web/ticket_seen.t b/rt/t/web/ticket_seen.t deleted file mode 100644 index 00b2632..0000000 --- a/rt/t/web/ticket_seen.t +++ /dev/null @@ -1,80 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use RT::Test tests => 16; - -my $queue = RT::Test->load_or_create_queue( Name => 'Regression' ); -ok $queue && $queue->id, 'loaded or created queue'; - -my $user_a = RT::Test->load_or_create_user( - Name => 'user_a', Password => 'password', -); -ok $user_a && $user_a->id, 'loaded or created user'; - -my $user_b = RT::Test->load_or_create_user( - Name => 'user_b', Password => 'password', -); -ok $user_b && $user_b->id, 'loaded or created user'; - -ok( RT::Test->set_rights( - { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket ModifyTicket)] }, - { Principal => $user_b, Right => [qw(SeeQueue ShowTicket ReplyToTicket)] }, -), 'set rights'); -RT::Test->started_ok; - -my $agent_a = RT::Test::Web->new; -ok $agent_a->login('user_a', 'password'), 'logged in as user A'; - -my $agent_b = RT::Test::Web->new; -ok $agent_b->login('user_b', 'password'), 'logged in as user B'; - -diag "create a ticket for testing" if $ENV{TEST_VERBOSE}; -my $tid; -{ - my $ticket = RT::Ticket->new( $user_a ); - my ($txn, $msg); - ($tid, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Owner => $user_a->id, - Subject => 'test', - ); - ok $tid, 'created a ticket #'. $tid or diag "error: $msg"; - is $ticket->Owner, $user_a->id, 'correct owner'; -} - -diag "user B adds a message, we check that user A see notification and can clear it" if $ENV{TEST_VERBOSE}; -{ - my $ticket = RT::Ticket->new( $user_b ); - $ticket->Load( $tid ); - ok $ticket->id, 'loaded the ticket'; - - my ($status, $msg) = $ticket->Correspond( Content => 'bla-bla' ); - ok $status, 'added reply' or diag "error: $msg"; - - $agent_a->goto_ticket($tid); - $agent_a->content_like(qr/bla-bla/ims, 'the message on the page'); - - $agent_a->content_like( - qr/unread message/ims, - 'we have not seen something' - ); - - $agent_a->follow_link_ok({text => 'jump to the first unread message and mark all messages as seen'}, 'try to mark all as seen'); - $agent_a->content_like( - qr/Marked all messages as seen/ims, - 'see success message' - ); - - $agent_a->goto_ticket($tid); - $agent_a->content_unlike( - qr/unread message/ims, - 'we have seen everything, so no messages' - ); -} - - - - - diff --git a/rt/t/web/ticket_update_without_content.t b/rt/t/web/ticket_update_without_content.t deleted file mode 100644 index 595cb74..0000000 --- a/rt/t/web/ticket_update_without_content.t +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use RT::Test tests => 10; -my ( $url, $m ) = RT::Test->started_ok; - -# merged tickets still show up in search -my $ticket = RT::Ticket->new($RT::SystemUser); -my ( $ret, $msg ) = $ticket->Create( - Subject => 'base ticket' . $$, - Queue => 'general', - Owner => 'root', - Requestor => 'root@localhost', - MIMEObj => MIME::Entity->build( - From => 'root@localhost', - To => 'rt@localhost', - Subject => 'base ticket' . $$, - Data => "", - ), -); -ok( $ret, "ticket created: $msg" ); - -ok( $m->login, 'logged in' ); - -$m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id ); - -$m->submit_form( - form_number => 3, - fields => { Priority => '1', } -); - -$m->content_like(qr/priority changed/i); -$m->content_unlike(qr/message recorded/i); - -my $root = RT::User->new( $RT::SystemUser ); -$root->Load('root'); -( $ret, $msg ) = $root->SetSignature(<<EOF); -best wishes -foo -EOF - -ok( $ret, $msg ); - -$m->get_ok( $url . "/Ticket/ModifyAll.html?id=" . $ticket->id ); - -$m->submit_form( - form_number => 3, - fields => { Priority => '2', } -); -$m->content_like(qr/priority changed/i); -$m->content_unlike(qr/message recorded/i); diff --git a/rt/t/web/unlimited_search.t b/rt/t/web/unlimited_search.t deleted file mode 100644 index d98baaa..0000000 --- a/rt/t/web/unlimited_search.t +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl - -use strict; - -use RT::Test tests => 8; -RT::Test->started_ok; - -my $ticket = RT::Ticket->new($RT::SystemUser); -for ( 1 .. 75 ) { - $ticket->Create( - Subject => 'Ticket ' . $_, - Queue => 'General', - Owner => 'root', - Requestor => 'unlimitedsearch@localhost', - ); -} - -my $agent = RT::Test::Web->new; -ok $agent->login('root', 'password'), 'logged in as root'; - -$agent->get_ok('/Search/Build.html'); -$agent->form_name('BuildQuery'); -$agent->field('idOp', '>'); -$agent->field('ValueOfid', '0'); -$agent->submit('AddClause'); -$agent->form_name('BuildQuery'); -$agent->field('RowsPerPage', '0'); -$agent->submit('DoSearch'); -$agent->follow_link_ok({text=>'Show Results'}); -$agent->content_like(qr/Ticket 75/); - -$agent->follow_link_ok({text=>'New Search'}); -$agent->form_name('BuildQuery'); -$agent->field('idOp', '>'); -$agent->field('ValueOfid', '0'); -$agent->submit('AddClause'); -$agent->form_name('BuildQuery'); -$agent->field('RowsPerPage', '50'); -$agent->submit('DoSearch'); -$agent->follow_link_ok({text=>'Bulk Update'}); -$agent->content_unlike(qr/Ticket 51/); |