stasis-http: Provide a response body for 201 created responses
[asterisk/asterisk.git] / agi / numeralize
1 #!/usr/bin/perl
2 #
3 # Build a database linking filenames to their numerical representations
4 # using a keypad for the DialAnMp3 application
5 #
6
7 $mp3dir="/usr/media/mpeg3";
8
9 dbmopen(%DIGITS, "/var/lib/asterisk/mp3list", 0644) || die("Unable to open mp3list");;
10 sub process_dir {
11         my ($dir) = @_;
12         my $file;
13         my $digits;
14         my @entries;
15         opendir(DIR, $dir);
16         @entries = readdir(DIR);
17         closedir(DIR);
18         foreach $_ (@entries) {
19                 if (!/^\./) {
20                         $file = "$dir/$_";
21                         if (-d "$file") {
22                                 process_dir("$file");
23                         } else {
24                                 $digits = $_;
25                                 $digits =~ s/[^ \w]+//g;
26                                 $digits =~ s/\_/ /g;
27                                 $digits =~ tr/[a-z]/[A-Z]/;
28                                 $digits =~ tr/[A-C]/2/;
29                                 $digits =~ tr/[D-F]/3/;
30                                 $digits =~ tr/[G-I]/4/;
31                                 $digits =~ tr/[J-L]/5/;
32                                 $digits =~ tr/[M-O]/6/;
33                                 $digits =~ tr/[P-S]/7/;
34                                 $digits =~ tr/[T-V]/8/;
35                                 $digits =~ tr/[W-Z]/9/;
36                                 $digits =~ s/\s+/ /;
37                                 print "File: $file, digits: $digits\n";
38                                 $DIGITS{$file} = $digits;
39                         }
40                 }
41         }
42 }
43
44 process_dir($mp3dir);