blob: 086c79e57e9067bacb156f3fdf4cf7b7b06d13b1 (
plain)
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
|
<FONT SIZE=4>Setup services</FONT><BR><BR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">
<%=
foreach my $pkg (
grep { scalar(@{$_->{part_svc}})
|| scalar(@{$_->{cust_svc}})
} @cust_pkg
) {
my $susp = $pkg->{'susp'} || '';
my @pkg_actions = ();
if ( ! $susp ) {
push @pkg_actions, [ 'customer_change_pkg' => 'change' ] unless $pkg->{'immutable'};
push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ]
if $self_suspend_reason;
}
my $bgcolor = $susp ? '"#ff9900"' : '"#8888ff"';
$OUT .= #'<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
'<TR><TH BGCOLOR='.$bgcolor.' COLSPAN=2>'.
$pkg->{'pkg'}. ($susp && ' (suspended)').
'</TH><TH ALIGN="left" BGCOLOR='.$bgcolor.'>';
foreach my $action (@pkg_actions) {
$OUT .= '(<A style="font-size: smaller;color: #000000" HREF="' .
$url . $action->[0] . ';pkgnum=' . $pkg->{'pkgnum'} . ';pkg=' .
$pkg->{'pkg'} . '">' . $action->[1] . '</A>) ';
}
$OUT .= '</TH></TR>';
my $col1 = "ffffff";
my $col2 = "dddddd";
my $col = $col1;
foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
my $td = qq!<TD BGCOLOR="#$col"!;
$OUT .= '<TR>'.
"$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
"$td><B>". $cust_svc->{label}[1]. '</B>';
$OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
if exists($cust_svc->{_password});
if ( exists($cust_svc->{svchash}) ) {
$OUT .= '<BR><I>Email: '. encode_entities($cust_svc->{svchash}->{email}). '</I>'
if exists($cust_svc->{svchash}->{email})
&& length($cust_svc->{svchash}->{email});
$OUT .= '<BR><I>Forward to: '. encode_entities($cust_svc->{svchash}->{forwarddst}). '</I>'
if exists($cust_svc->{svchash}->{forwarddst})
&& length($cust_svc->{svchash}->{forwarddst});
}
$OUT .= '</TD>'.
"$td><FONT SIZE=-1>";
#if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
# $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
# 'change pw) ';
#}
unless ( $cust_svc->{'svcnum'} == $svcnum ) {
$OUT .= qq!(<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will permanently delete the $cust_svc->{label}[1] $cust_svc->{label}[0]. Are you sure?')">!.
'delete</A>)';
$OUT .= qq!<BR>(<A HREF="${url}provision_svc;pkgnum=$pkg->{pkgnum};svcpart=$cust_svc->{'svcpart'};svcnum=$cust_svc->{'svcnum'}">modify</A>)!
if ( exists($cust_svc->{svchash}) && $cust_svc->{label}[2] eq 'svc_phone' );
}
$OUT .= '</FONT></TD></TR>';
$col = $col eq $col1 ? $col2 : $col1;
}
$OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
$col = $col1;
foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
my $td = qq!<TD BGCOLOR="#$col"!;
my $link;
if ( $part_svc->{'svcdb'} eq 'svc_external'
#&& $conf->exists('svc_external-skip_manual')
) {
$link = "${url}process_svc_external;".
"pkgnum=$pkg->{'pkgnum'};".
"svcpart=$part_svc->{'svcpart'}";
} else {
$link = "${url}provision_svc;".
"pkgnum=$pkg->{'pkgnum'};".
"svcpart=$part_svc->{'svcpart'}";
}
$OUT .= "<TR>$td COLSPAN=3 ALIGN=center>".
qq!<A HREF="$link">!. 'Setup '. $part_svc->{'svc'}. '</A> '.
'('. $part_svc->{'num_avail'}. ' available)'.
'</TD></TR>'
#self-service only supports these services so far
if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external svc_forward );
$col = $col eq $col1 ? $col2 : $col1;
}
#$OUT .= '</TABLE><BR>';
$OUT .= '<TR><TD BGCOLOR="#eeeeee" COLSPAN=3> </TD></TR>';
} %>
</TABLE>
|