soxdial: add -Y/--no-random.

1 files changed, 7 insertions, 0 deletions

diff --git a/soxdial b/soxdial
index 924c958..0de46c9 100755
--- a/soxdial
+++ b/soxdial
@@ -83,6 +83,11 @@ Randomize the timing. Digit length (B<-l>), inter-digit timing
 specified. This does a pretty good impression of a human dialling a
 number manually.
 
+=item B<-Y>, B<--no-random>
+
+Disable randomized timing. This is the default; this option exists
+to turn off a prior B<-X>, B<--random> option.
+
 =item B<-S>, B<--stereo>
 
 Output stereo audio. The left and right channels will contain the same
@@ -532,6 +537,8 @@ for ($argc = 0; $argc < @ARGV; $argc++) {
 	} elsif(/^--?(?:X|random)$/) {
 		# sorry I had to use -X for this, -R was already taken.
 		$random = 1;
+	} elsif(/^--?(?:Y|no-random)$/) {
+		$random = 0;
 	} elsif(/^--?f(?:ast)?$/) {
 		$intertime /= 2;
 		$digittime /= 2;