summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2005-10-18 12:15:28 +0000
committerDaouda Lo <daouda@mandriva.com>2005-10-18 12:15:28 +0000
commit7ec06c68c4abce46c9a8b53420f1aa5b579132f2 (patch)
treede6a1477901203b43c45abb909fdc4129aac3ab5
parent67821cdaa4b26bdb7869f2bde30efff1a215bc0f (diff)
downloadmgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar
mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar.gz
mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar.bz2
mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar.xz
mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.zip
- machine can have _ in name
-rw-r--r--mdkonline.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index be9ce8e4..b92651bb 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -139,7 +139,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
}