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
|
<% include('elements/svc_Common.html',
'table' => 'svc_phone',
'fields' => [qw(
countrycode
phonenum
sip_password
pin
phone_name
)],
'labels' => {
'countrycode' => 'Country code',
'phonenum' => 'Phone number',
'sip_password' => 'SIP password',
'pin' => 'PIN',
'phone_name' => 'Name',
},
'html_foot' => $html_foot,
)
%>
<%init>
my $html_foot = sub {
my $svc_phone = shift;
###
# Devices
###
my $devices = '';
my $sth = dbh->prepare("SELECT COUNT(*) FROM part_device") #WHERE disabled = '' OR disabled IS NULL;");
or die dbh->errstr;
$sth->execute or die $sth->errstr;
my $num_part_device = $sth->fetchrow_arrayref->[0];
my @phone_device = $svc_phone->phone_device;
if ( @phone_device || $num_part_device ) {
my $svcnum = $svc_phone->svcnum;
$devices .=
qq[Devices (<A HREF="${p}edit/phone_device.html?svcnum=$svcnum">Add device</A>)<BR>];
if ( @phone_device ) {
$devices .= qq!
<SCRIPT>
function areyousure(href) {
if (confirm("Are you sure you want to delete this device?") == true)
window.location.href = href;
}
</SCRIPT>
!;
$devices .=
include('/elements/table-grid.html').
'<TR>'.
'<TH CLASS="grid" BGCOLOR="#cccccc">Type</TH>'.
'<TH CLASS="grid" BGCOLOR="#cccccc">MAC Addr</TH>'.
'<TH CLASS="grid" BGCOLOR="#cccccc"></TH>'.
'</TR>';
my $bgcolor1 = '#eeeeee';
my $bgcolor2 = '#ffffff';
my $bgcolor = '';
foreach my $phone_device ( @phone_device ) {
if ( $bgcolor eq $bgcolor1 ) {
$bgcolor = $bgcolor2;
} else {
$bgcolor = $bgcolor1;
}
my $td = qq(<TD CLASS="grid" BGCOLOR="$bgcolor">);
my $devicenum = $phone_device->devicenum;
$devices .= '<TR>'.
$td. $phone_device->part_device->devicename. '</TD>'.
$td. $phone_device->mac_addr. '</TD>'.
"$td( ".
qq(<A HREF="${p}edit/phone_device.html?$devicenum">edit</A> | ).
qq(<A HREF="javascript:areyousure('${p}misc/delete-phone_device.html?$devicenum')">delete</A>).
' )</TD>'.
'</TR>';
}
$devices .= '</TABLE><BR>';
}
$devices .= '<BR>';
}
##
# CDR links
##
tie my %what, 'Tie::IxHash',
'pending' => 'NULL',
'billed' => 'done',
;
#XXX src & charged party (& default prefix) as per voip_cdr.pm
#XXX handle toll free too
my $number = $svc_phone->phonenum;
$number = $svc_phone->countrycode. $number
unless $svc_phone->countrycode eq '1';
#my @links = map {
# qq(<A HREF="${p}search/cdr.html?src=$number;freesidestatus=$what{$_}">).
# "View $_ CDRs</A>";
#} keys(%what);
my @links = map {
qq(<A HREF="${p}search/cdr.html?cdrbatch=__ALL__;charged_party=$number;freesidestatus=$what{$_}">).
"View $_ CDRs</A>";
} keys(%what);
my @ilinks = ( qq(<A HREF="${p}search/cdr.html?cdrbatch=__ALL__;dst=$number">).
'View incoming CDRs</A>' );
###
# concatenate & return
###
$devices.
join(' | ', @links ). '<BR>'.
join(' | ', @ilinks). '<BR>';
};
</%init>
|
