From 72593434fe271ad134618940f6de1552d8d74f60 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 9 Apr 2024 22:28:29 -0400 Subject: soxdial: VERSION=0.1.0. --- soxdial | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'soxdial') diff --git a/soxdial b/soxdial index 345738a..880680a 100755 --- a/soxdial +++ b/soxdial @@ -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) { -- cgit v1.2.3