1. Incorporated sh/st, (un)set/lockout, forward/opername from Iain G0RDI

[spider.git] / cmd / forward / opername.pl

diff --git a/cmd/forward/opername.pl b/cmd/forward/opername.pl
new file mode 100644 (file)
index 0000000..c8db656
--- /dev/null
+++ b/cmd/forward/opername.pl
@@ -0,0 +1,33 @@
+#
+# Cause node to send PC41 info frames
+#
+# Copyright (c) 1998 - Iain Philipps G0RDI
+#
+# Mods by Dirk Koopman G1TLH 12Dec98
+#
+
+my ($self, $line) = @_;
+my @f = split /\s+/, uc $line;
+my @out;
+my $call;
+
+if (@f == 0) {
+       return (1, $self->('e6')) if ($self->priv < 5); 
+} else {
+       foreach $call (@f) {
+               my $ref = DXUser->get_current($call);
+               if ($ref) {
+                       my $name = $ref->name;  
+                       my $qth = $ref->qth;
+                       my $lat = $ref->lat;
+                       my $long = $ref->long;
+                       my $node = $ref->homenode;
+                       my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
+                       DXProt::broadcast_ak1a(DXProt::pc41($call, 1, $name), $DXProt::me) if $name;
+                       DXProt::broadcast_ak1a(DXProt::pc41($call, 2, $qth), $DXProt::me) if $qth;
+                       DXProt::broadcast_ak1a(DXProt::pc41($call, 3, $latlong), $DXProt::me) if $latlong;
+                       DXProt::broadcast_ak1a(DXProt::pc41($call, 4, $node), $DXProt::me) if $node;
+               }
+       }
+}
+return (1, @out);