X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fsend_config.pl;fp=cmd%2Fsend_config.pl;h=75916d3b845cc6ebf807ffab60a48a8562affa33;hb=b2dfa977515995b8ab19611b88cfc999ad78591b;hp=0000000000000000000000000000000000000000;hpb=d638bda3f73da1b09d029105a0f3c95093c50df5;p=spider.git

diff --git a/cmd/send_config.pl b/cmd/send_config.pl
new file mode 100644
index 00000000..75916d3b
--- /dev/null
+++ b/cmd/send_config.pl
@@ -0,0 +1,10 @@
+#
+# send out PC92 config records manually
+#
+
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv > 5;
+
+$main::me->broadcast_pc92_update($main::mycall);
+
+return (1, $self->msg('ok'));