Changeset 323

Timestamp:

May 25, 2007, 2:37:51 AM (18 years ago)

Author:

geofft

Message:

fix a regex

File:

• server/common/oursrc/accountadm/admof.in (modified) (1 diff)

server/common/oursrc/accountadm/admof.in

@@ -61 +61 @@
 
 for(my $i = 2; $i < @fs; $i++) {
-  my ($id) = ($fs[$i] =~ /^  ([\w:_-]+) rlidwka$/);
+  my ($id) = ($fs[$i] =~ /^  ([\w:_\.-]+) rlidwka$/);
   if($id eq "") { next; }
   my $group;