Revision history for RT-Extension-MessageSizeLimit
+0.03 Wed, 04 Aug 2021 15:27:56 +0200
+ Add RT 5 support
+
+0.02 Tue, 31 May 2016 18:51:44 +0200
+ Fix undef log warnings
+ Fix packaging
+
0.01 Tue, 31 May 2016 17:49:21 +0200
Initial release.
resources:
license: http://dev.perl.org/licenses/
repository: git://git.home-dn.net/manu/RT-Extension-MessageSizeLimit.git
-version: 0.01
+version: 0.03
+provides:
+ RT::Extension::MessageSizeLimit:
+ file: lib/RT/Extension/MessageSizeLimit.pm
+ version: 0.03
--- /dev/null
+<%init>
+
+my $result = RT::Extension::MessageSizeLimit::CheckMessageSizeLimit(
+ Subject => $$ARGSRef{'Subject'},
+ Content => $$ARGSRef{'Content'},
+ Attachments => $session{Attachments}{$$ARGSRef{'Token'}},
+ CurrentUser => $session{'CurrentUser'},
+ );
+
+if ( $result ) {
+ push @$Actions, $result;
+ $r->content_type('application/json; charset=utf-8');
+ $m->out( JSON( { actions => \@$Actions } ) );
+ $m->abort;
+}
+
+</%init>
+<%args>
+$ARGSRef => undef
+$Actions => undef
+</%args>
--- /dev/null
+<%init>
+
+my $result = RT::Extension::MessageSizeLimit::CheckMessageSizeLimit(
+ Subject => $$ARGSRef{'Subject'},
+ Content => $$ARGSRef{'Content'},
+ Attachments => $session{Attachments}{$$ARGSRef{'Token'}},
+ CurrentUser => $session{'CurrentUser'},
+ );
+
+if ( $result ) {
+ push @$ActionsRef, $result;
+ $$SkipProcessing = 1;
+}
+
+</%init>
+<%args>
+$ARGSRef => undef
+$ActionsRef => undef
+$SkipProcessing => undef
+</%args>
use warnings;
package RT::Extension::MessageSizeLimit;
-our $VERSION = '0.01';
+our $VERSION = '0.03';
=head1 NAME