$thing->{group} = shift; # to call
my $from = shift;
$thing->{out} = shift; # 1 = ping, 0 = pong;
$thing->{user} = $dxchan->{call};
$thing->{o} = $from unless $from eq $dxchan->{call};
$thing->{group} = shift; # to call
my $from = shift;
$thing->{out} = shift; # 1 = ping, 0 = pong;
$thing->{user} = $dxchan->{call};
$thing->{o} = $from unless $from eq $dxchan->{call};