#!/usr/bin/perl

$HOST = '192.168.1.8';
$PORT = '3689';
$ITEM = '1498';

# ----- NO SERVICABLE PARTS BELOW -----

# Need package 'libnet-telnet-perl' for this!
use Net::Telnet;

# Check to see if the SMTP port's open
print STDERR "Connecting... ";
my $obj = new Net::Telnet(Errmode => "return",
			  Host    => $HOST,
			  Port    => $PORT);
my $ok  = $obj->open();
print STDOUT $obj->getlines;
print STDERR "done.\n";

if($ok) {
    print STDERR "Sending request... ";
    $obj->print("GET daap://$HOST:$PORT/databases/1/items/$ITEM.wav HTTP/1.1");
    $obj->print();
    print STDERR "sent.\n";

    print STDERR "Request returned:\n";
    for($i=0; $i <= 10; $i++) {
	$block = $obj->getline;
	print STDERR "  $block";
    }

    $obj->max_buffer_length(3*1024*1024);

    print STDERR "Reading data: ";
    while(($block = $obj->get(Timeout => 30, Binmode => 1, Telnetmode => 0))) {
	print STDERR ".";
	syswrite(STDOUT, $block);

#	vec($stdout, fileno(STDOUT), 1) = 1;
#	select($stdout, $stdout, $stdout, 0.5);
#	sleep(1);
    }
    print STDERR "\n";

    $ok = 0;
} else {
    print STDERR "Can't connect to host\n";
    $ok = 1;
}

exit $ok;