From fabde284dc0e5ee2f85a5f529832d7c6989f248c Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Fri, 16 Sep 2005 15:11:57 +0000
Subject: - check valid machine name

---
 mdkonline.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/mdkonline.pm b/mdkonline.pm
index aa460f56..cf35a8d7 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -136,6 +136,13 @@ sub check_valid_email {
     return $st
 }
 
+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;
+    $bt
+}
+
 sub rpm_ver_parse {
     my ($ver) = @_;
     my @verparts;
-- 
cgit v1.2.1