httemplate/view/svc_forward.cgi

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