<commit_before>## OpenXPKI::Service::SCEP::Command::GetCACaps
##
## Written 2013 by <NAME> for the OpenXPKI project
## (C) Copyright 2013 by The OpenXPKI Project
##
package OpenXPKI::Service::SCEP::Command::GetCACaps;

use English;

use Class::Std;

use base qw( OpenXPKI::Service::SCEP::Command );

use OpenXPKI::Debug;
use OpenXPKI::Exception;
use OpenXPKI::Server::API;
use OpenXPKI::Server::Context qw( CTX );

use Data::Dumper;

sub execute {
	
    my $self    = shift;
    my $arg_ref = shift;
    my $ident   = ident $self;
    
    ##! 8: 'start'
    
    my $algs = CTX('api')->get_alg_names();
    
    ##! 8: 'Algs ' . Dumper $algs
 
    # we silently asume that all digests are supported and the server can handle post requests
    # which is true on current systems using the suggested toolchain
    my @caps = qw(GetNextCACert POSTPKIOperation Renewal SHA-512 SHA-256 SHA-1 DES3);
 <commit_msg>Remove POST caps announcement from scep (needs fixing)<commit_after>## OpenXPKI::Service::SCEP::Command::GetCACaps
##
## Written 2013 by <NAME> for the OpenXPKI project
## (C) Copyright 2013 by The OpenXPKI Project
##
package OpenXPKI::Service::SCEP::Command::GetCACaps;

use English;

use Class::Std;

use base qw( OpenXPKI::Service::SCEP::Command );

use OpenXPKI::Debug;
use OpenXPKI::Exception;
use OpenXPKI::Server::API;
use OpenXPKI::Server::Context qw( CTX );

use Data::Dumper;

sub execute {
	
    my $self    = shift;
    my $arg_ref = shift;
    my $ident   = ident $self;
    
    ##! 8: 'start'
    
    my $algs = CTX('api')->get_alg_names();
    
    ##! 8: 'Algs ' . Dumper $algs
 
    # we silently asume that all digests are supported and the server can handle post requests
    # which is true on current systems using the suggested toolchain
    # post seems to be a bit more than just post (binary p7) - needs to be fixed
#    my @caps = qw(GetNextCACert POSTPKIOperation Renewal SHA-512 SHA-256 SHA-1 DES3);
    my @caps = qw(GetNextCACert Renewal SHA-512 SHA-256 SHA-1 DES3);
 
{'fraction_non_alphanumeric': 0.12101593625498008, 'fraction_numerical': 0.022410358565737053, 'mean_word_length': 3.8409638554216867, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3951188', 'n_tokens_mistral': 745, 'n_tokens_neox': 682, 'n_words': 219}