/etc/init.d/LCDd start

DAEMON_OPTS="-i -s -f -c /etc/LCDd.conf"

#!/usr/bin/perl -w
#
# lcdrec.pl - display MythTV recording programs to a VFD/LCD display
# Mark Thompson 2005
#
# Use webmin to add a crontab entry to execute this at 00 and 30
# minutes past each hour
#
use IO::Socket;
use Fcntl;
use strict;

my $path = "/var/log/mythtv/mythbackend.log";

# Sleep a few seconds to make sure that myth logfile has been updated;
sleep 10;

# Open mythbackend.log to check recording history
sysopen( LOGFILE, $path, O_RDONLY | O_NONBLOCK ) || die "Cannot read logfile $path\n";

# Open TCP port to LCDd
my $remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "localhost",
PeerPort => 13666)|| die "Cannot connect to LCDd\n";
$remote->autoflush(1);
sleep 1; # give the server time to notice us...
print $remote "hello\n";
# we must read the response even if we ignore it:
my $lcdresponse = <$remote>;
# Turn off blocking mode...
fcntl($remote, F_SETFL, O_NONBLOCK);
# Set up some screen widgets...
print $remote "client_set name lcdmsg\n";
$lcdresponse = <$remote>;
print $remote "screen_add scr1\n";
$lcdresponse = <$remote>;
print $remote "screen_set scr1 -duration 10 -priority 2 -heartbeat off\n";
$lcdresponse = <$remote>;
print $remote "widget_add scr1 wid1 string\n";
$lcdresponse = <$remote>;
print $remote "widget_add scr1 wid2 string\n";
$lcdresponse = <$remote>;
#
my $s;
my $t;
my $l1;
my $l2;
while( $s = <LOGFILE> )
{
if ($s =~ /scheduler:/) {}
else
{
#(move this # to the next line down if you want to finished recordings
#to be displayed as well:)
# if ($s =~ /recording/)
if ($s =~ /Started recording/)
{
$t = substr($s, 11, 5);
if ($s =~ /Started recording/) {
$s = substr($s, index($s, "Started recording")+18);
$s = "$t $s";
} else
{
if ($s =~ /Finished recording/) {
$s = substr($s, index($s, "Finished recording")+19);
$s = "$t f:$s";
}
}
$_ = substr($s, 0, rindex($s, " on channel"));
tr/"'//d;
$l1=$l2; $l2=$_;
}
}
}
close(LOGFILE);

# I'm assuming here that the LCD is only 2 lines
if ($l1)
{
print $remote "widget_set scr1 wid1 1 1 \"$l1\"\n";
$lcdresponse = <$remote>;
}

if ($l2)
{
print $remote "widget_set scr1 wid2 1 2 \"$l2\"\n";
$lcdresponse = <$remote>;
}

# sleep so TCP connection will stay open until LCD has been updated
sleep 5;

set up a crontab entry to make it execute at 00 and 30 minutes past the hour, every hour.