lirc-serial und imonlcd

# Starts LIRC daemon.
#
# LIRC is used to control different
# infrared receivers and transceivers.


description     "LIRC Daemon"
author          "Gerald Dachs <gda@dachsweb.de>"


start on started remoted
stop on runlevel [016]


respawn
normal exit 0 


script
load_modules ()
{
  MODULES_MISSING=false


  for mod in $*; do
      modprobe $mod 2> /dev/null || MODULES_MISSING=true
  done


  if $MODULES_MISSING; then
    exit 0
  fi
}


test -f /usr/sbin/lircd || exit 0


if [ -f /etc/lirc/hardware.conf ];then
  . /etc/lirc/hardware.conf
fi


if [ ! -f /etc/lirc/lircd.conf ] || \
   grep -q "^#UNCONFIGURED" /etc/lirc/lircd.conf ||\
   [ "x$START_LIRCD" = "xfalse" ]; then
    exit 0   
fi


#We need default socket locations
if [ -z "$REMOTE2_SOCKET" ]; then
  REMOTE2_SOCKET="/var/run/lirc/lircd"
fi


[ -d "/var/run/lirc" ] || mkdir -p "/var/run/lirc"


if [ "$LOAD_MODULES" = "true" ]; then
  load_modules $REMOTE2_MODULES
fi


build_remote_args ()
{
  REMOTE_ARGS="$*"


  #For remote only detection support, we need
  #both REMOTE2_DEVICE and TRANSMITTER2_DEVICE undefined
  if [ -z "$REMOTE2_DEVICE" ] && [ -z "$TRANSMITTER2_DEVICE" ] && [ -c $dev ]; then
    REMOTE2_DEVICE="$dev"
  fi


  #If we have a REMOTE2_DEVICE or REMOTE2_DRIVER defined (either because no devices
  #were defined, OR if we explicitly did), then populate REMOTE_ARGS
  if [ ! -z "$REMOTE2_DEVICE" ] || [ ! -z "$REMOTE2_DRIVER" ]; then
    if [ -n "$REMOTE2_DEVICE" ] && [ "$REMOTE2_DEVICE" != "none" ]; then
      REMOTE_ARGS="--device=$REMOTE2_DEVICE $REMOTE_ARGS"
    fi
    if [ -n "$REMOTE2_DRIVER" ] && [ "$REMOTE2_DRIVER" != "none" ]; then
      REMOTE_ARGS="--driver=$REMOTE2_DRIVER $REMOTE_ARGS"
    fi


    #Now, if we ALSO have a transmitter defined, add some args
    #To make the first lircd listen up
    if [ ! -z "$TRANSMITTER2_DEVICE" ] || [ ! -z "$TRANSMITTER2_DRIVER" ]; then      
      REMOTE_ARGS="$REMOTE_ARGS --listen"
    fi
    REMOTE_ARGS="--output=$REMOTE2_SOCKET $REMOTE_ARGS"
  fi
  echo $REMOTE_ARGS
}


  REMOTE2_LIRCD_ARGS=`build_remote_args $REMOTE2_LIRCD_ARGS`
  if [ -z "$REMOTE2_LIRCD_ARGS" ]; then
    exit 0
  fi




exec /usr/sbin/lircd --nodaemon $REMOTE2_LIRCD_ARGS
end script


post-start script
if [ -f /etc/lirc/hardware.conf ];then
  . /etc/lirc/hardware.conf
fi


if [ ! -f /etc/lirc/lircd.conf ] || \
   grep -q "^#UNCONFIGURED" /etc/lirc/lircd.conf ||\
   [ "x$START_LIRCD" = "xfalse" ]; then
    exit 0
else
  while [ ! -e /dev/lircd ]; do
    sleep 0.1
  done
fi
end script

# /etc/lirc/hardware.conf
# 
#Chosen Remote Control
REMOTE="<?cs if:system.lirchw.description != "" ?><?cs var:system.lirchw.description ?><?cs else ?>None<?cs /if ?>"
REMOTE_MODULES="<?cs if:system.lirchw.lirc_driver != "none" && if:system.lirchw.lirc_driver != "" ?><?cs var:system.lirchw.lirc_driver ?><?cs /if ?>"
REMOTE_DRIVER="<?cs if:(system.lirchw.driver != "none" && system.lirchw.driver != "" )&& (system.lirchw.lirc_driver == "none" || system.lirchw.lirc_driver == "") ?><?cs var:system.lirchw.driver ?><?cs /if ?>"
REMOTE_DEVICE="<?cs if:system.lirchw.lirc_driver != "" && system.lirchw.lirc_driver != "none" ?>/dev/lirc0<?cs /if ?>"
REMOTE_LIRCD_CONF="<?cs var:system.lirchw.lircd_conf ?>"
REMOTE_LIRCD_ARGS="--listen"


#Chosen Remote Control
REMOTE2="Soundgraph iMON Antec Veris"
REMOTE2_MODULES="lirc_imon"
REMOTE2_DRIVER=""
REMOTE2_DEVICE="/dev/lirc1"
REMOTE2_LIRCD_CONF=""
REMOTE2_LIRCD_ARGS="--pidfile=/var/run/lirc/lircd1.pid --connect=localhost:8765"


