version 1.19, 2006/12/09 23:33:56
|
version 1.21, 2006/12/10 23:06:13
|
Line 110 sub clean_domain {
|
Line 110 sub clean_domain {
|
return $domain; |
return $domain; |
} |
} |
|
|
$match_username = $LONCAPA::username_re = qr{[a-zA-Z\_][\w\-.]+}; |
$match_username = $LONCAPA::username_re = qr{\w[\w\-.]+}; |
$match_not_username = $LONCAPA::not_username_re = qr{[^\w\-.]+}; |
$match_not_username = $LONCAPA::not_username_re = qr{[^\w\-.]+}; |
sub clean_username { |
sub clean_username { |
my ($username) = @_; |
my ($username) = @_; |
$username =~ s/^\d+//; |
$username =~ s/^\W+//; |
$username =~ s/$match_not_username//g; |
$username =~ s/$match_not_username//g; |
return $username; |
return $username; |
} |
} |