+print &ntable("#cccccc",2), <Username |
|
Password |
-
+ |
(blank to generate) |
END
#domain
-$domsvc = $svc_acct->domsvc || 0;
+my $domsvc = $svc_acct->domsvc || 0;
if ( $part_svc->part_svc_column('domsvc')->columnflag eq 'F' ) {
print qq!!;
} else {
@@ -182,7 +176,7 @@ if ( $part_svc->part_svc_column('domsvc')->columnflag eq 'F' ) {
}
#pop
-$popnum = $svc_acct->popnum || 0;
+my $popnum = $svc_acct->popnum || 0;
if ( $part_svc->part_svc_column('popnum')->columnflag eq "F" ) {
print qq!!;
} else {
@@ -190,7 +184,7 @@ if ( $part_svc->part_svc_column('popnum')->columnflag eq "F" ) {
qq!!. FS::svc_acct_pop::popselector($popnum). ' | ';
}
-($uid,$gid,$finger,$dir)=(
+my($uid,$gid,$finger,$dir)=(
$svc_acct->uid,
$svc_acct->gid,
$svc_acct->finger,
@@ -200,12 +194,20 @@ if ( $part_svc->part_svc_column('popnum')->columnflag eq "F" ) {
print <
-GECOS | |
-
END
-$shell = $svc_acct->shell;
-if ( $part_svc->part_svc_column('shell')->columnflag eq "F" ) {
+if ( !$finger && $part_svc->part_svc_column('uid')->columnflag eq 'F' ) {
+ print '';
+} else {
+ print 'GECOS | '.
+ qq! | !;
+}
+print qq!!;
+
+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' )
+ ) {
print qq!!;
} else {
print qq!Shell | | ";
}
-($quota,$slipip)=(
+my($quota,$slipip)=(
$svc_acct->quota,
$svc_acct->slipip,
);
@@ -242,6 +244,10 @@ foreach my $r ( grep { /^r(adius|[cr])_/ } fields('svc_acct') ) {
}
}
+print 'RADIUS groups | '.
+ &FS::svc_acct::radius_usergroup_selector( \@groups ).
+ ' | ';
+
#submit
print qq! !;
|