asterisk users - Dec 2004 - MeetMe Features

Hi all,
 
I had a chance to use some call conferences that had some very neat
functionalities:
- When you call you are first asked for your name
- When someone joins the conference a message "<name> is now joining
the
conference." is played.
- When someone leaves the room a message "<name> has left to
conference." is
played.
 
How can I set MeetMe/Asterisk to have such features?
 
Regards,
Stojan Sljivic
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
http://lists.digium.com/pipermail/asterisk-users/attachments/20041209/898a50e0/attachment.htm

On Thu, 9 Dec 2004, Stojan Sljivic - Pamet wrote:
> I had a chance to use some call conferences that had some very neat
> functionalities:
> - When you call you are first asked for your name
> - When someone joins the conference a message "<name> is now
joining the
> conference." is played.
> - When someone leaves the room a message "<name> has left to
conference." is
> played.
>  
> How can I set MeetMe/Asterisk to have such features?
One way is to do this by changing the MeetMe application. 

Another way is to do this through the dialplan. The steps would roughly 
be:
 1. Answer the call
 2. Authenticate the user using "authenticate", dialplan logic or an
    AGI script/program.
 3. Play a message asking for the callers name (only if the user has
    no previous sound clip on file?)
 4. Record the answer. Possibly store the filename in a database to be 
    used in (3) later.
 5. Create a call file inte the outgoing spool. Make it dial to the 
    meetme via the "local" channel type and, once that is up, jump to
    an extension that plays back the announcement and the sound recorded 
    in (4) and then hangs up.
 6. After creating the call file put the user in the meetme as usual. 

Untested, but I think it will work. You will need to familiarize yourself 
with the outgoing call spool and the local channel (to allow you to loop 
both ends into the dialplan).

Peter

On Thu, 9 Dec 2004 10:59:56 +0100, Stojan Sljivic - Pamet
<stojan.sljivic@pamet.co.yu> wrote:
> - When someone joins the conference a message "<name> is now
joining the
> conference." is played. 
I decided to work on this today to see what happened.  I used Peter's
logic to get me started.

This is by no means complete.  Infact, its pretty dirty, but it works
and just wanted to post this to prove it can be done.

Now that I have the general idea of what is going on, I should be able
to just put this entire thing right into the Perl script and not need
any dialplan logic.  But thats why Asterisk is great, theres a 1000
ways to accomplish your goal.

In order to use this, you must create a directory for the user
recordings.  My example is for conference 5050 and the user pin is
1234.

mkdir -p /var/lib/asterisk/sounds/conf/5050

Then from the Asterisk CLI, create an entry in the AstDB.

*CLI>  database put conference/room/5050 1234 ""

This will create the family/key entry with a value of nothing.  The
first time the user logs in it will prompt them to say their name. 
After the user presses pound (#), it will save the file to
/var/lib/asterisk/sounds/conf/5050/1234.wav.  You will be able to
check to see if the user has created a wav file by doing a lookup in
the database.

*CLI>  database show

If you need to re-record the prompt, just null out the value again.

If the user enters an incorrect conference/pin pair three times, then
the user is disconnected.

I'll be working on this again over the weekend to clean it up and make
it a bit more practical.  Comments/suggestions/constructive criticism
welcome.

; extensions.conf snippet
;------------------------------------------------------------------------------
; MeetMe Announced Join
; (c)2004 Leif Madsen
; http://www.leifmadsen.com
;------------------------------------------------------------------------------
[conf-announced-join]
exten => s,1,SetVar(pincheck=0)
exten => s,2,Answer
exten => s,3,Read(confnum|conf-getconfno|4)                           
         ; get conf num
exten => s,4,Read(confpin|conf-getpin|4)                              
         ; get conf pin
exten => s,5,DBGet(userannouncement=conference/room/${confnum}/${confpin})
     ; if not available n+101
exten => s,6,GotoIf($["${userannouncement}"
""]?recordprompt,1:joinconf,1)    ; if blank, record an entry prompt
exten => s,106,SetVar(pincheck=$[${pincheck} + 1])                    
         ; invalid pin
exten => s,107,GotoIf($[${pincheck} = 3]?invalidpin,1)                
         ; if three times wrong, goto invalidpin
exten => s,108,Playback(conf-invalidpin)
exten => s,109,Goto(s,3)

exten => recordprompt,1,SetVar(announcement=${confpin}.wav)
exten =>
recordprompt,2,DBPut(conference/room/${confnum}/${confpin}=${announcement})
exten => recordprompt,3,Playback(after-the-tone)
exten => recordprompt,4,Record(conf/${confnum}/${announcement}||6)
exten => recordprompt,5,Goto(joinconf,1)

exten => joinconf,1,AGI(conference-announce.pl)
exten => joinconf,2,MeetMe(${confnum}|q)

exten => invalidpin,1,Playback(invalid)                               
         ; 3 times wrong
exten => invalidpin,2,Hangup

exten => _505X,1,MeetMe(${EXTEN}|q)                                   
         ; allow 5050 -> 5059
exten => _505X,2,Hangup

; Perl script
#!/usr/bin/perl
# Announced conference join script
# (c)2004 Leif Madsen
# http://www.leifmadsen.com

use warnings;

use Asterisk::AGI;
$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();

$pin=  $AGI->get_variable('confpin');
$conf=  $AGI->get_variable('confnum');

# callfile variables
my $CALLFILE = "/var/lib/asterisk/agi-bin/conf-announce.call";  # this
needs to be a temporary place before we move it to
/var/spool/asterisk/
my $CALL_CHANNEL = "Local/$conf\@conf-announced-join\/n";
my $CALL_RETRIES = 1;
my $CALL_RETRYTIME = 60;
my $CALL_WAITTIME = 30;
my $CALL_APP = "Playback";
my $CALL_APP_DATA = ("conf\/$conf\/$pin");

main::Callfile();

sub main::Callfile
{
        open(OUTFILE, ">> $CALLFILE") or die
$AGI->verbose("can't open
$CALLFILE for writing\n");
        print OUTFILE "Channel: $CALL_CHANNEL\n";
        print OUTFILE "MaxRetries: $CALL_RETRIES\n";
        print OUTFILE "RetryTime: $CALL_RETRYTIME\n";
        print OUTFILE "WaitTime: $CALL_WAITTIME\n";
        print OUTFILE "Application: $CALL_APP\n";
        print OUTFILE "Data: $CALL_APP_DATA\n";
        `mv $CALLFILE /var/spool/asterisk/outgoing`;
        close OUTFILE;
};

Leif Madsen.
http://www.leifmadsen.com
http://www.asteriskdocs.org
http://www.hacklocalhost.com