#!/usr/bin/perl -w

use Socket;

($file, $channel, $username, $song_title, $timeout, $percent) = @ARGV;

($username) = $username =~/^(.*?)\@/;

$message = pack "CCxxVVa*Ca*Ca*", 0, $channel, $timeout, $percent,
    $file, 255, $username, 255, $song_title;

socket( CLIENT, PF_UNIX, SOCK_DGRAM, 0 ) or die;
connect( CLIENT, sockaddr_un( "/tmp/lamp-play-socket" )) or die;

print CLIENT $message;
