httemplate/misc/phonenums.cgi

   1 %# [ <% join(', ', map { qq("$_") } @exchanges) %> ]
   2 <% objToJson(\@exchanges) %>
   3 <%init>
   4
   5 my( $exchangestring, $svcpart ) = $cgi->param('arg');
   6
   7 $exchangestring =~ /\((\d{3})-(\d{3})-XXXX\)\s*$/i
   8   or die "unparsable exchange: $exchangestring";
   9 my( $areacode, $exchange ) = ( $1, $2 );
  10 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
  11 die "unknown svcpart $svcpart" unless $part_svc;
  12
  13 my @exports = $part_svc->part_export_did;
  14 if ( scalar(@exports) > 1 ) {
  15   die "more than one DID-providing export attached to svcpart $svcpart";
  16 } elsif ( ! @exports ) {
  17   die "no DID providing export attached to svcpart $svcpart";
  18 }
  19 my $export = $exports[0];
  20
  21 my $something = $export->get_dids('areacode'=>$areacode,
  22                                   'exchange'=>$exchange,
  23                                  );
  24
  25 #warn Dumper($something);
  26
  27 my @exchanges = @{ $something };
  28
  29 </%init>