6077l1.txt0100664000204600003300000000466107500165356011457 0ustar jillljedit# Copyright (C) 2000-2001 Open Source Telecom Corporation. # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # # Play and record main menu answer clear %session.digits # clear digit buffer play *::playrec # "press 1 to play or 2 to record..." sleep 60 # wait up to 60 seconds return.exit status="timeout" ^1 goto ::play # if pressed 1, goto play ^2 goto ::record # if pressed 2, goto record ^star # if * hangup or subroutine return return.exit status="ok" ^dtmf # any other dtmf digit... play *::playrec0 # "you have selected an invalid entry..." goto playrec # repeat menu .private ::play # Play a selected prompt message clear %session.digits play *::playrec1 # "enter the three digit prompt you wish to play..." sleep 60 # wait up to 60 seconds for first keystroke goto playrec # if none, go back to main menu # timeout or non-digit entry is invalid ^A ^B ^C ^D ^pound ^star ^timeout play *::playrec0 # "you have entered an invalid value..." goto playrec # restart menu ^dtmf collect 3 5 "" "*#ABCD" # collect all 3 digits, ignore non-digit set %var1 prompts/ %session.digits .au # build name of audio prompt file play %var1 # play the prompt file selected slog "annotation %audio.annotation" # show annotation slog "played %audio.played samples" # show play result goto playrec # go back to main menu ::record # Record a selected prompt message clear %session.digits play *::playrec2 # "enter the three digit prompt you wish to record..." sleep 60 # wait up to 60 seconds for first keystroke goto playrec # if none, go back to main menu # timeout or non-digit entry is invalid ^A ^B ^C ^D ^pound ^star ^timeout play *::playrec0 # "you have entered an invalid value..." goto playrec # restart menu ^dtmf collect 3 5 "" "*#ABCD" # collect all 3 digits, ignore non-digit set %var1 prompts/ %session.digits .au # build name of audio prompt file set %audio.annotation "playrec generated prompt" record %var1 120 "*#" # record the prompt file selected slog "recorded %audio.recorded samples" # bytes recorded goto playrec # go back to main menu 6077l2.txt0100775000204600003300000000421507500165356011456 0ustar jillljedit#!/usr/bin/perl # # Copyright (C) 2000-2001 Open Source Telecom Corporation. # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # # Returns the name matching the given key in the given db # This is useful for a simple key-value pair data store for a tgi app. # Returns 0 if found, -1 on error. # # V1.1 3/31/00 - created - rsb # #use strict; use lib $ENV{'SERVER_LIBEXEC'}; use TGI; use POSIX; use SDBM_File; my($version) = "1.1"; my($debug_level) = 0; my($value); my($return); $database = $TGI::QUERY{dbase}; $key = $TGI::QUERY{key}; #test #$database = "/home/ivrapp/dbases/users"; #$key = '1234567890'; $return = getval($database, $key, \$value); if ($return) { TGI::set("value", $value); } TGI::set("return", $return); ############################################################################### # getval - puts into $_[2] the value matching key $_[1] in the database $_[0], # and returns 0 if found o.k. ############################################################################### sub getval { my($database) = $_[0]; my($key) = $_[1]; my($value) = $_[2]; my(%hash); my($retval); tie(%hash, SDBM_File, $database, O_RDONLY, 0666); # if (exists($hash{$key})) { # perl bug - exists not implemented if (rbexists(\$key, \%hash)) { $$value = $hash{$key}; $retval = 0; } else { $retval = -1; } untie %hash; return $retval; } ############################################################################### # rbexists - return 1 if the key exists in the hash, 0 otherwise ############################################################################### sub rbexists { my($testkey, $hash) = @_; my($currentkey); foreach $currentkey (keys %$hash) { if ($currentkey eq $$testkey) { return 1; } } return 0; } #EOF