diff options
-rwxr-xr-x | soxdial | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -11,7 +11,7 @@ $|++; =head1 NAME -soxdial - generate DTMF (touchtone) audio +soxdial - generate DTMF (touchtone or blue box) audio =head1 SYNOPSIS @@ -20,8 +20,8 @@ B<soxdial> [I<global-options>] [ [I<dial-options>] [I<dial-string>] ... ] =head1 DESCRIPTION B<soxdial> uses B<sox>(1) to generate DTMF tones (aka touchtone -dialling). Output can be played through the system sound card, or -saved to a file of any type supported by sox. +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 @@ -392,6 +392,7 @@ sub add_bluebox_digit { $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 @@ -645,9 +646,11 @@ for ($argc = 0; $argc < @ARGV; $argc++) { $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)) { |