Lines 75-86
if ( $op eq 'acct_form' ) {
Link Here
|
75 |
my $password = scalar $input->param('password'); |
75 |
my $password = scalar $input->param('password'); |
76 |
$password = $crypt->encrypt_hex($password); |
76 |
$password = $crypt->encrypt_hex($password); |
77 |
my $fields = { |
77 |
my $fields = { |
78 |
description => scalar $input->param('description'), |
78 |
description => scalar $input->param('description'), |
79 |
host => scalar $input->param('host'), |
79 |
host => scalar $input->param('host'), |
80 |
username => scalar $input->param('username'), |
80 |
username => scalar $input->param('username'), |
81 |
password => $password, |
81 |
password => $password, |
82 |
upload_port => scalar $input->param('upload_port') || 22, |
82 |
upload_port => scalar $input->param('upload_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
83 |
download_port => scalar $input->param('download_port') || 22, |
83 |
download_port => scalar $input->param('download_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
84 |
vendor_id => scalar $input->param('vendor_id'), |
84 |
vendor_id => scalar $input->param('vendor_id'), |
85 |
upload_directory => scalar $input->param('upload_directory'), |
85 |
upload_directory => scalar $input->param('upload_directory'), |
86 |
download_directory => scalar $input->param('download_directory'), |
86 |
download_directory => scalar $input->param('download_directory'), |
87 |
- |
|
|