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
|
#!/usr/bin/perl -Tw
#
# $Id: svc_domain.cgi,v 1.4 1999-01-19 05:14:17 ivan Exp $
#
# 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
#
# $Log: svc_domain.cgi,v $
# Revision 1.4 1999-01-19 05:14:17 ivan
# for mod_perl: no more top-level my() variables; use vars instead
# also the last s/create/new/;
#
# Revision 1.3 1998/12/23 03:06:50 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.2 1998/12/17 09:41:12 ivan
# s/CGI::(Base|Request)/CGI.pm/;
#
use strict;
use vars qw ( $cgi @svc_domain $sortby $query );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::CGI qw(header idiot popurl);
$cgi = new CGI;
&cgisuidsetup($cgi);
($query)=$cgi->keywords;
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 {
$cgi->param('domain') =~ /^([\w\-\.]+)$/;
my($domain)=$1;
push @svc_domain, qsearchs('svc_domain',{'domain'=>$domain});
}
if ( scalar(@svc_domain) == 1 ) {
print $cgi->redirect(popurl(2). "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(%saw,$svc_domain);
my $p = popurl(2);
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="${p}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
}
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');
}
|
