#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);

use File::Slurp;
use Partner::BS::TestServer;

sub main {

    my $file_name = '/etc/hosts';
    my $name = 'bs-test-server';
    my $ip = get_working_bs_server_ipv4();

    my $original_content = read_file $file_name;
    my $new_content = $original_content;

    if ($original_content =~ /$name/) {
        $new_content =~ s/[0-9\.]+ $name/$ip $name/;
    } else {
        $new_content .= "\n$ip $name\n";
    }

    if ($new_content ne $original_content) {
        write_file $file_name, $new_content;
    }
}
main();
__END__
