add unset/password command to delete a user password

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index f16494f91c9361c41813878ed9705d0aff533bbb..c9725f271e5b804cb6581e02a859e8e2e335fbae 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -580,6 +580,12 @@ sub is_ak1a
        my $self = shift;
        return $self->{sort} eq 'A';
 }
+
+sub unset_passwd
+{
+       my $self = shift;
+       delete $self->{passwd};
+}
 1;
 __END__