#!/usr/bin/perl -w
# listening to what lyx says

use LyX::Polite;
use strict;

my $myclient = $ARGV[0];
my $lyxout = $ENV{HOME}."/.lyxpipe.out";

while (1) {
    my $line = pipe_read($lyxout);
    chomp $line;
    my ($status, $client, $function, $data) = split /:/, $line;
    if ($client eq $myclient) {
	print "MY MESSAGE: $line\n";
    } else {
	pipe_write($lyxout, $line);
	print "MESSAGE FOR $client: $line\n";
	wait_lock($lyxout);
    }
}

