X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Flinks.pl;fp=cmd%2Flinks.pl;h=456ea72f2355b10e4865418aaeca193f7497ace5;hb=502f900651a46b96008028945616a3b610d6cc7a;hp=0000000000000000000000000000000000000000;hpb=1f3035508fe4dacf899742db444ade501091e7de;p=spider.git

diff --git a/cmd/links.pl b/cmd/links.pl
new file mode 100644
index 00000000..456ea72f
--- /dev/null
+++ b/cmd/links.pl
@@ -0,0 +1,32 @@
+#
+# links : which are active
+# a complete list of currently connected linked nodes
+#
+# Created by Iain Philipps G0RDI, based entirely on
+# who.pl, which is Copyright (c) 1999 Dirk Koopman G1TLH
+#
+# 16-Jun-2000
+# $Id: links.pl
+
+
+my $self = shift;
+my $dxchan;
+my @out;
+
+push @out, "  Callsign   Started                 Ave RTT";
+
+foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_ak1a ) {
+	my $call = $dxchan->call();
+	my $t = cldatetime($dxchan->startt);
+	my $name = $dxchan->user->name || " ";
+	my $ping = $dxchan->is_node && $dxchan != $DXProt::me ? sprintf("%8.2f",
+																	$dxchan->pingave) : "";
+	push @out, sprintf "%10s $t %-6.6s $ping", $call;
+
+}
+
+return (1, @out)
+
+
+
+