aboutsummaryrefslogtreecommitdiff
path: root/soxdial
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-04-09 22:28:29 -0400
committerB. Watson <urchlay@slackware.uk>2024-04-09 22:28:29 -0400
commit72593434fe271ad134618940f6de1552d8d74f60 (patch)
tree897c2456885e18316de0e5e4eaa7bc3ca698b499 /soxdial
parent99bc78fc15931ce0ad8cd252ef1b3725e6ffa3aa (diff)
downloadmisc-scripts-72593434fe271ad134618940f6de1552d8d74f60.tar.gz
soxdial: VERSION=0.1.0.
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) {