diff options
author | lmadsen <lmadsen@f38db490-d61c-443f-a65b-d21fe96a405b> | 2009-01-21 13:28:23 +0000 |
---|---|---|
committer | lmadsen <lmadsen@f38db490-d61c-443f-a65b-d21fe96a405b> | 2009-01-21 13:28:23 +0000 |
commit | 0ca406cde7545eaaa47c710e6629f7bef81a1b4e (patch) | |
tree | f5e9b7d7745b16bf7bfde173caf894774cfd2bb0 /1.4.23-rc4/agi/numeralize | |
parent | 503ebba846b30a4d9e493a7e8578f9c40cf89bf4 (diff) | |
parent | 5d859e878131cac015b110f434a57e459cdac8b0 (diff) |
Create tag for asterisk-1.4.23
git-svn-id: http://svn.digium.com/svn/asterisk/tags/1.4.23@169670 f38db490-d61c-443f-a65b-d21fe96a405b
Diffstat (limited to '1.4.23-rc4/agi/numeralize')
-rw-r--r-- | 1.4.23-rc4/agi/numeralize | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/1.4.23-rc4/agi/numeralize b/1.4.23-rc4/agi/numeralize deleted file mode 100644 index 5ca51913d..000000000 --- a/1.4.23-rc4/agi/numeralize +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl -# -# Build a database linking filenames to their numerical representations -# using a keypad for the DialAnMp3 application -# - -$mp3dir="/usr/media/mpeg3"; - -dbmopen(%DIGITS, "/var/lib/asterisk/mp3list", 0644) || die("Unable to open mp3list");; -sub process_dir { - my ($dir) = @_; - my $file; - my $digits; - my @entries; - opendir(DIR, $dir); - @entries = readdir(DIR); - closedir(DIR); - foreach $_ (@entries) { - if (!/^\./) { - $file = "$dir/$_"; - if (-d "$file") { - process_dir("$file"); - } else { - $digits = $_; - $digits =~ s/[^ \w]+//g; - $digits =~ s/\_/ /g; - $digits =~ tr/[a-z]/[A-Z]/; - $digits =~ tr/[A-C]/2/; - $digits =~ tr/[D-F]/3/; - $digits =~ tr/[G-I]/4/; - $digits =~ tr/[J-L]/5/; - $digits =~ tr/[M-O]/6/; - $digits =~ tr/[P-S]/7/; - $digits =~ tr/[T-V]/8/; - $digits =~ tr/[W-Z]/9/; - $digits =~ s/\s+/ /; - print "File: $file, digits: $digits\n"; - $DIGITS{$file} = $digits; - } - } - } -} - -process_dir($mp3dir); |