aboutsummaryrefslogtreecommitdiff
path: root/soxdial
diff options
context:
space:
mode:
Diffstat (limited to 'soxdial')
-rwxr-xr-xsoxdial8
1 files changed, 3 insertions, 5 deletions
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) {