Yet Another CPAN Grep

AC-Yenta ( S/SO/SOLVE/AC-Yenta-1.1.tar.gz, SOLVE, 2017; MetaCPAN )

AC-Yenta/lib/AC/Yenta/Status.pm ( view source; MetaCPAN )

se AC::Yenta::Config;
use AC::Yenta::MySelf;
use AC::Dumper;
use AC::Misc;
use Sys::Hostname;
use JSON;
use Socket;
require 'AC/protobuf/yenta_status.pl';
use strict;

my $KEEPDOWN = 1800;	# keep data

yenta' ){
                $data->{map} = $pd->{map};
            }

            print FILE encode_json( $data ), "\n";
        }

        close FILE;
        unless( rename("$file.tmp", $file) ){

AC-Yenta ( S/SO/SOLVE/AC-Yenta-1.1.tar.gz, SOLVE, 2017; MetaCPAN )

AC-Yenta/lib/AC/Yenta/Kibitz/Store/Server.pm ( view source; MetaCPAN )

AC::Yenta::Debug 'store_server';
use AC::Yenta::Store;
use AC::Yenta::Config;
use AC::Dumper;
use JSON;
use Digest::SHA 'sha1_base64';
require 'AC/protobuf/yenta_getset.pl';
require 'AC/protobuf/yenta

y $cont = shift;

    return 1 unless $meta && $meta =~ /^\{/;

    eval {
        $meta = decode_json($meta);
    };
    return 1 if $@;

    if( $meta->{sha1} ){
        my $chk = sha1_base64( $$con

AC-Yenta ( S/SO/SOLVE/AC-Yenta-1.1.tar.gz, SOLVE, 2017; MetaCPAN )

AC-Yenta/lib/AC/Yenta/Client.pm ( view source; MetaCPAN )

;
use AC::Yenta::Conf;
use AC::DC::Protocol;
use AC::Import;
use AC::Misc;
use Sys::Hostname;
use JSON;
use Digest::SHA 'sha1';
use Socket;
use strict;

require 'AC/protobuf/yenta_check.pl';
require '

me->{server_file});
    local $/ = "\n";
    while(<$f>){
        chop;
        my $data = decode_json( $_ );
        next unless grep { $_ eq $map } @{ $data->{map} };
        if( $data->{is_local} )