soxdial: add -f/--fast option.

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 "", $_) {