no strict 'refs';
${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields;
}
+ $email = ( grep { $_ ne 'POST' }
+ $svc_acct->cust_svc->cust_pkg->cust_main->invoicing_list
+ )[0];
$finger = shell_quote $finger;
$quoted_password = shell_quote $_password;
$domain = $svc_acct->domain;
}
$new_finger = shell_quote $new_finger;
$quoted_new__password = shell_quote $new__password;
+ $old_domain = $old->domain;
$new_domain = $new->domain;
$new_crypt_password = ''; #surpress "used only once" warnings
$new_crypt_password = crypt( $new->_password,