libvideosite: limit connector names to letters

diff --git a/libvideosite.pm b/libvideosite.pm
index 5f3acdb..3dfe1c3 100644 (file)
--- a/libvideosite.pm
+++ b/libvideosite.pm
@@ -721,6 +721,11 @@ sub _cmd_connector {
 
         $name = lc($name);
 
+        unless($name =~ m|^[a-z]+$|) {
+            _io("%s is not a valid connector name (only letters are allowed)", $name);
+            return;
+        }
+
         if (_config_list_has(['defined-connectors'], $name)) {
             _io("Connector already exists");
             return;