[interchange-cvs] interchange - kwalsh modified lib/Vend/Dispatch.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Aug 30 19:47:16 EDT 2007
User: kwalsh
Date: 2007-08-30 23:47:16 GMT
Modified: lib/Vend Dispatch.pm
Log:
* More DomainTail changes:
-- Correction: .ae -> .af
-- Additions: .ar and .co
Revision Changes Path
1.89 +5 -3 interchange/lib/Vend/Dispatch.pm
rev 1.89, prev_rev 1.88
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -r1.88 -r1.89
--- Dispatch.pm 30 Aug 2007 20:40:12 -0000 1.88
+++ Dispatch.pm 30 Aug 2007 23:47:16 -0000 1.89
@@ -1,6 +1,6 @@
# Vend::Dispatch - Handle Interchange page requests
#
-# $Id: Dispatch.pm,v 1.88 2007/08/30 20:40:12 kwalsh Exp $
+# $Id: Dispatch.pm,v 1.89 2007/08/30 23:47:16 kwalsh Exp $
#
# Copyright (C) 2002-2007 Interchange Development Group
# Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
package Vend::Dispatch;
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.88 $, 10);
+$VERSION = substr(q$Revision: 1.89 $, 10);
use POSIX qw(strftime);
use Vend::Util;
@@ -887,12 +887,14 @@
my $level = ($host =~ m{(?:\.
(?:com|edu|gov|net|org)\.al |
(?:ac|gov|mil|name|net|org|pro|sch)\.ae |
- (?:bank|com|edu|gov|hotel|law|music|net|org|tv)\.ae |
+ (?:bank|com|edu|gov|hotel|law|music|net|org|tv)\.af |
(?:co|com|org|net|nom)\.ag |
+ (?:com|edu|gov|int|mil|net|org)\.ar |
(?:ac|gv|or|co|priv)\.at |
(?:com|net|org|edu|gov|csiro|asn|id|act|nsw|nt|qld|sa|tas|vic|wa)\.au |
(?:adm|adv|agr|am|arq|art|ato|bio|blog|bmd|cim|cng|cnt|com|coop|ecn|edu|eng|esp|etc|eti|far|flog|fm|fnd|fot|fst|g12|ggf|gov|imb|ind|inf|jor|lel|mat|med|mil|mus|net|nom|not|ntr|odo|org|ppg|pro|psc|psi|qsl|rec|slg|srv|tmp|trd|tur|tv|vet|vlog|wiki|zlg)\.br |
(?:ab|bc|mb|nb|nf|ns|nt|nu|on|pe|qc|sk|yk)\.ca |
+ (?:com|edu|gov|mil|net|nom|org)\.co |
(?:ac|biz|com|ekloges|gov|ltd|name|net|org|parliament|press|pro|tm)\.cy |
(?:com|eun|gov|mil|net|org|sci)\.eg |
(?:com|edu|gob|nom|org)\.es |
More information about the interchange-cvs
mailing list