diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2006-09-15 23:42:23 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2006-09-15 23:42:23 +0000 |
| commit | 0604e627faf2cf61c4af6121fe96baafbb50a843 (patch) | |
| tree | 111846b8450ed9d81ee9aa5cdf1e5e10b4c491ae /mdkonline.pm | |
| parent | 3d8d51b6ccdd706f64728f2e435efc420e6b8f92 (diff) | |
| download | mgaonline-0604e627faf2cf61c4af6121fe96baafbb50a843.tar mgaonline-0604e627faf2cf61c4af6121fe96baafbb50a843.tar.gz mgaonline-0604e627faf2cf61c4af6121fe96baafbb50a843.tar.bz2 mgaonline-0604e627faf2cf61c4af6121fe96baafbb50a843.tar.xz mgaonline-0604e627faf2cf61c4af6121fe96baafbb50a843.zip | |
(check_valid_boxname) enable dots in machine names
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index 69f37670..6c4ddfb8 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -237,7 +237,7 @@ sub check_valid_email { sub check_valid_boxname { my $boxname = shift; return 0 if length($boxname) >= 40; - my $bt = $boxname =~ /^[a-zA-Z][a-zA-Z0-9_]+$/i ? 1 : 0; + my $bt = $boxname =~ /^[a-zA-Z][a-zA-Z0-9_.]+$/i ? 1 : 0; $bt; } |