<& /elements/header.html, mt("$action [_1] account",$svc) &> <& /elements/error.html &> % if ( $cust_main ) { <& /elements/small_custview.html, $cust_main, '', 1, popurl(2) . "view/cust_main.cgi" &>
% }
% if ( $svcnum ) { % my $svclabel = emt("Service #[_1]",$svcnum); % $svclabel =~ s/$svcnum/$svcnum<\/B>/; <% $svclabel %> % } else { <% mt("Service # (NEW)") |h %> % }
<% ntable("#cccccc",2) %> <% mt('Service') |h %> <% $part_svc->svc %> <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('username')->columnlabel || mt('Username'), 'required' => $part_svc->part_svc_column('username')->required ) %> % if ( $svcnum && $conf->exists('svc_acct-no_edit_username') ) { <% $svc_acct->username() %> % } else { MAXLENGTH=<% $ulen %>> % } %if ( $part_svc->part_svc_column('_password')->columnflag ne 'F' ) { % #XXX eventually should require "Edit Password" ACL <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('_password')->columnlabel || mt('Password'), 'required' => $part_svc->part_svc_column('_password')->required ) %> MAXLENGTH=<% $pmax %>> <& /elements/random_pass.html, 'clear_password' &>
<& '/elements/validate_password.html', 'fieldid' => 'clear_password', 'svcnum' => $svcnum &> %}else{ %} % %my $sec_phrase = $svc_acct->sec_phrase; %if ( $conf->exists('security_phrase') % && $part_svc->part_svc_column('sec_phrase')->columnflag ne 'F' ) { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('sec_phrase')->columnlabel || mt('Security phrase'), 'required' => $part_svc->part_svc_column('sec_phrase')->required ) %> (<% mt('for forgotten passwords') |h %>) % } 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->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, % ) % ); <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('domsvc')->columnlabel || mt('Domain'), 'required' => $part_svc->part_svc_column('domsvc')->required ) %> % } % if ( $communigate ) { <% mt('Aliases') |h %> % } else { % } <& /elements/tr-select-svc_pbx.html, 'curr_value' => $svc_acct->pbxsvc, 'part_svc' => $part_svc, 'cust_pkg' => $cust_pkg, 'label' => $part_svc->part_svc_column('pbxsvc')->columnlabel || 'PBX', &> %#pop %my $popnum = $svc_acct->popnum || 0; %if ( $part_svc->part_svc_column('popnum')->columnflag eq 'F' ) { % % } else { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('popnum')->columnlabel || mt('Access number'), 'required' => $part_svc->part_svc_column('popnum')->required ) %> <% FS::svc_acct_pop::popselector($popnum) %> % } %#tower (huh) %if ( $conf->exists('svc_acct-tower_sector') % && $part_svc->part_svc_column('sectornum')->columnflag ne 'F' ) { <& /elements/tr-select-tower_sector.html, 'curr_value' => $svc_acct->sectornum, #'part_svc' => $part_svc, #'cust_pkg' => $cust_pkg, 'required' => $part_svc->part_svc_column('sectornum')->required, 'label' => $part_svc->part_svc_column('sectornum')->columnlabel || mt('Tower sector'), &> %} else { %} <& /elements/tr-svc_export_machine.html, 'svc' => $svc_acct, 'part_svc' => $part_svc, 'cgi' => $cgi, &> % #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()) ) { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column($xid)->columnlabel || uc($xid), 'required' => $part_svc->part_svc_column($xid)->required ) %> %# %# <% uc($xid) %> <% $svc_acct->$xid() %> % } % } else { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column($xid)->columnlabel || uc($xid), 'required' => $part_svc->part_svc_column($xid)->required ) %> % } % } % %#finger %if ( $part_svc->part_svc_column('uid')->columnflag eq 'F' % && ! $svc_acct->finger ) { % % } else { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('finger')->columnlabel || mt('Real Name'), 'required' => $part_svc->part_svc_column('finger')->required ) %> % } % %#dir %if ( $part_svc->part_svc_column('dir')->columnflag eq 'F' % || !$curuser->access_right('Edit home dir') % ) { % } else { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('dir')->columnlabel || mt('Home directory'), 'required' => $part_svc->part_svc_column('dir')->required ) %> % } % %#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 { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('shell')->columnlabel || mt('Shell'), 'required' => $part_svc->part_svc_column('shell')->required ) %> % } <& svc_acct/communigate.html, 'svc_acct' => $svc_acct, 'part_svc' => $part_svc, 'communigate' => $communigate, &> % if ( $conf->exists('svc_acct-ip_addr') ) { % # router/block selection UI % # (should we show this if slipip is fixed?) <& /elements/tr-select-router_block_ip.html, 'object' => $svc_acct, 'ip_field' => 'slipip', 'required' => $part_svc->part_svc_column('routernum')->required, 'label' => $part_svc->part_svc_column('routernum')->columnlabel, 'ip_addr_required' => $part_svc->part_svc_column('slipip')->required, 'ip_addr_label' => $part_svc->part_svc_column('slipip')->columnlabel, &> % } else { % # don't expose these to the user--they're only useful in the other case % if ( $part_svc->part_svc_column('slipip')->columnflag =~ /^[FA]$/ ) { % } else { <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('slipip')->columnlabel || mt('IP'), 'required' => $part_svc->part_svc_column('slipip')->required ) %> % } % } % tie my %label, 'Tie::IxHash', 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') ) { <% mt("[_1] remaining",$label{$uf}) |h %> (<% mt('blank disables') |h %>) <% mt("[_1] threshold",$label{$uf}) |h %> (<% mt('blank disables') |h %>) % }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} %> % } % } <% include('/elements/tr-td-label.html', 'label' => $part_svc->part_svc_column('usergroup')->columnlabel || mt('RADIUS groups'), 'required' => $part_svc->part_svc_column('usergroup')->required ) %> % if ( $part_svc_usergroup->columnflag eq 'F' ) { <% join('
', @groupnames) %> % } else { % my $radius_group_selected = ''; % if ( $svc_acct->svcnum ) { % $radius_group_selected = join(',',$svc_acct->radius_groups('groupnum')); % } % elsif ( !$svc_acct->svcnum && $part_svc_usergroup->columnflag eq 'D' ) { % $radius_group_selected = $part_svc_usergroup->columnvalue; % } <& /elements/select-radius_group.html, curr_value => $radius_group_selected, element_name => 'radius_usergroup', multiple => 1, &> % } % if ( $part_svc->has_router ) { <& /elements/hidden.html, field => 'router_routernum', curr_value => $svc_acct->router_routernum &> <& /elements/tr-input-text.html, label => 'Attached router name', field => 'router_routername', size => 32, curr_value => $svc_acct->router_routername &> <& /elements/tr-select-table.html, label => 'Attached address block', field => 'router_blocknum', table => 'addr_block', hashref => { 'routernum' => '0' }, extra_sql => ($svc_acct->router_routernum ? ' OR routernum = '.$svc_acct->router_routernum : ''), agent_virt => 1, agent_null => 1, name_col => 'cidr', order_by => 'ORDER BY ip_gateway, ip_netmask', empty_label => '(none)', disable_empty => 0, curr_value => $svc_acct->router_blocknum &> % } % 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)) %> % } % }
% if ( $captcha_url ) {
<% mt('Enter the word shown above:') |h %>

% } <& /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 = (); []; } } } ); } my $part_svc_usergroup = $part_svc->part_svc_column('usergroup'); #fixed radius groups always override & display my @groupnames; # only used for display of Fixed RADIUS groups if ( $part_svc_usergroup->columnflag eq 'F' ) { @groups = split(',',$part_svc_usergroup->columnvalue); @groupnames = map { $_->long_description } qsearch({ 'table' => 'radius_group', 'extra_sql' => "where groupnum in (".$part_svc_usergroup->columnvalue.")", }) if length($part_svc_usergroup->columnvalue); } my $action = $svcnum ? 'Edit' : 'Add'; my $svc = $part_svc->getfield('svc'); 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') || 12); my $pmax2 = $pmax+2; my $p1 = popurl(1); sub max { (sort(@_))[-1] } my $captcha_url; my ($export_google) = $part_svc->part_export('acct_google'); if ( $export_google ) { my $error = $export_google->auth_error; if ( $error ) { if ( $error->{'captcha_url'} ) { $captcha_url = $error->{'captcha_url'}; } else { $cgi->param('error', $error->{'message'}); } } #if $error } if ( $part_svc->has_router ) { # duplicates the one in elements/svc_Common if ( $svcnum ) { my $router = qsearchs('router', {svcnum => $svc_acct->svcnum}); if ( $router ) { $svc_acct->set("router_$_", $router->get($_)) foreach ('routername', 'routernum'); my ($block) = $router->addr_block; $svc_acct->set('router_blocknum', $block->blocknum) if ( $block ); } } foreach (qw(router_routername router_routernum router_blocknum)) { if ( $cgi->param($_) =~ /^(\w+)$/ ) { $svc_acct->set($_, $1); } } }