added loginfo stuff

[spider.git] / cmd / unset / logininfo.pl

diff --git a/cmd/unset/logininfo.pl b/cmd/unset/logininfo.pl
new file mode 100644 (file)
index 0000000..1f2aa99
--- /dev/null
+++ b/cmd/unset/logininfo.pl
@@ -0,0 +1,12 @@
+#
+# unset the logininfo option for users
+#
+# Copyright (c) 1999 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+$self->user->wantlogininfo(0);
+$self->logininfo(0);
+return (1, $self->msg('ok'));
+