diff options
-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) { |