#!/usr/bin/perl
#
# gnomie
# http://www.bradfitz.com/programming/hacks/gnomie/
# bradfitz@bradfitz.com
#
# This code is released under the GNU Public License,
# which you can find all over the place.
#

my $SERVER = "10.0.0.12";    # change this line
my $PORT = 7775;             # maybe change this

# no need to change anything below this (unless you want to)

my $url = $ARGV[0];

unless ($url =~ /^http:\/\//) {
    die "Usage: $0 http://www.someaddress.com/\n";
}

use IO::Socket;
my $remote = IO::Socket::INET->new(
				   Proto    => "tcp",
				   PeerAddr => $SERVER,
				   PeerPort => $PORT,
				   )
    or die "can't connect to gnomie server";


print $remote "url $url\n";