diff options
author | B. Watson <urchlay@slackware.uk> | 2024-04-08 21:31:35 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-04-08 21:31:35 -0400 |
commit | 1891a50c65991b32808f9dff29a254e827fefeb3 (patch) | |
tree | fe74f942a223b093b8d6cf200189258f43a83b07 | |
parent | 5fec41f924e242380a3f8029faa53507033766a7 (diff) | |
download | misc-scripts-1891a50c65991b32808f9dff29a254e827fefeb3.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 "", $_) { |