sub announce
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my $to = shift;
sub dx_spot
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my ($filter, $hops);
sub wwv
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my ($filter, $hops);
sub wcy
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my ($filter, $hops);