-%>
-
-Service Information
-| <A HREF="<%=$p%>edit/svc_acct.cgi?<%=$svcnum%>">Edit this information</A>
-
-<% if ( @part_svc ) { %>
-| <SELECT NAME="svcpart" onChange="enable_change()">
- <OPTION VALUE="">Change service</OPTION>
- <OPTION VALUE="">--------------</OPTION>
- <% foreach my $part_svc ( @part_svc ) { %>
- <OPTION VALUE="<%= $part_svc->svcpart %>"><%= $part_svc->svc %></OPTION>
- <% } %>
- </SELECT>
- <INPUT NAME="submit" TYPE="submit" VALUE="Change" disabled>
-<% } %>
-
-<%= &ntable("#cccccc") %><TR><TD><%= &ntable("#cccccc",2) %>
-<TR><TD ALIGN="right">Service number</TD>
- <TD BGCOLOR="#ffffff"><%= $svcnum %></TD></TR>
-<TR><TD ALIGN="right">Service</TD>
- <TD BGCOLOR="#ffffff"><%= $part_svc->svc %></TD></TR>
-<TR><TD ALIGN="right">Username</TD>
- <TD BGCOLOR="#ffffff"><%= $svc_acct->username %></TD></TR>
-<TR><TD ALIGN="right">Domain</TD>
- <TD BGCOLOR="#ffffff"><%= $domain %></TD></TR>
-
-<TR><TD ALIGN="right">Password</TD>
- <TD BGCOLOR="#ffffff"><%
-
-my $password = $svc_acct->_password;
-if ( $password =~ /^\*\w+\* (.*)$/ ) {
- $password = $1;
- print "<I>(login disabled)</I> ";
-}
-if ( $conf->exists('showpasswords') ) {
- print '<PRE>'. encode_entities($password). '</PRE>';
-} else {
- print "<I>(hidden)</I>";
-}
-print "</TR></TD>";
-$password = '';
-
-if ( $conf->exists('security_phrase') ) {
- my $sec_phrase = $svc_acct->sec_phrase;
- print '<TR><TD ALIGN="right">Security phrase</TD><TD BGCOLOR="#ffffff">'.
- $svc_acct->sec_phrase. '</TD></TR>';
-}
-
-my $svc_acct_pop = $svc_acct->popnum
- ? qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum})
- : '';
-print "<TR><TD ALIGN=\"right\">Access number</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct_pop->text. '</TD></TR>'
- if $svc_acct_pop;
-
-if ($svc_acct->uid ne '') {
- print "<TR><TD ALIGN=\"right\">Uid</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->uid. "</TD></TR>",
- "<TR><TD ALIGN=\"right\">Gid</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->gid. "</TD></TR>",
- "<TR><TD ALIGN=\"right\">GECOS</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->finger. "</TD></TR>",
- "<TR><TD ALIGN=\"right\">Home directory</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->dir. "</TD></TR>",
- "<TR><TD ALIGN=\"right\">Shell</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->shell. "</TD></TR>",
- "<TR><TD ALIGN=\"right\">Quota</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->quota. "</TD></TR>"
- ;
-} else {
- print "<TR><TH COLSPAN=2>(No shell account)</TH></TR>";
-}
-
-if ($svc_acct->slipip) {
- print "<TR><TD ALIGN=\"right\">IP address</TD><TD BGCOLOR=\"#ffffff\">".
- ( ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' )
- ? "<I>(Dynamic)</I>"
- : $svc_acct->slipip
- ). "</TD>";
- my($attribute);
- foreach $attribute ( grep /^radius_/, $svc_acct->fields ) {
- #warn $attribute;
- $attribute =~ /^radius_(.*)$/;
- my $pattribute = $FS::raddb::attrib{$1};
- print "<TR><TD ALIGN=\"right\">Radius (reply) $pattribute</TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->getfield($attribute).
- "</TD></TR>";
- }
- foreach $attribute ( grep /^rc_/, $svc_acct->fields ) {
- #warn $attribute;
- $attribute =~ /^rc_(.*)$/;
- my $pattribute = $FS::raddb::attrib{$1};
- print "<TR><TD ALIGN=\"right\">Radius (check) $pattribute: </TD>".
- "<TD BGCOLOR=\"#ffffff\">". $svc_acct->getfield($attribute).
- "</TD></TR>";
- }
-} else {
- print "<TR><TH COLSPAN=2>(No SLIP/PPP account)</TH></TR>";
-}
-
-print '<TR><TD ALIGN="right">RADIUS groups</TD><TD BGCOLOR="#ffffff">'.
- join('<BR>', $svc_acct->radius_groups). '</TD></TR>';
-
-# Can this be abstracted further? Maybe a library function like
-# widget('HTML', 'view', $svc_acct) ? It would definitely make UI
-# style management easier.