summaryrefslogtreecommitdiff
path: root/httemplate/view/svc_acct/basics.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/view/svc_acct/basics.html')
-rw-r--r--httemplate/view/svc_acct/basics.html136
1 files changed, 0 insertions, 136 deletions
diff --git a/httemplate/view/svc_acct/basics.html b/httemplate/view/svc_acct/basics.html
deleted file mode 100644
index f4c83888d..000000000
--- a/httemplate/view/svc_acct/basics.html
+++ /dev/null
@@ -1,136 +0,0 @@
-<% &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>