From 03d1d04e113f38a365f035612552a5e748b324ae Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 19 Jun 1998 21:24:01 +0000
Subject: [PATCH] added Ids

---
 cmd/bye       | 2 ++
 cmd/set/qra   | 2 ++
 cmd/set/qth   | 2 ++
 cmd/show/user | 3 +++
 cmd/shutdown  | 2 ++
 5 files changed, 11 insertions(+)

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();
-- 
2.34.1