#!/usr/bin/env perl
#
# Modify the config.json.sample file, save it to config.json. Run server.pl on
# server, run client.pl on localhost. Config your browser to use socks 5 proxy
# with remote DNS support and you can now break through the great firewall of
# china.

use 5.006;
use strict;
use warnings;
use JSON;
use Net::Shadowsocks::Server;

local $/;
open(my $fh, '<', 'config.json') or die "Can't open  config.json: $!";
my $confg_json = <$fh>;
close($fh) || warn "close failed: $!";
my $config    = decode_json($confg_json);
my $_password      = $config->{'password'};
my $_remotehost    = $config->{'server'};
my $_remoteservice = $config->{'server_port'};
my $_method = $config->{'method'};

my $foo = Net::Shadowsocks::Server->new(
                                password      => $_password,
                                server        => $_remotehost,
                                server_port   => $_remoteservice,
                                          method => $_method
                               );
