#!/usr/bin/perl

use strict;
use Getopt::Long;

open CHANNELS, "<channels.conf"
	or die $!;
my(@lines)=<CHANNELS>;

foreach my $line (@lines){
	my @column=split(/:/, $line);
	my @caid=split(/=/, $column[8]);

# These are the names and field numbers from channels.conf:
# Name: $column[0], Freq: $column[1], Param: $column[2], Src: $column[3], Symb: $column[4],
# VPID: $column[5], APID: $column[6], TPID: $column[7], CAID: $column[8], SID: $column[9],
# NID: $column[10], TID: $column[11], RID: $column[12]

	# We have to make sure to print the "data lines" only:
	if(($column[3] eq "C") || ($column[3] eq "S")){
		print "$column[3]-$column[10]-$column[11]-$column[9] \/\/ $column[0]\n";
	}
}

close(CHANNELS);