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
135
136
137
138
139
|
#!/usr/bin/perl -Tw
#
# svc_domain.cgi: Search for domains (process form)
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
#
# Note: Should be run setuid freeside as user nobody.
#
# ivan@voicenet.com 97-mar-5
#
# rewrite ivan@sisd.com 98-mar-14
#
# Changes to allow page to work at a relative position in server
# bmccane@maxbaud.net 98-apr-3
#
# display total, use FS::CGI now does browsing too ivan@sisd.com 98-jul-17
use strict;
use CGI::Request;
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::CGI qw(header idiot);
my($req)=new CGI::Request;
&cgisuidsetup($req->cgi);
my(@svc_domain);
my($sortby);
my($query)=$req->cgi->var('QUERY_STRING');
if ( $query eq 'svcnum' ) {
$sortby=\*svcnum_sort;
@svc_domain=qsearch('svc_domain',{});
} elsif ( $query eq 'domain' ) {
$sortby=\*domain_sort;
@svc_domain=qsearch('svc_domain',{});
} elsif ( $query eq 'UN_svcnum' ) {
$sortby=\*svcnum_sort;
@svc_domain = grep qsearchs('cust_svc',{
'svcnum' => $_->svcnum,
'pkgnum' => '',
}), qsearch('svc_domain',{});
} elsif ( $query eq 'UN_domain' ) {
$sortby=\*domain_sort;
@svc_domain = grep qsearchs('cust_svc',{
'svcnum' => $_->svcnum,
'pkgnum' => '',
}), qsearch('svc_domain',{});
} else {
$req->param('domain') =~ /^([\w\-\.]+)$/;
my($domain)=$1;
push @svc_domain, qsearchs('svc_domain',{'domain'=>$domain});
}
if ( scalar(@svc_domain) == 1 ) {
$req->cgi->redirect("../view/svc_domain.cgi?". $svc_domain[0]->svcnum);
exit;
} elsif ( scalar(@svc_domain) == 0 ) {
idiot "No matching domains found!\n";
exit;
} else {
CGI::Base::SendHeaders(); # one guess
my($total)=scalar(@svc_domain);
CGI::Base::SendHeaders(); # one guess
print header("Domain Search Results",''), <<END;
$total matching domains found
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
<TR>
<TH>Service #</TH>
<TH>Domain</TH>
<TH></TH>
</TR>
END
my($lines)=16;
my($lcount)=$lines;
my(%saw,$svc_domain);
foreach $svc_domain (
sort $sortby grep(!$saw{$_->svcnum}++, @svc_domain)
) {
my($svcnum,$domain)=(
$svc_domain->svcnum,
$svc_domain->domain,
);
my($malias);
if ( qsearch('svc_acct_sm',{'domsvc'=>$svcnum}) ) {
$malias=(
qq|<FORM ACTION="svc_acct_sm.cgi" METHOD="post">|.
qq|<INPUT TYPE="hidden" NAME="domuser" VALUE="">|.
qq|<INPUT TYPE="hidden" NAME="domain" VALUE="$domain">|.
qq|<INPUT TYPE="submit" VALUE="(mail aliases)">|.
qq|</FORM>|
);
} else {
$malias='';
}
print <<END;
<TR>
<TD><A HREF="../view/svc_domain.cgi?$svcnum"><FONT SIZE=-1>$svcnum</FONT></A></TD>
<TD><FONT SIZE=-1>$domain</FONT></TD>
<TD><FONT SIZE=-1>$malias</FONT></TD>
</TR>
END
if ($lcount-- == 0) { # lots of little tables instead of one big one
$lcount=$lines;
print <<END;
</TABLE>
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
<TR>
<TH>Service #</TH>
<TH>Domain</TH>
<TH></TH>
</TR>
END
}
}
print <<END;
</TABLE>
</CENTER>
</BODY>
</HTML>
END
}
sub svcnum_sort {
$a->getfield('svcnum') <=> $b->getfield('svcnum');
}
sub domain_sort {
$a->getfield('domain') cmp $b->getfield('doimain');
}
|
