#!/usr/bin/perl

use strict;

open(OMSHELL, "|/bin/omshell") || die("Could not open omshell\n");
print OMSHELL "server localhost\n";
print OMSHELL "port 6902\n";
print OMSHELL "key omapi_key fakekey==\n";
print OMSHELL "connect\n";
print OMSHELL "new failover-state\n";
print OMSHELL "set name = \"netreg-failover\"\n";
print OMSHELL "open\n";

close(OMSHELL) || die("Could not close omshell\n");