added some missing files

[spider.git] / cmd / show / station.pl

diff --git a/cmd/show/station.pl b/cmd/show/station.pl
new file mode 100644 (file)
index 0000000..9efa5b1
--- /dev/null
+++ b/cmd/show/station.pl
@@ -0,0 +1,42 @@
+#
+# show the station details
+#
+# Copyright (c) 1998 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+my @f = split /\s+/, uc $line;
+my @out;
+my $call;
+
+if (@f == 0) {
+  return (1, "*** no station specified ***") if ($self->priv < 5); 
+  my @calls = DXUser::get_all_calls();
+  foreach $call (@calls) {
+    my $ref = DXUser->get_current($call);
+       next if !$ref;
+       my $sort = $ref->sort;
+       my $qth = $ref->qth;
+       my $home = $ref->node;
+    push @out, "$call $sort $home $qth";
+  }
+} else {
+  foreach $call (@f) {
+    my $ref = DXUser::get_current($call);
+       if ($ref) {
+         my $name;
+      my $qth;
+         my $lat;
+         my $long;
+         my $node;
+         my $homenode;
+         push @out, "$call $qth";
+       } else {
+         push @out, "$call not known";
+       }
+  }
+}
+
+return (1, @out);