diff options
author | B. Watson <urchlay@slackware.uk> | 2024-04-09 22:28:29 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-04-09 22:28:29 -0400 |
commit | 72593434fe271ad134618940f6de1552d8d74f60 (patch) | |
tree | 897c2456885e18316de0e5e4eaa7bc3ca698b499 | |
parent | 99bc78fc15931ce0ad8cd252ef1b3725e6ffa3aa (diff) | |
download | misc-scripts-72593434fe271ad134618940f6de1552d8d74f60.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) { |