#!/opt/bin/perl

use Fcntl ();
use Event;
use PApp::SQL;

use StableTV;

use StableTV::Source::V4L2;
use StableTV::Source::IVTV;
use StableTV::Source::DVB;

our $CFG;

use YAML;

$StableTV::CFG = YAML::LoadFile "/etc/stabletv.cfg";

$StableTV::CFG->{ivtvctl} ||= "ivtvctl";

$DATABASE = "DBI:mysql:mythconverg;mysql_read_default_file=/root/.my.cnf";

$PApp::SQL::DBH = PApp::SQL::connect_cached undef, $DATABASE
   or die "$DATABASE: $DBI::ERRSTR\n";

for (values %{ $StableTV::CFG->{source} }) {
   my $class = "StableTV::Source::$_->{type}";

   eval "require $class" or die "$class: $@";
   push @sources, $class->new (%$_);
}

for (@sources) {
   $_->start ("scan");
}

Event::loop;