18 lines
361 B
Plaintext
18 lines
361 B
Plaintext
{
|
|
|
|
my $p = $modSSL{'TCPPort'} || '443';
|
|
|
|
if ($port ne $p){
|
|
|
|
## Redirect Web Address to Secure Address
|
|
my @urls = split (/[,;]/, ($vtigercrm{'Alias'} || ''));
|
|
push (@urls, 'vtigercrm');
|
|
$OUT .= "\tRewriteEngine on\n";
|
|
foreach my $url (@urls){
|
|
$OUT .= "\tRewriteRule ^/$url(/.*|\$) https://%{HTTP_HOST}/$url\$1 \[L,R\]\n";
|
|
}
|
|
|
|
}
|
|
}
|
|
|