Implemented FS#2379 - Add perl option to web sites (apache2 mod_perl2)

Fixed (partly) FS#2310 - Template switch not working in mailuser module, for dashlets and the login page

Author: mcramer

install/sql/incremental/upd_0036.sql

@@ -0,0 +1,5 @@
+-- --------------------------------------------------------
+
+ALTER TABLE  `web_domain` ADD  `perl` enum('n','y') NOT NULL default 'n' AFTER  `python`;
+
+

install/sql/ispconfig3.sql

@@ -1643,6 +1643,7 @@ CREATE TABLE `web_domain` (
   `php` varchar(32) NOT NULL default 'y',
   `ruby` enum('n','y') NOT NULL default 'n',
   `python` enum('n','y') NOT NULL default 'n',
+  `perl` enum('n','y') NOT NULL default 'n',
   `redirect_type` varchar(255) default NULL,
   `redirect_path` varchar(255) default NULL,
   `seo_redirect` varchar(255) default NULL,

interface/web/index.php

@@ -31,6 +31,8 @@
 require_once('../lib/config.inc.php');
 require_once('../lib/app.inc.php');
 
+if(!isset($_SESSION['s']['module']['name'])) $_SESSION['s']['module']['name'] = 'login';
+
 $app->uses('tpl');
 $app->tpl->newTemplate('main.tpl.htm');
 

interface/web/sites/form/web_domain.tform.php

@@ -230,6 +230,12 @@
 									 ),*/
 			'value'		=> ''
 		),
+		'perl' => array (
+			'datatype'	=> 'VARCHAR',
+			'formtype'	=> 'CHECKBOX',
+			'default'	=> 'n',
+			'value'		=> array(0 => 'n',1 => 'y')
+		),
 		'ruby' => array (
 			'datatype'	=> 'VARCHAR',
 			'formtype'	=> 'CHECKBOX',

interface/web/sites/lib/lang/de_web_domain.lng

@@ -80,6 +80,7 @@ $wb['php_fpm_use_socket_txt'] = 'Benutze Socket für PHP-FPM';
 $wb['ipv6_address_txt'] = 'IPv6-Adresse';
 $wb['error_no_sni_txt'] = 'SNI for SSL is not activated on this server. You can enable only one SSL certificate on each IP address.';
 $wb['python_txt'] = 'Python';
+$wb['perl_txt'] = 'Perl';
 $wb['pm_max_children_txt'] = 'PHP-FPM pm.max_children';
 $wb['pm_start_servers_txt'] = 'PHP-FPM pm.start_servers';
 $wb['pm_min_spare_servers_txt'] = 'PHP-FPM pm.min_spare_servers';

interface/web/sites/lib/lang/en_web_domain.lng

@@ -81,6 +81,7 @@ $wb["www_to_non_www_txt"] = 'www -> non-www';
 $wb["php_fpm_use_socket_txt"] = 'Use Socket For PHP-FPM';
 $wb["error_no_sni_txt"] = 'SNI for SSL is not activated on this server. You can enable only one SSL certificate on each IP address.';
 $wb["python_txt"] = 'Python';
+$wb["perl_txt"] = 'Perl';
 $wb["pm_max_children_txt"] = 'PHP-FPM pm.max_children';
 $wb["pm_start_servers_txt"] = 'PHP-FPM pm.start_servers';
 $wb["pm_min_spare_servers_txt"] = 'PHP-FPM pm.min_spare_servers';

interface/web/sites/templates/web_domain_edit.htm

@@ -79,6 +79,12 @@ <h2><tmpl_var name="list_head_txt"></h2>
                     {tmpl_var name='ssi'}
                 </div>
             </div>
+            <div class="ctrlHolder apache">
+                <p class="label">{tmpl_var name='perl_txt'}</p>
+                <div class="multiField">
+                    {tmpl_var name='perl'}
+                </div>
+            </div>
             <div class="ctrlHolder apache">
                 <p class="label">{tmpl_var name='ruby_txt'}</p>
                 <div class="multiField">

server/conf/vhost.conf.master

@@ -109,6 +109,19 @@
 		</IfModule>
 </tmpl_if>
 
+<tmpl_if name='perl' op='==' value='y'>
+		<IfModule mod_perl.c>
+			PerlModule ModPerl::Registry
+			PerlModule Apache2::Reload
+			<Directory {tmpl_var name='web_document_root_www'}>
+				SetHandler perl-script
+				PerlResponseHandler ModPerl::Registry
+				PerlOptions +ParseHeaders
+				Options +ExecCGI
+			</Directory>
+		</IfModule>
+</tmpl_if>
+
 <tmpl_if name='python' op='==' value='y'>
 		<IfModule mod_python.c>
 			<Directory {tmpl_var name='web_document_root_www'}>