- added possibility to run perl-scripts (if allowed by admin) via directory-options

- for use in lighttpd you have to add "mod_cgi" to the modules-list (and maybe patch lighttpd-cron if perl is not installed in /usr/bin)

lib/functions/froxlor/function.customerHasPerlEnabled.php

@@ -0,0 +1,42 @@
+<?php
+
+/**
+ * This file is part of the Froxlor project.
+ * Copyright (c) 2010 the Froxlor Team (see authors).
+ *
+ * For the full copyright and license information, please view the COPYING
+ * file that was distributed with this source code. You can also view the
+ * COPYING file online at http://files.froxlor.org/misc/COPYING.txt
+ *
+ * @copyright  (c) the authors
+ * @author     Froxlor team <team@froxlor.org> (2010-)
+ * @license    GPLv2 http://files.froxlor.org/misc/COPYING.txt
+ * @package    Functions
+ * @version    $Id$
+ */
+
+/*
+ * Function customerHasPerlEnabled
+ *
+ * returns true or false whether perl is
+ * enabled for the given customer
+ *
+ * @param	int		customer-id
+ *
+ * @return	boolean
+ */
+function customerHasPerlEnabled($cid = 0)
+{
+	global $db;
+
+	if($cid > 0)
+	{
+		$result = $db->query_first("SELECT `perlenabled` FROM `".TABLE_PANEL_CUSTOMERS."` WHERE `customerid` = '".(int)$cid."'");
+		if(is_array($result) 
+			&& isset($result['perlenabled'])
+		) {
+			return ($result['perlenabled'] == '1') ? true : false;
+		}
+	}
+	return false;
+}