X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fmail%2Fgateway.t;fp=rt%2Ft%2Fmail%2Fgateway.t;h=00de1ec7fdb109f992ea2f7f63226256ee42f9d2;hb=b4b0c7e72d7eaee2fbfc7022022c9698323203dd;hp=0000000000000000000000000000000000000000;hpb=2dfda73eeb3eae2d4f894099754794ef07d060dd;p=freeside.git diff --git a/rt/t/mail/gateway.t b/rt/t/mail/gateway.t new file mode 100644 index 000000000..00de1ec7f --- /dev/null +++ b/rt/t/mail/gateway.t @@ -0,0 +1,802 @@ +#!/usr/bin/perl -w +# BEGIN BPS TAGGED BLOCK {{{ +# +# COPYRIGHT: +# +# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC +# +# +# (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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 = <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 <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 <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 <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 <> 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 <> 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 <> 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 <> 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; +