plugeth/swarm/pss/testdata/addpsstodiscoverytestsnapshot.pl

29 lines
532 B
Perl
Raw Normal View History

2018-06-20 12:06:27 +00:00
#!/usr/bin/perl
use JSON;
my $f;
my $jsontext;
my $nodelist;
my $network;
open($f, "<", $ARGV[0]) || die "cant open " . $ARGV[0];
while (<$f>) {
$jsontext .= $_;
}
close($f);
$network = decode_json($jsontext);
$nodelist = $network->{'nodes'};
for ($i = 0; $i < 0+@$nodelist; $i++) {
#my $protocollist = $$nodelist[$i]{'node'}{'info'}{'protocols'};
#$$protocollist{'pss'} = "pss";
my $svc = $$nodelist[$i]{'node'}{'config'}{'services'};
pop(@$svc);
push(@$svc, "pss");
push(@$svc, "bzz");
}
print encode_json($network);