view release on metacpan or  search on metacpan

GPG.pm  view on Meta::CPAN

  sub fast_import { my ($this,$import) = @_;
    my ($pid,$output,$error) = start_gpg($this,$this->{'COMMAND'}.' --fast-import', $import);
    return if !$pid;

    my $res = read_import_key_result($error);
    #$this->error($error) and return if !$res;

    return $res;
  }

  sub update_trustdb { my ($this) = @_;
    my ($pid,$output,$error) = start_gpg($this,$this->{'COMMAND'}.' --update-trustdb', '');
    return if !$pid;

    $error =~ s/^gpg: (\d+) keys processed\s*//;
    my $number_processed = $1 || '0';

    $this->error($error) and return if $error;
    return $number_processed;
  }

test.pl  view on Meta::CPAN

  sub fast_import {
    my $fast_import = $gpg->fast_import($pubring."\n".$secring);
    die $gpg->error() if $gpg->error();
    if ($VERBOSE) {
      my $dump = Data::Dumper->new([$fast_import]);
      verbose("Keys imported :\n".$dump->Dump);
    }
  }

  sub update_trustdb {
    my $updated = $gpg->update_trustdb();
    die $gpg->error() if $gpg->error();
    verbose("Ok: $updated key(s) updated into trustdb.");
  }

  sub fingerprint {
    my $fingerprint = $gpg->fingerprint($key_id);
    if ($VERBOSE) {
      my $dump = Data::Dumper->new([$fingerprint]);
      verbose("Fingerprint :\n".$dump->Dump);