generated from smedev/Template-for-SMEServer-Core-Package
	
		
			
	
	
		
			18 lines
		
	
	
		
			519 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
		
		
			
		
	
	
			18 lines
		
	
	
		
			519 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| 
								 | 
							
								{
							 | 
						||
| 
								 | 
							
								# If you set the server dns resolver to external            
							 | 
						||
| 
								 | 
							
								# (for the main domain) you can not login in roundcube 
							 | 
						||
| 
								 | 
							
								# with the imap authentication
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								use esmith::DomainsDB;
							 | 
						||
| 
								 | 
							
								my $d = esmith::DomainsDB->open_ro;
							 | 
						||
| 
								 | 
							
								my $domainname = $DB->get_value('DomainName')  or
							 | 
						||
| 
								 | 
							
								                die ("Unable to retrieve the domain name: $!");
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								my $dns = $d->get_prop("$domainname",'Nameservers') or
							 | 
						||
| 
								 | 
							
								                die ("Unable to retrieve the Name Servers: $!");
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								if ($dns ne 'localhost') {
							 | 
						||
| 
								 | 
							
								$DB->set_prop('imaps','access','public');
							 | 
						||
| 
								 | 
							
								}
							 | 
						||
| 
								 | 
							
								}
							 |