- check valid machine name

1 files changed, 7 insertions, 0 deletions

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;