diff options
author | kpfleming <kpfleming@f38db490-d61c-443f-a65b-d21fe96a405b> | 2006-03-03 18:14:35 +0000 |
---|---|---|
committer | kpfleming <kpfleming@f38db490-d61c-443f-a65b-d21fe96a405b> | 2006-03-03 18:14:35 +0000 |
commit | a7de4be0d5d01425755a1bb33dd81c811b52c579 (patch) | |
tree | a99936572577ee64e1dc351307de1bd656809a91 /1.2-netsec/agi/numeralize | |
parent | 67da2f8263b4e9bb5522fa59b27e143381d69774 (diff) |
remove improperly created directory
git-svn-id: http://svn.digium.com/svn/asterisk/tags/1.2.5@11748 f38db490-d61c-443f-a65b-d21fe96a405b
Diffstat (limited to '1.2-netsec/agi/numeralize')
-rw-r--r-- | 1.2-netsec/agi/numeralize | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/1.2-netsec/agi/numeralize b/1.2-netsec/agi/numeralize deleted file mode 100644 index 5ca51913d..000000000 --- a/1.2-netsec/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); |