Cleanup in preparation for publishing.

This commit is contained in:
Harlan Lieberman-Berg 2016-08-22 15:46:16 -04:00
parent 9c36813918
commit cf3c2dff79
5 changed files with 108 additions and 38 deletions

16
.gitignore vendored
View file

@ -1 +1,15 @@
*~
blib*
Makefile
Makefile.old
pm_to_blib*
*.tar.gz
.lwpcookies
cover_db
pod2htm*.tmp
/RT-Extension-References*
*.bak
*.swp
/MYMETA.*
/t/tmp
/xt/tmp
*~

11
Makefile.PL Normal file
View file

@ -0,0 +1,11 @@
use inc::Module::Install;
RTx 'RT-Extension-ThreadByReference';
license 'perl';
repository 'https://github.com/akamai/rt-extension-threadbyreference';
requires_rt '4.0.0';
rt_too_new '4.4.0';
sign;
WriteAll;

View file

@ -1,29 +0,0 @@
use strict;
use warnings;
package RT::Extension::References;
our $VERSION = "0.1";
=head1 NAME
RT::Extension::References - Use References to try and find a matching ticket
=head1 DESCRIPTION
RT extension to use the References MIME header in inbound emails to try and
match the message to a preexisting ticket.
=cut
1;
=head1 AUTHOR
Harlan Lieberman-Berg C<< <hlieberm@akamai.com> >>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2015, Akamai Technologies, Inc. All rights reserved.
=cut

View file

@ -0,0 +1,80 @@
use strict;
use warnings;
package RT::Extension::ThreadByReference;
our $VERSION = '0.01';
=head1 NAME
RT-Extension-ThreadByReference - Use ThreadByReference to try and thread messages to tickets
=head1 DESCRIPTION
When an RT ticketing queue is CCed on a message thread, it can be very
difficult to get the subject lines correct in all parts of the
message. This can cause a single thread to spawn off tens of
different tickets that need manual merging.
This extension uses the MIME ThreadByReference headers to search for threads
to associate a message with.
=head1 RT VERSION
Works with RT 4.0 and greater.
=head1 INSTALLATION
=over
=item C<perl Makefile.PL>
=item C<make>
=item C<make install>
May need root permissions
=item Edit your F</opt/rt4/etc/RT_SiteConfig.pm>
If you are using RT 4.2 or greater, add this line:
Plugin('RT::Extension::ThreadByReference');
For RT 4.0, add this line:
Set(@Plugins, qw(RT::Extension::ThreadByReference));
or add C<RT::Extension::ThreadByReference> to your existing C<@Plugins> line.
=item Clear your mason cache
rm -rf /opt/rt4/var/mason_data/obj
=item Restart your webserver
=back
=head1 AUTHOR
Harlan Lieberman-Berg C<< <hlieberm@akamai.com> >>
=head1 BUGS
All bugs should be reported via email to
L<bug-RT-Extension-ThreadByReference@rt.cpan.org|mailto:bug-RT-Extension-ThreadByReference@rt.cpan.org>
or via the web at
L<rt.cpan.org|http://rt.cpan.org/Public/Dist/Display.html?Name=RT-Extension-ThreadByReference>.
=head1 LICENSE
Copyright (c) 2015-2016 by Akamai Technologies, Inc.
This software is free software; you can redistribute and/or modify it
under the same terms as Perl itself.
=cut
1;

View file

@ -1,18 +1,12 @@
package RT::Interface::Email::TryThreading;
package RT::Interface::Email::ThreadByReference;
use strict;
use warnings;
use RT::Interface::Email ();
=head1 NAME
RT::Interface::Email::TryThreading - Use References and other headers to try and find a ticket
=cut
sub GetCurrentUser {
$RT::Logger->debug("Entering TryThreading");
$RT::Logger->debug("Entering ThreadByReference");
my %args = (
Message => undef,