#Chosen IR Transmitter
TRANSMITTER="None"
TRANSMITTER_MODULES=""
TRANSMITTER_DRIVER=""
TRANSMITTER_DEVICE=""
TRANSMITTER_LIRCD_CONF=""
TRANSMITTER_LIRCD_ARGS=""


#Enable lircd
START_LIRCD="<?cs if:system.lirchw.description != "" ?>true<?cs else ?>false<?cs /if ?>"


#Don't start lircmd even if there seems to be a good config file
#START_LIRCMD="false"


#Try to load appropriate kernel modules
LOAD_MODULES="true"


# Default configuration files for your hardware if any
LIRCMD_CONF=""


#Forcing noninteractive reconfiguration
#If lirc is to be reconfigured by an external application
#that doesn't have a debconf frontend available, the noninteractive
#frontend can be invoked and set to parse REMOTE and TRANSMITTER
#It will then populate all other variables without any user input
#If you would like to configure lirc via standard methods, be sure
#to leave this set to "false"
FORCE_NONINTERACTIVE_RECONFIGURATION="false"
START_LIRCMD=""

begin remote


  name   Antec_Fusion_Wheel
  bits                  64
  eps                   30
  aeps                 100


  one              0     0
  zero             0     0
  gap               139998
  ignore_mask 0x0000000000000301
  min_repeat             1
  toggle_bit             0


      begin codes
          KNOB_VOLUMEUP           0x00010000000002ee
          KNOB_VOLUMEDOWN         0x01000000000002ee
      end codes


end remote

# /etc/init/lcdd.conf
description     "LCDd Daemon"


start on starting xbmc
stop on stopping xbmc


pre-start script
/usr/bin/svdrpsend PLUG imonlcd off
end script


post-stop script
/usr/bin/svdrpsend PLUG imonlcd on
end script


exec /usr/sbin/LCDd -s 1 -f -c /etc/LCDd.conf

# LCDd.conf -- configuration file for the LCDproc server daemon LCDd




## Server section with all kinds of settings for the LCDd server ##
[server]


# Where can we find the driver modules ?
# IMPORTANT: Make sure to change this setting to reflect your
#            specific setup! Otherwise LCDd won't be able to find
#            the driver modules and will thus not be able to
#            function properly.
# NOTE: Always place a slash as last character !
DriverPath=/usr/lib/lcdproc/


# Tells the server to load the given drivers. Multiple lines can be given.
# The name of the driver is case sensitive and determines the section
# where to look for further configuration options of the specific driver
# as well as the name of the dynamic driver module to load at runtime.
# The latter one can be changed by giving af File= directive in the
# driver specific section.
#
# The following drivers are supported:
#   bayrad, CFontz, CFontz633, CFontzPacket, curses, CwLnx, ea65, 
#   EyeboxOne, g15, glcdlib, glk, hd44780, icp_a106, imon, imonlcd, IOWarrior,
#   irman, joy, lb216, lcdm001, lcterm, lirc, lis, MD8800, ms6931, mtc_s16209x,
#   MtxOrb, mx5000, NoritakeVFD, picolcd, pyramid, sed1330, sed1520, serialPOS,
#   serialVFD, shuttleVFD, sli, stv5730, svga, t6963, text, tyan, ula200,
#   xosd
Driver=imonlcd


# Tells the driver to bind to the given interface
Bind=127.0.0.1


# Listen on this specified port; defaults to 13666.
#Port=13666


# Sets the reporting level; defaults to 2 (warnings and errors only).
#ReportLevel=3


# Should we report to syslog instead of stderr ? [default: no; legal: yes, no]
ReportToSyslog=yes


# User to run as.  LCDd will drop its root priviledges, if any,
# and run as this user instead.
User=vdr


# The server will stay in the foreground if set to true.
#Foreground=no


# Hello message: each entry represents a display line; default: builtin
Hello="  X B M C"


# GoodBye message: each entry represents a display line; default: builtin
GoodBye="  V D R"


# Sets the default time in seconds to displays a screen.
WaitTime=5


# If yes, the the serverscreen will be rotated as a usual info screen. If no,
# it will be a background screen, only visible when no other screens are
# active. The special value 'blank' is similar to no, but only a blank screen
# is displayed. [default: on; legal: on, off, blank]
ServerScreen=blank


# Set master backlight setting. If set to 'open' a client may control the
# backlight for its own screens (only). [default: open; legal: off, open, on]
Backlight=on


# Set master heartbeat setting. If set to 'open' a client may control the
# heartbeat for its own screens (only). [default: open; legal: off, open, on]
#Heartbeat=off


# set title scrolling speed [default: 10; legal: 0-10]
#TitleSpeed=10


# The "...Key=" lines define what the server does with keypresses that
# don't go to any client.
# These are the defaults:
#ToggleRotateKey=Enter
#PrevScreenKey=Left
#NextScreenKey=Right
#ScrollUpKey=Up
#ScrollDownKey=Down


