| 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 +170,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 +178,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,
@@ -204,7 +192,7 @@ print <
END
-$shell = $svc_acct->shell;
+my $shell = $svc_acct->shell;
if ( $part_svc->part_svc_column('shell')->columnflag eq "F" ) {
print qq!!;
} else {
@@ -217,7 +205,7 @@ if ( $part_svc->part_svc_column('shell')->columnflag eq "F" ) {
print "";
}
-($quota,$slipip)=(
+my($quota,$slipip)=(
$svc_acct->quota,
$svc_acct->slipip,
);