soxdial: moved to its own repo: https://slackware.uk/~urchlay/repos/soxdial

1 files changed, 0 insertions, 730 deletions

diff --git a/soxdial b/soxdial
deleted file mode 100755
index a97add4..0000000
--- a/soxdial
+++ /dev/null
@@ -1,730 +0,0 @@
-#!/usr/bin/perl -w
-
-# constuct and execute a sox command to dial a phone number with DTMF tones.
-
-$VERSION = "0.1.0";
-($SELF = $0) =~ s,.*/,,;
-
-$|++;
-
-=pod
-
-=head1 NAME
-
-soxdial - generate DTMF (touchtone or blue box) audio
-
-=head1 SYNOPSIS
-
-B<soxdial> [I<global-options>] [ [I<dial-options>] [I<dial-string>] ... ]
-
-B<soxdial> [I<utility-option>]
-
-=head1 DESCRIPTION
-
-B<soxdial> uses B<sox>(1) to generate DTMF tones (aka touchtone
-dialling) and/or "blue box" tones. Output can be played through the
-system sound card, or saved to a file of any type supported by sox.
-
-By default, letters are accepted and converted to numbers, according
-to the layout of a touchtone phone (e.g. A = 2, M = 6, etc). If the
-extended touchtone digits A, B, C, and D are needed, they can be
-enabled with the B<-x>, B<--extended> option (see below).
-
-The generated audio is monophonic by default, though stereo output
-can be done with the B<-S>, B<--stereo>; B<-L>, B<--left>; or B<-R>,
-B<--right> options (see below).
-
-The time each digit is pressed and the timing between the digits can
-be controlled (B<-l>, B<--length>; B<-d>, B<--delay>, and can also be
-randomized (B<-X>, B<--random>). Longer pauses can be added
-between digits by including a comma, or using the B<-s>, B<--silence>
-option.
-
-=head1 OPTIONS
-
-Note that option bundling is not supported. Use e.g. B<-v -n>,
-not B<-vn>. Spaces are allowed but not required between options and
-their arguments: B<-b16> and B<-b 16> are equivalent. Also, GNU-style
-B<--option=value> is supported (and works the same as B<--option
-value>).
-
-=head2 Utility Options
-
-=over 4
-
-=item B<-V>, B<--version>
-
-Print the version number of B<soxdial>, then exit.
-
-=item B<--help>
-
-Prints this help text, via B<perldoc>(1), then exit.
-
-=item B<--man>
-
-Prints this help text as a man page, via B<pod2man>(1), then exit. Suggested use:
-
-  soxdial --man > soxdial.1
-
-Then B<soxdial.1> can be installed in e.g. /usr/man/man1 or
-/usr/share/man/man1 or wherever your OS keeps its man pages.
-
-=back
-
-=head2 Global Options
-
-These options affect the entire output. They should only be given once,
-before any dial strings or dial options.
-
-=over 4
-
-=item B<-o>, B<--output> I<output>
-
-Write sox's output to a file, rather than playing it. The file format
-is determined by the filename extension. Use B<.wav> for RIFF WAVE
-output, B<.flac> for FLAC, B<.ogg> for Ogg Vorbis, or anything else
-(including no extension) for raw audio samples. The special filename B<->
-writes raw samples to standard output.
-
-=item B<-r>, B<--rate> I<rate>
-
-Set the bitrate in hertz (or kilohertz if followed by B<k>. Default is
-8000 (or 8k). You should probably stick with standard bitrates such
-as 22050, 44100, 48000, etc, although this is not enforced. If this
-option is used, it B<must> occur on the command line B<before> any
-dial string.
-
-=item B<-b>, B<--bits> I<bits>
-
-Set the bits per sample. Default is 8. The only other choice is 16.
-8-bit samples will be encoded as unsigned, and 16-bit will be encoded
-as signed. If this option is used, it B<must> occur on the command
-line B<before> any dial string.
-
-=item B<-S>, B<--stereo>
-
-Output stereo audio. The left and right channels will contain the same
-audio. Use this if you're importing the audio into some other piece of
-software that expects stereo input files.
-
-=item B<-L>, B<--left>
-
-Output stereo audio, with the generated tones on the left channel and silence
-on the right channel.
-
-=item B<-R>, B<--right>
-
-Output stereo audio, with the generated tones on the right channel and silence
-on the left channel.
-
-=item B<-v>, B<--verbose>
-
-Print verbose information, including the generated B<sox> command, on standard
-error.
-
-=item B<-n>, B<--no-exec>
-
-Do not execute the generated B<sox> command. This option also
-enables B<-v>.
-
-=back
-
-=head2 Dial Options
-
-These options can be mixed freely with dial strings, and are applied
-as they're found on the command line. Each one affects the rest of the
-dial strings, until the same option is seen again.
-
-=over 4
-
-=item B<-l>, B<--length> [ I<sec> | I<millisec>B<ms> ]
-
-Sets the time each digit's tones are played. Default is 0.25
-or 250ms. Can be randomized with B<-X>, B<--random>.
-
-=item B<-d> I<sec>, B<--delay> [ I<sec> | I<millisec>B<ms> ]
-
-Sets the delay between consecutive digits. Default is 0.1
-or 100ms. Can be randomized with B<-X>, B<--random>.
-
-=item B<-c> I<sec>, B<--comma> [ I<sec> | I<millisec>B<ms> ]
-
-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<--random>
-
-Randomize the timing. Digit length (B<-l>), inter-digit timing
-(B<-d>), and the comma (B<-c>) will vary from 1x to 2x the amount
-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<-x>, B<--extended>
-
-Allows the extended touchtone pad keys A, B, C, and D. B<Disables>
-letter-to-number conversions.
-
-=item B<-a>, B<--alphabet>
-
-Disables extended touchtone pad keys A, B, C, and D; re-enables
-letter-to-number conversions. This is the default; this option exists
-to turn off a prior B<-x>, B<--extended> option.
-
-=item B<-t>, B<--dialtone> [ I<sec> | I<millisec>B<ms> ]
-
-Play I<sec> (or I<millisec> ms) of dialtone before the next dial string.
-
-=item B<-D>, B<--dialtone-type> [ I<us> | I<uk> | I<fr> | I<eu> | I<jp> ]
-
-Set the type of dialtone to be played by B<-d>, B<--dialtone>. Default
-is B<us>.
-
-=item B<-s>, B<--silence> [ I<sec> | I<millisec>B<ms> ]
-
-Play I<sec> (or I<millisec> ms) of silence before the next dial string.
-
-=item B<-B>, B<--bluebox>
-
-Switch to bluebox dialling mode. See B<BLUEBOX MODE> below for details.
-
-=item B<-N>, B<--normal>
-
-Switch to normal touchtone dialling mode. This is the default; this
-option exists to turn off a prior B<-B>, B<--bluebox>.
-
-=back
-
-=head2 Dial Strings
-
-These are the actual digits to be dialled. Each dial string consists
-of one or more digits (as many as desired), and they will be played
-consecutively.
-
-DTMF digits 0 to 9, #, and * are supported. By default, letters are
-also supported, and will be converted to digits according to the
-standard layout of touchtone phones (e.g. A through C convert to 2,
-D through F are 3, etc).
-
-Q and Z weren't present on classic phones, but they will be converted
-to 7 and 9, respectively (like modern cell phones).
-
-To add an extra delay between digits, use a comma (and see the B<-c>,
-B<--comma> option to set the length of the delay).
-
-To play the extra DTMF tones for the extended 16-digit keypad (which has
-A, B, C, and D keys), use the B<-x>, B<--extended> option. This disables
-letter-to-number conversion, but it can be re-enabled later on the
-command line with the B<-a>, B<--alphabet> option.
-
-All characters that aren't mentioned above, will be silently
-ignored. This allows you to paste a phone number in the form B<(555)
-555-1212> and have it work correctly.
-
-=head1 BLUEBOX MODE
-
-A blue box is a phone phreaking device that generates tones (formerly)
-used for in-band signaling within the telephone network. B<soxdial>
-can generate these tones.
-
-To enable bluebox mode, use the B<-B>, B<--bluebox> option.
-
-Unlike touchtone dialling, bluebox signals have a timing
-specification. When entering bluebox mode, the digit time and
-inter-digit time are set to 60ms (except the kp and kp2 tones, which
-sound for 100ms).
-
-To exit bluebox mode, use the B<-N>, B<--normal> option. This resets
-the timing to whatever it was before entering bluebox mode.
-
-In bluebox mode, there is no letter-to-number conversion.
-
-The bluebox keypad has digits B<0-9>, which can be combined in a
-single dial string. The keys B<kp>, B<kp2>, B<st>, B<st2>, and B<st3>
-must appear alone as separate dial strings (meaning, put a space
-before and after them).
-
-The alternate names for B<0> (B<10>), B<st3> (B<11>), and B<st2>
-(B<12>) are not supported, since there's no way to tell an 11 from
-two 1's.
-
-=head1 NOTES
-
-B<1.> B<soxdial> works by iterating over the words on the command
-line, and building up an array of B<sox> commands for each dial string
-or segment of dial tone. At the end, all the B<sox> commands are run
-and their combined output (as raw samples) is piped to another B<sox>
-command that writes the output as a single audio stream (raw, .wav,
-or whatever format the B<-o>, B<--output> filename indicates). It has
-to be done this way because B<sox> doesn't allow multiple B<synth>
-arguments in the same command (or, it does, but they don't work as
-expected, or at all). Because the final B<sox> command reads only raw
-audio, it's impossible to change the bitrate or sample size in between
-dial strings.
-
-B<2.> If anything on the command line starts with B<-> but isn't
-a recognized option, it's not an error: it gets treated as a
-dial string. This allows e.g. I<555 -1212> to work correctly, but
-mistyped options will result in them being dialled as alphabetic
-characters. This may be a bit surprising the first time it happens.
-If you use B<-v>, B<--verbose>, you'll get warned about it at least.
-
-B<3.> I haven't been able to test this with a real land-line phone to
-see whether it will actually dial out.
-
-B<4.> I know nothing about blueboxes other than what I've read on
-Wikipedia, and there's no way I know of to test whether the bluebox
-tones are correct (you'd need a time machine).
-
-=head1 AUTHOR
-
-soxdial was written by B. Watson <urchlay@slackware.uk> and released
-under the WTFPL: Do WTF you want with this.
-
-=head1 SEE ALSO
-
-B<sox>(1)
-
-The Wikipedia articles on DTMF, dialtone, and the Blue Box:
-
-  https://en.wikipedia.org/wiki/Dtmf
-  https://en.wikipedia.org/wiki/Bluebox
-  https://en.wikipedia.org/wiki/Dialtone
-
-=cut
-
-%freqs = (
-	1   => [697, 1209],
-	2   => [697, 1336],
-	3   => [697, 1477],
-	4   => [770, 1209],
-	5   => [770, 1336],
-	6   => [770, 1477],
-	7   => [852, 1209],
-	8   => [852, 1336],
-	9   => [852, 1477],
-	'*' => [941, 1209],
-	0   => [941, 1336],
-	'#' => [941, 1477],
-	A   => [697, 1633],
-	B   => [770, 1633],
-	C   => [852, 1633],
-	D   => [941, 1633],
-);
-
-%bluefreqs = (
-	1   => [70, 900],
-	2   => [700, 1100],
-	3   => [900, 1100],
-	4   => [700, 1300],
-	5   => [900, 1300],
-	6   => [1100, 1300],
-	7   => [700, 1500],
-	8   => [900, 1500],
-	9   => [1100, 1500],
-	0   => [1300, 1500],
-	11  => [700, 1700],
-	12  => [900, 1700],
-	kp   => [1100, 1700],
-	kp2  => [1300, 1700],
-	st   => [1500, 1700],
-);
-
-@freqs1 = ();
-@freqs2 = ();
-@delays = ();
-$time = 0;
-$pausetime = 0.5;
-$digittime = 0.25;
-$intertime = 0.1;
-$bits = 8;
-$encoding = "-eun";
-$rate = 8000;
-$output = "-d";
-$dialtone_type = "us";
-
-sub letter2number {
-	my $ret;
-	my $l = uc shift;
-	return $l unless $l =~ /[A-Z]/;
-	for($l) {
-		if(/[A-O]/) {
-			$ret = int((ord($_) - 65) / 3 + 2) . "";
-		} elsif(/[P-S]/) {
-			$ret = "7";
-		} elsif(/[T-V]/) {
-			$ret = "8";
-		} else { # /[W-Z]/
-			$ret = "9";
-		}
-	}
-	warn "$SELF: letter2number('$l') => '$ret'\n" if $verbose;
-	return $ret;
-}
-
-sub randomize {
-	my $time = shift;
-	return $time unless $random;
-
-	my $newtime = $time * (rand() + 1);
-	warn "$SELF: randomized $time to $newtime.\n" if $verbose;
-	return $newtime;
-}
-
-# sox -n -d synth 0.25 sine 697 sine 1209 sine 770 sine 1477 delay 0 0 .35 .35 remix -
-# ...plays DTMF 1 and 6, for 0.25 sec each, with a 0.10 sec delay between them.
-
-sub add_digit {
-	my $d = shift;
-	if($d eq ',') {
-		# pause
-		push @freqs1, 0;
-		push @freqs2, 0;
-		push @delays, $time;
-
-		$time += randomize($pausetime);
-	} else {
-		push @freqs1, ($freqs{$d}->[0]);
-		push @freqs2, ($freqs{$d}->[1]);
-
-		push @delays, $time;
-
-		$time += randomize($digittime);
-		$time += randomize($intertime);
-	}
-	warn "$SELF: added digit '$d', time now $time\n" if $verbose;
-}
-
-sub add_bluebox_digit {
-	my $d = shift;
-	if(!$bluefreqs{$d}) {
-		return;
-	}
-	push @freqs1, ($bluefreqs{$d}->[0]);
-	push @freqs2, ($bluefreqs{$d}->[1]);
-
-	push @delays, $time;
-
-	$time += $digittime;
-	$time += $intertime;
-	warn "$SELF: added bluebox digit '$d', time now $time\n" if $verbose;
-}
-
-# ( sox -n -p synth 2 sine 350 sine 440; sox -n -p synth 2 sine 697 sine 1209 ) | sox -G -p -d
-# ...plays 2 sec of dialtone followed by 2 sec of DTMF key 1. Change the -d
-# to 1.wav to save to a file. Prefix it with -rXXXX -sX if needed.
-
-# each dial string (or --dialtone, or --silence) creates a
-# subcommand. they get executed in a subshell, writing raw audio
-# to stdout, and the final sox command reads all the audio from its
-# stdin. looks like:
-# ( <subcommand1> ; <subcommand2> ; ... ) | sox <final output args>
-
-# --norm is needed because otherwise, the volume decreases as the number of
-# digits (tones for "synth") goes up. --norm=-3 helps avoid clipping.
-sub make_sox_subcmd {
-	return ":" unless @freqs1;
-
-	my $length = shift || $digittime;
-	my $cmd = "sox -n -b$bits $encoding -r$rate -c1 -traw - --norm=-3 ";
-	my $synth = " synth $length ";
-	my $delay = "delay ";
-
-	for(0..$#freqs1) {
-		my $f1 = $freqs1[$_];
-		my $f2 = $freqs2[$_];
-		my $d = $delays[$_];
-
-		$synth .= "sine $f1 sine $f2 "; 
-		$delay .= "$d $d ";
-	}
-
-	$time = 0;
-	@freqs1 = @freqs2 = @delays = ();
-	return $cmd . $synth . $delay;
-}
-
-# used to add the silence after the last digit in a dial string
-sub silence_subcmd {
-	my $s = shift;
-	if(!defined $s || ($s + 0) <= 0) {
-		warn "$SELF: ignoring invalid --silence argument.\n";
-		return;
-	}
-	warn "$SELF: adding $s sec silence.\n" if $verbose;
-	return "sox -n -b$bits $encoding -r$rate -c1 -traw - trim 0 $s";
-}
-
-sub dialtone_subcmd {
-	my $sec = shift;
-	if(!defined $sec || ($sec + 0) <= 0) {
-		warn "$SELF: ignoring invalid --dialtone argument.\n";
-		return;
-	}
-	warn "$SELF: adding $sec sec of dial tone, type '$dialtone_type'.\n" if $verbose;
-	my $cmd = "sox -n -b$bits $encoding -r$rate -c1 -traw - synth $sec ";
-	for($dialtone_type) {
-		/^us$/ && do { $cmd .= "sine 350 sine 440" };
-		/^uk$/ && do { $cmd .= "sine 350 sine 450" };
-		/^eu$/ && do { $cmd .= "sine 425" };
-		/^fr$/ && do { $cmd .= "sine 440" };
-		/^jp$/ && do { $cmd .= "sine 400" };
-	}
-
-	return $cmd;
-}
-
-# these are all the dialtone types I know about (or, that wikipedia knows about).
-sub set_dialtone_type {
-	my $type = shift || "";
-	$type = lc $type;
-	if($type !~ /^(?:us|uk|eu|fr|jp)$/) {
-		die "$SELF: invalid dialtone type '$type'.\n";
-	}
-	$dialtone_type = $type;
-	warn "$SELF: set dialtone type to '$type'.\n" if $verbose;
-}
-
-# final sox command, to which we pipe all the others.
-sub make_sox_cmd {
-	# support quotes, spaces, etc in filenames.
-	# this can probably be fooled by a determined luser.
-	$output =~ s,",\\",g;
-	$output = "\"$output\"";
-
-	if($output !~ /\./) {
-		$output = "-t raw $output";
-	}
-
-	my $ch = $stereo ? "channels 2" : "";
-
-	my $remix = "";
-	if($left) {
-		$remix = "remix 1 1v0";
-	} elsif($right) {
-		$remix = "remix 1v0 1";
-	}
-
-	my $cmd = "sox -traw -b$bits $encoding -r$rate -c1 - $output $ch $remix";
-	my $subcmds = join(" ; ", @sox_subcmds);
-	return "( " . $subcmds . " ) | " . $cmd;
-}
-
-# support either seconds (possibly with decimal point, e.g. 0.5) or
-# milliseconds (e.g. 500ms).
-sub parse_sec {
-	no warnings "numeric";
-	$_ = shift || 0;
-	if(/^(.+)ms$/) {
-		$_ = $1 / 1000;
-	} else {
-		$_ += 0;
-	}
-	return $_;
-}
-
-# support either Hz (e.g. 8000) or KHz (e.g. 8k or 8K).
-sub parse_rate {
-	no warnings "numeric";
-	$_ = shift || 0;
-	if(/^(.+)k$/i) {
-		$_ = $1 * 1000;
-	} else {
-		$_ += 0;
-	}
-	return $_;
-}
-
-sub check_stereo {
-	die "$SELF: can't enable stereo after a dial string.\n" if @sox_subcmds;
-}
-
-# main()
-if(system("sox --version > /dev/null 2>&1") != 0) {
-	die "$SELF: can't execute sox, is it installed?\n";
-}
-
-if(!@ARGV) {
-	warn "$SELF: no dial strings. Try $SELF --help.\n";
-	exit 1;
-}
-
-# we can't use Getopt::Long here because we can apply the same dial options
-# multiple times, between dial strings.
-# preprocess @ARGV, convert e.g. -b16 to -b 16, --foo=bar to --foo bar.
-@newargv = ();
-for(@ARGV) {
-	if(/^(--?\w+)=(.+)$/) {
-		push @newargv, $1, $2;
-	} elsif(/^(--?[blcdts])([\d.]+(?:ms)?)$/i) {
-		push @newargv, $1, $2;
-	} elsif(/^(--?[r])(\d+(?:k)?)$/i) {
-		push @newargv, $1, $2;
-	} elsif(/^(--?[D])(\w\w)$/i) {
-		push @newargv, $1, $2;
-	} elsif(/^(--?o)(.+)$/) {
-		if($2 eq 'utput') {
-			push @newargv, $_;
-		} else {
-			push @newargv, $1, $2;
-		}
-	} else {
-		push @newargv, $_;
-	}
-}
-
-@ARGV = @newargv;
-
-# this is a big ugly mess. should be refactored. works, though.
-for ($argc = 0; $argc < @ARGV; $argc++) {
-	$_ = $ARGV[$argc];
-
-	if(/--?(?:V|version)$/) {
-		print "$SELF $VERSION\n";
-		exit 0;
-	} elsif(/^--?man$/) {
-		exec "pod2man --stderr -s6 -cUrchlaysStuff -r$VERSION -u $0";
-		exit 1;
-	} elsif(/^--?(?:\?|h)/) {
-		exec "perldoc $0";
-		exit 1;
-	} elsif(/^--?v(?:erbose)?$/) {
-		$verbose = 1;
-	} elsif(/^--?n(?:oexec)?$/) {
-		$verbose = 1;
-		$noexec = 1;
-	} elsif(/^--?o(?:utput)?$/) {
-		$output = $ARGV[++$argc];
-		die "$SELF: missing argument for --output.\n" unless defined $output;
-		warn "$SELF: output set to '$output'\n" if $verbose;
-	} elsif(/^--?b(?:its)?$/) {
-		if(@sox_subcmds) {
-			die "$SELF: can't change bits after a dial string.\n";
-		}
-		$bits = $ARGV[++$argc];
-		if($bits == 8) {
-			$encoding = "-eun";
-		} elsif($bits == 16) {
-			$encoding = "-esig";
-		} else {
-			die "$SELF: bad -b/--bits, only 8 or 16 is allowed.\n";
-		}
-		warn "$SELF: bits set to '$bits'\n" if $verbose;
-	} elsif(/^--?r(?:ate)?$/) {
-		if(@sox_subcmds) {
-			die "$SELF: can't change bitrate after a dial string.\n";
-		}
-		$rate = parse_rate($ARGV[++$argc]);
-		die "$SELF: invalid bitrate.\n" unless $rate > 0;
-		warn "$SELF: bitrate set to '$rate'\n" if $verbose;
-	} elsif(/^--?l(?:ength)?$/) {
-		$digittime = parse_sec($ARGV[++$argc]);
-		die "$SELF: invalid --length argument.\n" unless $digittime > 0;
-		warn "$SELF: digit length set to '$digittime'\n" if $verbose;
-	} elsif(/^--?(?:x|extended)$/) {
-		$extended = 1;
-		warn "$SELF: extended DTMF (ABCD) enabled.\n" if $verbose;
-	} elsif(/^--?a(?:lphabet)?$/) {
-		$extended = 0;
-		warn "$SELF: extended DTMF (ABCD) disabled.\n" if $verbose;
-	} elsif(/^--?d(?:elay)?$/) {
-		$intertime = parse_sec($ARGV[++$argc]);
-		die "$SELF: invalid --delay argument.\n" unless $intertime > 0;
-		warn "$SELF: inter-digit delay set to '$intertime'\n" if $verbose;
-	} elsif(/^--?c(?:omma)?$/) {
-		$pausetime = parse_sec($ARGV[++$argc]);
-		die "$SELF: invalid --comma argument.\n" unless $pausetime > 0;
-		warn "$SELF: comma delay set to '$pausetime'\n" if $verbose;
-	} elsif(/^--?(?:D|dialtone-type)$/) {
-		set_dialtone_type($ARGV[++$argc]);
-	} elsif(/^--?(?:t|dialtone)$/) {
-		push @sox_subcmds, dialtone_subcmd(parse_sec($ARGV[++$argc]));
-	} elsif(/^--?s(?:ilence)?$/) {
-		push @sox_subcmds, silence_subcmd(parse_sec($ARGV[++$argc]));
-	} elsif(/^--?(?:S|stereo)$/) {
-		check_stereo();
-		$stereo = 1;
-	} elsif(/^--?(?:L|left)$/) {
-		check_stereo();
-		$right = 0;
-		$stereo = $left = 1;
-	} elsif(/^--?(?:R|right)$/) {
-		check_stereo();
-		$left = 0;
-		$stereo = $right = 1;
-	} 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;
-		$pausetime /= 2;
-	} elsif(/^--?(?:B|bluebox)$/) {
-		@oldsettings = ($digittime, $intertime, $randomize);
-		$bluebox = 1;
-		$digittime = $intertime = 0.06;
-		$randomize = 0;
-		warn "$SELF: bluebox mode enabled.\n" if $verbose;
-	} elsif(/^--?(?:N|normal)$/) {
-		$bluebox = 0;
-		($digittime, $intertime, $randomize) = @oldsettings if @oldsettings;
-		warn "$SELF: bluebox mode disabled (touchtone enabled).\n" if $verbose;
-	} else {
-		$_ = lc $_;
-		if($verbose && (/^--?[a-z]/i)) {
-			warn "$SELF: treating '$_' as a dial string (might be a typo?)\n";
-		}
-		warn "$SELF: start dial string '$_'\n" if $verbose;
-
-		my $time_override;
-		if($bluebox) {
-			if(/^(?:st[23]?|kp2?)/) {
-				$time_override = 0.1 if $_ eq 'kp' || $_ eq 'kp2';
-				add_bluebox_digit($_);
-			} else {
-				add_bluebox_digit($_) for split "", $_;
-			}
-		} else {
-			for (split "", $_) {
-				my $digit = uc $_;
-				if($extended) {
-					next if $digit !~ /[0-9,#*A-D]/;
-				} else {
-					$digit = letter2number($digit);
-					next if $digit !~ /[0-9,#*]/;
-				}
-				add_digit($digit);
-			}
-		}
-		push @sox_subcmds, make_sox_subcmd($time_override);
-		push @sox_subcmds, silence_subcmd(randomize($intertime));
-
-		warn "$SELF: end dial string '$_'\n" if $verbose;
-	}
-}
-
-if(!@sox_subcmds) {
-	die "$SELF: no digits or dialtone to generate.\n";
-}
-
-my $cmd = make_sox_cmd();
-
-if($verbose) {
-	warn "$SELF: sox command is:\n  $cmd\n";
-} else {
-	$cmd .= " 2>/dev/null";
-}
-
-if(!$noexec) {
-	system($cmd);
-}