# If you have only 4 keys, you can choose to use this:
#ToggleRotateKey=Enter
#PrevScreenKey=Up
#NextScreenKey=Down


# If you have only 3 keys, you can choose to use this:
#ToggleRotateKey=Enter
#PrevScreenKey=Up




## The menu section. The menu is an internal LCDproc client. ##
[menu]
# You can configure what keys the menu should use. Note that the MenuKey
# will be reserved exclusively, the others work in shared mode.


# The following works excellent with 4 keys or more.
#MenuKey=Escape
#EnterKey=Enter
#UpKey=Up
#DownKey=Down
# If you have 6 keys you may define these as well
#LeftKey=Left
#RightKey=Right


# If you have only 3 keys, you could use something like this:
#MenuKey=Escape
#EnterKey=Enter
#DownKey=Down




### Driver sections are below this line, in alphabetical order  ###


## Soundgraph iMON LCD ##
[imonlcd]
# Specify which iMon protocol should be used [legal: 0=15c2:ffdc device,
# 1=15c2:0038 device; default: 0]
Protocol=1


# Set the exit behavior [legal: 0=leave shutdown message, 1=show the big clock,
# 2=blank device; default: 1]
OnExit=1


# Select the output device to use [default: /dev/lcd0]
Device=/dev/lcd0


# Select the displays contrast [default: 200; legal: 0-1000]
Contrast=300


# Specify the size of the display in pixels [default: 96x16]
#Size=96x16


# Set the backlight state [default: on; legal: on, off]
#Backlight=on


# Set the disc mode [legal: 0=spin the "slim" disc - two disc segments,
# 1=their complement spinning; default: 0]
#DiscMode=1




# EOF

#!/usr/bin/perl -w
# /usr/local/bin/imon.pl


use HTTP::Request::Common;
use LWP::UserAgent;
use IO::Socket; 


my $sockres;
my $sock;


#see here for details of imon lcd driver output control bits
#http://lcdproc.cvs.sourceforge.net/viewvc/lcdproc/lcdproc/server/drivers/imonlcd.c?view=markup




$sock = new IO::Socket::INET (PeerAddr => 'localhost', PeerPort => '13666', Proto => 'tcp', ); 


die "Could not create socket: $!\n" unless $sock; 


print $sock "hello\n";


$sockres = readline $sock;


do
{


my $output = "";


my $progress = 0;
my $icondata = 0;


my $ua = LWP::UserAgent->new;
my $res = $ua->request(GET 'http://localhost:8080/xbmcCmds/xbmcHttp?command=GetCurrentlyPlaying');


if ($res->is_success)
{
   $output = $res->content;


   #remove html tags
   $output =~ s/<html>//gi;
   $output =~ s/<.html>//gi;
   $output =~ s/<li>//gi;
}


my @lines = split(/\n/, $output);


foreach my $val (@lines)
{
   if ($val =~ /Filename:/i)
   {
      if ($val =~ /.mpg/i)  { $icondata = $icondata | (1<<19) }; #turn on MPG icon
      if ($val =~ /.mpeg/i) { $icondata = $icondata | (1<<19) }; #turn on MPG icon
      if ($val =~ /.avi/i)  { $icondata = $icondata | (2<<19) }; #turn on DIVX icon
      if ($val =~ /.wmv/i)  { $icondata = $icondata | (4<<19) }; #turn on WMV icon
      if ($val =~ /.pvr/i)  { $icondata = $icondata | (1<<9) }; #turn on TV icon
      if ($val =~ /.mkv/i)  { $icondata = $icondata | (1<<10) }; #turn on HDTV icon


      if ($val =~ /.wma/i) { $icondata = $icondata | (3<<13) }; #turn on WMA icon
      if ($val =~ /.mp3/i) { $icondata = $icondata | (1<<13) }; #turn on MP3 icon
      if ($val =~ /.ogg/i) { $icondata = $icondata | (2<<13) }; #turn on OGG icon
      if ($val =~ /.wav/i) { $icondata = $icondata | (4<<13) }; #turn on WAV icon
   }


   if ($val =~ /Type:/)
   {
      if ($val =~ /Video/i) { $icondata = $icondata | (2<<1) }; #turn on MOVIE icon
      if ($val =~ /Video/i) { $icondata = $icondata | 1 }; # enable play animation
      if ($val =~ /Audio/i) { $icondata = $icondata | (1<<1) }; # turn on MUSIC icon
      if ($val =~ /Audio/i) { $icondata = $icondata | 1 }; # enable play animation
      if ($val =~ /Picture/i) { $icondata = $icondata | (3<<1) }; # turn on PHOTO icon
   }
   if ($val =~ /Percentage:/)
   {
      $val =~ s/Percentage://i;
      $progress = $val *32 / 100;
   }
}




 printf $sock "output %i\n",$icondata;


 $sockres = readline $sock;
 
 sleep 1;


 printf $sock "output %i\n",(($progress <<6) | (1<<28)); # configure upper progress bar


 $sockres = readline $sock;


 sleep 1;


} while 1;


 close $sock;


# EOF