1/* Strip domain part from an email address. 2 Copyright (C) 2006, 2007, 2008, 2009, 2010 Jan Rafaj 3 4 This program is free software; you can redistribute it and/or modify 5 it under the terms of the GNU General Public License as published by 6 the Free Software Foundation; either version 3, or (at your option) 7 any later version. 8 9 This program is distributed in the hope that it will be useful, 10 but WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 GNU General Public License for more details. 13 14 You should have received a copy of the GNU General Public License 15 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 16 17module 'strip_domain_part'. 18#pragma regex push +extended 19 20func strip_domain_part(string domain, number n) 21 returns string 22do 23 if n = 0 24 return domainpart(domain) 25 elif domainpart(domain) matches '.*((\.[^.]+){' . n . '})' 26 return substring(\1, 1, -1) 27 else 28 return domain 29 fi 30done 31 32#pragma regex pop 33