Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / lib / RT / Squish / JS.pm
CommitLineData
84fb5b46
MKG
1# BEGIN BPS TAGGED BLOCK {{{
2#
3# COPYRIGHT:
4#
403d7b0b 5# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
84fb5b46
MKG
6# <sales@bestpractical.com>
7#
8# (Except where explicitly superseded by other copyright notices)
9#
10#
11# LICENSE:
12#
13# This work is made available to you under the terms of Version 2 of
14# the GNU General Public License. A copy of that license should have
15# been provided with this software, but in any event can be snarfed
16# from www.gnu.org.
17#
18# This work is distributed in the hope that it will be useful, but
19# WITHOUT ANY WARRANTY; without even the implied warranty of
20# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21# General Public License for more details.
22#
23# You should have received a copy of the GNU General Public License
24# along with this program; if not, write to the Free Software
25# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26# 02110-1301 or visit their web page on the internet at
27# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
28#
29#
30# CONTRIBUTION SUBMISSION POLICY:
31#
32# (The following paragraph is not intended to limit the rights granted
33# to you to modify and distribute this software under the terms of
34# the GNU General Public License and is only of importance to you if
35# you choose to contribute your changes and enhancements to the
36# community by submitting them to Best Practical Solutions, LLC.)
37#
38# By intentionally submitting any modifications, corrections or
39# derivatives to this work, or any other work intended for use with
40# Request Tracker, to Best Practical Solutions, LLC, you confirm that
41# you are the copyright holder for those contributions and you grant
42# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
43# royalty-free, perpetual, license to use, copy, create derivative
44# works based on those contributions, and sublicense and distribute
45# those contributions and any derivatives thereof.
46#
47# END BPS TAGGED BLOCK }}}
48
49=head1 SYNOPSIS
50
51 use RT::Squish::JS;
52 my $squish = RT::Squish::JS->new();
53
54=head1 DESCRIPTION
55
56This module lets you create squished content of js files.
57
58=head1 METHODS
59
60=cut
61
62use strict;
63use warnings;
64
65package RT::Squish::JS;
66use base 'RT::Squish';
67
68=head2 Squish
69
70not only concatenate files, but also minify them
71
72=cut
73
74sub Squish {
75 my $self = shift;
af59614d 76 my $content = "";
84fb5b46 77
af59614d
MKG
78 for my $file ( RT::Interface::Web->JSFiles ) {
79 my $uri = "/static/js/$file";
80 my $res = RT::Interface::Web::Handler->GetStatic($uri);
81
82 if ($res->is_success) {
83 $content .= $res->decoded_content;
84fb5b46 84 } else {
af59614d 85 RT->Logger->error("Unable to fetch $uri for JS Squishing: " . $res->status_line);
84fb5b46
MKG
86 next;
87 }
88 }
89
90 return $self->Filter($content);
91}
92
93sub Filter {
94 my $self = shift;
95 my $content = shift;
96
97 my $minified;
98 my $jsmin = RT->Config->Get('JSMinPath');
99 if ( $jsmin && -x $jsmin ) {
100 my $input = $content;
101 my ( $output, $error );
102
103 # If we're running under fastcgi, STDOUT and STDERR are tied
104 # filehandles, which cause IPC::Run3 to flip out. Construct
105 # temporary, not-tied replacements for it to see instead.
106 my $stdout = IO::Handle->new;
107 $stdout->fdopen( 1, 'w' );
108 local *STDOUT = $stdout;
109 my $stderr = IO::Handle->new;
110 $stderr->fdopen( 2, 'w' );
111 local *STDERR = $stderr;
112
113 local $SIG{'CHLD'} = 'DEFAULT';
114 require IPC::Run3;
115 IPC::Run3::run3( [$jsmin], \$input, \$output, \$error );
116 if ( $? >> 8 ) {
117 $RT::Logger->warning("failed to jsmin: $error ");
118 }
119 else {
120 $content = $output;
121 $minified = 1;
122 }
123 }
124
125 return $content;
126}
127
1281;
129