2 # <!-- $Id: svc_domain.cgi,v 1.5 2001-10-30 14:54:07 ivan Exp $ -->
5 use vars qw( $cgi $query $svcnum $svc_domain $domain $cust_svc $pkgnum
6 $cust_pkg $custnum $part_svc $p $svc_acct $email);
8 use FS::UID qw(cgisuidsetup);
9 use FS::CGI qw(header menubar popurl menubar);
10 use FS::Record qw(qsearchs);
19 ($query) = $cgi->keywords;
22 $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum});
23 die "Unknown svcnum" unless $svc_domain;
25 $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
26 $pkgnum = $cust_svc->getfield('pkgnum');
28 $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
29 $custnum=$cust_pkg->getfield('custnum');
35 $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
36 die "Unknown svcpart" unless $part_svc;
38 if ($svc_domain->catchall) {
39 $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
40 die "Unknown svcpart" unless $svc_acct;
41 $email = $svc_acct->email;
44 $domain = $svc_domain->domain;
47 print header('Domain View', menubar(
48 ( ( $pkgnum || $custnum )
49 ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
50 "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
52 : ( "Cancel this (unaudited) account" =>
53 "${p}misc/cancel-unaudited.cgi?$svcnum" )
58 "<BR>Service: <B>", $part_svc->svc, "</B>",
59 "<BR>Domain name: <B>$domain</B>.",
60 qq!<BR>Catch all email <A HREF="${p}misc/catchall.cgi?$svcnum">(change)</A>:!,
61 $email ? "<B>$email</B>." : "<I>(none)<I>",
62 qq!<BR><BR><A HREF="http://www.geektools.com/cgi-bin/proxy.cgi?query=$domain;targetnic=auto">View whois information.</A>!,