#!/usr/bin/perl

$touchdev=shift;
while (1)
{
  open(TOUCH,"evtest $touchdev|");
  while ($line =<TOUCH>)
  {
    if ($line =~ /^.*BTN_TOUCH.*value 1$/)
    {
      system("aplay /opt/euro-beta/touch.wav");
    }
    if ($line =~ /^.*BTN_LEFT.*value 1$/)
    {
      system("aplay /opt/euro-beta/touch.wav");
    }
  }
  sleep(1);
#      system("aplay /opt/euro-beta/touch.wav");
#      system("aplay /opt/euro-beta/touch.wav");
}
