0e0 [zero e zero] to enable export to RADIUS without a Framed-IP-Address.)',
'popnum' => qq!POP number!,
'username' => 'Username',
'quota' => '',
'_password' => 'Password',
'gid' => 'GID (when blank, defaults to UID)',
'shell' => 'Shell (all service definitions should have a default or fixed shell that is present in the shells configuration file)',
'finger' => 'GECOS',
'domsvc' => 'svcnum from svc_domain',
},
'svc_domain' => {
'domain' => 'Domain',
},
'svc_acct_sm' => {
'domuser' => 'domuser@virtualdomain.com',
'domuid' => 'UID where domuser@virtualdomain.com mail is forwarded',
'domsvc' => 'svcnum from svc_domain for virtualdomain.com',
},
'svc_forward' => {
'srcsvc' => 'service from which mail is to be forwarded',
'dstsvc' => 'service to which mail is to be forwarded',
'dst' => 'someone@another.domain.com to use when dstsvc is 0',
},
'svc_charge' => {
'amount' => 'amount',
},
'svc_wo' => {
'worker' => 'Worker',
'_date' => 'Date',
},
'svc_www' => {
#'recnum' => '',
#'usersvc' => '',
},
);
# svc_acct svc_domain svc_acct_sm svc_charge svc_wo
foreach my $svcdb ( qw(
konq_kludge svc_acct svc_domain svc_acct_sm svc_forward svc_www
) ) {
# my(@fields) = $svcdb eq 'konq_kludge'
# ? ()
# : grep { $_ ne 'svcnum' } fields($svcdb);
#yucky kludge
my(@fields) = defined( $FS::Record::dbdef->table($svcdb) )
? grep { $_ ne 'svcnum' } fields($svcdb)
: ();
#my($rowspan)=scalar(@rows);
#my($ptmp)="