#!/usr/bin/perl

$network = shift(@ARGV) || die "Must specify public moira network";
$private_network = shift(@ARGV) || die "Must specify private moira network";
$really = shift(@ARGV);

my @hosts = `/usr/bin/qy ghst \\* \\* \\* $network`;

if(!$really) {
    print "******** NOT MAKING CHANGES ********\n";
    sleep 1;
}

foreach my $line(@hosts) {
    chomp $line;

    if($line =~ /^name:/) {
	$name = $line;
	$name =~ s/^name:\s+//;
    }

    if($line =~ /^address:/) {
	$address = $line;
	$address =~ s/^address:\s+//;
    }

    if($name =~ /[a-z0-9]/i && $address =~ /[a-z0-9]/i) {
	if($address =~ /^18\./) {
	    $address =~ s/^18\./10\./;
	    $cmd = "stella $name -A $address -N $private_network";
	    print "$cmd\n";

	    if($really) {
		system($cmd);
	    }
	}

	$name = "";
	$address = "";
    }
}