aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-04-09 22:28:29 -0400
committerB. Watson <urchlay@slackware.uk>2024-04-11 16:52:48 -0400
commit73dfd72ca0f8e7c2be5367a38fd9bdbd8f6e6e79 (patch)
tree77af8f1ddcce221744a9b85f6e643c2c2361fd9d
parent370c0d47318dbc46bda88c7a6c9a3e30429b9cef (diff)
downloadsoxdial-73dfd72ca0f8e7c2be5367a38fd9bdbd8f6e6e79.tar.gz
soxdial: VERSION=0.1.0.
-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) {