httemplate/view/svc_acct_sm.cgi

   1 <%
   2 #<!-- $Id: svc_acct_sm.cgi,v 1.4 2001-10-30 14:54:07 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw($conf $cgi $mydomain $query $svcnum $svc_acct_sm $cust_svc
   6             $pkgnum $cust_pkg $custnum $part_svc $p $domsvc $domuid $domuser
   7             $svc $svc_domain $domain $svc_acct $username );
   8 use CGI;
   9 use FS::UID qw(cgisuidsetup);
  10 use FS::CGI qw(header popurl menubar );
  11 use FS::Record qw(qsearchs);
  12 use FS::Conf;
  13 use FS::svc_acct_sm;
  14 use FS::cust_svc;
  15 use FS::cust_pkg;
  16 use FS::part_svc;
  17 use FS::svc_domain;
  18 use FS::svc_acct;
  19
  20 $cgi = new CGI;
  21 cgisuidsetup($cgi);
  22
  23 $conf = new FS::Conf;
  24 $mydomain = $conf->config('domain');
  25
  26 ($query) = $cgi->keywords;
  27 $query =~ /^(\d+)$/;
  28 $svcnum = $1;
  29 $svc_acct_sm = qsearchs('svc_acct_sm',{'svcnum'=>$svcnum});
  30 die "Unknown svcnum" unless $svc_acct_sm;
  31
  32 $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  33 $pkgnum = $cust_svc->getfield('pkgnum');
  34 if ($pkgnum) {
  35   $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  36   $custnum=$cust_pkg->getfield('custnum');
  37 } else {
  38   $cust_pkg = '';
  39   $custnum = '';
  40 }
  41
  42 $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } )
  43   or die "Unkonwn svcpart";
  44
  45 $p = popurl(2);
  46 print header('Mail Alias View', menubar(
  47   ( ( $pkgnum || $custnum )
  48     ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
  49         "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  50       )
  51     : ( "Cancel this (unaudited) account" =>
  52           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  53   ),
  54   "Main menu" => $p,
  55 ));
  56
  57 ($domsvc,$domuid,$domuser) = (
  58   $svc_acct_sm->domsvc,
  59   $svc_acct_sm->domuid,
  60   $svc_acct_sm->domuser,
  61 );
  62 $svc = $part_svc->svc;
  63 $svc_domain = qsearchs('svc_domain',{'svcnum'=>$domsvc})
  64   or die "Corrupted database: no svc_domain.svcnum matching domsvc $domsvc";
  65 $domain = $svc_domain->domain;
  66 $svc_acct = qsearchs('svc_acct',{'uid'=>$domuid})
  67   or die "Corrupted database: no svc_acct.uid matching domuid $domuid";
  68 $username = $svc_acct->username;
  69
  70 print qq!<A HREF="${p}edit/svc_acct_sm.cgi?$svcnum">Edit this information</A>!,
  71       "<BR>Service #$svcnum",
  72       "<BR>Service: <B>$svc</B>",
  73       qq!<BR>Mail to <B>!, ( ($domuser eq '*') ? "<I>(anything)</I>" : $domuser ) , qq!</B>\@<B>$domain</B> forwards to <B>$username</B>\@$mydomain mailbox.!,
  74       '</BODY></HTML>'
  75 ;
  76
  77 %>