MT#5599 API: remove middleware handling.

lib/NGCP/Panel.pm

@@ -20,14 +20,14 @@ use Catalyst qw/
     Static::Simple
     Authentication
     Authorization::Roles
-    EnableMiddleware
     Session
     Session::Store::FastMmap
     Session::State::Cookie
 /;
+#    EnableMiddleware
 use Log::Log4perl::Catalyst qw();
-use NGCP::Panel::Cache::Serializer qw();
-use NGCP::Panel::Middleware::HSTS qw();
+#use NGCP::Panel::Cache::Serializer qw();
+#use NGCP::Panel::Middleware::HSTS qw();
 #use NGCP::Panel::Middleware::TEgzip qw();
 extends 'Catalyst';
 
@@ -152,10 +152,10 @@ __PACKAGE__->config(
             }
         }
     },
-    'Plugin::EnableMiddleware' => [
-        #NGCP::Panel::Middleware::TEgzip->new,
-        NGCP::Panel::Middleware::HSTS->new,
-    ],
+#    'Plugin::EnableMiddleware' => [
+#        NGCP::Panel::Middleware::TEgzip->new,
+#        NGCP::Panel::Middleware::HSTS->new,
+#    ],
 );
 __PACKAGE__->config( default_view => 'HTML' );
 

lib/NGCP/Panel/Middleware/HSTS.pm

@@ -1,14 +0,0 @@
-package NGCP::Panel::Middleware::HSTS;
-use Sipwise::Base;
-use Plack::Util qw();
-extends 'Plack::Middleware';
-
-sub call {
-    my ($self, $env) = @_;
-    my $res = $self->app->($env);
-    $self->response_cb($res, sub {
-        my $res = shift;
-        my $h = Plack::Util::headers($res->[1]);
-        $h->set('Strict-Transport-Security' => 'max-age=86400000');
-    });
-}

lib/NGCP/Panel/Middleware/TEgzip.pm

@@ -1,50 +0,0 @@
-package NGCP::Panel::Middleware::TEgzip;
-use Sipwise::Base;
-use HTTP::Headers::Util qw(split_header_words);
-use Plack::Middleware::Deflater;
-# for internal package Plack::Middleware::Deflater::Encoder
-use Plack::Util qw();
-extends 'Plack::Middleware';
-
-sub call {
-    my ($self, $env) = @_;
-    my $res = $self->app->($env);
-    if (
-        defined $env->{HTTP_TE}
-        && grep {
-            my %coding = @{$_};
-               exists $coding{gzip} && !exists $coding{'q'}
-            || exists $coding{gzip} &&  exists $coding{'q'} && $coding{'q'}->is_positive
-        } split_header_words $env->{HTTP_TE}
-    ) {
-        $self->response_cb($res, sub {
-            my $res = shift;
-            my $h = Plack::Util::headers($res->[1]);
-            if (
-                $env->{'SERVER_PROTOCOL'} ne 'HTTP/1.0'
-             && !Plack::Util::status_with_no_entity_body($res->[0])
-             && $env->{'REQUEST_METHOD'} ne 'HEAD'
-             && !$h->exists('Transfer-Encoding')
-            ) {
-                $h->set('Transfer-Encoding' => 'gzip');
-                my $encoder = Plack::Middleware::Deflater::Encoder->new('gzip');
-                # normal response
-                if ($res->[2] && ref $res->[2] && ref $res->[2] eq ref []) {
-                    my $buf = '';
-                    foreach (@{ $res->[2] }) {
-                        $buf .= $encoder->print($_) if defined $_;
-                    }
-                    $buf .= $encoder->close;
-                    $res->[2] = [$buf];
-                    return;
-                }
-                # delayed or stream
-                return sub {
-                    $encoder->print(shift);
-                };
-            }
-        });
-    } else {
-        return $res;
-    }
-}