#!/usr/bin/perl -w

use strict;
use DBI;
use Getopt::Long;

my $dbhost="127.0.0.1";
my $database="mythconverg";
my $user="mythtv";
my $pass="mythtv";
my $sourceid = 1;
my $hidden = 0;

GetOptions('dbhost=s'=>\$dbhost,
           'database=s'=>\$database,
           'user=s'=>\$user,
           'pass=s'=>\$pass,
           'sourceid=i'=>\$sourceid,
           'hidden!'=>\$hidden
           ) || die "Usage:";

my $dbh = DBI->connect("dbi:mysql:database=$database:host=$dbhost","$user","$pass") || die "Cannot connect to database ($!)\n";

my $sql = sprintf("SELECT callsign, frequency, modulation, serviceid
                   FROM channel JOIN dtv_multiplex USING (mplexid)
                   WHERE channel.sourceid = ? %s
                   ORDER BY frequency",
                  ($hidden ? "" : "AND channel.visible = 1")
                  );
my $sth = $dbh->prepare($sql);
$sth->execute($sourceid);

while (my @row=$sth->fetchrow_array) {
    my $callsign = $row[0];
    my $frequency = $row[1];
    my $modulation = uc $row[2];
    my $serviceid = $row[3];

    printf "$callsign:$frequency:$modulation:0:0:$serviceid\n";
}

$dbh->disconnect;