]> dxcluster.net Git - spider.git/commitdiff
added Ids
authordjk <djk>
Fri, 19 Jun 1998 21:24:01 +0000 (21:24 +0000)
committerdjk <djk>
Fri, 19 Jun 1998 21:24:01 +0000 (21:24 +0000)
cmd/bye
cmd/set/qra
cmd/set/qth
cmd/show/user
cmd/shutdown

diff --git a/cmd/bye b/cmd/bye
index 7e8fd9bfd1f940f4592c9bd569f0a20dd8bd6955..1fc73f66648a9251cb327d9c5923902adc20d308 100644 (file)
--- a/cmd/bye
+++ b/cmd/bye
@@ -1,6 +1,8 @@
 #
 # the bye command
 #
+# $Id$
+#
 
 my $self = shift;
 $self->state('bye');
index 2237b4eaf3db39f8136f5ba37924b28272e915fe..0b13524e3ac1145d03689d86ad18dcbfea606465 100644 (file)
@@ -1,6 +1,8 @@
 #
 # set the qra locator field
 #
+# $Id$
+#
 my ($self, $args)  = @_;
 my $user = $self->user;
 return (1, "qra locator is now ", $user->qra($args));
index c54a32891bafd59a6886c4dac39f94d788548efb..93407a2a76899d2680119b6a4b409da404e8e75e 100644 (file)
@@ -1,6 +1,8 @@
 #
 # set the qth field
 #
+# $Id$
+#
 my ($self, $args)  = @_;
 my $user = $self->user;
 return (1, "qth is now ", $user->qth($args));
index 21b3c8957cf865af5138ac745e0c60ff5ac953c0..eab5895d134743a681da3474916a4dcaef6783f3 100644 (file)
@@ -1,6 +1,9 @@
 #
 # show either the current user or a nominated set
 #
+# $Id$
+#
+
 my $self = shift;
 my @set = split;      # the list of users you want listings (may be null)
 
index bee8a3882de380093c1608c030ce1380ddc2fd2c..dea787a03b3bf16cfcf7e0a69124622cdad37e5c 100644 (file)
@@ -1,4 +1,6 @@
 #
 # the shutdown command
+# 
+# $Id$
 #
 &main::cease();