diff options
| author | ivan <ivan> | 2001-09-30 22:19:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-30 22:19:34 +0000 |
| commit | 4ff1dd39976ab5c7550081743ca89a741100cfa3 (patch) | |
| tree | d1ddf8e0cdbb908403f2f8dac35a6c36ba80aa84 /FS | |
| parent | d390ca47b755c896af0644ae83ec583973c319b6 (diff) | |
$1 doesn't seem to last very long...
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/svc_acct.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 3530001fd..e46b4e5f3 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -676,13 +676,14 @@ sub check { my $ulen = $usernamemax || $self->dbdef_table->column('username')->length; if ( $username_uppercase ) { - $recref->{username} =~ /^([a-z0-9_\-\.]{$usernamemin,$ulen})$/i - or return "Illegal username"; + $recref->{username} =~ /^([a-z0-9_\-\.]{$usernamemin,$ulen})$/ + or return "Illegal username: ". $recref->{username}; + $recref->{username} = $1; } else { $recref->{username} =~ /^([a-z0-9_\-\.]{$usernamemin,$ulen})$/ - or return "Illegal username"; + or return "Illegal username: ". $recref->{username}; + $recref->{username} = $1; } - $recref->{username} = $1; if ( $username_letterfirst ) { $recref->{username} =~ /^[a-z]/ or return "Illegal username"; @@ -919,7 +920,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.47 2001-09-30 20:30:09 ivan Exp $ +$Id: svc_acct.pm,v 1.48 2001-09-30 22:19:34 ivan Exp $ =head1 BUGS |