+# This simply fixes up an existing (or recently modified) Filter into
+# an existing dxchan
+sub load_dxchan
+{
+ my $dxchan = shift;
+ my $sort = lc shift;
+ my $in = shift ? 'in' : '';
+ my $nossid = $dxchan->call;
+ $nossid =~ s/-\d+$//;
+ my $n = "$in$sort" . "filter";
+
+ $dxchan->{$n} =
+ Filter::read_in($sort, $dxchan->call, $in) ||
+ Filter::read_in($sort, $nossid, $in) ||
+ Filter::read_in($sort, $dxchan->is_user ? 'user_default' : 'node_default', $in);
+}
+