diff options
Diffstat (limited to 'httemplate/misc')
-rw-r--r-- | httemplate/misc/phonenums.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/httemplate/misc/phonenums.cgi b/httemplate/misc/phonenums.cgi index b86d03f5d..108a5f7cd 100644 --- a/httemplate/misc/phonenums.cgi +++ b/httemplate/misc/phonenums.cgi @@ -13,11 +13,15 @@ if ( scalar(@exports) > 1 ) { die "no DID providing export attached to svcpart $svcpart"; } my $export = $exports[0]; - + my %opts = (); if ( $exchangestring eq 'tollfree' ) { $opts{'tollfree'} = 1; } +elsif ( $exchangestring =~ /^([\w\s]+), ([A-Z][A-Z])$/ ) { + $opts{'ratecenter'} = $1; + $opts{'state'} = $2; +} else { $exchangestring =~ /\((\d{3})-(\d{3})-XXXX\)\s*$/i or die "unparsable exchange: $exchangestring"; |