diff options
| author | ivan <ivan> | 2004-03-18 22:35:32 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-03-18 22:35:32 +0000 |
| commit | 880355353822e9d4a2fbd9100cad7c74179c1a59 (patch) | |
| tree | 662b92448fc6ea3a885f2a28eed7ce7ab43b8f2d /FS/FS/part_export/shellcommands.pm | |
| parent | b0011320cc2c33233ee694c61903667d2d3d8e5b (diff) | |
quote already-crypted passwords to prevent variable substitution
Diffstat (limited to 'FS/FS/part_export/shellcommands.pm')
| -rw-r--r-- | FS/FS/part_export/shellcommands.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm index 1eb0d8367..9fad36dad 100644 --- a/FS/FS/part_export/shellcommands.pm +++ b/FS/FS/part_export/shellcommands.pm @@ -63,7 +63,7 @@ sub _export_command { #eventually should check a "password-encoding" field if ( length($svc_acct->_password) == 13 || $svc_acct->_password =~ /^\$(1|2a?)\$/ ) { - $crypt_password = $svc_acct->_password; + $crypt_password = shell_quote $svc_acct->_password; } else { $crypt_password = crypt( $svc_acct->_password, @@ -98,7 +98,7 @@ sub _export_replace { #eventuall should check a "password-encoding" field if ( length($new->_password) == 13 || $new->_password =~ /^\$(1|2a?)\$/ ) { - $new_crypt_password = $new->_password; + $new_crypt_password = shell_quote $new->_password; } else { $new_crypt_password = crypt( $new->_password, $saltset[int(rand(64))].$saltset[int(rand(64))] |