|
Lines 123-134
elsif ( $op eq 'edit_save' ) {
Link Here
|
| 123 |
my $password = $input->param('smtp_password') || undef; |
123 |
my $password = $input->param('smtp_password') || undef; |
| 124 |
my $debug = ( scalar $input->param('smtp_debug_mode') ) ? 1 : 0; |
124 |
my $debug = ( scalar $input->param('smtp_debug_mode') ) ? 1 : 0; |
| 125 |
|
125 |
|
| 126 |
$password = undef |
|
|
| 127 |
if defined $password and $password eq '****'; |
| 128 |
|
| 129 |
try { |
126 |
try { |
| 130 |
$smtp_server->password( $password ) |
127 |
$smtp_server->password( $password ) |
| 131 |
if $password; |
128 |
if defined $password and $password ne '****' |
|
|
129 |
or not defined $password; |
| 132 |
|
130 |
|
| 133 |
$smtp_server->set( |
131 |
$smtp_server->set( |
| 134 |
{ |
132 |
{ |
|
Lines 138-144
elsif ( $op eq 'edit_save' ) {
Link Here
|
| 138 |
timeout => $timeout, |
136 |
timeout => $timeout, |
| 139 |
ssl_mode => $ssl_mode, |
137 |
ssl_mode => $ssl_mode, |
| 140 |
user_name => $user_name, |
138 |
user_name => $user_name, |
| 141 |
password => $password, |
|
|
| 142 |
debug => $debug |
139 |
debug => $debug |
| 143 |
} |
140 |
} |
| 144 |
)->store; |
141 |
)->store; |
| 145 |
- |
|
|