From: djk Date: Fri, 19 Jun 1998 21:24:01 +0000 (+0000) Subject: added Ids X-Git-Tag: SPIDER_1_5~53 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=03d1d04e113f38a365f035612552a5e748b324ae;p=spider.git added Ids --- diff --git a/cmd/bye b/cmd/bye index 7e8fd9bf..1fc73f66 100644 --- a/cmd/bye +++ b/cmd/bye @@ -1,6 +1,8 @@ # # the bye command # +# $Id$ +# my $self = shift; $self->state('bye'); diff --git a/cmd/set/qra b/cmd/set/qra index 2237b4ea..0b13524e 100644 --- a/cmd/set/qra +++ b/cmd/set/qra @@ -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)); diff --git a/cmd/set/qth b/cmd/set/qth index c54a3289..93407a2a 100644 --- a/cmd/set/qth +++ b/cmd/set/qth @@ -1,6 +1,8 @@ # # set the qth field # +# $Id$ +# my ($self, $args) = @_; my $user = $self->user; return (1, "qth is now ", $user->qth($args)); diff --git a/cmd/show/user b/cmd/show/user index 21b3c895..eab5895d 100644 --- a/cmd/show/user +++ b/cmd/show/user @@ -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) diff --git a/cmd/shutdown b/cmd/shutdown index bee8a388..dea787a0 100644 --- a/cmd/shutdown +++ b/cmd/shutdown @@ -1,4 +1,6 @@ # # the shutdown command +# +# $Id$ # &main::cease();