From 1318ead220797be50bdf3331e10ed1d390fd830a Mon Sep 17 00:00:00 2001 From: Yaroslav Tykhiy Date: Mon, 11 Feb 2002 15:26:20 +0000 Subject: Found a single point where rmuser(8) wasn't robust to strange characters in a username: where it was inserted into a regexp. Fix it by escaping metacharacters in the name with \Q-\E. --- adduser/rmuser.perl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'adduser/rmuser.perl') diff --git a/adduser/rmuser.perl b/adduser/rmuser.perl index aeb9988..1ffac08 100644 --- a/adduser/rmuser.perl +++ b/adduser/rmuser.perl @@ -380,7 +380,7 @@ sub update_group_file { chown($group_uid, $group_gid, $new_group_file) || print STDERR "\n${whoami}: Warning: could not set owner/group of new group file to ${group_uid}/${group_gid} ($!)\n\rContinuing, but please check ownership of $group_file!\n"; while ($i = ) { - if (!($i =~ /$login_name/)) { + if (!($i =~ /\Q$login_name\E/)) { # Line doesn't contain any references to the user, so just add it # to the new file print NEW_GROUP $i; -- cgit v1.2.3-56-ge451