diff options
Diffstat (limited to 'httemplate/view/svc_acct/basics.html')
-rw-r--r-- | httemplate/view/svc_acct/basics.html | 136 |
1 files changed, 136 insertions, 0 deletions
diff --git a/httemplate/view/svc_acct/basics.html b/httemplate/view/svc_acct/basics.html new file mode 100644 index 0000000..f4c8388 --- /dev/null +++ b/httemplate/view/svc_acct/basics.html @@ -0,0 +1,136 @@ +<% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %> + +<% include('/view/elements/tr.html', label=>'Service', value=>$part_svc->svc) %> +<% include('/view/elements/tr.html', label=>'Username', value=>$svc_acct->username) %> +<% include('/view/elements/tr.html', label=>'Domain', value=>$domain) %> + +% if ( $opt{'communigate'} ) { + <% include('/view/elements/tr.html', label=>'Aliases', value=>$svc_acct->cgp_aliases) %> +%} + +% if ( $svc_acct->pbxsvc ) { + <% include('/view/elements/tr.html', label=>'PBX', value=>$svc_acct->pbx_title) %> +%} + +% my $show_pw = ''; +% my $password = $svc_acct->get_cleartext_password; +% if ( $password =~ /^\*\w+\* (.*)$/ ) { +% $password = $1; +% $show_pw .= '<I>(login disabled)</I> '; +% } +% if ( ! $password +% && $svc_acct->_password_encryption ne 'plain' +% && $svc_acct->_password +% ) +% { +% $show_pw .= '<I>('. uc($svc_acct->_password_encryption). ' encrypted)</I>'; +% } elsif ( $conf->exists('showpasswords') ) { +% $show_pw .= '<PRE>'. encode_entities($password). '</PRE>'; +% } else { +% $show_pw .= '<I>(hidden)</I>'; +% } +% $password = ''; +<% include('/view/elements/tr.html', label=>'Password', value=>$show_pw) %> + + +% if ( $conf->exists('security_phrase') ) { + <%include('/view/elements/tr.html', label=>'Security phrase', value=>$svc_acct->sec_phrase)%> +% } + +% if ( $svc_acct->popnum ) { +% my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum}); + <% include('/view/elements/tr.html', label=>'Access number', value=>$svc_acct_pop->text) %> +% } + +% if ($svc_acct->uid ne '') { + <% include('/view/elements/tr.html', label=>'UID', value=>$svc_acct->uid) %> +% } + +% if ($svc_acct->gid ne '') { + <% include('/view/elements/tr.html', label=>'GID', value=>$svc_acct->gid) %> +% } + +% if ($svc_acct->finger ne '') { + <% include('/view/elements/tr.html', label=>'Real Name', value=>$svc_acct->finger) %> +% } + +% if ($svc_acct->dir ne '') { + <% include('/view/elements/tr.html', label=>'Home directory', value=>$svc_acct->dir) %> +% } + +% if ($svc_acct->shell ne '') { + <% include('/view/elements/tr.html', label=>'Shell', value=>$svc_acct->shell) %> +% } + +% if ($svc_acct->quota ne '' && ! $opt{'communigate'} ) { + + <% include('/view/elements/tr.html', label=>'Quota', value=>$svc_acct->quota) %> + +% } elsif ( $opt{'communigate'} ) { + + <% include( 'communigate.html', %opt ) %> + +% } + +% if ($svc_acct->slipip) { + <% include('/view/elements/tr.html', + label=>'IP address', + value=> ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' ) + ? "<I>(Dynamic)</I>" + : $svc_acct->slipip + ) + %> +% } + +<% include('usage.html', + 'svc_acct' => $svc_acct, + ) +%> + +% foreach my $attribute ( grep /^radius_/, $svc_acct->fields ) { +% $attribute =~ /^radius_(.*)$/; +% my $pattribute = $FS::raddb::attrib{$1}; + <% include('/view/elements/tr.html', label=>"Radius (reply) $pattribute", + value=>$svc_acct->getfield($attribute) + ) + %> +% } + +% foreach my $attribute ( grep /^rc_/, $svc_acct->fields ) { +% $attribute =~ /^rc_(.*)$/; +% my $pattribute = $FS::raddb::attrib{$1}; + <% include('/view/elements/tr.html', label=>"Radius (check) $pattribute", + value=>$svc_acct->getfield($attribute) + ) + %> +% } + +<% include('/view/elements/tr.html', label=>'RADIUS groups', + value=>join('<BR>', $svc_acct->radius_groups) ) %> + +%# Can this be abstracted further? Maybe a library function like +%# widget('HTML', 'view', $svc_acct) ? It would definitely make UI +%# style management easier. +% foreach (sort { $a cmp $b } $svc_acct->virtual_fields) { + <% $svc_acct->pvf($_)->widget('HTML', 'view', $svc_acct->getfield($_)) %> +% } + +</TABLE></TD></TR></TABLE> +<%init> + +my %opt = @_; + +my $conf = new FS::Conf; + +my $svc_acct = $opt{'svc_acct'}; +my $part_svc = $opt{'part_svc'}; + +die 'Empty domsvc for svc_acct.svcnum '. $svc_acct->svcnum + unless $svc_acct->domsvc; +my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc } ); +die 'Unknown domain (domsvc '. $svc_acct->domsvc. + ' for svc_acct.svcnum '. $svc_acct->svcnum. ')' + unless $svc_domain; +my $domain = $svc_domain->domain; + +</%init> |