X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fvitelity.pm;h=3c0534fc145d011d003bcef7b124e78279788683;hb=a72a10f754f7465121d6137bb3dcee0a21ea6443;hp=d44335b65bd97d0b4ef58e857af035caa14874c2;hpb=1e1d4445682c0e69781654ea7f2851d861031e9f;p=freeside.git diff --git a/FS/FS/part_export/vitelity.pm b/FS/FS/part_export/vitelity.pm index d44335b65..3c0534fc1 100644 --- a/FS/FS/part_export/vitelity.pm +++ b/FS/FS/part_export/vitelity.pm @@ -15,12 +15,18 @@ tie my %options, 'Tie::IxHash', 'routesip' => { label=>'routesip (optional sub-account)' }, 'type' => { label=>'type (optional DID type to order)' }, 'fax' => { label=>'vfax service', type=>'checkbox' }, + 'restrict_selection' => { type=>'select', + label=>'Restrict DID Selection', + options=>[ '', 'tollfree', 'non-tollfree' ], + } + ; %info = ( 'svc' => 'svc_phone', 'desc' => 'Provision phone numbers to Vitelity', 'options' => \%options, + 'no_machine' => 1, 'notes' => <<'END' Requires installation of Net::Vitelity @@ -33,60 +39,82 @@ END sub rebless { shift; } +sub get_dids_can_tollfree { 1; }; + sub get_dids { my $self = shift; my %opt = ref($_[0]) ? %{$_[0]} : @_; if ( $opt{'tollfree'} ) { - # XXX: no caching for now - # XXX: limit option - my $command = 'listtollfree'; $command = 'listdids' if $self->option('fax'); my @tollfree = $self->vitelity_command($command); my @ret = (); - if (scalar(@tollfree)) { - local $SIG{HUP} = 'IGNORE'; - local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; - local $SIG{TERM} = 'IGNORE'; - local $SIG{TSTP} = 'IGNORE'; - local $SIG{PIPE} = 'IGNORE'; - - my $oldAutoCommit = $FS::UID::AutoCommit; - local $FS::UID::AutoCommit = 0; - my $dbh = dbh; - - my $errmsg = 'WARNING: error populating phone availability cache: '; - - foreach my $did ( @tollfree ) { - $did =~ /^(\d{3})(\d{3})(\d{4})/ or die "unparsable did $did\n"; - my($npa, $nxx, $station) = ($1, $2, $3); - push @ret, $did; - - my $phone_avail = new FS::phone_avail { - 'exportnum' => $self->exportnum, - 'countrycode' => '1', # vitelity is US/CA only now - 'npa' => $npa, - 'nxx' => $nxx, - 'station' => $station, - }; - - $error = $phone_avail->insert(); - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - die $errmsg.$error; - } - } - $dbh->commit or warn $errmsg.$dbh->errstr if $oldAutoCommit; + return [] if ( $tollfree[0] eq 'noneavailable' || $tollfree[0] eq 'none'); + foreach my $did ( @tollfree ) { + $did =~ /^(\d{3})(\d{3})(\d{4})/ or die "unparsable did $did\n"; + push @ret, $did; } my @sorted_ret = sort @ret; return \@sorted_ret; - } elsif ( $opt{'areacode'} && $opt{'exchange'} ) { #return numbers in format NPA-NXX-XXXX + } elsif ( $opt{'ratecenter'} && $opt{'state'} ) { + + my %flushopts = ( 'state' => $opt{'state'}, + 'ratecenter' => $opt{'ratecenter'}, + 'exportnum' => $self->exportnum + ); + FS::phone_avail::flush( \%flushopts ); + + local $SIG{HUP} = 'IGNORE'; + local $SIG{INT} = 'IGNORE'; + local $SIG{QUIT} = 'IGNORE'; + local $SIG{TERM} = 'IGNORE'; + local $SIG{TSTP} = 'IGNORE'; + local $SIG{PIPE} = 'IGNORE'; + + my $oldAutoCommit = $FS::UID::AutoCommit; + local $FS::UID::AutoCommit = 0; + my $dbh = dbh; + + my $errmsg = 'WARNING: error populating phone availability cache: '; + + my $command = 'listlocal'; + $command = 'listdids' if $self->option('fax'); + my @dids = $self->vitelity_command( $command, + 'state' => $opt{'state'}, + 'ratecenter' => $opt{'ratecenter'}, + ); + # XXX: Options: type=unlimited OR type=pri + + next if ( $dids[0] eq 'unavailable' || $dids[0] eq 'noneavailable' ); + die "missingdata error running Vitelity API" if $dids[0] eq 'missingdata'; + + foreach my $did ( @dids ) { + $did =~ /^(\d{3})(\d{3})(\d{4})/ or die "unparsable did $did\n"; + my($npa, $nxx, $station) = ($1, $2, $3); + + my $phone_avail = new FS::phone_avail { + 'exportnum' => $self->exportnum, + 'countrycode' => '1', # vitelity is US/CA only now + 'state' => $opt{'state'}, + 'npa' => $npa, + 'nxx' => $nxx, + 'station' => $station, + 'name' => $opt{'ratecenter'}, + }; + + my $error = $phone_avail->insert(); + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + die $errmsg.$error; + } + + } + $dbh->commit or warn $errmsg.$dbh->errstr if $oldAutoCommit; return [ map { join('-', $_->npa, $_->nxx, $_->station ) } @@ -94,35 +122,30 @@ sub get_dids { 'table' => 'phone_avail', 'hashref' => { 'exportnum' => $self->exportnum, 'countrycode' => '1', # vitelity is US/CA only now - 'npa' => $opt{'areacode'}, - 'nxx' => $opt{'exchange'}, + 'name' => $opt{'ratecenter'}, + 'state' => $opt{'state'}, }, - 'order_by' => 'ORDER BY station', + 'order_by' => 'ORDER BY npa, nxx, station', }) ]; - } elsif ( $opt{'areacode'} ) { #return exchanges in format NPA-NXX- literal 'XXXX' + } elsif ( $opt{'areacode'} ) { - # you can't call $->name .... that returns "(unlinked)" - # and in any case this is still major abuse of encapsulation, it just happens to work for the other fields - @rc = map { $_->{'Hash'}->{name}.' ('. $_->npa. '-'. $_->nxx. '-XXXX)' } + my @rc = map { $_->{'Hash'}->{name}.", ".$_->state } qsearch({ - 'select' => 'DISTINCT npa,nxx,name', + 'select' => 'DISTINCT name, state', 'table' => 'phone_avail', 'hashref' => { 'exportnum' => $self->exportnum, 'countrycode' => '1', # vitelity is US/CA only now 'npa' => $opt{'areacode'}, }, - 'order_by' => 'ORDER BY nxx', }); - @sorted_rc = sort @rc; + my @sorted_rc = sort @rc; return [ @sorted_rc ]; } elsif ( $opt{'state'} ) { #and not other things, then return areacode - #XXX need to flush the cache at some point :/ - my @avail = qsearch({ 'select' => 'DISTINCT npa', 'table' => 'phone_avail', @@ -195,7 +218,7 @@ sub get_dids { 'name' => $ratecenter, }; - $error = $phone_avail->insert(); + my $error = $phone_avail->insert(); if ( $error ) { $dbh->rollback if $oldAutoCommit; die $errmsg.$error; @@ -208,8 +231,6 @@ sub get_dids { $dbh->commit or warn $errmsg.$dbh->errstr if $oldAutoCommit; my @return = sort { $a <=> $b } keys %npa; - #@return = sort { (split(' ', $a))[0] <=> (split(' ', $b))[0] } @return; - return \@return; } else { @@ -241,21 +262,19 @@ sub _export_insert { #we want to provision and catch errors now, not queue - %vparams = ( 'did' => $svc_phone->phonenum ); + my %vparams = ( 'did' => $svc_phone->phonenum ); $vparams{'routesip'} = $self->option('routesip') if defined $self->option('routesip'); $vparams{'type'} = $self->option('type') if defined $self->option('type'); - - $command = 'getlocaldid'; - $success = 'success'; + my $command = 'getlocaldid'; + my $success = 'success'; # this is OK as Vitelity for now is US/CA only; it's not a hack - $command = 'gettollfree' if $vparams{'did'} =~ /^800|^88[8765]/; + $command = 'gettollfree' if $vparams{'did'} =~ /^800|^888|^877|^866|^855/; if($self->option('fax')) { - # supposedly should work for toll-free fax too $command = 'getdid'; $success = 'ok'; }