1. added export_user.pl to export user files (for interest and safety)

[spider.git] / cmd / wx.pl

diff --git a/cmd/wx.pl b/cmd/wx.pl
index ad9f0d474d6ae51e072f1e2080fc27e5b6b1af1f..94db5d83ae32f62ccc34c3b768916b5bbb71a81a 100644 (file)
--- a/cmd/wx.pl
+++ b/cmd/wx.pl
@@ -36,10 +36,10 @@ if ($sort eq "FULL") {
   $to = "LOCAL";
 }
 
-DXProt::broadcast_list("WX de $from <$t>: $line", @locals);
+DXProt::broadcast_list("WX de $from <$t>: $line", 'wx', undef, @locals);
 if ($to ne "LOCAL") {
   $line =~ s/\^//og;    # remove ^ characters!
-  my $pc = DXProt::pc12($self, $line, $tonode, $sysopflag, 1);
+  my $pc = DXProt::pc12($from, $line, $tonode, $sysopflag, 1);
   DXProt::broadcast_ak1a($pc);
 }