diff options
author | B. Watson <urchlay@slackware.uk> | 2024-04-08 21:31:35 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-04-11 16:52:48 -0400 |
commit | 453ac23ab750336646a4714c6a1ec7df58f2d239 (patch) | |
tree | 0442cb06b7e934e40c557edbf8be6264de20a79f | |
parent | 1a4aca55878c5d6d7494e113553c3a6957b58aa6 (diff) | |
download | soxdial-453ac23ab750336646a4714c6a1ec7df58f2d239.tar.gz |
soxdial: add -f/--fast option.
-rwxr-xr-x | soxdial | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -151,6 +151,10 @@ or 100ms. Can be randomized with B<-X>, B<--random>. Sets the delay added by commas in the dial strings. Default is 0.5 or 500ms. Can be randomized with B<-X>, B<--random>. +=item B<-f>, B<--fast> + +Decreases the digit, delay, and comma times by 50%. + =item B<-x>, B<--extended> Allows the extended touchtone pad keys A, B, C, and D. B<Disables> @@ -527,6 +531,10 @@ for ($argc = 0; $argc < @ARGV; $argc++) { } elsif(/^--?(?:X|random)$/) { # sorry I had to use -X for this, -R was already taken. $random = 1; + } elsif(/^--?f(?:ast)?$/) { + $intertime /= 2; + $digittime /= 2; + $pausetime /= 2; } else { warn "$SELF: start dial string '$_'\n" if $verbose; for (split "", $_) { |