Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/trunk/perl-modules/core/trunk/OpenXPKI/Server/Workflow/Activity/CRLIssuance/PublishCRL.pm b/trunk/perl-modules/core/trunk/OpenXPKI/Server/Workflow/Activity/CRLIssuance/PublishCRL.pm
- index bbcd87e..20cbc0f 100644
- --- a/trunk/perl-modules/core/trunk/OpenXPKI/Server/Workflow/Activity/CRLIssuance/PublishCRL.pm
- +++ b/trunk/perl-modules/core/trunk/OpenXPKI/Server/Workflow/Activity/CRLIssuance/PublishCRL.pm
- @@ -181,10 +181,13 @@ sub execute {
- XPATH => [ @basepath, 'search_dn' ],
- COUNTER => [ @basectr , '0'],
- );
- - my $ldap_sasl = $self->get_xpath(
- - XPATH => [ @basepath, 'sasl' ],
- - COUNTER => [ @basectr , '0'],
- - );
- + my $ldap_sasl;
- + eval {
- + $ldap_sasl = $self->get_xpath(
- + XPATH => [ @basepath, 'sasl' ],
- + COUNTER => [ @basectr , '0'],
- + );
- + };
- my $ldap_sasl_mechanism = $self->get_xpath(
- XPATH => [ @basepath, 'sasl_mechanism' ],
- COUNTER => [ @basectr , '0'],
- @@ -241,7 +244,14 @@ sub execute {
- }
- my $mesg;
- if ($ldap_sasl eq "yes"){
- - use Authen::SASL;
- + eval {
- + require Authen::SASL;
- + };
- + if ($EVAL_ERROR) {
- + OpenXPKI::Exception->throw(
- + message => 'I18N_OPENXPKI_SERVER_WORKFLOW_ACTIVITY_CRLISSUANCE_PUBLISHCRL_SASL_AUTH_CONFIGURED_BUT_AUTHEN_SASL_NOT_AVAILABLE',
- + );
- + }
- my $sasl = Authen::SASL->new(
- mechanism => $ldap_sasl_mechanism,
- callback => {
Add Comment
Please, Sign In to add comment