From 75e0fea14235449400f9f1501c03199d54cb8590 Mon Sep 17 00:00:00 2001
From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Thu, 19 Jun 2008 19:28:31 +0000
Subject: [PATCH] Vsys scripts should be allowed to contain '-'.

---
 backend.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/backend.ml b/backend.ml
index 6743f8c..2f964ef 100644
--- a/backend.ml
+++ b/backend.ml
@@ -46,7 +46,7 @@ class backendHandler dir_root (frontend_lst: frontendHandler list) =
 
      (** Regular expression that defines a legal script name. Filter out
        * temporary files using this *)
-     val file_regexp = Str.regexp "^[a-zA-Z][a-zA-Z0-9_\.]*$"
+     val file_regexp = Str.regexp "^[a-zA-Z][a-zA-Z0-9_\.\-]*$"
      val acl_file_regexp = Str.regexp ".*acl$"
 
      val dir_regexp = Str.regexp "^dir_";
-- 
2.43.0