Yet Another CPAN Grep

App-rhttp ( B/BP/BPMEDLEY/App-rhttp-0.03.tar.gz, BPMEDLEY, 2013; MetaCPAN )

App-rhttp/bin/rhttp.pl ( view source; MetaCPAN )

ent::Socket;
use Getopt::Long;
use JSON::PP;

our $VERSION = "0.03";

$| = 1;

$AnyEvent::Log::FILTER->level("info");

our %Config = (
    config_file => "rhttp.json",
    cert_file => "",
    key_fil

r exit;

if ($Config{add}) {
    my $json_config = config($Config{config_file});

    my $add = delete($Config{add});
    %Config = %{$json_config} if defined $json_config;

    if ($add =~ m#^vhost:(

e}, JSON::PP->new->ascii->pretty->encode(\%Config));

    exit;
}

if ($Config{del}) {
    my $json_config = config($Config{config_file});

    my $del = delete($Config{del});
    %Config = %{$json_co