aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-04-08 21:31:35 -0400
committerB. Watson <urchlay@slackware.uk>2024-04-08 21:31:35 -0400
commit1891a50c65991b32808f9dff29a254e827fefeb3 (patch)
treefe74f942a223b093b8d6cf200189258f43a83b07
parent5fec41f924e242380a3f8029faa53507033766a7 (diff)
downloadmisc-scripts-1891a50c65991b32808f9dff29a254e827fefeb3.tar.gz
soxdial: add -f/--fast option.
-rwxr-xr-xsoxdial8
1 files changed, 8 insertions, 0 deletions
diff --git a/soxdial b/soxdial
index 6678c8d..7228483 100755
--- a/soxdial
+++ b/soxdial
@@ -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 "", $_) {