App-CamelPKI

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/02-SSLRequestByForm.t
t/02-SSLRequestByJSON.t
t/03-VPNRequestByForm.t
t/03-VPNRequestByJSON.t
t/04-RevokeByForm.t
t/04-RevokeByJSON.t
t/acceptance-get-CA.t
t/acceptance-issue-certificatesJSON.t
t/acceptance-permissions.t
t/acceptance-revoke-certificatesJSON.t
t/controller-template-base-404.t
t/CRL.t
t/learning-JSONRPC.t
t/lib/App/CamelPKI/Test.pm
t/maintainer/dependencies.t
t/maintainer/nobreakpoints.t
t/maintainer/pod-coverage.t
t/maintainer/pod-source.t
t/maintainer/pod.t
t/php/00-apprentissage-JSON.t
t/php/01-apprentissage-JSONRPC.php

lib/App/CamelPKI/Controller/Root.pm  view on Meta::CPAN

=over

=item I<default>

The page served for unkowns URIs.

=cut

sub default : Private {
    my ( $self, $c ) = @_;
    $c->response->status(404);
	$c->stash->{template} = "welcome.tt2";
}

=item I<end>

Transfer the control to the view, after having dealt with JSON errors in
collaboration with L<App::CamelPKI::Action::JSON>.

=cut

lib/App/CamelPKI/SysV/Apache.pm  view on Meta::CPAN

sub ok_connect_no_hiccups {
    my ($webserver, $admincertfile, $adminkeyfile) = @_;
    $webserver->tail_error_logfile;
    local @LWP::Protocol::http::EXTRA_SOCK_OPTS;
    @LWP::Protocol::http::EXTRA_SOCK_OPTS =
        (SSL_use_cert => 1,
         SSL_cert_file => $admincertfile, SSL_key_file => $adminkeyfile);
    my $ua = new LWP::UserAgent;
    my $port = $webserver->https_port;
    my $response = $ua->get("https://localhost:$port/no/such/uri");
    is($response->code, 404, "500 would be bad") or
        diag $response->content;
    unlike($webserver->tail_error_logfile,
           qr/certificate signature failure/, <<"EXPLANATION");
``certificate signature failure'' is the message one gets when mod_ssl
attempts to validate a certificate whose hash algorithm it doesn't
know about.
EXPLANATION
}

my $sha256directory = fresh_directory;

t/controller-template-base-404.t  view on Meta::CPAN

#!perl -w

use strict;

=head1 NAME

B<controller-template-base-404.t> - Tests that the URLs of the form
B<>, despite being declared C<: Local> in
L<App::CamelPKI::Controller::CA::Template::Base>, are not mapped into the
application's URI namespace.  A request to same should therefore go
404.

=cut

use Test::More tests => 2;
use Catalyst::Test "App::CamelPKI";
is(request("/ca/template/base/no_such_page__really")->code, 404,
  "witness experiment");
is(request("/ca/template/base/certifyJSON")->code, 404, "404-compliant");

t/lib/App/CamelPKI/Test.pm  view on Meta::CPAN

sub server_can_connect {
    my $ua = LWP::UserAgent->new;
    my $port = server_port;
    my $response = $ua->get("https://127.0.0.1:$port/");

    # TODO : find a solution
    # A small bug prevent this from working, no time
	# to worry about it, just adapt the test
	# In a perfect world, it should be :
	#  return ($response->is_success);
	if ($response->status_line =~ qr/404/){
		return 1;
	}
    return ($response->is_success);
}

SKIP: {
	use App::CamelPKI; 
	my $webserver = App::CamelPKI->model("WebServer")->apache;
	
	skip "Apache is not installed or Key Ceremony has not been done",