# Store an entry sub STORE { my $self = shift; my ($id) = shift; my ($passwd) = shift; my ($passwdFile) = $self->{PATH}; my ($return)=0; my (@cache); my ($cryptedPass); unless ($self->{CLOBBER}) { carp ("No write access for $self->{PATH}"); return; } if (!$id && !$passwd) {return 1;} }