#!/usr/bin/perl
# Added by Debian package rules script
push @INC, ("/usr/lib/perl5/misterhouse","/usr/share/perl5/misterhouse");
# -*- Perl -*-

# Use this to send a message via ip

use strict;
use IO::Socket;

unless (@ARGV == 2) { die "usage: $0 machine:port message" }
my $host_port = shift;
my $message   = shift;

my ($host, $port) = $host_port =~ /(\S+):(\S+)/;

my $EOL = "\0";

my $remote = IO::Socket::INET->new(Proto     => "tcp",
                                   PeerAddr  => $host,
                                   PeerPort  => $port);

unless ($remote) { die "send_ip_msg cannot connect to host $host on port $port" }

$remote->autoflush(1);
print $remote $message . $EOL;

close $remote;
