httemplate/view/svc_acct.cgi

   1 <%
   2
   3 my $conf = new FS::Conf;
   4 my $mydomain = $conf->config('domain');
   5
   6 my($query) = $cgi->keywords;
   7 $query =~ /^(\d+)$/;
   8 my $svcnum = $1;
   9 my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
  10 die "Unknown svcnum" unless $svc_acct;
  11
  12 #false laziness w/all svc_*.cgi
  13 my $cust_svc = qsearchs( 'cust_svc' , { 'svcnum' => $svcnum } );
  14 my $pkgnum = $cust_svc->getfield('pkgnum');
  15 my($cust_pkg, $custnum);
  16 if ($pkgnum) {
  17   $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
  18   $custnum = $cust_pkg->custnum;
  19 } else {
  20   $cust_pkg = '';
  21   $custnum = '';
  22 }
  23 #eofalse
  24
  25 my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
  26 die "Unknown svcpart" unless $part_svc;
  27
  28 my $domain;
  29 if ( $svc_acct->domsvc ) {
  30   my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc } );
  31   die "Unknown domain" unless $svc_domain;
  32   $domain = $svc_domain->domain;
  33 } else {
  34   unless ( $mydomain ) {
  35     die "No legacy domain config file and no svc_domain.svcnum record ".
  36         "for svc_acct.domsvc: ". $cust_svc->domsvc;
  37   }
  38   $domain = $mydomain;
  39 }
  40
  41 print header('Account View', menubar(
  42   ( ( $pkgnum || $custnum )
  43     ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
  44         "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  45       )
  46     : ( "Cancel this (unaudited) account" =>
  47           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  48   ),
  49   "Main menu" => $p,
  50 ));
  51
  52 #print qq!<BR><A HREF="../misc/sendconfig.cgi?$svcnum">Send account information</A>!;
  53
  54 print qq!<A HREF="${p}edit/svc_acct.cgi?$svcnum">Edit this information</A><BR>!.
  55       &ntable("#cccccc"). '<TR><TD>'. &ntable("#cccccc",2).
  56       "<TR><TD ALIGN=\"right\">Service number</TD>".
  57         "<TD BGCOLOR=\"#ffffff\">$svcnum</TD></TR>".
  58       "<TR><TD ALIGN=\"right\">Service</TD>".
  59         "<TD BGCOLOR=\"#ffffff\">". $part_svc->svc. "</TD></TR>".
  60       "<TR><TD ALIGN=\"right\">Username</TD>".
  61         "<TD BGCOLOR=\"#ffffff\">". $svc_acct->username. "</TD></TR>"
  62 ;
  63
  64 print "<TR><TD ALIGN=\"right\">Domain</TD>".
  65         "<TD BGCOLOR=\"#ffffff\">". $domain, "</TD></TR>";
  66
  67 print "<TR><TD ALIGN=\"right\">Password</TD><TD BGCOLOR=\"#ffffff\">";
  68 my $password = $svc_acct->_password;
  69 if ( $password =~ /^\*\w+\* (.*)$/ ) {
  70   $password = $1;
  71   print "<I>(login disabled)</I> ";
  72 }
  73 if ( $conf->exists('showpasswords') ) {
  74   print "$password";
  75 } else {
  76   print "<I>(hidden)</I>";
  77 }
  78 print "</TR></TD>";
  79 $password = '';
  80
  81 my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum});
  82 print "<TR><TD ALIGN=\"right\">Access number</TD>".
  83       "<TD BGCOLOR=\"#ffffff\">". $svc_acct_pop->text. '</TD></TR>'
  84   if $svc_acct_pop;
  85
  86 if ($svc_acct->uid ne '') {
  87   print "<TR><TD ALIGN=\"right\">Uid</TD>".
  88           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->uid. "</TD></TR>",
  89         "<TR><TD ALIGN=\"right\">Gid</TD>".
  90           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->gid. "</TD></TR>",
  91         "<TR><TD ALIGN=\"right\">GECOS</TD>".
  92           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->finger. "</TD></TR>",
  93         "<TR><TD ALIGN=\"right\">Home directory</TD>".
  94           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->dir. "</TD></TR>",
  95         "<TR><TD ALIGN=\"right\">Shell</TD>".
  96           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->shell. "</TD></TR>",
  97         "<TR><TD ALIGN=\"right\">Quota</TD>".
  98           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->quota. "</TD></TR>"
  99   ;
 100 } else {
 101   print "<TR><TH COLSPAN=2>(No shell account)</TH></TR>";
 102 }
 103
 104 if ($svc_acct->slipip) {
 105   print "<TR><TD ALIGN=\"right\">IP address</TD><TD BGCOLOR=\"#ffffff\">".
 106         ( ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' )
 107           ? "<I>(Dynamic)</I>"
 108           : $svc_acct->slipip
 109         ). "</TD>";
 110   my($attribute);
 111   foreach $attribute ( grep /^radius_/, fields('svc_acct') ) {
 112     #warn $attribute;
 113     $attribute =~ /^radius_(.*)$/;
 114     my $pattribute = $FS::raddb::attrib{$1};
 115     print "<TR><TD ALIGN=\"right\">Radius (reply) $pattribute</TD>".
 116           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->getfield($attribute).
 117           "</TD></TR>";
 118   }
 119   foreach $attribute ( grep /^rc_/, fields('svc_acct') ) {
 120     #warn $attribute;
 121     $attribute =~ /^rc_(.*)$/;
 122     my $pattribute = $FS::raddb::attrib{$1};
 123     print "<TR><TD ALIGN=\"right\">Radius (check) $pattribute: </TD>".
 124           "<TD BGCOLOR=\"#ffffff\">". $svc_acct->getfield($attribute).
 125           "</TD></TR>";
 126   }
 127 } else {
 128   print "<TR><TH COLSPAN=2>(No SLIP/PPP account)</TH></TR>";
 129 }
 130
 131 print "</TABLE></TD></TR></TABLE></BODY></HTML>";
 132
 133 %>