X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=cmd%2Fset%2Fqth;fp=cmd%2Fset%2Fqth;h=c54a32891bafd59a6886c4dac39f94d788548efb;hb=0121434f428d8e7d1f31a9d69a4ee250b952b468;hp=0000000000000000000000000000000000000000;hpb=625ce0adf070a7e900fa03714a391652db0c065a;p=spider.git

diff --git a/cmd/set/qth b/cmd/set/qth
new file mode 100644
index 00000000..c54a3289
--- /dev/null
+++ b/cmd/set/qth
@@ -0,0 +1,6 @@
+#
+# set the qth field
+#
+my ($self, $args)  = @_;
+my $user = $self->user;
+return (1, "qth is now ", $user->qth($args));