Lines Matching refs:key
144 my($file,$command,$key,$crypted_pwd,$groups,$comment) = @ARGV;
245 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};
246 $crypted_pwd = (split /:/, $DB{$key}, 3)[0] if $crypted_pwd eq '.';
247 $groups = (split /:/, $DB{$key}, 3)[1] if !$groups || $groups eq '.';
248 $comment = (split /:/, $DB{$key}, 3)[2] if !$comment || $comment eq '.';
260 die "Sorry, user `$key' already exists!\n" if $DB{$key};
266 $DB{$key} = $crypted_pwd;
268 print "User $key $action with password encrypted to $DB{$key} using $crypt_method\n";
279 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};
280 delete $DB{$key}, print "`$key' deleted\n";
284 print $key ? "$key:$DB{$key}\n" : map { "$_:$DB{$_}\n" if $DB{$_} } keys %DB;
288 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};
289 my $chkpass = (split /:/, $DB{$key}, 3)[0];
308 ($key,$crypted_pwd,$groups,$comment) = split /:/, $_, 4;