diff --git a/lib/NGCP/Panel.pm b/lib/NGCP/Panel.pm index b7fa64148a..acce0c02d9 100644 --- a/lib/NGCP/Panel.pm +++ b/lib/NGCP/Panel.pm @@ -30,7 +30,7 @@ require CHI::Driver::FastMmap; use Log::Log4perl::Catalyst qw(); use NGCP::Panel::Cache::Serializer qw(); use NGCP::Panel::Middleware::HSTS qw(); -use NGCP::Panel::Middleware::TEgzip qw(); +#use NGCP::Panel::Middleware::TEgzip qw(); extends 'Catalyst'; our $VERSION = '0.01'; @@ -157,7 +157,7 @@ __PACKAGE__->config( } }, 'Plugin::EnableMiddleware' => [ - NGCP::Panel::Middleware::TEgzip->new, + #NGCP::Panel::Middleware::TEgzip->new, NGCP::Panel::Middleware::HSTS->new, ], ); diff --git a/lib/NGCP/Panel/Middleware/TEgzip.pm b/lib/NGCP/Panel/Middleware/TEgzip.pm index eaef61ffd5..6268fad580 100644 --- a/lib/NGCP/Panel/Middleware/TEgzip.pm +++ b/lib/NGCP/Panel/Middleware/TEgzip.pm @@ -1,7 +1,7 @@ package NGCP::Panel::Middleware::TEgzip; use Sipwise::Base; use HTTP::Headers::Util qw(split_header_words); -use Plack::Middleware::Deflater qw(); +use Plack::Middleware::Deflater; # for internal package Plack::Middleware::Deflater::Encoder use Plack::Util qw(); extends 'Plack::Middleware'; diff --git a/sandbox/api_auth.pl b/sandbox/api_auth.pl new file mode 100755 index 0000000000..141f019a6b --- /dev/null +++ b/sandbox/api_auth.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl -w +use strict; +use LWP::UserAgent; + +my $ua = LWP::UserAgent->new(); +$ua->ssl_opts( + SSL_cert_file => '/etc/ssl/ngcp/api/NGCP-API-client-certificate-1385650532.pem', + SSL_key_file => '/etc/ssl/ngcp/api/NGCP-API-client-certificate-1385650532.pem', + SSL_ca_file => '/etc/ssl/ngcp/api/ca-cert.pem', +my $can_accept = HTTP::Message::decodable; +my $res = $ua->get( + 'https://serenity:4443/api/contacts/?id=10', + #'Accept-Encoding' => $can_accept, + 'Accept' => 'application/hal+json', +); +if($res->is_success) { + print $res->as_string; +} else { + print STDERR $res->status_line, "\n"; +} + +# vim: set tabstop=4 expandtab: