view release on metacpan or  search on metacpan

lib/AnyEvent/GnuPG.pm  view on Meta::CPAN

                        _eq('got_it')              && do { last };
                        _eq('need_passphrase')     && do { last };
                        _eq('need_passphrase_sym') && do { last };
                        _eq('need_passphrase_pin') && do { last };
                        _eq('missing_passphrase')
                          && do { die "no passphrase was supplied" };
                        _eq('bad_passphrase') && do {
                            die
                              "the supplied passphrase was wrong or not given";
                        };
                        _eq('good_passphrase') && do { last };
                        _eq('decryption_failed')
                          && do { die "the symmetric decryption failed" };
                        _eq('decryption_okay') && do { last };
                        _eq('decryption_info') && do { last };
                        _eq('no_pubkey')
                          && do { die "the public key is not available" };
                        _eq('no_seckey')
                          && do { die "the private key is not available" };
                        _eq('import_check') && do { last };
                        _eq('imported')
                          && do { @args = split /\s+/, $arg, 2; last };
                        _eq('import_ok') && do { last };
                        _eq('import_problem') && do {

                            for ($arg) {
                                _eq('0')
                                  && die
                                  "import failed with no specific reason";
                                _eq('1') && die "invalid certificate";
                                _eq('2') && die "issuer certificate missing";
                                _eq('3') && die "certificate chain too long";
                                _eq('4') && die "error storing certificate";
                                die "import failed";
                            }
                        };
                        _eq('import_res')       && do { last };
                        _eq('file_start')       && do { last };
                        _eq('file_done')        && do { last };
                        _eq('begin_decryption') && do { last };
                        _eq('end_decryption')   && do { last };
                        _eq('begin_encryption') && do { last };
                        _eq('end_encryption')   && do { last };
                        _eq('begin_signing')    && do { last };
                        _eq('delete_problem')   && do {

                            for ($arg) {
                                _eq('1') && die "delete failed: no such key";
                                _eq('2')
                                  && die
                                  "delete failed: must delete secret key first";
                                _eq('3')
                                  && die
                                  "delete failed: ambigious specification";
                                die "delete failed";
                            }
                        };
                        _eq('progress')    && do { last };
                        _eq('sig_created') && do { last };
                        _eq('key_created') && do { last };
                        _eq('key_not_created') && do {
                            die "the key from batch run has not been created";
                        };
                        _eq('session_key')   && do { last };
                        _eq('notation_name') && do { last };
                        _eq('notation_data') && do { last };
                        _eq('userid_hint')   && do { last };
                        _eq('policy_url')    && do { last };
                        _eq('begin_stream')  && do { last };
                        _eq('end_stream')    && do { last };
                        ( _eq('inv_recp') or _eq('inc_sgnr') ) && do {
                            my $prefix = 'invalid';
                            for ($cmd) {
                                _eq('inv_recp')
                                  && do { $prefix .= ' recipient' };
                                _eq('inv_sgnr') && do { $prefix .= ' sender' };
                            }
                            $prefix .= ': ';
                            for ( shift(@args) ) {
                                _eq('0') && die $prefix . "no specific reason";
                                _eq('1') && die $prefix . "not found";
                                _eq('2')
                                  && die $prefix . "ambigious specification";
                                _eq('3')  && die $prefix . "wrong key usage";
                                _eq('4')  && die $prefix . "key revoked";
                                _eq('5')  && die $prefix . "key expired";
                                _eq('6')  && die $prefix . "no CRL known";
                                _eq('7')  && die $prefix . "CRL too old";
                                _eq('8')  && die $prefix . "policy mismatch";
                                _eq('9')  && die $prefix . "not a secret key";
                                _eq('10') && die $prefix . "key not trusted";
                                _eq('11')
                                  && die $prefix . "missing certificate";
                                _eq('12')
                                  && die $prefix . "missing issuer certificate";
                                die $prefix . '???';
                            }
                        };
                        _eq('no_recp') && do { die "no recipients are usable" };
                        _eq('no_sgnr') && do { die "no senders are usable" };
                        _eq('already_signed')   && do { last };
                        _eq('truncated')        && do { last };
                        _eq('error')            && do { die $arg };
                        _eq('success')          && do { last };
                        _eq('attribute')        && do { last };
                        _eq('cardctrl')         && do { last };
                        _eq('plaintext')        && do { last };
                        _eq('plaintext_length') && do { last };
                        _eq('sig_subpacket')    && do { last };
                        _eq('sc_op_failure')
                          && do { die "smartcard failure ($arg)" };
                        _eq('sc_op_success')      && do { last };
                        _eq('backup_key_created') && do { last };
                        _eq('mountpoint')         && do { last };
                        AE::log note => "unknown command: $cmd";
                    }
                    my $result;
                    if ( $actions{ lc($cmd) } ) {
                        $result = $actions{ lc($cmd) }->(@args);
                    }
                    push @$commands => {