From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- httemplate/edit/svc_acct.cgi | 488 ------------------------------------------- 1 file changed, 488 deletions(-) delete mode 100755 httemplate/edit/svc_acct.cgi (limited to 'httemplate/edit/svc_acct.cgi') diff --git a/httemplate/edit/svc_acct.cgi b/httemplate/edit/svc_acct.cgi deleted file mode 100755 index 0a191b4..0000000 --- a/httemplate/edit/svc_acct.cgi +++ /dev/null @@ -1,488 +0,0 @@ -<% include('/elements/header.html', "$action $svc account") %> - -<% include('/elements/error.html') %> - -% if ( $cust_main ) { - - <% include( '/elements/small_custview.html', $cust_main, '', 1, - popurl(2) . "view/cust_main.cgi") %> -
-% } - - - -
- - - - -Service # <% $svcnum ? "$svcnum" : " (NEW)" %>
- -<% ntable("#cccccc",2) %> - - - Service - <% $part_svc->svc %> - - - - Username - - MAXLENGTH=<% $ulen %>> - - - -%if ( $part_svc->part_svc_column('_password')->columnflag ne 'F' ) { - - Password - - MAXLENGTH=<% $pmax %>> - - - -%}else{ - -%} - -% -%my $sec_phrase = $svc_acct->sec_phrase; -%if ( $conf->exists('security_phrase') -% && $part_svc->part_svc_column('sec_phrase')->columnflag ne 'F' ) { -% - - - - Security phrase - - - (for forgotten passwords) - - -% } else { - - - -% } -% -%#domain -%my $domsvc = $svc_acct->domsvc || 0; -%if ( $part_svc->part_svc_column('domsvc')->columnflag eq 'F' ) { -% - - - -% } else { -% -% my %svc_domain = (); -% -% if ( $domsvc ) { -% my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $domsvc, } ); -% if ( $svc_domain ) { -% $svc_domain{$svc_domain->svcnum} = $svc_domain; -% } else { -% warn "unknown svc_domain.svcnum for svc_acct.domsvc: $domsvc"; -% } -% } -% -% %svc_domain = (%svc_domain, -% domain_select_hash FS::svc_acct('svcpart' => $svcpart, -% 'pkgnum' => $pkgnum, -% ) -% ); -% - - - - Domain - - - - -% } - - -% if ( $communigate ) { - - - Aliases - - - -% } else { - -% } - - -<% include('/elements/tr-select-svc_pbx.html', - 'curr_value' => $svc_acct->pbxsvc, - 'part_svc' => $part_svc, - 'cust_pkg' => $cust_pkg, - ) -%> - -%#pop -%my $popnum = $svc_acct->popnum || 0; -%if ( $part_svc->part_svc_column('popnum')->columnflag eq 'F' ) { -% - - - -% } else { - - - - Access number - <% FS::svc_acct_pop::popselector($popnum) %> - -% } -% #uid/gid -% foreach my $xid (qw( uid gid )) { -% -% if ( $part_svc->part_svc_column($xid)->columnflag =~ /^[FA]$/ -% || ! $conf->exists("svc_acct-edit_$xid") -% ) { -% -% if ( length($svc_acct->$xid()) ) { - - - - <% uc($xid) %> - <% $svc_acct->$xid() %> - - - -% } - - - -% } else { - - - - <% uc($xid) %> - - - - -% } -% } -% -%#finger -%if ( $part_svc->part_svc_column('uid')->columnflag eq 'F' -% && ! $svc_acct->finger ) { -% - - - -% } else { - - - - Real Name - - - - -% } -% -%#dir -%if ( $part_svc->part_svc_column('dir')->columnflag eq 'F' -% || !$curuser->access_right('Edit home dir') -% ) { - - - -% } else { - - - - Home directory - - -% } -% -%#shell -%my $shell = $svc_acct->shell; -%if ( $part_svc->part_svc_column('shell')->columnflag eq 'F' -% || ( !$shell && $part_svc->part_svc_column('uid')->columnflag eq 'F' ) -% ) { -% - - - -% } else { - - - - Shell - - - - -% } - -<% include('svc_acct/communigate.html', - 'svc_acct' => $svc_acct, - 'part_svc' => $part_svc, - 'communigate' => $communigate, - ) -%> - -% if ( $part_svc->part_svc_column('slipip')->columnflag =~ /^[FA]$/ ) { - -% } else { - - IP - - -% } - -% my %label = ( seconds => 'Time', -% upbytes => 'Upload bytes', -% downbytes => 'Download bytes', -% totalbytes => 'Total bytes', -% ); -% foreach my $uf (keys %label) { -% my $tf = $uf . "_threshold"; -% if ( $curuser->access_right('Edit usage') ) { - - <% $label{$uf} %> remaining - (blank disables) - - - <% $label{$uf} %> threshold - (blank disables) - -% }else{ - - -% } -% } -% -%foreach my $r ( grep { /^r(adius|[cr])_/ } fields('svc_acct') ) { -% $r =~ /^^r(adius|[cr])_(.+)$/ or next; #? -% my $a = $2; -% -% if ( $part_svc->part_svc_column($r)->columnflag =~ /^[FA]$/ ) { - - - -% } else { - - - - <% $FS::raddb::attrib{$a} %> - - -% } -% } - - - - - RADIUS groups -% if ( $part_svc->part_svc_column('usergroup')->columnflag eq 'F' ) { - - - <% join('
', @groups) %> -% } else { - - - <% FS::svc_acct::radius_usergroup_selector( \@groups ) %> -% } - - - -% foreach my $field ($svc_acct->virtual_fields) { -% # If the flag is X, it won't even show up in $svc_acct->virtual_fields. -% if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) { - - - <% $svc_acct->pvf($field)->widget('HTML', 'edit', $svc_acct->getfield($field)) %> -% } -% } - - - -
- - - -
- -<% include('/elements/footer.html') %> - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific? - -my $conf = new FS::Conf; -my @shells = $conf->config('shells'); - -my $curuser = $FS::CurrentUser::CurrentUser; - -my($svcnum, $pkgnum, $svcpart, $part_svc, $svc_acct, @groups); -if ( $cgi->param('error') ) { - - $svc_acct = new FS::svc_acct ( { - map { $_, scalar($cgi->param($_)) } fields('svc_acct') - } ); - $svcnum = $svc_acct->svcnum; - $pkgnum = $cgi->param('pkgnum'); - $svcpart = $cgi->param('svcpart'); - $part_svc = qsearchs( 'part_svc', { 'svcpart' => $svcpart } ); - die "No part_svc entry for svcpart $svcpart!" unless $part_svc; - @groups = $cgi->param('radius_usergroup'); - -} elsif ( $cgi->param('pkgnum') && $cgi->param('svcpart') ) { #adding - - $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum'; - $pkgnum = $1; - $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart'; - $svcpart = $1; - - $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); - die "No part_svc entry!" unless $part_svc; - - $svc_acct = new FS::svc_acct({svcpart => $svcpart}); - - $svcnum=''; - - $svc_acct->password_recover('Y'); #default. hmm. - -} else { #editing - - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/ or die "unparsable svcnum"; - $svcnum=$1; - $svc_acct=qsearchs('svc_acct',{'svcnum'=>$svcnum}) - or die "Unknown (svc_acct) svcnum!"; - - my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum}) - or die "Unknown (cust_svc) svcnum!"; - - $pkgnum=$cust_svc->pkgnum; - $svcpart=$cust_svc->svcpart; - - $part_svc = qsearchs( 'part_svc', { 'svcpart' => $svcpart } ); - die "No part_svc entry for svcpart $svcpart!" unless $part_svc; - - @groups = $svc_acct->radius_groups; - -} - -my $communigate = scalar($part_svc->part_export('communigate_pro')); - # || scalar($part_svc->part_export('communigate_pro_singledomain')); - -my( $cust_pkg, $cust_main ) = ( '', '' ); -if ( $pkgnum ) { - $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum } ); - $cust_main = $cust_pkg->cust_main; -} - -unless ( $svcnum || $cgi->param('error') ) { #adding - - #set gecos - if ($cust_main) { - unless ( $part_svc->part_svc_column('uid')->columnflag eq 'F' ) { - $svc_acct->setfield('finger', - $cust_main->getfield('first') . " " . $cust_main->getfield('last') - ); - } - } - - $svc_acct->set_default_and_fixed( { - #false laziness w/svc-acct::_fieldhandlers - 'usergroup' => sub { - my( $self, $groups ) = @_; - if ( ref($groups) eq 'ARRAY' ) { - @groups = @$groups; - $groups; - } elsif ( length($groups) ) { - @groups = split(/\s*,\s*/, $groups); - [ @groups ]; - } else { - @groups = (); - []; - } - } - } ); - -} - -#fixed radius groups always override & display -if ( $part_svc->part_svc_column('usergroup')->columnflag eq 'F' ) { - @groups = split(',', $part_svc->part_svc_column('usergroup')->columnvalue); -} - -my $action = $svcnum ? 'Edit' : 'Add'; - -my $svc = $part_svc->getfield('svc'); - -my $otaker = getotaker; - -my $username = $svc_acct->username; - -my $password = ''; -if ( $cgi->param('error') ) { - $password = $cgi->param('clear_password'); -} elsif ( $svcnum ) { - my $password_encryption = $svc_acct->_password_encryption; - if ( $password = $svc_acct->get_cleartext_password ) { - $password = '*HIDDEN*' unless $conf->exists('showpasswords'); - } elsif( $svc_acct->_password and $password_encryption ne 'plain' ) { - $password = "(".uc($password_encryption)." encrypted)"; - } -} - -my $ulen = - $conf->exists('usernamemax') - ? $conf->config('usernamemax') - : dbdef->table('svc_acct')->column('username')->length; -my $ulen2 = $ulen+2; - -my $pmax = max($conf->config('passwordmax') || 13); -my $pmax2 = $pmax+2; - -my $p1 = popurl(1); - -sub max { - (sort(@_))[-1] -} - - -- cgit v1.1