From 1891a50c65991b32808f9dff29a254e827fefeb3 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Mon, 8 Apr 2024 21:31:35 -0400
Subject: soxdial: add -f/--fast option.

---
 soxdial | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'soxdial')

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 "", $_) {
-- 
cgit v1.2.3