1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
package FS::part_export::internal_diddb;
use vars qw(@ISA %info);
use Tie::IxHash;
use FS::Record qw(qsearch qsearchs);
use FS::part_export;
use FS::phone_avail;
@ISA = qw(FS::part_export);
tie my %options, 'Tie::IxHash',
'countrycode' => { label => 'Country code', 'default' => '1', },
;
%info = (
'svc' => 'svc_phone',
'desc' => 'Provision phone numbers from the internal DID database',
'notes' => 'After adding the export, DIDs may be imported under Tools -> Importing -> Import phone numbers (DIDs)',
'options' => \%options,
);
sub rebless { shift; }
sub get_dids {
my $self = shift;
my %opt = ref($_[0]) ? %{$_[0]} : @_;
my %hash = ( 'countrycode' => ( $self->option('countrycode') || '1' ),
'exportnum' => $self->exportnum,
'svcnum' => '',
);
if ( $opt{'areacode'} && $opt{'exchange'} ) { #return numbers
$hash{npa} = $opt{areacode};
$hash{nxx} = $opt{exchange};
return [ map { $_->npa. '-'. $_->nxx. '-'. $_->station }
qsearch({ 'table' => 'phone_avail',
'hashref' => \%hash,
'order_by' => 'ORDER BY station',
})
];
} elsif ( $opt{'areacode'} ) { #return city (npa-nxx-XXXX)
$hash{npa} = $opt{areacode};
return [ map { '('. $_->npa. '-'. $_->nxx. '-XXXX)' }
qsearch({ 'select' => 'DISTINCT npa, nxx',
'table' => 'phone_avail',
'hashref' => \%hash,
'order_by' => 'ORDER BY nxx',
})
];
} elsif ( $opt{'state'} ) { #return aracodes
$hash{state} = $opt{state};
return [ map { $_->npa }
qsearch({ 'select' => 'DISTINCT npa',
'table' => 'phone_avail',
'hashref' => \%hash,
'order_by' => 'ORDER BY npa',
})
];
} else {
die "FS::part_export::internal_diddb::get_dids called without options\n";
}
}
sub _export_insert { #link phone_avail to svcnum
my( $self, $svc_phone ) = (shift, shift);
$svc_phone->phonenum =~ /^(\d{3})(\d{3})(\d+)$/
or return "unparsable phone number: ". $svc_phone->phonenum;
my( $npa, $nxx, $station ) = ($1, $2, $3);
my $phone_avail = qsearchs('phone_avail', {
'countrycode' => ( $self->option('countrycode') || '1' ),
'exportnum' => $self->exportnum,
'svcnum' => '',
'npa' => $npa,
'nxx' => $nxx,
'station' => $station,
});
return "number not available: ". $svc_phone->phonenum
unless $phone_avail;
$phone_avail->svcnum($svc_phone->svcnum);
$phone_avail->replace;
}
sub _export_delete { #unlink phone_avail from svcnum
my( $self, $svc_phone ) = (shift, shift);
$svc_phone->phonenum =~ /^(\d{3})(\d{3})(\d+)$/
or return "unparsable phone number: ". $svc_phone->phonenum;
my( $npa, $nxx, $station ) = ($1, $2, $3);
my $phone_avail = qsearchs('phone_avail', {
'countrycode' => ( $self->option('countrycode') || '1'),
'exportnum' => $self->exportnum,
'svcnum' => $svc_phone->svcnum,
#these too?
'npa' => $npa,
'nxx' => $nxx,
'station' => $station,
});
unless ( $phone_avail ) {
warn "WARNING: can't find number to return to availability: ".
$svc_phone->phonenum;
return;
}
$phone_avail->svcnum('');
$phone_avail->replace;
}
sub _export_replace { ''; }
sub _export_suspend { ''; }
sub _export_unsuspend { ''; }
1;
|
