diff options
author | B. Watson <urchlay@slackware.uk> | 2024-04-09 22:28:29 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-04-11 16:52:48 -0400 |
commit | 73dfd72ca0f8e7c2be5367a38fd9bdbd8f6e6e79 (patch) | |
tree | 77af8f1ddcce221744a9b85f6e643c2c2361fd9d | |
parent | 370c0d47318dbc46bda88c7a6c9a3e30429b9cef (diff) | |
download | soxdial-73dfd72ca0f8e7c2be5367a38fd9bdbd8f6e6e79.tar.gz |
soxdial: VERSION=0.1.0.
-rwxr-xr-x | soxdial | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -2,7 +2,7 @@ # constuct and execute a sox command to dial a phone number with DTMF tones. -$VERSION = "0.0.1"; +$VERSION = "0.1.0"; ($SELF = $0) =~ s,.*/,,; $|++; @@ -313,10 +313,6 @@ sub add_digit { $time += randomize($pausetime); } else { - #print "time $time\n"; - #print "freq1 " . ($freqs{$d}->[0]) . "\n"; - #print "freq2 " . ($freqs{$d}->[1]) . "\n"; - push @freqs1, ($freqs{$d}->[0]); push @freqs2, ($freqs{$d}->[1]); @@ -461,6 +457,8 @@ if(!@ARGV) { 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) { |