From 7ec06c68c4abce46c9a8b53420f1aa5b579132f2 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Tue, 18 Oct 2005 12:15:28 +0000 Subject: - machine can have _ in name --- mdkonline.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mdkonline.pm') 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 } -- cgit v1.2.1