summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2006-09-15 23:42:23 +0000
committerThierry Vignaud <tv@mandriva.org>2006-09-15 23:42:23 +0000
commit0604e627faf2cf61c4af6121fe96baafbb50a843 (patch)
tree111846b8450ed9d81ee9aa5cdf1e5e10b4c491ae /mdkonline.pm
parent3d8d51b6ccdd706f64728f2e435efc420e6b8f92 (diff)
downloadmgaonline-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.pm2
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;
}