diff options
author | B. Watson <urchlay@slackware.uk> | 2024-04-11 15:05:05 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-04-11 16:52:48 -0400 |
commit | 9fe2f8dcc56c9edbe1be04416911ec7938b5e9eb (patch) | |
tree | 8fa0d41c8b725adf18615ab7b71b8b048e8a53a4 | |
parent | 141b196cfa597c90ec811173f296f9d52a47d73d (diff) | |
download | soxdial-9fe2f8dcc56c9edbe1be04416911ec7938b5e9eb.tar.gz |
soxdial: support spaces in extensionless output filenames, too.
-rwxr-xr-x | soxdial | 13 |
1 files changed, 8 insertions, 5 deletions
@@ -494,21 +494,24 @@ sub set_dialtone_type { # final sox command, to which we pipe all the others. sub make_sox_cmd { + # support quotes, spaces, etc in filenames. + # this can probably be fooled by a determined luser. + $output =~ s,",\\",g; + $output = "\"$output\""; + if($output !~ /\./) { $output = "-t raw $output"; - } else { - # support quotes, spaces, etc in filenames. - # this can probably be fooled by a determined luser. - $output =~ s,",\\",g; - $output = "\"$output\""; } + my $ch = $stereo ? "channels 2" : ""; + my $remix = ""; if($left) { $remix = "remix 1 1v0"; } elsif($right) { $remix = "remix 1v0 1"; } + my $cmd = "sox -traw -b$bits $encoding -r$rate -c1 - $output $ch $remix"; my $subcmds = join(" ; ", @sox_subcmds); return "( " . $subcmds . " ) | " . $cmd; |