#!/usr/bin/perl -n
# Convert kingofsat.net's "ini"-format listings data to the input format that
# scan expects for initial satellites.
# To use it:
# curl "http://en.kingofsat.net/dl.php?pos=28.5E&fkhz=1" | perl kos-to-dvbutils.pl | sort -u
# Adam Sampson <ats@offog.org>

if (/^\d+=(\d+),([HV]),(\d+),(\d)(\d),(?:DVB-S|S2)/) {
	print "S " . $1 . " $2 " . $3 . "000 $4/$5\n";
}
