Tvheadend

#!/usr/bin/perl

use Data::Dumper;

use Config::Tiny;

use strict;

use warnings;

my $config = Config::Tiny->read('./astra_28.2e.ini');

my @data;

foreach my $section (keys %{$config}) {

	next until $section eq 'DVB';

	foreach my $parameter (keys %{$config->{$section}}) {

		my ($frequency, $polarisation, $symbolrate, $fec, $standard, $modulation) = split(',', $config->{$section}->{$parameter});

		next if not defined($modulation);

		push @data, { frequency => $frequency, polarisation => $polarisation, symbolrate => $symbolrate, fec => $fec, standard => $standard, modulation => $modulation };

	}

}

my @sorteddata = sort { $a->{frequency} <=> $b->{frequency} } @data;

# Use our sorteddata to write out a line that looks like this for each entry: S2 10891250 H 22000000 3/4 AUTO 8PSK

foreach my $entry (@sorteddata) {

	# chomp the 'DVB-' from the standard

	(my $standard = $entry->{standard}) =~ s/DVB-//g;

	# multiply the frequency by 1000

	my $frequency = $entry->{frequency} * 1000;

	my $polarisation = $entry->{polarisation};

	# multiply the symbolrate by 1000

	my $symbolrate = $entry->{symbolrate} * 1000;

	# split the fec into it's two parts unless it's auto

	my $fec;

	if ($entry->{fec} =~ m/Auto/) {

		$fec = 'AUTO';

	} else {

		$entry->{fec} =~ m/(\d)(\d)/;

		$fec = join('/',$1,$2);

	}

	# strip anything we don't want from the modulation

	$entry->{modulation} =~ m/([\w\d]*).*/;

	my $modulation = $1;

	print "$standard $frequency $polarisation $symbolrate $fec\n";

}