# function must return true to make the send happen
$sub = "before_send_$class";
if ($thing->can($sub)) {
- return $thing->$sub($dxchan);
+ return unless $thing->$sub($dxchan);
}
# generate the protocol line which may (or not) be cached
dbg("Thingy::broadcast: " . $thing->ascii) if isdbg('thing');
my @dxchan;
- my $to ||= $thing->{touser};
+ my $to ||= $thing->{route};
+ $to ||= $thing->{touser};
$to ||= $thing->{group};
if ($to && is_callsign($to) && (my $ref = Route::get($to))) {
dbg("Thingy::broadcast: routing for $to") if isdbg('thing');
my $dd = new Data::Dumper([$thing]);
$dd->Indent(0);
$dd->Terse(1);
- $dd->Sortkeys(1);
+ #$dd->Sortkeys(1);
$dd->Quotekeys($] < 5.005 ? 1 : 0);
return $dd->Dumpxs;
}