From 7410a02aea001a56c55495fd169630451d227521 Mon Sep 17 00:00:00 2001
From: Roland Gruber <post@rolandgruber.de>
Date: Wed, 4 Mar 2009 17:31:31 +0000
Subject: [PATCH] allow vbs in logon scripts

---
 lam/lib/account.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lam/lib/account.inc b/lam/lib/account.inc
index e4e078a1..e9be3ed0 100644
--- a/lam/lib/account.inc
+++ b/lam/lib/account.inc
@@ -442,7 +442,7 @@ function get_preg($argument, $regexp) {
 					$pregexpr = '/^((([\\\][\\\])|(%))([a-zA-Z0-9%\\.-])+)([\\\]([[:alnum:]%\\.\\$\\ \\_-])+)+$/u';
 					break;
 		case "logonscript":	// path to login-script. normal unix file
-					$pregexpr = '/^(([\/\\\])*([[:alnum:]%\\.\\ \\$\\_-])+([\/\\\]([[:alnum:]%\\.\\ \\$\\_-])+)*((\\.bat)|(\\.cmd)|(\\.exe)))*$/u';
+					$pregexpr = '/^(([\/\\\])*([[:alnum:]%\\.\\ \\$\\_-])+([\/\\\]([[:alnum:]%\\.\\ \\$\\_-])+)*((\\.bat)|(\\.cmd)|(\\.exe)|(\\.vbs)))*$/u';
 					break;
 		case "workstations":	// comma separated list with windows-hosts
 					$pregexpr = '/^(([a-zA-Z0-9\\.\\_-])+(,[a-zA-Z0-9\\.\\_-])*)*$/';